2000C HIGH SPEED T5B SYSTEM 
(REV. C) 



BINARY TAPES 24261-60001 

24261-60002 
24261-60003 

SOURCE TAPES 24261-80001 

24261-80002 
24261-80003 
24261-80004 
24261-80005 
24261-80006 
24261-80007 
24261-80008 
24261-80009 
24261-80010 
24261-80011 
24161-80012 
24261-80013 
24261-8C014 
24261-80015 
24261-80016 
24261-80017 
24261-80018 
24261-80019 
24261-80020 
24261-80021 
24261-80022 
24261-80023 
24261-80024 
24261-80025 
24261-80026 
24261-80027 



PAGE 0001 

0001 ASMB,A,Bft TSB SYSTEM - 2000C(HS) VERSION ; C 

** NO ERRORS* 



PAGE 0002 #01 



0001 

0002 

0003* 

0004* 

0005* 

0006* 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0016 



02002 



A3M8'A*BH_ TSb 
ORG 2002B 



SYSTEM « 2000C(HS; VERSION C 



LINKAGE INFORMATION USED BY 
MAG IAPE DUMP, 



THE TSB LOADER AND THE 



02002 
02003 
02004 
02005 
02006 
02007 
02010 
02011 
02012 
02013 
02014 
02015 



075000 
072034 
000023 
06H30 
061132 
001571 
177224 
001224 
070342 
114460 
031234 
000103 



DEF 
DEF 
ABS 
DEF 
DEF 
DEF 
ABS 
DEF 
DEF 
JSB 
DEF 
ABS 



LIBRA 

COM6 

TTY01-T 

TTYtfy*? 

TTY00+? 

LNAME 

USEH^PR 

USER 

TSB 

POWlNf I 

GMOB 

$SLPL«L 



SYSIEM L 
*> SYSTE 

TY00 LEN 
DISC ADD 
ID ADD 

ADDRESS 
OGB, 1 LEN 
CORE ADD 
SYSTEM S 
TO GO IN 
MESSAGE 
IBRA NUMB 



IBRARY PROGRAM ORIGIN 

M LIBRARY DISC ADDRESSES 

GTH OF A TTY (ABLE 

RESS OF USER DISC ADORES 

RES3 OF ID-NAME 

OF OSER»DEPENDENT ITEMS 

GrH OF SWAP AREA 

RESS OF SWAP ArEA 

TARTING ADDRESS 

TO LOC 4, 

BUFFER SETTER 

ER OF LIBRARY PROGRAMS 



PACE 0003 #01 BASE PACE 



0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 

0048 
0049 
0050 
0051 
0052 
0963 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 



00000 
00001 
00000 
00017 
00002 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00030 
00030 
00050 
00051 
00052 
00053 
00054 
00055 
00056 

00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 



A 
B 

DEATH 
FT£l 



102002 
024002 
103004 
102005 
107706 
114476 
114464 
102011 
114466 
102013 
102014 
102015 
114472 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000300 
000000 

000000 
000000 
000000 
000000 
000000 
000000 



EGU 
EQU 1 
EQU 
EQU 15 
ORG 



Hi,T 



2 
2 



DMA 
CHI 

CH2 
?5C 



JMP *-l 
HLT 4,C 
HUT 5 
CLC 6,C 
JSB ?ADIN,I 
JSB R14DR,! 
HUT 
JSB 

HLT 
HLT 
HUT 



IB 

35DR,I 
3B 
46 

58 

CLOCK JSB CLKDR,1 
OrG 30B 



LTEmP 

MOVES 

MOVED 

ID 

MID 

T35Cp 

T35LC 

PbPTR 



BSS 
B3S 
BSS 
BSS 
BSS 
BSS 
BSS 

B ss 



TIMER BSS 
SBHED BSS 
SCHl, BSS 
TTti gSS 
SCH1D BSS 
0CHP BSS 
SCNT BSS 
SCHPR BSS 
CM BSS 
CM8 BSS 
CME BSS 
WqRD BSS 
3VCH2 BSS 
TCNT BSS 
ID U CP BSS 
IOLNP ess 



A REGISTER ADDRESS 
B REGISTER ADDRESS 

PILE TABLE ENTRY LENTH 

FOR SYSTEM 

PROTECTION 
CHANGED BY LOADER. 
PARITY ERROR, 



COMMUNICATION FROM 2114 
CONSOLE LINK 

CLOCKLINK 

TEMPS USED BY NONRESIDENT FUNtS, 
SOURCE ANq DESTINATION 

FOR MOVEW ROUTINE. 
USED FOR RESULTS OF GETID ROUTIN 

T35 BUFFER p N TR F R LIBR.PRoGS. 
RESULT OF T35C H ROUTINE, 
POINTER TO ENo OF CURRENT PROGRA 

POINTS TO CUOCK OF ACTIVE USER, 



word CqUnT to disc rquti n e. 



page 0004 ««u base pa&e 

0065* 

0(066************''''******************************************************* 

W067* 

0068* BEGINNiNG UF EQUIPMENT TABLE 

0069* 

0070* THE NEXT SET OF CARDS CONSTITUTE THE RESIDENT INFO ABOUT 

0071* DISC RESIDENT TABLES, THESE CARDS MUST BE ORIG1NED AT 100B, 

0072* THEY ArE INITIALIZED BY THE VArI US LgAOERS, AND THEIR 

0073* CONTENTS ARE wRiTTEN ON DjSC BY ThE StEEp ROUTINE, 

0074 00100 ORG 100b 

0075 00100 000000 IDEC BSS 9 10 TABLE HEADERS 
0076* 1) FIRST ID QN TRACK 
W77* 2) QHUM AudHESS 
0078* 2) USEFUL LENGTH 

0079 00111 000000 NIDT BSS 1 NUMBER OF ID TRACKS 

0080 00112 000000 ADLOC BSS l ADT DRUM ADDRESS 

0081 00113 000000 ADLEN BSS 1 ADT LENGTH IN ~*qrDS 

0082 00114 000000 NDiRT BSS 1 NUMBER OF DjrR TRAX PER DiSk 

0083 00115 000000 DADLC &SS 8 DISC AD* DRUM A DDRESS 

0084 00125 000000 DADLN BSS 8 DISC ADT LENGTHS IN -WORDS 

0085 00135 000000 ?1BL BSS 4 DRUM SELECT CODE TABLE 

0086 00141 000000 DKtBL BSS 9 DlsL SELECT C'JDE / UNIT TABLE 

0087 00151 000000 TRAX BSS 16 AVAILABLE TPAC K TAB|_E 

0088 00171 000000 SYSID BSS 5 SYSTEM IDENTIFICATION 

0089 00176 000000 MAGSC BSS 1 MAG UPE SELECT CODE 

0090 001/7 000000 NHORT BSS 1 ..NUMBER OF AVAILABLE PORTS 

0091 00200 0000f)30 YEAR bSS 1 A NUMBER FROM TO 99 

0092 00201 000000 DAjIM BSS 2 REPRESENjS T IME OF YEAR, FIRSf 

0093* word contains hqur op year, second 

0094* is u of 100ms units in hr <• 

0095* 36000, 

0096 00203 000000 HDATE BSS 1 LAST HIBERNATE DATE 

0097 00204 000000 SLEPT BSS 1 SEZ SLEPT, .,1 SEZ NU 
0098* 

Mk) 9y* END OF THE EQUIPMENT TABLE 
0100* 

0101************************************************************ 

0102* 

0103 00205 000000 LDBSA BSS \ DISC BOOTSTRAP ADDRESS 

0104 00206 000000 LSTDA bSS 1 LUADEr SEGMENT TABLE ADDRESS 

0105 00207 000000 DATLN BSS 1 -LENGTH Of- DISC ALLOCATION TABt.E 

0106 00210 000003 MHAq BSS * Aqq^ESS OF M, h, o IS C TABLE 

0107 00211 000000 GMQBP BSS i »> MESSA^t BUFFER GETTER 

0108 00212 000000 DISCA BSS 1 ADDRESS OP DISC DRIVER ENTRY 

0109 00213 000000 DiSCB BSS 1 DISC DRIVER INTERRUPT ENTRY ADDK 

0110 00214 000000 MB US Y Bss 1 Dl$ c DRIVER Bg 3 Y FLAG 

0111 00215 000000 M WoRD BSS 1 DISC REQUESTED WoRD CqUnT 

0112 00216 000000 DR E DP BSS 1 ■> DISC AUTO RESTART ROUTINt 
0113* 

0114* END OF AREA THAT MUST CORRESPOND *ITH THE LOADER 

0115* 

0116******************************************************************** 

0117* 

0118 00217 831251 DISCZ DEF ZDISC 

0119* 



******** 



PAGE 0005 #01 BASE PAGE 



0121* 
0122* 
0123* 

0124 

0125 

0126 

0127 

0126** 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0l3b 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0146 

0149 

0150 

0151 

0152** 

0153** 

0154** 

0155 

0156 

0157** 

0158 

0159* 

0160* 

0161* 

0162 

0163 
0164 
0165 
0166 
0167 
0168 
0169* 

0170 

0171* 

0172 

0173 

0174 

0175 



2114 SEND DRIVER OPCODES 



00220 000000 

00221 020000 

00222 040000 

00223 060000 



00224 
00225 
00224 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 



120000 
140000 

160B00 
160001 
160002 
160003 
160004 
160005 
160006 
160007 
160010 
160011 
160012 
160013 
160014 
160015 
160016 
160017 
160020 
160021 
160022 
160023 



00252 160027 

00253 160030 

00254 160032 
THE FOLLOWING 



OCR OCT 000000 OUTPUT CHARACTER 

STE OCT 020000 START TIMING ENTER 

GTC OCT 040000 GET CHARACTER 

PHO OCT 060000 PHONES TIME 

SPE OCT 10000 BAUD RATE INFO 

SBP OCT 120000 SAVE BUFFER POINTER 

RBP OCT 140000 RESTORE BUFFER POINTER 

F8P EQU SBP FREE SAVED SPACE 

INI OCT 160000 INITIALIZE SYSTEM 

UIR OCT 160001 USER IS RUNNING 

UNr OCT 160002 USER NOT RUNNING 

IwT OCT 160003 INPUT WAIT 

hUU OCT 160004 HANG USER UP 

ULO OCT 160005 USER LOGGED ON 

ECO OCT 160006 ECHO-ON 

ECF OCT 160007 ECHO w OFF 

TpO OCT 160010 TApE MODE ON 

iLl OCT 160011 Ill£GA L INPUT? 

nuc oct 160012 new user called 

kao oct 160013 kill all output 

ali oct 160014 allow input 

owt oct 160015 output wait 

ibf oct 160016 13 buffer full? 

PSC OCT 160017 LINE PRINTER SELECT CqDE 

LPR OCT 160020 i,InE PRINTER REQUEST 

LPO OCT 160021 LINE PRINTER DISCONNECT 

LPS OCT 160022 LINE PRINTER STATUS 

BKS OCT 160023 BACKSPACE IN BUFFER 

CHS OCT 160024 CHAR, SIZE INFO 

STP OCT 160025 SUBTYPE INFO 

W3P OCT 160026 WHAT BAUD rAtE? 

wcs oct 160027 what char, pize? 

wtp oct 160030 what terminal type? 

tkotk oct 160031 telekludge lp output 

abt oct 160032 user is being aborted 

variables are system status variables 



00255 
00256 
00257 
00260 
00261 
00262 
00263 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



PRIST NOP 
LPLAG NOP 

MAIN NOP 
LIB NOP 
ENORM NOP 
HqDIS NOp 
T35F6 NOP 



00264 000000 TIHEF NOP 



24000 
75000 

00265 000000 

00266 000267 



ULEN EQU 
LIBRA EQU 
LCHCR NOP 
READY DEF **1 



10240 
75000B 



LP INDICATOR 

INDICATES USER IN CORE,0 IF NONE 
INDICATES LIBRARY PROG, IN CORE 
■ »1 IF DRtjM BgSY, IF NOT 
•0 UNLESS HEAD OF qUEuE DIsCONNEC 
PSEUD0-*-L a6 > MUST BE 10 WORDS 

BEFORE T35CL 
•1 WHEN CURRENT PROG IS TIMED, 

LENGTH OF USER AREA 

SYSTEM LIBRARY PROGRAM ADDRESS 



PAGE 0006 #01 BASE. PAGE 



0176 
0177 

0178 

0179 

018*) 

0181 

0182* 

0183 

0184 

0185 

0186 

0187 
0188 
0189 
0190 
0191 
0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199* 

0200* 

0201* 

0202 

0203 

0204 

0205* 

0206* 

0207* 

0208 

0209* 

2 10 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

*223 
0224 
0225 
0226 
0227 
0228 
22 9 



00267 
00270 
00271 
002/2 
00273 
00274 
00274 
TTY E 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00047 
00352 
00306 
00307 

00310 

00311 

00312 



005122 
042501 
042131 
000273 
000273 
$77777 

NTRY FOR 
000000 
000000 
0000f<J0 
000000 
000000 
000300 

171422 
171532 
074611 



000000 
056572 
056267 
056641 
056267 



OCT 
A3C 



5122 

2,tADY 



MLINK 



INF 

TTY35 

T35CL 

T35RS 

T35ST 

T35LK 

T35PR 
T35LN 
T35B2 
T35ND 
T35B1 

MES1.N 
MESBN 

msgcf 
msqpi 

MSQP3 

M8Q N D 
MSQBG 



DEF **1 

DEF * 

OCT 77777 

EQU MUINK+2 



LF- rt 



POINTS 10 BASIC UUEUE ENTRY, 

LINK TO HEAD UF UUtUE, 

MAX, PRIORITY USEO FUR G INSERTS 



NOP PSEgDO CLOCK, 

nqp restart address 
nop status 

NOP LINK 

NOP PRIORITY 

DEF T35LK 

ABS T35BF+T35BF CHAR POINTER TO TTY35 BUFFER 

ABS T35BF+T35BF+72 POINTS TQ END OF BUFFER 
DEF T35BF POINTS TO WO^D ADOrEsS OF BuFFEk 
EQU 39 LENGTH OF OPERATUR MESSAGES 
EGU MESLN+MESLN+MESLN+MESLN+MESLN+MESLN 
OCT M ESSAGE CyU N TER 

DEF mSOHD + mESBn«»mESLn 
DEF MSQHD 

DEF MSqHD+MEsB n LIMITS 
DEF MSQHD OF MESSAGE QUEUE 



** CONSTANTS 
5 

00313 000000 

00314 000000 

00315 000000 



AND TEMPORARIES IN ASR«3b DRIVER, 



T35F1 
T35F2 
T35F3 



NOP 
NOP 
NOP 



SYSTEM 
CON S OLE 
F|,AGS 



GENERAL USE CONSTANTS 

SUP 



00316 
00316 
00317 
00320 
00321 
00333 
00347 
00352 
00373 
00411 
00427 
00436 
00436 
00437 
00440 
00441 
00442 
00443 
00444 

00445 



177706 

177740 
177746 
1777 4 7 
177761 
177775 
000000 
000021 
000037 
000055 
000072 

000^44 
000110 
000177 

000200 

k)Wd'i77 
000400 

001000 



072 

M72B 

M>*2 



,58 

872 

,100 

,72 

B177 
B2tf0 
B377 

6400 

8J000 



OCT 
EQU 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
EQU 
DEC 
DEC 
OCT 
OCT 
OCT 
OCT 
OCT 



"7 2 

D72 

-32 

-26 

-26, *24, -23,-22,-21, -20, -19, -18, -1 7, -16 

-15,-14,-13,-12,-11,-10,-9,-8,-7,-6,-5,-4 

-3,-2,-1 

0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 

1 7, 1 8,1 9, 2n, 2 1,22, 23, 24, 25, 26, 27, 28, 29, 3 

31,32,33,34,35,36,37,38,39,40,41,42,43,44 

45,46,47,48,49,50,51 

58 

,58 

100 

72 

177 

200 
377 

400 
1000 



PAGE 0007 #0J BASE PAGE 



0230 


00446 


020000 


B20M 


OCT 


20000 


ii)23l 


00447 


030000 


B30M 


OCT 


30000 


0232 


00222 




8IT14 


EQU 


GTC 


0233 


00353 




XAgQR 


EGU 


.♦1 


0234 


00354 




XINPT 


EQU 


.♦2 


0235 


00355 




XOUTW 


EGU 


«*3 


0236 


00356 




XSYNT 


EQU 


.♦4 


0237 


00350 




xtusc 


EQU 


.-2 


023a 


00347 




XENTO 


EQU 


.-3 


0239 


00346 




XPUN 


EQU 


t-4 


0240 








UN3 




0241 


00450 


037753 


XEC3I 


DEF 


XEC3 


0242 


00451 


040055 


XEC5I 


OEF 


XEC5 



PAGE 0008 #01 BASE PAGE 



0244* 
0245* 

0246*' 
0247* 

0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 

0262 
0263 

0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 



LANGUAGE PROCESSOR CONSTANTS AND ADDRESSES 



00452 001601 DFILT DEF FUSTS 

00453 033027 SBJTB DEF #FSC 

00454 031731 SYNTA DEF SYNTX 

00455 033463 DEF *SBCK 

00456 00U30 D600 DEC 600 

00457 033304 DEF #FrCr 

00460 060417 POWJN DEF PQW 

00461 033335 DEF #FPQP 

00462 025224 |>AU8 DEF USER+ULEN 

00463 034131 DEF #VRQP 

00464 063334 R14DR DEF R14CM 

00465 033603 DEF #ARlD 

00466 060735 T35DR DEF ?TT2 

00467 034503 DEF #PGIN 

00470 053316 MCBQP DEF MCBQS 

00471 034600 QEF #T&SR 

00472 070026 CLKDR DEF CLKJN 

00473 034470 DEF #GTPF 

00474 053337 ANOT DEF NOT 

00475 035211 DEF #LPCK 

00476 060052 ?ADIN DEF DINT 
mA77 034735 DEF #RPCK 
00500 063307 S14SC DEF S14SH 

00500 S14LP EQU S14SC 

00501 034713 DEF #LTR 

00502 000777 8777 uCT 777 

00503 034725 DEF #STOP 

00504 175000 *LIBI DEF LIBRA, I 

00505 034210 DEF #CRST 

00506 075000 #LIB# DEF LIBRA 

00507 034747 DEF #DGCK 

00510 053504 ATAB DEF jkb 

00511 034761 DEF #LTCK 

00512 000151 DlRAX QEF TRAX 

00513 035202 DEF tfSBPy 

00514 071457 SCHEN DEF SCHEQ 

00515 034771 DEF #SYCK 

00516 071433 SCHIN DEF SCHIQ 

00517 043621 DEF #FINC 

00520 000030 DLTEM DEF LTEMp 

00521 1^52716 DEF #NMCK 

00522 060715 TTY35 DEF 7TT35 

00523 053116 DEF #MB10 

00524 034307 ACCSA DEF ACCST 

00525 053264 DEF #oB10 

00526 034400 ACCSA DEF ACCS5 

00527 053146 DEF #NRML 

00530 025230 LULEN DEF LIBUS+ULEN 

00531 053201 DEF #PAC* 

00532 074435 SCHLb DEF SCHLQ 

00533 052667 DEF #OVFL 



LINKAGE FUR INPUT REQUEST, 



PAGE 0009 *0i BASE PAGE 



0299 00534 074636 ABCK DEF ABCHK 

0300 00536 034240 DfcF #OLPR 

0301 00536 003230 L1024 DEF LIBUS+1024 

0302 00537 03442J DEF #FDPS 

0303 00540 072035 FUSS DEF C0M6*1 POINtEr TO DIsC ADDrEsS OF FUSS. 

0304 00541 036732 DEF *83YM 

0305 00542 020000 P8192 DEC 8192 

0306 00543 037002 DEF #ASyM 

0307 00544 001645 ERSCA DEF ERSEC 

0308 00545 036450 DEF #DCMP 

0309 00546 061126 DTTY0 DEF TTY00 

0310 00547 036574 DEF #PNST 

0311 00550 062266 0TT32 DEF TTY32 

0312 00551 035170 DEF #QUSP 

0313 00552 102501 UAl HA i 

0314 00553 033607 DEF #STRI 

031 5 ®*55* 0^1655 EXJTA DEF EXIT 

0316 00555 033635 DEf *RST0 

0317 00556 040031 XECIA DEp XEC1 

0318 00557 033647 DEF #GtsT 

0319 00560 042614 FRET DEF FQR10 

0320 00561 042371 DEF *FQRM 

0321 00562 001230 LIBD DEF LI8U8 

0322 00563 043541 DEF #3T3T 

0323 00564 033360 FQPBS DEF 0U0TE-2 

0324 00565 044010 DEF #8BFX 

0325 00566 101230 LIBDI DEF H8U3,I 

0326 00567 043420 DEF #P3TR 

0327 00570 020040 A8CBB ASC 1, 

0328 00571 051165 DEF #FLQT 

0329 00572 074025 T35CH DEF T35CQ 

0330 00573 044657 DEF *TRST 

0331 00574 030060 ASC00 ASC 1,00 

0332 00575 045341 DEF #CMPR 

0333 00576 071612 OUTCh DEF #QUTC 

0334 00577 043322 DEF #PCHK 

0335 00600 001364 PScHA DEF F3cH 

0336 00601 042342 DEF «FTCH 

0337 00602 001777 B 1777 OCT 1777 

0338 00603 042020 DEF #ST0p 

0339 00604 000000 LOGcT NOP 

0340 00605 042111 D£F tffDAT 

0341 00606 072236 LQGPl DEF LQGGR+63 

0342 00607 043563 DEF fFSCH 

0343 00610 177700 D100 OCT .100 

0344 00611 043741 DEF *P3HS 

0345 00612 002000 B2000 oCT 2000 

0346 00613 045165 DEF #ARIn 

0347 00614 003000 83000 OCT 3000 

0348 00615 043642 DEF #gNOP 

0349 00616 010000 RPOP OCT J0000 

0350 00617 043635 DEF *8TTP 

0351 00620 072236 L0GP2 DEF LOGGR+63 

0352 00621 043651 DEF #OPCK 

0353 00622 012000 L80P OCT 12000 



NUM B gR OF eUs-MeNTS IN LOGGR 
POIN T ERs tD FIR 3T AND 



IAst ENTRIES IN U06GR 



PAGE 0010 #01 BASE PAQt 



0354 00623 043703 DEF #R8CK 

0355 00624 013030 LPOP OCT 13000 

0356 00625 044726 DEF #FAD , 

0357 00626 072137 LOGBG DEF LOGGR 

0358 00627 044733 DEF #FSB 

0359 00630 072237 LQGND DEF LOGGR+64 

0360 00631 045036 DEF # FMP 

0361 00632 022000 MU^OP OCT 22000 

0362 00633 045101 DEF #FDV 

0363 00634 070043 DCLC* OEF CLC* 

0364 00635 044702 DEF #UNPK 

0365 00636 047000 pIMOP OCT 47000 

0366 00637 045224 OEF #FLuN 

0367 00640 070047 DCLC2 OEF clC 2 

0368 00641 044021 DEf #IFIX 

0369 00642 051000 RfcMOP OCT 51000 

0370 00643 050010 OEF #ENOT 

0371 00644 001705 ERS32 DEF ER8EC+32 

0372 00645 050026 DEF #NMOT 

0373 00646 055000 n*TqP OCT 55000 

0374 00647 050345 DEF #GtDG 

0375 00650 060000 ENyQP OCT 60000 

0376 00651 050437 DEF #OTLN 
\di77 00652 062000 OaTQP OCT 62000 

0378 00653 050417 DEF #EDLM 

0379 00654 025063 L*97 OEF USER + ULEN..97 

0380 00655 042347 DEF #STPT 

0381 00656 065000 PHTOP OCT 65000 

0382 00657 051531 DEF *EXP 

0383 00660 070000 FILOP OCT 70000 

0384 00661 061655 DEF #LQG 

0385 00662 100001 ONE1 UEF \,l 

0386 00663 051074 DEF #CHE8 

0387 00664 Q77 m % OPMSK OCT 77$qq 

0388 00665 051147 DEF # IENT 

0389 00666 070613 DEH OEF EH 

0390 00667 051172 DEF #PWR2 

0391 00670 100003 INtFL QCj 100003 

0392 00671 042244 DEF *INCL 

0393 00672 100017 PDFFL OCT 100017 

0394 00673 050475 DEF #GyCR 

0395 0k>674 176550 MUBD ABq ~LIBus 

0396 00675 050467 DEF #BKSP 

0397 00676 000135 ?ATBL DEF ? TBL 

0398 00677 0504S1 DEF #OTCR 

0399 00700 100777 OPDMK OCT 100777 

0400 00701 050370 DEF #QTJN 

0401 00702 002000 PBUFF DEF PR0G8+1 

0402 00703 052613 DEF #MCOT 

0403 00704 106240 D36K ABS 30000*6000 

0404 00705 052650 DEF #QTST 

0405 00706 174003 OHOP OCT 174003 

0406 m7^7 042365 DEF #SINI 

0407 00710 071713 SCOM1 DEF CQM1 

0408 00711 034513 DEF #BLDI 



P0IN T S T BEGINNING OF LOGGR 
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0409 00712 072022 8CUM5 DEF CQM5-1 

0410 00719 047303 DEF #RDIM 

0411 00714 160010 M8184 DEC .8184 

0412 00715 047252 DEF #VCHK 

0413 00716 154960 MAX8N DEC -10000 

0414 00717 045415 DEF #SERR 

0415 00720 000105 E OCT 105 

0416 00721 052676 DEF #CHqU 

0417 00722 000073 B73 OCT 73 

0418 00723 045405 DEF #MQVE 

0419 00724 000074 D60 DEC 60 

0420 00725 034545 DEF #RECR 

0421 00726 073000 LETOP OCT 73000 

0422 00727 034566 DEF #FILR 

0423 00730 000140 ,140 OCT 140 

0424 00731 042043 DEF #VUFX 

0425 00732 176000 M2000 OCT 176000 

0426 00733 044057 QEF #R03T 

0427 00734 WQQ77 B77 OCT 77 

0428 00735 044355 DEF #FILS 

0429 00736 004000 B4000 qCT 4000 

0430 00737 044471 DEF #GjTY 

0431 00740 125007 PDF88 JMP PDFT8«1,I 

0432 00741 044534 DEF #WRBU 

0433 00742 045000 CQMOP OCT 45000 

0434 00743 035040 QEF #AUCQ 

0435 00744 016000 SCOMM OCT 16000 

0436 00745 037057 DEF #R8TP 

0437 00746 044000 IMGQP OCT 44000 

0438 00747 043S30 DEF #FENC 

0439 00750 177000 M5l2 DEC .512 

0440 00751 056000 DEF #Mj61 

0441 00752 177667 m73 OfcC -73 

0442 00753 056010 OEF #DtU 

0443 00754 053515 PDf-NS DEF PROFS 

0444 00755 056022 DEF «RUND 

0445 00756 134213 STfcjAS DEF SYNTB"42B#I 

0446 00757 056064 DEF #0T8t. 

0447 00760 001652 IHB DEF HB 

0448 00761 056072 DEF #OfCl 

0449 00762 177400 M256 DEC .256 

0450 00763 056103 DEF *DSCH 

0451 00764 177600 M128 DEC "128 

0452 00765 056124 DEF *MChR 

0453 00766 177640 M96 OCT -140 

0454 00767 056150 oEF #EV£P 

0455 9077$ 0^0012 DRUM DEF LDRUM 

0456 00771 033667 DEF #USCK 

0457 00772 000100 0100 OCT 100 

0458 00773 035014 OEF #pF3H 

0459 00774 053474 ATHEN OEF THEN 

0460 00775 054006 DEF #FRMT 

0461 00776 043000 USEOP OCT 43000 

0462 m777 041027 DEF #EPRU 

0463 01000 154000 HUtEN ABS »UtEN 
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0464 


01001 


035220 




DEF 


#SLCK 




0465 


01002 


021230 


L8192 


DEF 


LIBUS+BI92 


0466 


01003 


073270 




DEF 


#LCDl 




0467 


01004 


001562 


FCUCA 


DEF 


FCUC 




0468 


01005 


043600 




DEF 


#FCUC 




0469 


01006 


042203 


FDT4A 


DEF 


FDAT4 




0470 


01007 


051751 




DEF 


*EDAB 




0471* 














0472** FUNCTION EXECUTION ENTRY ADDRESSES 


0473* 














0474 


01010 


050524 


PDFTB 


DEF 


ETAB 




0475 


01011 


050611 




DEF 


ELIN 




0476 


01012 


050554 




DEF 


ESPA 




0477 


■»1013 


051301 




DEF 


ETAN 




0478 


01014 


051417 




DEF 


EATN 




0479 


01015 


051527 




DEF 


EEXP 




0480 


01016 


051653 




DEF 


ELOG 




0481 


01017 


050661 




DEF 


EABS 




0482 


01020 


052010 




DEF 


ESQR 




0483 


01021 


050664 




DEF 


EINT 




0484 


01022 


050744 




DEF 


ERND 




0485 


01023 


051017 




DEF 


ESGN 




0486 


01024 


001032 


LDVSR 


DEF 


DVSRS 


'LEN» IS DONE XN A SPEC 


0487 


01025 


051030 




DEp 


ETYP 




0486 


01026 


050700 




DEF 


ETIM 




0489 


01027 


051212 




DEF 


ESIN 




0490 


01030 


051210 




DEF 


ECOS 




0491 


01031 


052076 




DEF 


EBRK 




0493 


01032 


023420 


DVSRS 


DEC 


10000 




0494 


01033 


001750 




DEC 


1000 




0495 


01034 


000144 




DEC 


100 




0496 


01035 


000012 




DEC 


10 




0497 


01036 


100000 


MNEG 


OCT 


100000 




0498 


01037 


000376 




OCT 


376 




0499 


01040 
01041 


040000 

000000 


HALF 


DEC 


0,5 




0500 


00610 




M64 


EQU 


D100 




0501 


00762 




HIMSK 


EQU 


M256 




0502 


00351 




EuF 


EQU 


t m% 




0503 


00350 




EOR 


EQU 


f -2 




0504 


01036 




BI T 15 


EQg 


MNEG 




0£)05 


00612 




A000 


EQU 


B2000 




0506* 














0507* 


THE FOLLOWING 


CONSTANTS 


ARE MASKS 


FOR THE BIT^FLAG WORD 


0508* 


IN EACH USER 


iS TTY 


TABLE 




0509* 














0510 


00353 




TERR 


EQU 


. + 1 


TAPE ERROR 


0511 


00354 




CFLAG 


EQU 


.+2 


COMPILE MODE 


0512 


00356 




HFLAG 


EQU 


.♦4 


SHELLO IS RUNNING 


0513 


00362 




TAPEF 


EQU 


.♦8 


USER IN TAPE MODE 


0514 


00372 




UNABt 


EQU 


. + 16 


UNABLE TO ABORT 


0515 


00412 




QUTWT 


EQU 


.♦32 


OUTPUT BUFFER FULL 


0516 


00772 




C0M14 


EQU 


B100 


COMMUNICATION FROM 2114 
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0517 


00442 




abtry 


EqU 


B200 


ABORT ATTEMPT 


05l8 


00444 




DFCHK 


EQU 


B400 


CHECK FOR DIRTY FILES 


0519 


00445 




CMNFG 


EQU 


B1000 


CHAIN RUNNING 


0520 


00612 




ENOST 


EQU 


B2000 


ENORM POSITIVE 


0521 


00736 




MBUST 


EQU 


B4000 


MBUSY POSITIVE 


0522 


00616 




PBFLG 


EQU 


RPOP 


ABORT CAPABILITY DISABLED 


0523 


00446 




cbflg 


EQU 


B20M 


"BREAK" COMMAND GIVEN 


0524* 














0525** ERROR JUMP 


TABLE 








0525* 














0527 


01042 


001474 


3ERR8 


DEF 


SERR 




0528 








REP 


35 




0529 


01043 


001474 




OEF 


SERR 




0529 


01044 


001474 




DEF 


8ERR 




0529 


01045 


001474 




OEF 


SERR 




0529 


01046 


001474 




OEF 


SERR 




0529 


01047 


001474 




DEF 


SERR 




0529 


01050 


001474 




DEF 


SERR 




0529 


01051 


001474 




DEF 


8ERR 




0529 


01052 


001474 




DEF 


SERR 




0529 


01053 


001474 




DEF 


SERR 




0529 


01054 


001474 




DEF 


SERR 




0529 


01055 


001474 




DEF 


SERR 




U529 


01056 


001474 




DEF 


SERR 




0529 


01057 


001474 




OEF 


SERR 




0529 


01060 


001474 




DEF 


SERR 




0529 


01061 


001474 




OEF 


SERR 




0529 


01062 


001474 




DEF 


SERR 




0529 


01063 


001474 




DEF 


SERR 




0529 


01064 


001474 




DEF 


SERR 




0529 


01065 


001474 




OEF 


SERR 




0529 


01066 


001474 




DEF 


SERR 




0529 


01067 


001474 




DEF 


SERR 




0529 


01070 


001474 




DEF 


SERR 




0529 


01071 


001474 




OEF 


SERR 




0529 


01072 


001474 




DEF 


8ERR 




0529 


01073 


001474 




OEF 


SERR 




0529 


01074 


001474 




DEF 


SERR 




0529 


01075 


001474 




OEF 


SERR 




0529 


01076 


001474 




OEF 


SERR 




0529 


01077 


001474 




DEF 


SERR 




0529 


01100 


001474 




DEF 


SERR 




0629 


01101 


001474 




DEF 


SERR 




0529 


01102 


001474 




DEF 


SERR 




0529 


01103 


001474 




OEF 


SERR 




0529 


01104 


001474 




DEF 


SERR 




0529 


01105 


001474 




DEF 


SERR 




0530 


01106 


001474 


R&RR8 


DEF 


SErr 




0531 








REP 


49 




0532 


01107 


001474 




DEF 


SERR 




0532 


01110 


001474 




OEF 


SERR 




0532 


01111 


001474 




DEF 


SERR 




0532 


01112 


001474 




DEF 


SERR 




0532 


01113 


001474 




OEF 


SERR 




0532 


01114 


001474 




DEF 


SERR 
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0532 


011 


115 


001474 


DEF 


SERR 


0532 


01] 


116 


001474 


DEF 


3ERR 


0532 


011 


117 


001474 


DEF 


SERR 


0532 


011 


120 


001474 


OEF 


SERR 


0532 


013 


121 


001474 


DEF 


SERR 


0532 


011 


122 


001474 


OEF 


SERR 


0532 


011 


123 


001474 


DEF 


SERR 


0532 


011 


L24 


001474 


DEF 


SERR 


0532 


011 


125 


001474 


DEF 


SERR 


0532 


011 


26 


001474 


DEF 


SERR 


0532 


01] 


127 


001474 


DEF 


SERR 


0532 


011 


.30 


001474 


DEF 


SERR 


0532 


011 


.31 


001474 


DEF 


SERR 


0532 


011 


132 


001474 


OEF 


SERR 


0532 


011 


L33 


001474 


DEF 


SERR 


0532 


011 


[34 


00*474 


DEF 


SERR 


0532 


011 


135 


001474 


DEF 


SERR 


0532 


011 


136 


001474 


DEF 


3ERR 


0532 


011 


L37 


001474 


DEF 


SERR 


0532 


011 


L40 


001474 


DEF 


SERR 


0532 


01] 


141 


001474 


DEF 


SERR 


0532 


011 


142 


001474 


DEF 


SERR 


0532 


011 


143 


001474 


DEF 


SERR 


0532 


011 


144 


001474 


DEF 


SERR 


0532 


011 


145 


001474 


DEF 


SERR 


0532 


011 


L46 


001474 


DEF 


SERR 


0532 


011 


L47 


001474 


DEF 


SERR 


0532 


01] 


50 


001474 


DEF 


SERR 


0532 


011 


LSI 


001474 


DEF 


SERR 


0532 


011 


52 


001474 


DEF 


SERR 


0532 


011 


153 


001474 


DEF 


SERR 


0532 


011 


154 


001474 


DEF 


SERR 


0532 


011 


155 


001474 


DEF 


SERR 


0532 


011 


[56 


001474 


DEF 


SERR 


0532 


011 


157 


001474 


DEF 


SERR 


0532 


011 


160 


001474 


DEF 


SERR 


0532 


011 


161 


001474 


DEF 


SERR 


0532 


011 


162 


001474 


DEF 


SERR 


0532 


011 


163 


001474 


DEF 


SERR 


0532 


011 


[64 


001474 


DEF 


SERR 


0532 


011 


[65 


001474 


OEF 


SERR 


0532 


011 


L66 


001474 


DEF 


SERR 


0532 


011 


167 


001474 


DEF 


SERR 


0533 


011 


170 


001474 


FERRS DEF 


SERR 


0534 








REP 


14 


0535 


011 


[71 


001474 


DEF 


SERR 


0535 


011 


172 


001474 


DEF 


SERR 


0535 


013 


173 


001474 


DEF 


SERR 


0535 


011 


[74 


001474 


DEF 


SERR 


0535 


011 


[75 


001474 


DEF 


SERR 


0535 


011 


[76 


001474 


DEF 


SERR 


0535 


011 


[77 


001474 


DEF 


SERR 


0535 


01; 


>00 


001474 


DEF 


SERR 


0535 


012 


201 


001474 


DEF 


SERR 


0535 


01! 


>02 


001474 


DEF 


SERR 
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0535 


01203 


001474 


DEF 


8ERR 


0535 


01204 


001474 


DEF 


SERR 


0535 


01205 


001474 


DEF 


3ERR 


0535 


01206 


001474 


DEF 


SERR 


0536 


01207 


001474 


WERR8 DEF 


SERR 


0537 






REp 


9 


0536 


01210 


001474 


DEF 


SERR 


0538 


01211 


001474 


DEF 


SERR 


0536 


01212 


001474 


DEF 


SERR 


0536 


01213 


001474 


DEF 


SERR 


0538 


01214 


001474 


DEF 


SERR 


0538 


01215 


001474 


DEF 


SERR 


0538 


01216 


001474 


DEF 


SERR 


0536 


01217 


001474 


DEF 


SERR 


0538 


01220 


001474 


DEF 


SERR 
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0002 


01221 


001224 


USE 


DEF 


USER 




0003 


01222 


10U24 


USEI 


OEF 


USER, I 


0004 


01224 






ORG 


12248 




0005 


01224 




USER 


EQU 


* 




0006 


01224 


000000 


AREG 


NOP 






0007 


01225 


000000 


BREG 


NOP 






0008 


01226 


000000 


EREG 


NOP 






0009 


01227 


000000 


PREG 


NOP 






0010 


01230 




LIBUS 


EUU 


* 




0011* 














0012** SUBROUTINE 


RETURN 


ADDRESSES 




0013* 














0014 


01230 


000000 


FSC 


NOP 






0015 


01231 


1244 5 3 




JMP 


♦-JTD, 


-1 


0016 


01232 


000000 


SBSCK 


NOP 






0017 


01233 


124455 




JMP 


*«»JTD/ 


I 


001a 


01234 


000000 


FRCUR 


NOP 






0019 


01235 


124457 




JMP 


*»JTDi 


I 


0020 


01236 


000000 


FPUP 


NOP 






0021 


01237 


124461 




JMP 


*»JTD< 


i 


0022 


01240 


000000 


VAROP 


NOP 






0023 


01241 


1244 6 3 




JMP 


*»JTD» 


I 


0024 


01242 


000000 


ARRID 


NOP 






0025 


01243 


124465 




JMP 


*»JTD< 


I 


0026 


01244 


000000 


prgin 


NOP 






0027 


01245 


1244 6 7 




JMP 


*»JTDi 


I 


002a 


01246 


000000 


TbSRH 


NOP 






0029 


01247 


1244 7 i 




JMP 


*»JTD> 


I 


0030 


01250 


000000 


GETPF 


NOP 






0031 


01251 


1244 7 3 




JMP 


*«JTO< 


-I 


0032 


01252 


000000 


LPCK 


NOP 






0033 


01253 


1244 7 5 




JMP 


♦-JTD, 


I 


0034 


01254 


000000 


RPCK 


NOP 






0035 


01255 


1244 77 




JMP 


♦•JTD* 


I 


0036 


01256 


000000 


UK 


NOP 






0037 


01257 


124501 




JMP 


*-JTD, 


.1 


0038 


01260 


000000 


STROP 


NOP 






003g 


01261 


124503 




JMP 


*»JTD« 


I 


0040 


01262 


000000 


CHRST 


NOP 






0041 


01263 


124505 




JMP 


*-JTD, 


I 


0042 


01264 


000000 


OIGCK 


NOP 






0043 


01265 


124507 




JMP 


♦•JTQ, 


I 


0044 


01266 


000000 


LtTCK 


NOP 






0045 


01267 


124511 




JMP 


*«JTD, 


1 


0046 


01270 


000000 


SBPUU 


NOP 






0047 


01271 


124513 




JMP 


♦wjTDi 


I 


004 8 


01272 


000000 


SYMCK 


NOP 






004g 


01273 


124515 




JMP 


*»JTD( 


rl 


0050 


01274 


000000 


FiNCH 


NOP 






0051 


01275 


1245i7 




JMP 


*«JTD| 


I 


0052 


01276 


000000 


NUMCK 


NOP 






0053 


01277 


124521 




JMP 


*«>JTDj 


>1 


0054 


01300 


000000 


MBY10 


NOP 






0055 


01301 


124523 




JMP 


*«*JTD( 


I 


0056 


01302 


000000 


DBY10 


NOP 
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0057 
0056 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0066 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
^77 
007a 
007 9 
0080 
0081 
0082 
0063 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0106 
0109 
0110 
0111 



01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 

01355 

01356 
01357 
01360 
01361 
01362 
01363 
01364 
01365 
01366 
01367 
01370 
01371 



124525 
000000 
124527 
000000 
124531 
000000 
124533 
000000 
124535 
000000 
124537 
000000 
124541 
000000 
124543 
000000 
124545 
000000 
124547 
000000 
124551 
000000 
124553 
000000 
124555 
000000 
124557 
000000 
124561 
000000 
124563 
000000 
124565 
000000 
124567 

000000 
124571 
000000 
124573 
000000 
124575 
000000 
124577 
000000 
124601 
000000 
124603 
000000 
124605 
000000 
124607 
000000 
124611 
000000 
124613 



NOrHL 
.PACK 
OVf-LW 

deupr 

FNDPS 

SSYMT 

ASYMT 

DCMPL 

PRnST 

CUSP 

STKID 

RSTOP 

GfcTST 

FORMX 

STSTR 

SBFIX 

PSTR 

FLOAT 

TRSTR 

COMPR 

PCHK 

FETCH 

SETOP 

FDATA 

FSCH 

PSHST 

ARINV 



JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 

NOP 
JMP 

NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 
NOP 
JMP 



♦ •JTD 

♦ •JTD 

♦ •JTD 
*-JTO 

♦ •JTD 

♦ •JTD 

♦ •JTD 

♦ •JTD 

♦ •JTD 

♦ •JTD 
♦•JTD 
♦-JTD 
♦•JTD 
♦•JTD 
#»JTO 

♦ •JTD 
♦•JTD 

♦ •JTD 

♦ •JTD 
♦•JTO 
*«>JTO 
♦-JTD 

♦ •JTD 

♦ •JTD 
♦»JTD 
#»JTD 
♦•JTD 

♦ •JTD 
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0112 


01372 


000000 


eiNop 


nop 




0113 


01373 


124615 




JMp 


*»JTD,I 


0114 


01374 


000000 


STTOP 


NOP 




0115 


01375 


124617 




JMP 


*»JTD f I 


0116 


01376 


000000 


OPgHK 


NOP 




0117 


01377 


124621 




JMP 


#«JTDr I 


011^ 


01400 


000000 


RSCHK 


NOP 




0119 


01401 


124 6 23 




JMP 


♦•JTOr I 


0120 


014^2 


000000 


,1-AO 


NOP 




0121 


01403 


124 6 2 & 




JMP 


*«JTDf I 


0122 


01404 


000000 


,FSB 


NOP 




0123 


01405 


124627 




JMP 


#.JTO,I 


0124 


01406 


000000 


,FMP 


NOP 




0125 


01407 


124631 




JMP 


••JTOf I 


0126 


01410 


000000 


.f-uv 


NOP 




0127 


01411 


124633 




JMP 


♦•JTO, I 


012a 


01412 


000000 


(jNPAK 


NOP 




0129 


01413 


124635 




JMP 


*»jtd,i 


0130 


01414 


000000 


,FLUN 


NOP 




0131 


01415 


124637 




JMP 


*<.jtd,i 


0132 


01416 


000000 


IHX 


NOP 




0133 


01417 


124641 




JMP 


*»jto, 1 


0134 


01420 


000000 


ENOUT 


NOP 




0135 


01421 


124643 




JMP 


*«jtd,i 


0136 


01422 


000000 


NuMOj 


NOP 




0137 


01423 


124645 




JMP 


*»jtd,i 


0i3a 


01424 


000000 


GEjOG 


NOP 




0139 


01425 


124647 




JMP 


*-JlD,I 


0140 


01426 


000000 


Outln 


NOP 




0141 


01427 


124651 




JMP 


♦•jto,i 


0142 


01430 


000000 


EUELM 


NOP 




0143 


01431 


124653 




JMP 


*mJjD f 1 


0144 


01432 


000000 


StjPT 


NOP 




0145 


01433 


124655 




JMP 


♦-JjOfl 


0146 


01434 


000000 


,txP 


NOP 




0147 


01435 


124657 




JMP 


**Jf D, I 


0148 


01436 


000000 


,LOG 


NOP 




0149 


01437 


124661 




JMP 


*wt&#i 


0150 


01440 


000000 


,CHEB 


NOP 




0151 


01441 


124663 




JMP 


♦wto, 1 


0152 


01442 


000000 


.IENT 


NOP 




0153 


01443 


124665 




JMP 


*wJTD, I 


0154 


01444 


000000 


.PWR2 


NOP 




0155 


01445 


124667 




JMP 


*-jto,i 


0156 


01446 


000000 


INCAL 


NOP 




0157 


01447 


124671 




JMP 


*«JjO#I 


0158 


01450 


000000 


GfcTCR 


NOP 




0159 


01451 


124673 




JMP 


*»JTO f I 


0160 


01452 


000000 


BCK3P 


NOP 




0161 


01453 


124675 




JMP 


*»jtd, I 


0162 


01454 


000000 


OUTCr 


NOP 




0163 


01455 


124677 




JMP 


*mJjO,l 


0164 


01456 


000000 


OUTlN 


NOP 




0165 


01457 


124701 




JMP 


*»JTD,I 


0166 


01460 


000000 


MCOUT 


NOP 
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0167 


01461 


124703 




JMP 


*»JTD| 


rl 


0166 


01462 


000000 


OUTST 


NOP 






0169 


01463 


124705 




JMP 


*-JlD, 


,1 


0170 


01464 


000000 


SINIT 


NOP 






0171 


01465 


124707 




JMP 


*»JTD, 


rl 


0172 


01466 


000000 


BUUIN 


NOP 






0173 


01467 


124711 




JMP 


♦ -JTD, 


rl 


0174 


01470 


000000 


RfcDIM 


NOP 






0175 


01471 


124713 




JMP 


*»jtd< 


rl 


0176 


01472 


000000 


VCHK 


NOP 






0177 


01473 


124715 




JMP 


♦ •■JfC 


rl 


0178 


01474 


000000 


s£rr 


NOP 






0179 


01475 


124717 




JMP 


*»jtd, 


rl 


0160 


01476 


000000 


chouf 


NOP 






0181 


01477 


124721 




JMP 


*«JTD 


rl 


0182 


01500 


000000 


MOVER 


NOP 






0183 


01501 


124723 




JMP 


*-JTO< 


'I 


0184 


01502 


000000 


RfcCRp 


NOP 






0185 


01503 


124725 




JMP 


*»JTD, 


'I 


0186 


01504 


000000 


F iL RF 


NOP 






0187 


01505 


124727 




JMP 


♦•JTD, 


'1 


0186 


01506 


000000 


VUFlt 


NOP 






0189 


01507 


124731 




JMP 


♦-JTD, 


>l 


0190 


01510 


000000 


RUSTR 


NOP 






0191 


01511 


124733 




JMP 


*«JTDi 


'I 


0192 


01512 


000000 


FILST 


NOP 






0193 


01513 


124735 




JMP 


*-JTD, 


rl 


0194 


01514 


000000 


GTTYP 


NOP 






0195 


01515 


124737 




JMP 


**JTDi 


rl 


0196 


01516 


000000 


WR&UF 


NOP 






0197 


01517 


124741 




JMP 


♦•JTD) 


rl 


0198 


01520 


000000 


ALCUM 


NOP 






0199 


01521 


124743 




JMP 


••JTOi 


rl 


0200 


01522 


000000 


RSTPT 


NOP 






0201 


01523 


124 7 45 




JMP 


*«J10i 


rl 


0202 


01524 


000000 


FtNCH 


NOP 






0203 


01525 


124 7 4 7 




JMP 


*«JTP, 


rl 


0204 


01526 


000000 


MTG1 


NOP 






0205 


(01527 


124751 




JMP 


*«JTDj 


rl 


0206 


01530 


000000 


DTU 


NOP 






0207 


01531 


124753 




JMP 


*»JTD, 


rl 


020a 


01532 


000000 


ROUND 


NOP 






0209 


01533 


124 7 55 




JMP 


*-JTOi 


.1 


0210 


01534 


000000 


0UT8L 


NOP 






0211 


01535 


12475/ 




JMP 


♦-JTD, 


rl 


0212 


01536 


000000 


OUTCL 


NOP 






0213 


01537 


124761 




JMP 


♦-JTO, 


rl 


0214 


01540 


000000 


OSRCH 


NOP 






0215 


01541 


124763 




JMP 


♦-JTO, 


'I 


0216 


01542 


000000 


MCHAR 


NOP 






0217 


01543 


124765 




JMP 


♦ -JTO 


rl 


0216 


01544 


000000 


EVEXP 


NOP 






0219 


01545 


124767 




JMP 


♦-JTD, 


rl 


0220 


01546 


000000 


USTCK 


NOP 






0221 


01547 


124 77 1 




JMP 


*»JTD, 


'I 
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Ii3222 


01550 


000000 


pfSRH 


NOP 






0223 


01551 


124773 




JMP 


*-»JTD,I 




4224 


01552 


000000 


fhhat 


NOP 






0225 


01553 


1247/5 




JMP 


*»JTO r I 




0226 


01554 


000000 


EPRUS 


NOP 






0227 


01555 


124777 




JMP 


*«JT0f I 




0226 


CM556 


000000 


STUCK 


NOP 






0229 


01557 


125001 




JMP 


*«»jtd,i 




0230 


01560 


000000 


LCDLP 


NOP 






0231 


01561 


125003 




JMP 


*«JfO,I 




0232 


01562 


000000 


f-CyC 


NOP 






0233 


01563 


125005 




JMP 


*»jto,i 




0234 


01564 


000000 


EDABr 


NOP 






0235 


01565 


125007 




JMP 


*»jtd,i 




0236 


00556 




JTD 


EOU 


FSC-SBJTB- 


► 1 


0237* 














0238** GENERAL USAGE INFORMATION 




0239* 














0240 


(31566 


000000 


RNpXl 


BSS 


1 


30«BIT RaNOOM 


0241 


01567 


000000 


RNDX2 


BSS 


1 


INTEGER, 


0242 


01570 


000000 


,LNUM 


BSS 


1 




0243 


01571 


000000 


LNAmE 


B3S 


1 




0244 


01572 


000000 


CMRCT 


BSS 


1 




0245 


01573 


000040 


BLANK 


OCT 


40 




0246 


01574 


000000 


SBPTR 


BSS 


I 




0247 


01575 


000000 


SYMTB 


BSS 


1 




024a 


01576 


000000 


VALTB 


BSS 


1 




0249 


01577 


002000 


SPROG 


OEF 


PROGB+1 




0250 


01600 


000000 


VLFLG 


BSS 


1 




0251 


01601 


000000 


FLSTS 


BSS 


4 




0252 


01605 


000000 


FILPT 


BSS 


1 




0253 


01606 


000000 


FILCT 


BSS 


1 




0254 


01607 


000000 


U3ESN 


BSS 


I 




0255 


01610 


000000 


NUMPT 


BSS 


1 




0256 


01611 


000000 


ENOUF 


NOP 






0257 


01612 


000000 


ATIM 


BSS 


1 




0258 


01613 


000000 


TE M H 


BSS 


9 




0259 


01624 


000000 


XTEHP 


BSS 


2 




0260 


01626 


000000 


YTEMP 


BSS 


2 




0261 


01630 


000000 


UTEMP 


BSS 


2 




0262 


01632 


000000 


X2TMP 


BSS 


2 




0263 


01634 


000000 


ATMP 


BSS 


2 




0264 


01636 


000000 


BTMP 


BSS 


2 




0265 


iol640 


000000 


dt m p 


BSS 


2 




0266 


01642 


000000 


BIN01 


BSS 


1 




0267 


01643 


000000 


BIN02 


BSS 


1 




0268 


01644 


125372 




JMP 


BINQP,! 




0269 


01645 


000000 


ER8EC 


BSS 


64 




0270 


01745 


000000 


CC 


BSS 


1 




0271 


01746 


000000 


CC1 


BSS 


1 




0272 


01747 


000000 


CC2 


BSS 


1 




0273 


01750 


000000 


CONTR 


BSS 


1 




0274 


01751 


000000 


DP 


BSS 


1 




(0275 


01752 


000000 


OPFLG 


ess 


1 




0276 


01753 


000000 


EUSTA 


BSS 


1 
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0277 
0278 

0279 
0280 
0281 
0282 
0284 
0284 
0285 
0286 
0287 
0288 
tf289 
0290 
02 9 1 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 

0300 

0301 

0302 
0303 

0304 

0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 



01754 
01755 
01756 
01757 
01760 
01761 
01762 
01763 
01764 
01765 
01766 
01767 
01770 
01771 
01772 
01773 
01774 
01775 
01776 
02000 
01777 
01036 
01422 
01645 
01266 
01316 
01320 

0*322 
01324 

01336 
01360 
01362 
01616 
01356 
01300 
01310 
01400 
01430 

01274 

01432 
01440 
01442 
01444 
01434 
01552 
01446 
01452 
01470 
01374 
01512 
01514 
01500 
01474 
01474 
01476 



000000 

000000 
000000 

000000 
000000 

000000 

000000 

000000 

000000 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
050000 

054000 
000000 



Ef-Utt 
EST 
FFLG 
FSP 

IFSS 

IFSTR 

NCH 

NUMl 

NUM2 

PCi 

PC 2 

SAD 

SBO 

PMASK 

RETCO 

AS1NP 

DfcFQP 

FOROP 

REPCT 

PROGB 
FUBT 
Gf-LAG 

pINT G 

SIGN 

MANTJ 

MANT2 

EXP 

EXPON 

FfUA G 

NMTMP 

NMPTR 

NUMBF 

D1GCT 

NF0 

OCTMP 

Ua 

LU 

LT2 

U3 

UT4 

LT5 

LT6 

LT7 

LT8 

OT1 

0T3 

OT4 

DGCNT 

SOURC 

OEST 

TAP0 

TAP1 

MVENO 

CU1 



bSS 
BSS 

ess 

BSS 

BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
OCT 
OCT 
BSS 
OrC 
EQU 
EGU 
EQU 
EqU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EQU 
EGU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EgU 
EQU 
EGU 
EGU 
EGU 
EGU 



50000 

54000 

1 

USEh*554B 

*•! 

MNEG 

NUMOT 

ERSEC 

UETCK 

SSYMT 

ASYMT 

DCMPL 

PRNST 

FQRMX 

SETOP 

FDATA 

TEMP+3 

FETCH 

MBY10 

OVFLW 

RSCMK 

EDEtM 

FINCH 

SETPT 

,CHEB 

,XENT 

,PWR2 

f EXP 

FRMAT 

INCAl 

BCKSP 

REDIm 

STTUP 

FIL5T 

GTTYP 

MQyEK 

SERR 

SERR 

ChOUF 
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0332* 
4333* 
0334* 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351* 

0352* 

0353* 

0354 

0355 
0356 

0357 

03g8 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375* 

0376* 

0377* 

0378 

037g 

0380 

0381 

0382 

0363 

0384 

0385 

0386 



* SYNTAX INFORMATION TEMPORARIES 



01576 
01620 
01472 
01617 
01402 
01404 
01406 
01410 
01434 
01440 
01442 
01444 
01306 
01414 
01414 
01621 



ERRCT 
StJUFA 
SYNfO 
SSTAK 

maxcr 

TABLE 

LN(iTH 

SM8GN 

SLENG 

COUNT 

TbLPT 

TSPTR 

SBT0 

ENTVR 

CDFLG 

PFUG 



EQU 
EQU 
EOu 
EUU 

ECU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



VALTB 
TEMP*5 
VCHK 
TEMP+4 

• FAD 
,FSB 

,FMP 

,FDV 

„EXP 

,CHEB 

,IENT 

t PWR2 

.PACK 

,FLUN 

f FLUN 

TEMP*6 



* COMPILE INFORMATION TEMPORARIES 



01234 
01504 
01242 
01230 
01236 
012^0 
01613 
01614 
01613 
01614 

01615 
01616 
01617 
01617 
01620 
01620 
01621 
01615 
01616 
01621 
01552 



FUNK 
FILTB 

steno 

SPTR 

NSPTR 

STYPE 

STMPl 

STMP2 

VTMPl 

VTMP2 

VTMP3 

VTMP4 

VTMP5 

COMSN 

STPTR 

COMPT 

STCTl 

STQT2 

STCT3 

DCFLG 

INFST 



EQU FRCUR 
EQU FILRF 
EgU a rr id 
EQU FsC 
EQU FPOP 
EQU VAROP 
EQU TEMP 
EQU TEMP*1 
EQU TEMP 
EQU TEMP+1 
EQU TEMP+2 
EQU TEMP*3 
EQU TEMP+4 
EQU TEMP+4 
EQU TEMP+5 
EQU TEMP*5 
EQU TEMP+6 
EQU TEMP+2 
EQU TEMP+3 
EQU TEMP+6 
EQU FRMAT 



* EXECUTION INFURMATION TEMPORARIES 



01232 
01502 
01240 
01242 
01246 
01250 
01330 
01332 
01466 



FCQRE EQU 

FCNTR EQU 

RTRNQ EQU 

R T NST EQu 

FORQ EQU 

FORST EQU 

TMPST EQU 

QPDST EQU 

OPTRQ EQU 



SBSCK 
RECRF 
VAROP 
ARRID 
TBSRH 
GETPF 
STRIP 
RSTOP 
BLOIN 
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0387 


01334 


PRGCT 


EQU 


GET3T 


(9388 


01262 


OCCNT 


EQU 


chrst 


0389 


01244 


NXTDT 


EQU 


PRGIN 


0390 


01613 


TEMPI 


EQU 


TEMP 


0391 


01252 


TEMP2 


EQU 


LPCK 


0392 


01254 


TEMP3 


EQU 


RPCK 


0393 


01256 


TEMP4 


EQU 


LTR 


0394 


01272 


TEMPS 


EQU 


3YMCK 


0395 


01260 


TEMP6 


EQU 


STROP 


039$ 


01500 


GTMP 


EQU 


MOVER 


0397 


01430 


FVT 


EQU 


EDELM 


0398 


01422 


EFN0 


EQU 


NUMOT 


0399 


01424 


EFNl 


EQU 


GETOG 


0400 


01426 


EFN2 


EQU 


OUTUN 


0401 


01366 


EF N 3 


EQU 


PSHST 


0402 


01460 


INITF 


EQU 


MCOUT 


0403 


01422 


IFCNT 


EQU 


NUMOT 


0404 


01422 


RSPTR 


EUU 


NUMOT 


0405 


01500 


MCNT 


EQU 


MOVER 


0406 


01354 


INTMP 


EQU 


PCHK 


0407 


01552 


STRLN 


EQU 


FRMAT 


0408 


01472 


EOU 


EQU 


VQHK 


0409 


01460 


EOPF 


EQU 


MCOUT 


0410 


01574 


881 


EQU 


S8PTR 


0411 


01350 


BS2 


EQU 


TRSTR 


0412 


01352 


B83 


EQU 


COMPR 


0413 


01312 


MT0 


EQU 


OEIPR 


0414 


01314 


MT1 


EQU 


FNDPS 


0415 


01624 


MT2 


EQU 


XTEMP 


0416 


01625 


MT3 


EQU 


XTEMP+1 


0417 


01340 


MOP 


EQU 


3TSTR 


0418 


01364 


MEXiT 


EQU 


FSCh 


0419 


01634 


MMT0 


EQU 


ATMP 


0420 


01635 


MMT1 


EQU 


ATMP+i 


0421 


01636 


MMT2 


EQU 


8TMP 


0422 


01637 


MMT3 


EQU 


BTMP*1 


0423 


01640 


MMT4 


EQU 


OTMP 


0424 


01641 


MMT5 


EQU 


DTMP+1 


0425 


01632 


MMT6 


EQu 


X2TMP 


0426 


01633 


MMT7 


EQy 


X2TMP+1 


0427 


01376 


MMT8 


EQU 


OPCHK 


0426 


01516 


100 


EQU 


WR6UF 


0429 


01362 


ID1 


EQU 


FDAtA 


043k) 


01472 


RO0 


EqU 


VCHK 


0431 


01400 


VT0 


EQU 


R3CMK 


0432 


01624 


3CALR 


EQu 


xtemp 


0433 


01626 


MAXE 


EQU 


YT&MP 


0434 


01630 


tou 


EQU 


utEmp 


0435 


01344 


PXVEU 


EUU 


P3TR 


0436 


01440 


EST1 


EQU 


f CHEB 


0437 


01442 


EST2 


EQU 


,IENT 


0438 


01444 


E8T3 


EQU 


,PWR« 


0439 


01620 


Al 


EUU 


TEMP*5 


0440 


01621 


CI 


EQU 


TEMP*6 


0441 


01622 


A2 


EQU 


TEMP+7 
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0442 


01623 


C2 


EQU 


TEMP+8 


0443 


01310 


EXP2 


EQU 


OVFUrt 


0444 


01402 


FD0 


EQU 


,FAU 


0445 


01264 


TTl 


EQU 


DIGCK 


(3446 


01266 


TT2 


EQU 


LE7CK 


0447 


01616 


TT3 


EQU 


TEMP+J 


0448 


01617 


TT4 


EQU 


TEMP+4 


0449 


01646 


RG1 


EQU 


ER8EC+1 


0450 


01651 


RQ2 


EQU 


ERSEC+4 


0451 


01647 


RQ3 


EQU 


ER5EC+2 


0452 


01650 


RQ4 


EQU 


ERSEC*3 


0453 


01652 


RQ5 


EQU 


ER8£C*5 


0454 


01236 


FBASE 


EQU 


FPOP 


0455 


01653 


eorfl 


EqU 


ER8EC+6 


0456 


01234 


FILE* 


EQU 


FKCUR 


0407 


01352 


RCROi 


EQU 


CQHPR 


0458 


01516 


VL0 


EQU 


WRBUF 


0459 


01654 


DADRR 


EQU 


ER8EC*7 


0460 


01655 


F1LT 


equ 


ErsEC+8 


0461 


01400 


MPj 


EQu 


RSCHK 


04 6 2 


0U76 


NQT 


EQU 


OPCHK 


0463 


01406 


TNUU 


EQU 


.FMP 


0464 


01410 


TPRME 


EQU 


,FDV 


0465 


01470 


P80 


EQU 


REOlM 


0466 


01464 


PSl 


EQU 


3INIT 


0467 


01434 


CP0 


EQU 


,EXP 


0468 


01344 


CPl 


E«U 


PSTR 


0469 


01402 


TRFCH 


EQU 


,FAO 


0470 


01404 


TRS0 


EQU 


,FSB 


0471 


01440 


RT0 


EQU 


,CHEB 


0472 


01442 


RTi 


EQU 


,IENT 


0473 


01436 


LBTMP 


EQU 


,UOG 


0474 


01376 


CTMP 


EQU 


OPCHK 


0475 


01645 


EC 


EQu 


Er$EC 


0476 


01646 


FST 


EQU 


ERSEC+i 


0477 


01650 


sflg 


EQU 


ERSEC+3 


0478 


01651 


EXPW 


EQU 


ER8EC+4 


0479 


01652 


HB 


EQU 


ERSEC+5 


0480 


01730 


HBP 


EQU 


Er$EC+51 


0481 


01731 


LCH 


EQU 


ERSEC+52 


0482 


01732 


NAD 


EQU 


ER8EC+53 


0483 


01733 


N6D 


EQU 


ER8EC+54 


0484 


017J4 


NBLK 


EQU 


ER8EC+55 


0485 


01735 


N H8W 


EQU 


ERSEC+56 


0486 


01740 


NUMW1 


EQU 


ERSEC+59 


0487 


0174* 


NUMW2 


EQU 


ERSEC+60 


0488 


01742 


snflg 


EQU 


ERSEC+61 


0489 


01743 


TOTDG 


EQU 


ERSEC+62 


0490 


01744 


OCTR 


EQU 


ERSEC+63 


0491 


01472 


EICNT 


EQU 


VCHK 


0492 


01552 


ORDNO 


EQU 


FRMAT 


0493 


01556 


ASBFP 


EQU 


STUCK 


0494 


01470 


AQTYP 


EQU 


REOJH 



4 6 «URD BUFFER 
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0002 

0003* 

0004 

0005 

0006 

0007* 

0006* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
002S 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0030 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 



30000 



ORG 300000 



30000 000000 DIREC BSS 560 

31051 DIrEL EgU *-7 •> LAST EnTRY 

31060 dir e u fgu * «> Beyond table 
duook searches the directory for a particular entry, 

DESIRED ENTRY IS DEFINED BY LTEMP( »3), 



THE 



IF THE ENTRY IS FOUND* DLOOK RETURNS TO P*l, THfe FOLLOWING VARIA' 
BLES ARE SET* 

(LTEmP*4)»P0InTER To DIREC EnTRY, 

UT£MP+5)»MEM0RY ADDRESS Op ENTRY. 
THE APPROPRIATE DIRECTORY TRACK IS IN CORE, 

IF THE ENTRY IS NOT FOUND* DLOOK RETURNS TO P*2, THE POINTERS 
ARE SET TO POINT AT THE LAST ENTRY LESS THAN THE GIVEN ENTRY, 



31060 
31061 
31062 
31063 
31064 
31065 
31066 
31067 
31070 
31071 
31072 
31073 
31074 
31075 
31076 
31077 



31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 



100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
J15 
116 

116 
117 

120 
121 
122 
123 
124 



000000 
067224 
074034 
160034 
002002 
027071 
064034 
044343 
027062 
006004 
060520 
017176 
027066 
000000 
160034 
003004 
040562 
040336 
070035 
060034 
040360 
160000 
053223 
027127 
063223 
002003 
027115 
064562 
117225 
027173 

160034 
070072 
060034 
040360 
073233 
160000 
064566 



DLOOK 
DLOK3 

DL0K2 
D^qKI 



NOP 

LDB DIRDL 

STB LTEMP+4 

LDA LTEMP+4, 

SZA 

JMP DLOK1 

LDB LTEMP+4 

ADB ,.7 

JMP DL0K3 

InB 

LDA DLTEM 

JS8 DIRCM 

JMP DL0K2 

NOP 
LDA LTEMP+4, 
CMA,INA 
ADA LIBD 



ENTRY POINT, 

8ET LTEMP+4 TO POINT AT FIRST 
DIRECTORY TRACK, 
I TEST FOR EMPTY TKACK, 

NOT EMPTY, 
BUMP BACK TO 
NEXT TRACK, 

Compare first track e n try 

TO DESIRED ENTRY, 

NOT ON THIS TRACK, 
FOUND THE RIGHT TRACK, 
I 

SET UP INITIAL POINTtR FOR 
TRACK SCAN, 



ADA 



-12 



ST* LtEMP+5 
LDA LTEMP+4 
ADA ,*6 
LDA 0,1 
CPA DIR H D 
JMP DL0K4 
LDA DIRWD 
SZA,RSS 
JMP DLOKB 
LDB LIBD 
JSB DRUMW,I 
JMP DL0K9 
DLOKB EqU * 

LDA LTEMP+4, 
STA WORD 
LDA LTEMP+4 
ADA ,4-6 
STA DLO10 
LDA 0,1 
LDB LIBDI 



GET DIRECTORY 
DRyM ADDRESS 

CHECK FOR THIS TRACK IN CORE, 
TRACK ALREADY IN CORE, 

CHECK FUR DIR, TRACK IN CORE, 
SKIP IF SO, 

OTHERWISE, JUST READ IN NEW TRACK 
OUTGOING CORE ADDRESS, 

WRITE PREVIOUS TRACK OUT 

GOOFl GO TRY TO SALVAGE 

: GET LENGTH OF THIS DIR TRACK 
SET UP DRUM TRANSFER LENGTH 
GET DIRECTORY 

DRUM ADOREss 

SAVE POINTER TO IT 



PAGE 0026 #03 DLOOK ROijflNEs 



0057 

0058 

0059* 

0060* 

0061* 

0062* 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071* 

0072 

0073 

0074 

0075 

0076 

M77 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086* 

0087 

0088 

0089 

0090 

0091* 

0092 

0093 

0094 

0095* 

0096 

0097 

0098 

0099 

0100 

0101* 

0102 

0103 

0104 



31 
31 

NO 
wl 
UN 

31 
31 
31 
31 
31 
31 
31 
31 

31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 

31 
31 
31 
31 

31 

31 
31 

31 
31 
31 
31 
31 

31 
31 

31 



25 117225 JSe D«UMW,1 r E Ad DIRECTORY 

26 117227 JSB SICKW,* CAN«T« 60 GIVE UP GRACEFULLY 
SEARCH DIRECTORY FOR DESIRED ENTRY, A BINARY SEARCH IS ySEO, 

H LTEM P (14:15) USED AS pQINTERS TO THE FIRST AND LAST OF ALL 
ESTED ENTRIES, 



27 

30 
31 
32 
33 
34 
35 
36 

37 

40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 

57 

60 
61 
62 

63 
64 
65 

66 
67 
70 
71 
72 

73 
74 
75 



060562 
070046 
060520 
064035 
017176 
027137 
037060 
127060 

060035 
070047 
060046 
003004 
040047 
001100 
006400 
100400 
000366 
100200 
000365 
040046 
070035 
064520 
050046 
027166 

017176 
027163 

027137 
127060 

060035 
070046 
027142 

050562 
017176 
037060 
000000 
127060 

063233 
064072 
117226 



DL0K4 



IDA 
STA 
LDA 
LDB 
JSB 
JMP 
ISZ 
JMP 



LIBD 

LTEMP+14 

DLTEM 

LTEMP+5 

DIRCM 

DL0K5 

DLOOK 

DLOOK, I 



DL0K5 LDA LTEMP+5 

STA LjEMP+15 

LDA LTEMP+14 

DL0K6 CMA,INA 

ADA LTEMP+15 

ARS 

ClB 

DIV ,*12 

MPY ,*12 



ADA 
STA 
LDB 
CPA 
JMP 



LTEMP+14 

LTEMP+b 

DLTEM 

LTEMP+14 

DL0K8 



JSB dIRCM 
JMP DL0K7 
JMP DL0K5 
JMP DLOOK, I 

DL0K7 LOA LTEMP+b 
SjA LtEMP+14 
JMP DL0K6 

DL0K8 CPA LIBD 
jSB DIRCM 
ISZ DLOOK 
NOP 
JMP DLOOK, I 

DL0K9 LDA DLO10 
LOB WORD 
JSB SaLVW,I 



set pointer 
Directory, 
test last entry 



TO BEGINNING OF 
IN TRACK, 



LAST ENTRY TOO BIG-.*3TART CHOP, 
TOO SMALL-.IT'S THE ONE, 
LAST ENTRY IS IT, 

set end pointer, 

compote difference between first 

AND LASj ENTRIES, 

DIVIDE BY TWO, 
ROUND TO A 
MULTIPLE 

OF TWELVE 

GET ADDRESS OF MlDDLt ENTRY, 
SET INTO RESULT LOCATION, 
SETUP FOR JSB DIRCM, 
TEST FOR ONLY 2 ENTRIES LEFT, 
THERE ARE^WE'VE GOT THE RESULT, 

TE8T MIDWAY ENTRY, 
TOO sMALL— ^GO RE$Et LtEMP(14), 
TOO BIG««»GO RESET LTEMPU5), 
EQUAL— RETURN, 

RESET LTEMPU4), 



IF LTEMPU4)«*|,TEMP, WE KNOW 
IT'S LESS, SO WE SkIP TEST. 
LESS THAN ENTRy, 

EQUAL TO ENTRY, 

GET POINTER TO DRUM ADDRESS 
GET LENGTH OF TABLE IN CORE 
GO ATTEMPT TO SaLVaGE TRACK 
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0106* 
0107* 
0108* 

0109* 

0110* 

0111* 

0112 

0113 

0114 

0115 

0116 

0117 

0116 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

012a 

0129 
0130 
0131 

0132 

0133 

0134* 

0135 

0136 

0137 

0138 
0139 
0140 
0141 
0142 
0143* 



DIRCM 
BIT 1 
P 
P 
P 
31176 
31177 
31200 
31201 
31202 
31203 
31204 
31205 
31206 
31207 
31210 
31211 
31212 
31213 
31214 
31215 
31216 
31217 
31220 
31221 
31222 
31223 

31224 
31225 
31226 
31227 
31230 
31231 
31232 
31233 



COMPARE 
5 IS NOT 
♦1? A<8 
♦2» A*6 
+3 A«B 
000000 
073231 
060346 
073230 
077232 
163232 
001665 
003004 
167231 
005665 
040001 
002002 
027220 
037232 
037231 
037230 
027203 
037176 
002021 
037176 
127176 
000000 

031051 
074231 
0624J1 
062613 

000000 
000000 
000000 
000000 



3 THE 4 WORD ENTRIES POINTED TO BY A AND 8. 
USED, IT RETURNS AS FOLLOWS: 



DIrCM 



DIRC3 



DJRC4 



DlRWD 

DIrDL 
DRUM* 
SAIVW 
SiCKH 
DjRCl 
DJRC2 
DIRC6 
DLq10 



NOP 

STA 

IDA 

STA 

STB 

LDA 

EU, 

CMA, 

LDB 

ELB, 

ADA 

SZA 

JMP 

I3Z 
ISZ 
ISZ 

JMP 
ISZ 
SSA, 
ISZ 

JMP 
OCT 



DIRC2 

,•4 

DIRC1 

DIRC5 

DIRC5,I 

CLE, ERA 

INA 

DIRC2,I 

CLE,ERB 

1 

DIRC* 
DIRC5 
DIRQ2 

DIRCI 

DIRC3 

DIRCM 

RSS 

DIRCM 

DIRCM,! 





DEF DIrEL 
DEF DRUML 
DEF SALVG 
DEF SICK 
BSS 1 

ess i 

BSS 1 
BSS 1 



set Counter, 

subtract wohd from b 
From word from a. 



TEST FOR EQUAL, 

NOT EUUAL-GO RETURN, 

BUMP 

POINTERS, 
TEST FOR FINISHED. 

DOUBLE ISZ TOR EQUAL, 

NE ISZ IF A>B 
NONE IF A«8, 
TELLS WHAT DIRECTORY TRACK 

is in core w h en files is running, 

DRUM DRIVER LINK 



DRUM ADDRESS PqInTER SAVE W RO 
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10*45* 

0146* 

0147* 

0146* 

0149* 

0150* 

0151* 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 



THIS ROUTINE IS USED TO GET A MESSAGE BUFFER FOR 

THE DISC OR ORUM DRIVER, THE LINK TO IT IS PASSED IN THE 

U N KAGE AREA, A N D IS STORED gNTQ THE BASE PAGE 

BEFORE THE SYSTfcM is STARTtD UP, 

PRIOR TO THAT TIME, THE LOAOER USES ITS CWN VERSION. 



31234 000000 GMQB NOP 

31235 060306 LDA MSUCT 

31236 050357 CpA ,*5 

31237 127234 JMP GMQBrl 

31240 034306 ISZ MSQCT 

31241 060310 LDA HSQP3 

31242 064310 LDB MSQP3 

31243 044421 AOB ,+MESLN 

31244 054311 CPB MSQND 

31245 064312 LDB MSQBG 

31246 074310 STB MSGP3 

31247 037234 ISZ GMQB 
31250 127234 jmP GMQB,I 



check for message buffers all 

being used 
no Skip sez no buffer 
increment count 
load current pointer 
advance pointer for 

next message 
check for end of queue 

if end, start over 

advance to buffer present return 

RETURN 
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0166* 

0167* 

0168* 

0169 

0170* 

0171 

0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 



THI3 ROUTINE CALLS THE REAL DISK ORIVER, AND WAITS 
FOR THE TRANSFER TO BE SUCCESSFULLY COMPLETEO, 



312gl 000000 ZDISC NOP 



31252 

31253 
31254 
31255 
31256 
31257 
31260 
31261 
31262 



114212 
102030 
102031 
060214 
002020 
027255 
002003 
037251 
127251 



JSB DISCArl 

HLT 30B 

HLT 31B 

LDA MBUSY 
SSA 

JMP *~2 
8ZA,RSS 

ISZ ZDISC 

JMP ZDISC, I 



COME HERE FOR DISC TRANSFER 

AND WAIT FOR COMPLETION 
CALL NORMAL DRIVER 
DRIVER BUSY 
DISK NOT PRESENT 
WAIT FOR COMPLETION 

•l sez busy 

SEZ DONE WITHOUT ERRORS 
ADVANCE TO NO ERRORS RETURN 
RETURN 
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0181 

0182 

0183 

0184 

0185 

0186* 

0187* 

0188* 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200* 

0201* 

0202* 

0203* 

0204* 

0205* 

0206* 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216* 

0217* 

0218* 

0219* 

0220* 

0221* 

0222* 

0223* 

0224* 

0225* 

0226* 

0227* 

0228* 

0229* 

0230* 

0231* 
0232* 
0233* 
0234* 
0235* 



31701 ORG 31701B 

31701 000161 ,105 DEC 105 

31702 045233 TAPEA OEF TAPER 

31703 045724 SER7A DEF SERR7 

31704 153064 Lw200 ABs «10240«usER*200 

* 
* CLEAN UP FOR NEW PROGRAM 



** 
* 



31705 
31706 
31707 
31710 
31711 
31712 

31713 
31714 

31715 

31716 

31717 



103100 
060354 
003000 
110257 
170257 
102100 

064702 
075577 

006400 

075575 

027743 



CUNUP 



CLF 
IQA 
CMA 
AND 
ST A 
STF 
LDB 
ST8 
CLB 
STB 
JMP 




CFLAG 

MAIN,! 

MAIN,! 



PBUFF 

SPROG 

SYMTB 
SYNT1 



SET 

PROGRAM 
MODE TO 

'UNCOMPILED' 

INSURE CORRECT 

START»QF*-PROGRAM SETTING 
INITIALIZE 

ERROR FLAG 



* 
** 

* 



DELETE A PROGRAM STATEMENT 



** 
*** 

** 



THE STATEMENT REFERENCED BY THE SEQUENCE NUMBER IN 
(B) IS DELETED, EXIT TO EXECUTIVE, 



31720 

31721 
31722 
3l7 2 3 
31724 
31725 
31726 
31727 
31730 



060055 
015314 
124526 
12452& 
002400 
006004 
164001 
015312 
124526 



DELST 



LDA PBPTR 


LOAD SEARCH TERMINATION POINTER 


JSB pNDPS 


Se*RCm fOH STAT t MENT 


JMP ACC5A,I 


NOT 


JMP ACC5A,I 


FOUND 


CLA 




jNB 


(B),i ■ STATEMENT LENGTH 


LDB 1,1 


LOAd LENGTH OF OLo STATEMENT 


jSB DELPR 


DELETE 


JMP ACC5A,I 


STA1EMEWT 



******************************* 
*** *** 

** CHECK SYNTAX OF STATEMENT *** 
*** *** 

******************************* 



PBPTR POINTS TO 
THUS ALSO POINTS 
WHERE THE NEW 8 T 
OCCURS U N DER »TA 
OF HjS TTY TABLE 
OUT«OF«»STORAGE £ 
AND ALL 3UBSEQUE 
THE PRIOR PROGRA 
PRIOK PROGRAM IS 
WILL REJECT ADDI 
UsER s p *CE ARE A 
IN 'KEY' MODE, 



THE LAST WORD +1 OF THE PREVIOUS PROGRAM AND 

TO THE FIRST WORD OF AVAILABLE USER SPACE, 
AtEMEN T WILL BE TRANSLATED, WHEN AN ERROR 

pE» mode, the user's terr bit i n the first word 

IS SET AND h L S COPY OF ERRCT iS BUMPED, jF AN 

rror Occurs in «tape' mode* symtb is set to i 
nt program material is rejected, if upon entry 
m is null, all flags are set to null; if the 
not null, it is placed in 'source' mode, syntax 
tional statements if fewer than 200 words of 

VAILABLE BUT WILL ACCEP T STATEMENT DElEtION s If 
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0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

024 9 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262* 

0263* 

0264* 

0265* 

0266* 

0267* 

0266* 

0269* 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281* 

0282* 

0283* 

0264 

0285 

0286 

0287 

0288 

0289 

0290 



31731 
31732 
31733 
31734 
31735 
31736 
31737 
31740 
31741 
31742 
31743 
31744 
31745 
31746 
31747 
31750 
31751 
31752 
31753 
31754 
31755 
31756 

31757 
31760 
31761 
31762 



064056 
054702 
027705 
060353 
110257 
002003 
027743 
002400 
051576 
127702 
015464 
015322 
006400 
174056 
060056 
071574 
071620 
043701 
071617 
071472 
006004 
055575 

1 2 7703 
015450 
124526 
015452 



SYNTX 



SYNtI 



LOB PBPTR 
CPB PBUFF 
JMP C^NUP 
LOA TERR 

and main, i 

SZA,RSS 

JMP 8YNT1 

CLA 

CPA 

JMP 

JSB 

JSB 

CLB 

STB 
LOA 
STA 
STA 
ADA 
STA 
STA 
INB 
CPB 
JMP 
JSB 
JMP 
JSB 



ERRCT 

TAPEArl 

SINIt 

DCMPt 

PBPTR, I 

PBPTR 

8BPTR 

SBUFA 

.105 

SSTAK 

SYNTU 

SYMTB 

SER7A,I 

GETCR 

ACC5ArI 

BCKSP 



NULL 

PKOGRAM? 
YES 
NO, EKRUR 

FLAG 
SET? 
NO 
YEs* ERRORS 

IMBEDDED IN CODE? 
NO, FINISH ABORTED ERROR CLEANUP 
YES, PREPARE PROGRAM 

FOR SYNTAX 
SET U N E NUMBER 

TO ZERO 
SET SYNTAX POINTER TO FIRST 

AVAILABLE WORD OF USER SPACE 
SAVE POINTER TO SYNTAX BUFFER 

AND TO 

SYNfAX STACK 

DOES 'OUT OP STORAGE' 

ERROR EXIST? 
YES 

NO, EMPTY RECORD? 
YES 
NO 



* DETERMINE SEQUENCE NUMBER 



* 
** 



A RECORD CONSISTING ONLY OF A 
DELETION OF a PREVIOUSLY ACCEP 
SEQUENCE NUMBER. 



SEQUENCE NUMBER WILL CAUSE THE 
TED STATEMENT REFERENCED BY THAT 



31763 015466 JSB BLDIN 

31764 175574 STB SBPTR,I 

31765 035574 ISZ SBPTR 

31766 050367 CPA ,+15B 

31767 027720 JMP DELST 

31770 035574 ISZ SBPTR 

31771 171574 STA SBPTR, I 

31772 060056 LDA PbPTR 

31773 043704 ADA LW200 

31774 002021 SSA,RSS 

31775 115042 JSB SERRS,! 

* 
* DETERMINE STATEMENT TYPE ** 



31776 
31777 

32000 
32001 
32002 
32003 
32004 



060361 
071402 

063735 
064321 
015246 
060726 
064341 



LDA 
STA 
LDA 
LOB 
JSB 
LDA 
LDB 



• ♦7 

MAXcR 

STTYP 

,.25 

TBSRH 

LETOP 

.•9 



RECORD 

SEQUENCE 
NUMBER 
NULL STATEMENT? 
Y ES 

NO, SKIP STATEMENT LENGTH WORD 
SAVE FIRST CHARACTER 
AccEPTAoLE AMOUNT 

OF USER SpACE 
REMAINING? 
NO 



SET MAXIMUM 

SYM B OL LENGTH 
STATEMENT*TYPE NAMES 
.(NUMBER OF STATEMENT TYPES) 
FINO STATEMENT TyPE 
NO, ASSUME 'IMPLIED' LET 
DISALLOW 
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0291 32005 


077447 




STB 


M3FLG 


MULTIPLE STORE 


0292 32006 


064355 




LOB 


• ♦3 


SET MAXCR TO *OST 


0293 32007 


075402 




STB 


MAXCR 


COMMON VALUE 


0294 32010 


006400 




CLB 




TURN OFF 


0295 320U 


075621 




STB 


PFLAG 


'PARAMETER 1 MODE 


0296 32012 


101051 




LSR 


9 


RIGHT JUSTIFY OPERATOR CODE 


0297 32013 


073453 




STA 


SFLAG 


TURN OFF STRING AND STOrE MODES 


0298 32014 


073445 




STA. 


OFLAG 


TURN ON •SUBSCRIPT' MODE 


0299 32015 


040756 




ADA 


STBAS 


BRANCH TO 


0300 32016 


124000 




JMP 


0,1 


SYNTAX ROUTINE 


0301* 












0302*** 








** 




0303** <LE1 


r STATEMENT SYNTAX *« 




0304*** 








** 




0305* 












0306 32017 


060726 


LET0 


LDA 


LETOP 


FAKE 


0307 32020 


171574 




STA 


SBPTR, I 


A 


0308 32021 


015452 




JSB 


BCKSP 


'LET' 


0309 32022 


065574 


LETS 


LOB 


SBPTR 


ENABLE A 


0310 32023 


077453 




8TB 


SFLAG 


STRING VARIABLE 


0311 32024 


037447 




ISZ 


MSFLG 


TURN ON 'MULTIPLE STORE' MODE 


03I2 32025 


015230 




JSB 


FSC 


ANALYZE FORMULA 


0313 32026 


037453 




ISZ 


SFLAG 


STRING VARIABLE FoUnD? 


0314 32027 


026035 




Jmp 


LET! 


NO 


0315 32030 


015272 




JSb 


SYMCK 


YES, (b) IS LEFT aT -1 


0316 32031 


0334J5 




DEF 


ASSOP-1 


DEMAND ASSIGNMENT OPERATOR 


0317 32032 


H50«5 




JSB 


SERRS+3, 


I NOT FOUND 


031a 32033 


015332 




JSB 


RSTOP 


RECORD A STRING OPERAND 


0319 32034 


026037 




JMP 


tOsT 


DEMAND END OF STATEMENT 


0320 32035 


037453 


LET1 


ISZ 


SFLAG 


DID A STOKE OCCUR? 


0321 32036 


115045 




JSB 


SERRS+3, 


I NO 


0322** 










** 


0323*** CHECK FOR 


END OF 


STATEMENT *** 


0324** 










** 


0325 32037 


050367 


EOST 


CPA 


. + 158 


END OF STATEMENT? 


0326 32040 


124524 




JMP 


ACCSA,! 


YES 


0327 32041 


115046 




JSB 


SERRS+4, 


I NO 


0328* 












0329*** 








** 




0330** <DIM STATEMENT SYNTAX ** 




0331*** 








** 




0332* 












0333 32042 


002400 


DIMS 


CLA 




FLAG AS DIM STATEMENT 


0334* 












0335*** 








** 




0336** <COM STATEMENT SYNTAX ** 




0337*** 








** 




0330* 












0339 32043 


071414 


COMS 


STA 


CDFLG 


FLAG AS COM STATEMENT 


0340 32044 


077445 




STB 


DFLAG 


TURN ON 'DIM' MODE ( (B)«0 ) 


0341 32045 


061574 




LOA 


SBPTR 


ENABLE STRING 


0342 32046 


073453 




STA 


SFLAG 


VARIABLE 


0343 32047 


015240 




JSB 


VAROP 


SEEK VARIABLE OPERAND 


03 44 32050 


115047 




JSB 


SERRS+5, 


-I IMPROPER SUBSCRIPT 


0345 32051 


026055 


COM30 


JMP 


COMS1 


ARRAY OR STRING FOUND 
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0346 


32052 


006400 


CUB 


SIMPLE VARJABUE 


0347 


32053 


0554U 


CPB CDFLG 


'DIM»? 


0348 


32054 


115047 


JSB SERKS*5,I 


YE8«"*ERRQR 


0349 


32055 


050367 COMS1 


CPA ,*15B 


NO, CARRIAGE RETURN FOLLOWS? 


0350 


32056 


124524 


JMP ACCSA,! 


YES 


0351 


32057 


007400 


CC8 


NO 


0352 


32060 


015272 


JSB SYMcK 


COMMA? 


0353 


32061 


033363 


DEF COMMA-i 




0354 


32062 


115050 


JSB SERRS+6,1 


NO 


0355 


32063 


026045 


JMP COMS+2 


YES 


0356* 










0357*** 




*• 




0358** <DEF 


: STATEM£NT> SYNTAX ** 




0359*** 




** 




0360* 










0361 


32064 


015256 DEFS 


JSB LTR 


FIRST T«0 


0362 


32065 


115051 


JSB SERRS*7,I 




0363 


32066 


001727 


ALFfALp 


CHARACTERS 


0364 


32067 


0316H 


IOR TEMP+t 




0365 


32070 


053375 


CPA FN 


'FN' ? 


0366 


32071 


002001 


RSS 


YES 


03 6 7 


32072 


115051 


JSB SERRS+7,1 


NO 


0368 


32073 


015256 


JSB LTR 


FOLLOWED BY A LETTER? 


0369 


32074 


115051 


JSB SERRS+7,1 


NO 


0370 


32075 


061614 


IDA TEMP+1 


YES, 


0371 


32076 


064436 


LOB v ^8 


RECORD 


0372 


32077 


015260 


JSB STROP 


FUNCTION 


0373 


32100 


061615 


L0 A TeMP*2 


RETRIEVE FOLLOWING CHARACTER 


0374 


32101 


015252 


J3B LPCK 


DEMAND LEFj PArENtHEsIs 


0375 


32102 


031036 


IOR FLGBT 


SET FLAG FOR 


0376 


32103 


171574 


STA 8BPTR,2 


Formal parameter 


0377 


32104 


015240 


jSB VAROP 


DEMAND A SImPL^ VARIABlE 


0378 


32105 


000000 


NOP 


NONE 


0379 


32106 


115052 


JSB SERRS*8,I 


FOgND 


0380 


32107 


015254 


JSB RPCK 


DEMAND A RIGHT PARENTHESIS 


0381 


32110 


007400 


CCB 


ASSIG N M£ N T 


0382 


32111 


015272 


JSB symck 


OPERATOR 


0383 


32112 


033415 


DEF A8SQP.1 


NEXT? 


0364 


32113 


115045 


JSB SERRS+3,1 


NO 


i)385 


32114 


060350 


LDA -2 


YES, 


0386 


32115 


041574 


ADA S8PTR 


ISOLATE 


0387 


32116 


160000 


LDA 0,1 


AND SAVE 


0388 


32117 


010502 


AND B777 


FORMAL 


0389 


32120 


071621 


STa pflag 


P/tRAMETER 


0390 


32121 


015230 


JSB FSC 


FETCH DEFINING FORMULA 


0391 


32122 


015270 


jSB SBPUD 


RECORD EnD»qF«FORmUlA OPERATOR 


0392 


32123 


026037 


JMP EOST 


DEMAND END OF STATEMENT 


0393* 










0394*** 




** 




0395** <IMAGE STATEMENT> 


SYNTAX ** 




0396*** 




** 




0397* 










0398 


32124 


065574 iMAGS 


ldb sbptr 


SAVE CURRENT 


0399 


32125 


077457 


STB ARYAO 


BUFFER POINTER 


0400 


32126 


006400 


CLB 
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0421 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412* 

0413* 

0414* 

0415* 

0416* 

0417 

0418 

0419 

0420 
0421 

0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
(0447 
0448 
0449 
0450 
0451 
0452 
14453 
0454 
0455 



32127 
32130 
32131 
32132 
32133 
32134 
32135 
32136 
32137 
32140 
32141 



060367 
015262 
000000 
061614 
040732 
002021 
115101 
163457 
041614 
I73457 
124524 



** 

* 
♦ * 



<GQ" 



32142 
32143 
32144 

32U5 
32146 
32147 
32150 
32151 
32152 
32153 
32154 
32155 
32156 
32157 
32160 
32161 
32162 
32163 
32164 
32165 

321 6 6 
32167 
32170 
32171 
32172 
32173 

32174 
32175 
32176 
32177 

32200 
32201 
32202 
32203 
32204 
32205 
32206 
32207 
32210 



060224 
064257 
006004 
130001 
114500 
00340y 
071422 
015244 

026212 

007400 
045574 
075574 
161574 
010664 
171574 
060225 
064257 
006004 
130001 
114500 
015230 
05fe)367 
115053 
001727 
071614 
015450 
115053 
031614 
053377 

002001 

115053 
060706 
171574 
015270 
015460 
175574 
015270 
050426 
026204 



GOTOS 



GOTOl 



(J0T02 



LDA ,+158 


SET DEL1METER 


JS8 CHRST 


RECORD STRING CONSTANT 


NOP 




LDA TEMP+1 


LENGTH 


ADA M73 




SSA,RSS 


>72? 


J3B SERRS+31, 


I YES 


LDA ARYAD,! 


NO, 


AOA TEMP+1 


RECORD 


STA ARYAD, I 


LENGTH 


JMP ACCSA,I 






** 


<GOSUB STATEMENT SYNTAX ** 

** 


LDA SBP 


SAVE 


LDB MAIN 




INB 


BUFFER 


IOR 1,1 




J3B S14SCI 


POINTER 


CCA 


SET INTCK MODE TO 


3TA GFLAG 


•exit ON ERROR' 


jsb prgin 


SEEK SEQUENCE NUMBER 


JMP G0TQ3 


FOUND 


CCB 


NOT FOUND 


AD8 SBPTR 


BACK UP 


8T B S BPtR 


S yN T AX POINjER 


LDA SBPTR, I 


ERASE 


AND OPMSK 


'INTEGER FOLLOWS' 


STA SBPTR, 1 


FLAG 


LDA RBH 


RESTORE 


LDB MAIN 




jNB 


BuKf-ER 


IOR 1,1 




JSB 314SCI 


POINTER 


J3B FSC 


SEEK FORMULA 


CPA ,*i5B 


ENO-OF-RECQRD? 


JSB sERRS+9,1 


YES 


ALF,ALF 


NO, QO 


STA TEMP+1 


NEXT 


JSB GETCR 


TWO 


JSB SERRS+9,1 


CHARACTERS 


IOR TEMP+1 


FORM 


CPA OF 


• OF* i 


RSS 


YES 


JSB SERR3+9,I 


NO 


LDA OFOP 


RECORD 


STA SBPTR, 1 


'OF» AND 


JSB SBPUD 


ADVANCE POINTER 


JSB BLDIN 


Demand a seGUence number 


STB SBPTR, I 


RECORD IT 


JSB SBPUD 




CpA ,+44 


COMMA NEXT? 


JMP G0T02 


YES 
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0456 

0457 

0453 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0469* 

0469*+ 

0470** 

0471** 

0472* 

0473 

0474 

0475 

0476 

0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 

0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
05t0 



32211 
32212 
32213 
32214 
32215 
32216 
32217 
32220 
32221 
32222 
32223 
32224 



<IF 



32225 

3222$ 
32227 
32230 

32231 
32232 
32233 
32234 
32235 
32236 
32237 
32240 
32241 
32242 
32243 
32244 
32245 
32246 
32247 
32250 
32251 
32252 
32253 
32254 
32255 
32256 
32257 
32260 
32261 

32262 
32263 
32264 
32265 
32266 
32267 
32270 
32271 
32272 



026037 
k>50367 
026217 
071422 

064350 
026154 
060224 
064257 
006004 
130001 
114500 
124524 



JMP 
G0T03 CPA 
JMP 
STA 
LOB 
JMP 
GOT04 LDA 
LOB 
IN8 
IOR 
JSB 
JMP 



STATEMENT SYNTAX ** 

** 



EOST 

.♦15B 

G0T04 

GF L AG 

v <*2 

GOTOi 

FBP 

MAIN 

1,1 

S14SCI 

ACCsA,I 

** 



035574 

015450 
115101 
171574 

063451 
007400 
015246 
026240 
015504 

H5102 
0262^5 
015452 
007400 
045574 
075374 
077453 
015230 
037453 
026265 
071614 
064347 
171574 
063736 
013246 
002001 

026264 
061614 
064346 
015272 

033431 
115062 
015332 
171574 
035402 
060774 
007400 
015246 
H5054 



IPS 



If-id 



if-x 



NO, DEMAND END OF STATEMENT 

END OF STATEMENT? 

YES 

no, ke*enablE bad Integer error 



FREE 
SAVED 



BUFFER SPACE 
ACCEPT sTAy£MENT 



ISZ SBPTR 


FETCH NEXT 


JSB GETCR 


CHARACTER 


J38 SERRS+31, 


,1 NONE FOUND 


STA SBPTR,! 


FOUND, SAVE IT 


LDA AEND 


LOOK 


CCB 


FOR 


JSB TBSRH 


'END' 


JMP IFW 


NOT FOUND 


JSB FILRF 


FOUND, GET FILE REFERENCE 


JSB SERRS+321 


:I NONE FOUND 


JMP IF1+1 


FOUND 


JSB BCKSP 


RESTORE 


CCB 


TO 


ADB 38PTR 


ENTRY 


STB SBPTR 


STATUS 


STB SFLAG 


ENABLE STRING VARIABLE 


JSB FSC 


SEEK DECISIUN FORMULA 


ISZ SFLAG 


STRING VARIABLE FOUND? 


JMP IF1+1 


NO 


STA TEMP+i 


YES, SAVE NEXT CHARACTER 


LDB f »3 


MAxCR « 3 FROM FSC 


STA SBPTR,! 


MULTICHARACTER 


LDA MCREL 


RELATIONAL 


JSB TBSRH 


OPERATOR? 


RSS 


NO 


JMP IF1 


YES 


LDA TEMP*1 


RETRIEVE CHARACTER 


LDB ,-4 


SINGLE CHARACTER 


JSB symck 


RELATIONAL 


DEF RELQS-1 


OPERATOR? 


JSB SERR3*16, 


I NO 


JSB R8T0P 


YES, RECORD A STRING OPERAND 


STA SBPTR, I 


SAVE NEXT CHARACTER 


ISZ MAXCR 


BUMP LIMIT TO FOUR CHARACTERS 


LDA athen 


LOOK 


CCB 


FOR 


JSB TBSRH 


»THEN« 


JSB SERRS+10, 


I NOT FOUND 
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0511 32273 015244 jSfl 

0512 32274 026037 JMP 
0513* 
0514*** 

0515** <FOR STATEMENT SYNTAX 
0516*** 
0517* 



0516 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0526 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0536 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547* 

0546*** 

0549** 

0550*** 

0551* 

0552 

0553 

M 554 

0555 

0556* 

0557*** 

0558** 

0559** 

0560*** 

0561* 

0562 

0563 

0564 

0565 



32275 

32276 
32277 
32300 
32301 
32302 

32303 
32304 
32305 
32306 
32307 
32310 
32311 
32312 
32313 
32314 
32315 
32316 
32317 
32320 
32321 
32322 
32323 
32324 
32325 
32326 
32327 

32330 
32331 



015240 
000000 
115052 
007400 
0152 7 2 
033415 
115045 
013230 
001727 
071614 
015450 

115055 
031614 

053376 

002001 
115055 
063740 
171574 
015230 
050367 
124524 
171574 
035402 
063461 
007400 
015246 
115056 

015230 
026037 



FQRS 



JS6 
NOP 
JSB 
CC6 
JSB 
DEF 
JSB 
JSB 



PRGJN 
EOST 

** 

** 
** 

VAROP 



DEMAND A SESUENgE NUMBER 
DEMAND END QF STATEMENT 



SERRS+6,1 



SYMCK 
ASSQP»1 
SERRS+3,1 
FSC 
ALF,ALF 

STA TEMP*1 
GETCR 

SERRS+11,1 
TEMP+1 
TO 

YES 
SERRS+11,1 NO 



JSB 
JSB 
IOR 
CPA 
RSS 
JSB 

lda 

STA 
JSB 
CPA 
JMP 
STA 
ISZ 
LDA 
CC6 
JSB 
JS8 
JSB 
JMP 



SEEK A SIMPLE VARIABLE 
NONE 

Founo 

DEMAND AN 
ASSIGNMENT 

OPERATOR 

NOT FOUND 

RECORD INITIALIZATION FORMULA 

DO 

NEXT 

TKO 

CHARACTERS 

FORM 

•TO' ? 



TOOP 

SBPrR#I 

FSC 

.♦15B 

ACCSA,! 

SBPTR,! 

MAXCR 

astep 

TBSRH 
SERRS*i2>* 



RECORD 
i T 0» 

RECORD 

end of 

YES 
NO, IS 



LIMIT FORMULA 
STATEMENT? 



NEXT 



SYMBOL 



NO 



1 STEP' ? 



FSC 
EQST 



YESf RECORD STEP SIZE 

demand EnD q? statement 



<NEXT STATEMENT SYNTAX 



** 

** 
** 



32332 
32333 
32334 
32335 



015240 

000000 
1150D2 

026037 



NEXTS 



JSB 
NOP 
JSB 

JMP 



VAROP 

8ERRS*6,I 
EOST 



SEEK SIMPLE VARIABLE 
NOT 

FOUND 
DEMAND END OF STATEMENT 



<RETURN STATEMENT^ <END STATEMENT^ 
AnD <STQP STATEMENTS SYNTAX 



** 
** 

** 

** 



32336 
32337 

32340 
32341 



035574 
015450 
124524 
115046 



Ends 



ISZ 

JSB 
JMP 
JSB 



SBPTR 
GETCR 
ACCsA,I 
SERRS+4,1 



RECORD 
END OF 
YEs 
NO 



NULL OPERAND 
STATEMENT? 
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0566* 

0567* 
0566* 
0569* 
0570* 
0571 

257 2 
0573 
0574 

0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 

0588 

0589 

0590 

0591 

0592 

05$3 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605* 

0606* 

0607* 

0608* 

0609* 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 



** ** 

* <DATA STATEMENT SYNTAX ** 
** ** 



32342 

32343 
32344 
32345 
32346 
32347 
32350 
32351 
32352 
32353 
32354 
32355 
32356 
32357 
32360 
32361 
32362 
323 6 3 
32364 
32365 
32366 
32367 
32370 
32371 
32372 

32373 
32374 

32375 
32376 
32377 

32400 
32401 
32402 
32403 



015270 

002400 
071266 
015450 
115057 
006404 
050425 
026400 
007400 

050427 
026400 
015276 
026373 
115060 
064347 
045574 
160001 
03103$ 
170001 
061614 
007400 
015272 
0333$3 
026037 
026342 
055266 
002001 
115061 
015334 
026366 
075266 
015450 
115061 
026355 



DATAS JSB 
CLA 
STA 
JSB 
JSB 
CUB, 
CPA 
JMP 
CCB 
CPA 
JMP 

DATAl JSB 
JMP 
JSB 
LDB 
ADB 
LDA 
IOR 
STA 
LOA 

DA T A2 CCB 
JSb 
DEF 
JMP 
JMp 

DATA3 CPB 
RSS 
JSB 
JSB 
JMP 

DATA4 STB 

JSb 
JSB 
JMP 



3BPU0 

SIGN 

GETCR 

SERRS*13, 

INB 

,♦43 

DATA4 

.♦45 

DATA4 

NUMCK 

DAtA3 
SERRS*j4# 
v t»3 
SBPTR 

1,1 

FLGBT 

1*1 

TEMp+i 

SYMQK 

COMMA*l 

EOST 

DATAS 

SIGN 

SERRS+15, 

getst 

DATA2 
SIGN 

GETgR 

SERRS*15, 

DATAl 



INITIALIZE 

SIGN 
REQUEST A CHARACTER 
I END-OF^INOUT CONDITION 

»♦' ? 

YES 
NO 

»-' ? 
YES 

NO, NUMBER? 
NO 
I BAD EXPONENT 
NUMBER, 
MARK 

PREVIOUS 

OPERATOR AS 

•NUMBER FOLLOWS' 
RETRIEVE FOLLOWING CHARACTER 
COMMA 

NEXT? 
NO, DEMAND END OF STATEMENT 
YES 

SIGN FOUND? C (B) « ) 
NO 
I YES 
DEMAND A STRING CONSTANT 

RECORD SIGN 

I END-OF-XNPUT CONDITION 



** ** 

* <HEAD STATEMENT SYNTAX ** 
** ** 



32404 
32405 
32406 
32407 
32410 
32411 
32412 



015502 
026413 
050367 
124524 
050722 
026414 
115050 



READS 



JSB RECRF 


READ FROM FILE? 


JMP READ1 


NO 


CpA ,*15B 


YES, P8UED *REST RE? 


JMP ACCSA,I 


YES 


CPA B73 


NO, »/i ? 


JMP INPTS 


YES 


JSB SERRS+6,1 


NO 



32413 015452 READ! JSB 0CKSP 
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0619* 

0620* 

0621* 

0622* 

0623* 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634* 

0635* 

0636* 

0637* 

0638* 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 
0666 
0667 
0666 
0669 
0670 
0671 
0672 
0673 



** 

* <INPUT STATEMENT 
** 



** 
SYNTAX ** 

** 



32414 
32415 
32416 
32 4 17 
32420 
32421 
32422 
32423 
32424 
32425 



065574 
077453 
015240 
115063 

000000 

007400 
015272 
033363 
026037 
026414 



INPTS LOB SBPTR ENABLE STRING 

STB SFLAG VARIABLE 

JSB VAROP SEEK VARIABLE OPERAND 

JSB SERRS+17,1 NONE FOUND 
NOP 



** 

* <PRINT STATEMENT 

** 



32426 
32427 
32430 
32431 
32432 
32433 
32434 
32435 
32436 
32437 

32440 
32441 

32442 
32443 
32444 
32445 
32446 
32447 
32450 
32451 
32452 
32453 
32454 
32455 
32456 
32457 

32460 
32461 
32462 
32463 
32464 
32465 
32466 
32467 
32470 



015270 
015450 
124524 
015546 
026460 
050367 
124524 
007400 
015272 
033365 

115104 
015270 
015450 
115050 
171574 
015550 
026451 
077453 

015230 
050367 
124524 
007400 
015272 
033363 
115050 
026441 
015502 
026471 
m7AZ<d 
075504 
050367 
124524 
050722 
026472 
115050 



PRINS 



PRN10 



PRN11 



PRN0j 



CCB 

JSB SYMCK 
DEF CQMMAM 
JMP EOST 
JMP INPTS 

** 
SYNTAX ** 

** 



COMMA? 

NO, DEMAND END OF STATEMENT 
YES 



J38 
JSB 
JMP 

JSB 
JMP 
CPA 
JMP 
CCB 
JSB 
OEF 
JSB 
JSB 
JSB 
JSB 
STA 
JSB 
JMP 

STB 
J38 
CpA 
JMP 
CCB 

JSb 

DEF 
JSB 
JMP 

jse 

JMP 
CCB 
STB 
CpA 
JMP 
CPA 
JMP 
JSB 



SBPUD 

GETCR 

ACCSA, I 

USTCK 

PRN01 

, + 15B 

ACCSA,! 

SYMQK 
SEMI~1 

SERRS+34 
SBPUD 
GETCR 
SERRS+6, 
SBPTR, I 

pfsrh 

PRN11 
SFLAG 
F S C 
. + 15B 
ACCSA, I 

SYMCK 

COMMA-1 

SERRS+6, 

PRN10 

RECRF 

PRIN0»1 

FILRF 
.♦156 
ACCSA, I 
B73 

PRIN0 
SERRS+6, 



ADVANCE SYNTAX BUFFER POINTER 

FETCH NEXT CHARACTER 

NONE FOUND 

CHECK FOR USING STATEMENT 

NONE POUND 

END OF STATEMENT? 

YES 

NO, 

semicolon 

FOLLOWS? 
,1 NO 

ADVANCE SYNTAX BUFFER POINTER 

FETCH NEXT CHARACTER 
I NONE FoUnD 

SAVE CHARACTER 

SEARCH FOR PRJNT FUNCTION 

FOUND 

ENABLE STRING VARIABLE 

LOOK FOR FOHHuLA 

CARRIAGE RETURN F LLgWS? 

YES 

NO, 

COMMA? 

I NO, ErrOr 
YES 

WRITE ONTO FILE? 
NO 

yes, set 

iFILEi FLAG 
NULL WRITE? 
YES 
no, •;• ? 

YES 

I NO 
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0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0686 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0696 
0699 
0700 
0701 
0702 

0703 

0704 

0705 
0706 
&7d7 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
07i8 
07i9 
0720 
0721 
0722 
0723 
0724 
0725 

07^6* 



32471 
32472 
32473 
32474 
32475 
32476 
32477 
32500 
32501 
32502 
32503 
32504 
32505 
32506 
32507 
32510 
325U 
32512 
32513 
32 5 14 
32515 
32516 
32517 
32520 
32521 
32522 
32523 
32524 
32525 
32526 
32527 
32530 
32531 
32532 
32533 
32534 
32535 
32536 
32537 
32540 
32541 
32542 
32543 
32544 
32545 
32546 
32547 
32550 
32551 
32552 

32553 
32554 



015452 
015270 
015450 
026552 
007400 
075621 
050414 
002001 
026520 
015334 
050367 
124524 
007400 
075621 

050414 
026502 
064350 
015272 
033363 
006401 
026472 
175574 
015270 
035621 
115050 
171574 
007400 
035504 
026536 

075504 
063451 
015246 
026541 
015270 
015450 
124524 
026507 
015550 
026547 
026545 
015452 
007400 
045574 
075574 
077453 

015230 
050367 
124524 
026507 
035504 
124524 
115044 



PRIN0 



PRIN1 



PRIN2 



PRIN3 



PRIN4 
PRIN5 

PRIN8 
PRIN6 

PRIN7 



JSB 
JS8 
J88 
JMP 
CCB 
STB 
CpA 
RSS 
JMP 
JSB 

CPA 

JMP 

CCB 

STB 

CPA 

JMP 

LOB 

JSB 

OEF 

CUB, 

JMP 

STB 

JSB 

ISZ 

JSB 

STA 

CCB 

ISZ 

JMp 

STB 

L DA 

JSB 

JMP 

JSB 

JSB 

JMP 

JMP 

JSB 

JMP 

JMP 

JSB 

CCB 

AOB 

STB 

STB 

JSB 

CPA 

JMP 

JMP 

ISZ 

JMP 

JSB 



BCK3P 
SBPUD 
GETCR 
PRIN7 

PFLAG 
,♦428 

PRIN3 
GETST 

. + 168 
ACCSA,I 

PFLAG 

.♦42B 

PRJN1 

v *»2 

SYMgK 

COMMA-1 

RSS 

PRIN0 

SBPTR, I 

SBPUD 

PFUAG 
SERRS«-6,I 
SBPTR, I 

FILRF 

PRIN4 

FILRF 

AEnD 

TBSRH 

PRXN5 

SBPUD 

GETCR 

ACC3A,I 

PRIN2 

PFSRH 

PRIN6 

PRIN8 

BCKSP 

SBPTR 

SBPTR 

SFLAG 

FSC 

.♦15B 

ACCSA,! 

PRIN2 

FILRF 

ACCSA,I 

S&RRS*2,x 



ADVANCE SYNTAX BUFFER POINTER 

MORE STATEMENT? 

NO 

YES, ENABLE 

FORMULA AND TAB 
n 1 

YES 

NO 

record 
end OF 

YES 

NO 



A STRING CONSTANT 
STATEMENT? 



n ? 

YES 

NO 

COMMA OR 

SEMICOLON? 
NO 
YES 
ZERO NEXT WORD 

FORMULA OR TAB PERMITTED* 

NO 

YES 

'FILE* 

MOOE? 
N 
YES, SET FLAG AGAIN 

•END' ? 

NO 

YES 

FETCH NEXT 

character 

search for print function 

found 

not found 

BACKUP 

TO pOINT 
FOLLOWING 

LAST OPERATOR 
ENABLE STRING VARIABLE 
RECORD FORMULA 
END OF 3TATEMENT? 
YES 
NO 

'FILE' MODE? 
NO 

YES 
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TEMENT SYNTAX PROCESSORS 


0002* 










0003*** 




• * 




0004** <MAT STATEMENTS SYNTAX ** 




0005*** 




** 




0006* 










0007 


32555 


015256 


MATS JSB LTR 


FIRST TWO 


0006 


32556 


115064 


JSB SERRS+18, 


I CHARACTERS 


0009 


32557 


015266 


JSB LETCK 


LETTERS? 


0010 


32560 


026677 


JMP MATS3 


NO 


0011 


32561 


035574 


I3Z SBPTR 


YES, 


0012 


32562 


001727 


ALF,ALF 


RETRIEVE 


0013 


32563 


031614 


IOR TEMP+1 


FIRST CHARACTER 


0014 


32564 


171574 


STA sSPTRfl 


LOOK 


0015 


32565 


060357 


IDA ,*5 


For 


0016 


32566 


071402 


STA MAxCR 


'INPgl', 


0017 


32567 


063443 


IDA MATIQ 


'READ', 


0018 


32570 


064347 


LDB ,«3 


OR 


0019 


325 7 1 


015246 


JSB TBSRH 


'PRINT' 


0020 


32572 


115064 


JSB 8ERR3+18, 


I NONE FOyNU 


0021 


32573 


050656 


CPA PRTQP 


IS IT 'PRINT'? 


0022 


32574 


026621 


JMP MATS2 


YES 


0023 


32575 


053741 


CPA INPQP 


no, 'Input' ? 


0024 


32576 


026605 


JMP MATSii-2 


yfcS 


0025 


32577 


015502 


JSB rECrF 


N Q, READ Frq* FILE? 


0026 


32600 


026604 


JMP MATSU3 


NO 


0027 


32601 


050722 


CpA B73 


YES, «!' ? 


0028 


32602 


026605 


JMP MAxsl*2 


YEs 


0029 


32603 


115050 


JSB 3ERRS*6,I 


NO 


0030 


32604 


015452 


JSB BCKsP 




0031 


32605 


002404 


Ct.A f lNA 


TURN ON 


0032 


32606 


073445 


STA DFLAG 


'MATRIX SUBSCRIPT* MODE 


0033 


32607 


015242 


MATS1 JSB ARRID 


RECORD AN ARRAY 


0034 


32610 


015232 


JSB SBSCK 


RECORD SUBSCRIPT 


0035 


326U 


000000 


NOP 


IF PRESENT 


0036 


32612 


050367 


CPA +15B 
JMP ACCSA f i 


END OF STATEMENT? 


0037 


32613 


124524 


YES 


0038 


32614 


007400 


CCB 


NO, DEMAND 


0039 


32615 


015272 


JSB SYMCK 


COMMA 


0040 


32616 


033363 


OEF COMMAS 




0041 


32617 


115050 


JSB SERRS*6,I 


NOT FOUND 


0042 


32620 


02660/ 


JMP MAT81 




0043 


32621 


015270 


MATS2 JSB SBPUD 


ADVANCE SYNTAX BUFFER POINTER 


0044 


32 6 22 


015450 


JSB GETCH 


FETCH NEXT CHARACTER 


0045 


32623 


115050 


JSB sErrS+6,1 


NONE FOUND 


0046 


32624 


015546 


JSB ySTCK 


CHECK FOR USING STATEMENT 


0047 


32625 


026652 


JMP MAT13 


NONE FOUND 


0048 


32626 


050367 


CPA ,*15B 


CARRIAGE RETURN ? 


0049 


32627 


124524 


JMP ACCSA,I 


YES 


0050 


32630 


007400 


CCB 


SEMI- 


0051 


32631 


015272 


JSB SYMCK 


COLON 


0052 


32632 


033365 


OEF SEMI-1 


follows? 


0053 


32633 


115104 


JSB SERRS+34, 


I NO 


0054 


32634 


015270 


MAT12 JSB SBPUD 


ADVANCE SYNTAX BUFFER POINTER 


0055 


32635 


015450 


JSB GETCR 


FETCH NEXT CHARACTER 


0056 


32636 


115050 


JSB SERRS+6,1 


NONE FOUND 
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0057 


32637 


17S574 


STA 


SBPTR,1 


save Character 


0058 


32640 


01555*3 


JSB 


PFSRH 


SEARCH FOR PRINT FUNCTION 


0059 


32641 


002001 


RSS 




FOUND 


0060 


32642 


015242 


JSB 


ARRID 


RECORD AN ARRAY 


0061 


32643 


05^367 


CPA 


,♦158 


CARRIAGE RETURN FOLLOWS? 


0062 


32644 


124524 


JMp 


ACCSA,I 


YES 


0063 


32645 


0074010 


CCB 




NO, 


0064 


32646 


015272 


JSB 


SYMCK 


COMMA? 


0065 


32647 


033363 


DEF 


COMMA-l 




0066 


32650 


115050 


JSB 


SERRS+6,1 


NO, LRROR 


0067 


32651 


026634 


JMP 


MAT12 


YES 


006a 


32652 


015502 


HAT13 JSB 


RECRF 


WRITE on ULE? 


0069 


32653 


026671 


JMP 


MATH 


NO 


0070 


32654 


050722 


CpA 


B73 


yes, ';• ? 


0071 


32655 


007401 


CCB, 


»RSS 


YES 


0072 


32656 


115050 


JSB 


SERRS*6,I 


NO 


0073 


32657 


075504 


STB 


FILRF 


NOTE 'FILE' MODE 


0074 


32660 


015242 


MAT10 JSB 


ARRID 


RECORD AN ARRAy 


0075 


32661 


050367 


CpA 


,♦158 


END OF STATEMENT? 


0076 


32662 


124524 


JMP 


ACCSA,I 


YES 


dQ77 


32663 


064350 


LOB 


• •2 


NO, DEMAND 


0078 


32664 


015272 


JSB 


SYMgK 


COMMA OR 


0079 


32665 


033363 


DEF 


COMMA-1 


SEMICOLON 


0080 


32666 


115050 


JSB 


SERRS+6,1 


NOT FOyND 


0081 


32667 


015450 


JSB 


getcr 


enq Of statement? 


0082 


32670 


026673 


JMP 


#♦3 


YES 


0083 


32671 


015452 


MATH JSB 


BCKSP 


NO 


0084 


32672 


026660 


JMP 


MAT10 




0085 


32673 


015270 


JSB 


8BPU0 


UPDATE POINTER 


0086 


32674 


035504 


ISZ 


FILRF 


'FILE' MODE'* 


0087 


32675 


124524 


JMP 


ACCsA,I 


NO 


0088 


32676 


115044 


JSB 


SERRS+2,1 


YES 


0089 


32677 


065574 


MATS3 LOB 


8BPTR 


SAVE ADDRESS 


0090 


32700 


K77457 


STB 


ARYAD 


OF ARRAY OPERAND 


0091 


32701 


061614 


LOA 


TEMp+1 


RECORD 


0092 


32702 


171517 


STA 


SSTAK,I 


AND SAVE 


0093 


32703 


064430 


LOB 


,♦46 


THE ArrAY 


0094 


32704 


015260 


JSB 


STROP 


IDENTIFIER 


0095 


32705 


0616|5 


LOA 


TEMP*2 


RETRIEVE 


0096 


32706 


007400 


CCB 




NEXT CHARACTER 


0097 


32707 


015272 


JS B 


SYMqK 


AND TES1 FOR 


0098 


327J0 


0334J5 


OEF 


ASSOP-1 


ASSIGNMENT OPERATOR 


0099 


32711 


115045 


JSB 


SERRS*3'I 


NOT FOUND 


0100 


32712 


015256 


JSB 


LTR 


LETTER NEXT? 


0101 


32713 


026763 


JMP 


MATS5 


NO 


0102 


32714 


015266 


JSB 


LETCK 


Y E3, ANOTHER LETTER? 


0103 


32715 


026773 


JMP 


MATS6 


NO 


0104 


32716 


035574 


ISZ 


SBPTR 


YES, 


0105 


32717 


001727 


ALF, 


,ALF 


CONCATENATE 


0106 


32720 


031614 


ICR 


TEMP+1 


LETTERS 


0107 


32721 


171574 


STA 


SBPTR, I 


AND 


0108 


32722 


063442 


LOA 


MAyFN 


SEARCH FOR 


0109 


32723 


064345 


L OB 


.-5 


AN ARRAY 


0110 


32724 


015246 


JSB 


TBSRH 


FUNCTION 


0111 


32?25 


115051 


JSB 


SERRS+7,1 


NONE FOUND 
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19112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
l2 8 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
014 7 
0148 
0149 
0150 
0151 

"152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 



32726 
32727 
32730 
32731 
32732 
32733 
32734 
32735 
32736 
32737 
32740 
32741 
32742 
32743 
32744 
32745 
32746 
32747 
32750 
32751 
32752 
32753 
32754 
32755 
32756 
32757 
32760 
32761 
32762 
32763 
32764 
32765 
32766 
32767 
32770 
32 77 1 
32772 
32773 
32774 
32775 
32776 
32777 
33000 
33001 
33002 
33003 
33004 
33005 
33006 
33007 
33010 
33011 
33012 
33013 
33014 



001727 
001723 
030672 
007400 
045574 
130001 
170001 
010502 
043744 
002021 
026750 
015450 
124524 
006404 
077445 
015232 
115047 
026037 
002003 
171617 
015450 
115070 
015252 
015242 
015254 
065614 
155617 
115065 
026037 
015452 
015250 
007400 
015272 
033423 
115066 
015242 
026037 
061614 
064430 
015260 
06i6t5 
050367 
124524 
064347 
015272 
033417 
U5067 
006400 
050632 
027022 

075621 
015242 

071615 
035621 

027020 



MATS4 



MAT35 



MATS6 



MATS7 



ALF,ALF 


FOUND, 


aUF,RaR 


CONVERT 


IQR PDFFL 


TO OPERAND 


CCB 


CoMBI N E 


AOB sbptr 


WITH 


IOr 1,1 


OPERATOR 


sta 1,1 


AnD record 


AND B777 


•JNV 


ADA D577 


OR 


SSA,RSS 


»trn» ? 


JMP MATS4 


YES 


jSB GETCR 


no, end of statement? 


JMP ACCSA,I 


YES 


CtB,INB 


NO, TURN ON 


STB OFLAG 


•MATRIX SUBSCRIPT' MODE 


J8B SB8CK 


DEMAND SUBSCRIPT 


JSB SERRS+5,1 


I NONE FOUND 


JMP EOST 


DEMAND END OF STATEMENT 


3ZA,RS3 


allow inversion 


STA SSTAK,I 


INTO SELF 


JSb getcr 


DEMAND 


JSB SERRS+22, 


I LEFT 


JSB LPCK 


PARENTHESIS 


JSB ARRIO 


DEMANp ARRAY 


JSb rpck 


DEMAND RIGHT P A RENTHtSIS 


LOB TEMP+1 


SAME SOURCE AND 


CPB SSTAK,I 


DESTINATION ARRAYS? 


JSB SERRS+19, 


I y£s 


JMP EOST 


NO, DEMAND END OF STATMENT 


J8B BCK3P 


BACK gP AND 


JSB GETPF 


DEMAND PAKeNTHESIZtQ FORMULA 


CCB 


SEEK 


JSB SYMCK 




OEF TlMES-1 


• *l 


JSB SERRS+20, 


I NOT FOUND 


JSB ARRID 


DEMAND ARRAY 


JMP EOST 


DEMAND END OF STATEMENT 


UDA TEMP+i 


RECORD 


LOB ,+46 


ARRAY 


JSB STROP 


OPgRAND 


LOA TEMP+2 


END UF 


CPA ,*15B 


STATEMENT/ 


JMP ACC3A,I 


YE8 


LOB •"S 


NO, SEEK 


JSB SYMCK 




DEF PLyS*! 


OR «*» 


JSB SERRS+21, 


I NOT FOUND 


CLB 


SET 1*1 FLAG TO FALSE 


CPA MULOP 


'*» ? 


JMP MATS9 


YES 


STB PFLAG 


NO 


JSB ARRID 


DEMAND ARRAY 


STA TEMP+2 


SAVE CHARACTER 


ISZ PFLAG 


t*t ? 


JMp MATS8 


No 
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0167 

0l6» 
0169 
0170 
0171 
0172 
0173 
0174 
0j75 
0176 



33015 
33016 
33017 
33020 
33021 
33022 
33023 
33024 
33025 
33026 



061614 

I5i6l7 
115065 
061615 
026037 
007400 
061614 
151617 
115065 
027010 



MATSa 
MATS9 



LDA 
CPA 
J38 
LOA 
JMP 
CC8 
LOA 
CPA 
JSB 
JMP 



TEMP*! YES# DOES ARRAY 
S8TAK,I MATCH LEFT-HAND SIPE? 
SErrs*19,I YES 

TEHP*2 NO, RETRIEVE CHARACTER 
EOSj DEMAND END OF S T AtEMEN T 

SET '*' FLAG To TRUE 
TEMP+l DOES ARRAY 
SSTAK,I MATCH LEFT-HAND SIDE? 
SERRS*i9,I 
MATS7 NO 
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0178* 

0179* 

0180* 

0161* 

0182* 

0183* 

0184* 

0185* 

0186* 

0187* 

0188* 

0189* 

0190* 

0191* 

0192* 

0193* 

0194* 

0195* 

0195* 

tol97* 

0198* 

0199 

0200 

0201 

0202 

0203 

0204 

0205* 

0206* 

0207* 

0206 

0209 

0210 

0211 

0212 

0213* 
0214* 

0215* 

0216* 

0217 

0218 

0219 

0220 

0221 

0222 

0223* 

0224* 

0225* 

0226* 

0227 

0228 

0229 

0230 

0231 

0232 



** ** 

* <FORMULA> SYNTAX CHECKER ** 

** ## 



FSC ANALYZES THE INPUT STRING UNDER THE ASSUMPTION 
THAT A LEGITIMATE FORMULA IS THERE, EXIT TO ERROR ON 
UNRECOGNIZABLE OR OBVIOUSLY INCORRECT INPUT, EXIT TO 
(P+l) WHEN CONjINuEO INPUT CANNOT BE A PART OF yHE 

formula ano the input scanned so par forms a complete 

FORMULA IN ITSELF (I.E., ... A* B TO ,., EXITS AFTER 
THE '8'). ON EXIT (A) HOLDS THE FIRS! CHARACTER NOT 
PARSED INTO THE FORMULA* (B) ■ 0, AND SBPTR,I » 
CEND-OF-FORMULA OPERATOR), DURING THE FORMULA PARSE, 
SSTAK,I HOLDS THE COUNT OF UNMATCHED LEFT PARENTHESES, 
IK THE FIR3T SYMBOL ENCOUNTERED IS A STRING VARIABLE, 
EXIT TO ERROR IF IT IS NOT ENABLED ELSE RECORD ThE 

variable a nd any following subscript a nd exit to cp+u 
kith the next character in (a), (b) * *l, and sflag « -1, 



33027 
33030 
33031 
33032 
33033 
33034 



002400 
171617 
060355 
071402 
003400 
073455 



#FSC 



FSC1 



CLA 
STA 
LDA 
STA 
CCA 
STA 



SSTAK,I 

.♦3 

MAXCR 

UFLAG 

* 



* LOOK FOR AN OPERAND 



** 

* 



33035 
33036 
33037 

33040 
33041 



015240 
027142 
027242 
015266 
027245 



FSC2 



J8B 

JMP 
JMP 
J36 
JMP 



VAROP 

FSC7 

FSC13. 

LETCK 

FSC13 



SET LEFT PARENTHESIS 

COUNT TO ZERO 
SET MULTICHARACTER SEARCH 

TO MAXIMUM OF 3 CHARACTERS 

ENABLE 

UNARY OPERATORS 



SEEK VARIABLE OPERAND 

FIRST CHARACTER NOT A LETTER 

SUBSCRIPTED OR STRING VARIABLE 

SIMPLE VARIABLE. LETTER NEXT? 

NO 



* DOES »AND», tORt, iMAX', OR 

* A SIMPLE VARIABLE? 



•MINI FOLLOW ** 



** 



33^42 
33043 
33044 
33^45 
33046 
33047 



064346 
171574 
060470 
015246 
002001 
027137 



SEE IF OPERAND IS 
THAN A SIMPLE Vi 



33050 
33051 
33052 
33053 
33054 
33055 



061615 
001727 
031614 
053375 
027104 
171574 



LDB ,»4 




STA SBPTR,I 


SEARCH FOR 


LDA MCBOP 


'AND', 'OR', 


JSB TBSRH 


'MAX', AND 


RSS 


NONE FOUND 


JMP FSC6 


FOUND 


A FUNCTION 


w 

RATHER ** 


RIABLE, 


** 


LDA TEMP+2 


w 


ALF, ALF 


WERE 


IOR TEMP*! 


TWO LETTER8 


CPA FN 


'FN' V 


JMP FSC4 


YES 


STA SBPTR,I 


NO, 



'MIN' 
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0233 


33056 


060754 


IDA 


PDFNS 


PREDEFINED 




0234 


33057 


064333 


L D8 


,-15 






0235 


33060 


015246 


JSB 


TBSRH 






0236 


33061 


027202 


JMP 


fsch 


NO 




0237 


33062 


001727 


ALF, 


palf 


YES, 




0238 


33063 


001723 


ALF, 


,RAR 


BUILD 




0239 


33064 


030672 


IOR 


PDFFL 


name 




0240 


33065 


071614 


F8C3 8TA 


TEMP+1 


save function 




0241 


33066 


007400 


CCS 




RETRIEVE 




0242 


33067 


045574 


A08 


SBPTR 


PREVIOUS 




0243 


33070 


075574 


STB 


SBPTR 


OPERATOR* 




0244 


33071 


160001 


LUA 


1,1 


OpERAND 




0245 


33072 


010664 


AND 


OPMSK 


REPLACE 




0246 


33073 


031614 


IOR 


TEMP*! 


OPERAND 




0247 


33074 


171574 


STA 


SBPTR,! 


WITH FUNCTION 




0248 


33075 


061614 


LD* 


TEMP+1 






0249 


33076 


053737 


cpa 


LENCN 


'LEN' ? 




0250 


33077 


027U4 


JMP 


FSC0 


YES 




0251 


33100 


064341 


LDB 


.- 9 


NO, TURN OFF 




0252 


33101 


077447 


3TB 


MSFLG 


'MULTIPLE STORE' MODE 




0253 


33102 


015250 


JSB 


GETPF 


OEMAND PARENTHSIZED 




0254 


33103 


027245 


JMP 


FSC13 


Formula 




0255 


33104 


015450 


FSC4 JSB 


GETCR 


does 




0256 


33105 


115051 


JSB 


SERRS+7/I 


LETTER 




0257 


33106 


015266 


JSB 


letck 


Follow? 




0258 


33107 


115051 


JSB 


3ERRS*7,I 


no 




0259 


33110 


040610 


ADA 


D100 


YESr 




0260 


33111 


001700 


ALF 




BUILD 




"261 


33H2 


040371 


ADA 


.M7B 
FSC3 


FUNCTION 




0262 


33113 


027065 


JMP 


NAME 




0263 


33114 


035574 


FSC0 IS2 


SBPTR 


MOVE TO CORRECT PROGRAM 


WORD 


0264 


33115 


015450 


JSB 


GETCR 


RECORD 




0265 


33116 


115070 


JSB 


SERRS+22, 


I LEFT 




0266 


33117 


015252 


JSB 


LPCK 


PARENTHESIS 




0267 


33120 


015256 


JSB 


LTR 


LETTER NE*T? 




0268 


33121 


115072 


JSB 


SERRS+24, 


I NO 




0269 


33122 


050416 


CPA 


f +44B 


YES, FOLLOWED BY 'S» ? 




0270 


33123 


002001 


R3S 




YES 




0271 


33124 


1150 7 2 


JSB 


SERRS+24, 


I NO 




0272 


33125 


061614 


LDA 


TEMP*1 


RECORD 




0273 


33126 


064425 


LDB 


,♦538 


STRING 




0274 


33127 


015260 


JSB 


STROP 


VARIABLE 




0275 


33130 


015450 


JSB 


GETCR 


RECORD 




0276 


33131 


11507! 


JSB 


SERRS+23, 


I RIGHT 




0277 


33132 


015254 


JSB 


RPCK 


PARENTHESIS 




0278 


33133 


027162 


JMP 


FSC8 






0279* 








* 






0280** CHECK FOR LEFT PARENTHESIS ** 






0281* 








* 






0282 


33134 


060624 


FSC5 UDA 


LPOP 


RECORD 




0283 


33135 


171574 


STA 


SBPTR, I 


A ' (» 




0804 


33136 


135617 


IS* 


33TAK,I 


COUNT IT 




*>285 


33137 


064341 


FSC6 LDB 


,"9 


TURN OFF 




0286 


33140 


077447 


StB 


MSFLG 


•multiple s t ore» 




0287 


33141 


027033 


JMP 


fsci 


mode 
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0288 

0289 

0290 

0291 

0292 

0293* 

0294* 

0295* 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310* 

0311* 

0312* 

0313 

0314 

0315 
0316 
0317 
0318 
031 9 
0320 
0321 
0322 
0323 

0324 
0325 

0326* 

0327* 

0328* 

0329* 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 



33142 *>15270 FSC7 JS8 S8PUD UPDATE POINTED 

33143 050422 CPA ,+40 'C« ? 

33144 027134 JMP F3C5 YES 

33145 053745 CPA B133 NO, «[' ? 

33146 027134 JMP t-SC5 YES 

* 
* CHECK FOR A NUMBER ** 

* 

33W7 006400 Cl.8 SET «♦' 

33150 075266 STB SlG N AS SIGn 

33151 015276 J3B NUMCK SEEK A NUMBER 

33152 027165 JMP FSC9 NOT FOUND 

33153 115060 JSB SERRS+14,1 BAD EXPONENT 

33154 065574 LDB 38PTR RETRIEVE 

33155 044347 ADB ,-3 PRECEDING 

33156 160001 L DA 1,1 OPERATOR 

33157 031036 10R FLGBT SET FLAG TO SAY 

33160 170001 sta i,i number follows 

33161 061614 IOA TEMP+1 RETRItVE cHARA C TER 

33162 064341 FSC8 LDB ,-9 TURN OFF 

33163 077447 STB MSFLG 'MULTIPLE STORE' 

33164 027245 JMP FSC13 MODE 

* 

** 

* 

UFLAG UNAKY OPERATORS PERMITTED? 

SERRS+25,1 NO 

UNMNC YES LOAD UNARY MINUS OPCODE 

,♦43 »♦« ? 

* + 4 YES 

,♦45 NO, '-' ? 

*+3 YES 

S ERRs*25,I NO 

UnPl c CONVERT (B) To UnARY '♦» OPCODE 

SBPTR, I RECORD UNARy OPERATOR 

,-9 TURN OFF 

MSFLG 'MULTIPLE SiORE' 

FSC2 MODE 

* 
'NOT' RATHER THAN ** 

** 



* CHECK FOR A UNARY OPERATOR 



33165 

33166 
33167 
33170 
33171 
33172 
33173 
33174 
33175 
33176 
33177 

33200 
33201 

' CHE'C 
A 

33202 
33203 
33204 
33205 
33206 
33207 

33210 
33211 
33212 
33213 
33214 
33215 
33216 



037455 
1150 7 3 

067372 
050425 
027175 
050427 
027176 
115073 
067373 
175574 
064341 
077447 
027035 

K POSSI 
SIMPLE 

037455 
027276 
161574 
001727 
171574 

060474 
007400 
015246 
027276 
171574 
007400 
045574 
160001 



FSC9 IS2 
JSB 
LDB 
CPA 
JMP 

CPA 
JMP 
JsB 
L OB 
STB 
FsClH LDB 
STB 
JMP 

BILITY UF 
VARIABLE 

FSCll ISZ 
JMP 
LDA 
ALF 
STA 
LDA 
CCB 
JSB 
JMP 
STA 
CCB 
ADB 

L" A 



UFLAG 
FSC14-1 
SBPTR,I 
ALF 
'SBPTR,! 
ANUT 

TBSRH 
FSC14-1 
SBPTR, I 

SBPTR 
1,1 



'NO! 1 

NO 

YES 



SEEK 



PERMITTED? 



'NOT' 
'NOT' NOT 
FOUND 
ERASE 

SPURIOUS 



FOUND 
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0343 


33217 


010664 


AND 


OPM5K 




3344 


33220 


170001 


STA 


M 


OPERAND 


0345 


33221 


027177 


JMP 


FSC10 




0346* 








* 




0347** CHECK FOR RIGHT PARENTHESIS ** 




0346* 








* 




0349 


33222 


064350 


FSC12 LDB 


.-2 


»)' 


0350 


33223 


015272 


JSB 


SYMCK 


OR 


0351 


33224 


033377 


DEF 


RPARN^l 


»} 1 ? 


0352 


33225 


027277 


JMp 


FSC14 


NO 


0353 


33226 


060616 


LDA 


RPOP 


YES, 


0354 


33227 


171574 


STA 


3BPTR,I 


RECORD i)» 


0355 


33230 


060423 


LOA 


.♦41 


RETRIEVE «)' 


0356 


33231 


007400 


CCB 




MATCHING 


0357 


33232 


145617 


AOB 


3STAK,I 


LEFT 


0358 


33233 


006020 


SSB 




PARENTHESIS? 


0359 


33234 


027277 


JMP 


FSC14 


NO 


0360 


33235 


175617 


STB 


SSTAK,i 


YES 


0361 


33236 


015270 


JSB 


SBPUD 


UPDATE POINTER 


0362 


33237 


015450 


JSB 


getcr 


FETCH NEXT 


03^3 


33240 


027277 


JMP 


F3C14 


CHARACTER 


0364 


33241 


027245 


JMP 


FSC13 




0365* 








* 




0366** CHECK FOR A 


BINARY OPERATOR ** 




0367* 








* 




0368 


33242 


007400 


CCB 




STRING VARIABLE 


0369 


33243 


057453 


CP8 


3F|.AG 


JUST FOUND? 


0370 


33244 


125230 


JMP 


FSC,I 


YE3 


0371 


3324 S 


050367 


FSC13 CPA 


#♦158 


NO, END Of- STATEMENT? 


0372 


33246 


027277 


JMP 


FSC14 


YES 


0373 


33247 


073455 


STA 


UFLAG 


NO, DISABLE UNARY OpERATORS 


0374 


33250 


071614 


STA 


TEMP+1 


SAVE CHARACTER 


0375 


33251 


064343 


LDB 


.*7 


SEARCH 


0376 


33252 


171574 


ST A 


sbptr#i 


FOR A 


0377 


33253 


060470 


LDA 


mcbop 


mul t iCharacter 


0378 


33234 


0l5 2 46 


JSB 


tbsrh 


BINARY OPERATOR 


0379 


33255 


002001 


R3S 




NONE FOUND 


0360 


33256 


027137 


JMP 


F3C6 


FOUND 


0381 


332 57 


06*6*4 


LDA 


TEMP*! 


NO, RECOVER A CHARACTER 


0382 


33260 


067447 


LDB 


MSFLG 


SINGLE 


0383 


33261 


015272 


JSB 


SYMCK 


Character 


W38 4 


332e2 


033 4 17 


DEF 


PLUS-1 


BINARY OPERATOR? 


0385 


33263 


027267 


JMP 


**4 


NO 


0386 


33264 


053742 


CpA 


EXpOp 


YES, 't» ? 


0387 


33265 


027177 


JMP 


FSC10 


YES 


0388 


33266 


027137 


JMP 


FSC6 


NO 


0389 


33267 


007400 


CCB 




ASSIGnmF-NT 


0390 


33270 


016272 


JSB 


SYMCK 




0391 


33271 


033415 


DEF 


ASSOP-1 


OPERATOR? 


0392 


33272 


027222 


JMP 


FSC12 


NO 


0393 


33273 


060350 


LDA 


t»»2 


YES, SET FLAG 


0394 


33274 


073453 


SyA 


SFLAG 


TO SAY 


0395 


33275 


027033 


JMP 


FSC1 


STORE OCCURRED 
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0397* 

039B* 
0399* 

0400 

0401 

0402 

0403 

0404 

0405 

0406* 

0407* 

0406* 

0409* 

4 10+ 

0411* 

0412* 

0413* 

0414* 

0415 

0416 

0417 

0418 

04l9 

0420 

0421 
0422 

0423 
0424 
0425 
0426 
0427 
042a 
0429 
0430 
0431 
0432 
0433 
0434 
0435 

0436 

0437 

0436 

0439 

0440* 

0441* 

0442* 

0443* 

0444* 

0445* 

0446 

0447 

044b 

0449 

0450 

0451 



* END OF FORMULA 



* 
* 



33276 061615 LDA TEMP+2 

33277 006400 FSC14 CUB 

33300 175574 STB 

33301 155617 CPB 

33302 125230 JMP 

33303 115071 JSB 
* 

** SAVE LOCAL VARIABLES OF FSC 



SBPTR, I 
SSTAK,! 

FSC, I 
SERRS+23,1 



RETRIEVE CHARACTER 
RECORD 

END-OF-FORMULA 
ALL LEFT PARENTHESES MATCHED? 
YES 

NO 



*** 



Saving msflg, uflag, varop, getpf, and fsc makes fsc 
re-entrant subroutine, they are saved on the syntax 
stack below the active syntax buffer, on entry (b) 

CONTAINS THE NUMBEr OF WORDS TU BE SAVED, 



33304 
33305 
33306 
33307 
33310 
33311 
33312 
33313 

333U 
33315 
33316 
33317 
33320 
33321 
33322 
33323 
33324 
33325 
3332 6 
33327 
33330 

33331 
33332 
33333 
33334 



035617 
045617 
007000 
044462 
00g020 
115042 
067447 
175617 
035617 
067455 
175617 
035617 
065240 
175617 
035617 
065250 
175617 
0356l 7 
6 5230 
175617 
035617 

003400 
043453 
073453 
125234 



#FRCR 



* 
* 



RESTORE FSC 



INVERSE OF FRCUR. 



33335 
33336 
33337 
33340 
33341 
33342 



071614 
065617 
044344 
075617 

006004 
160001 



#FPOP 



ISz SSTAK 


SAVE PREVIOUS 1 (• COUNT 


ADB SSTAK 


SUFFICIENT 


CMB 


USER 


ADB LW A US 


SPACE 


ssa 


LEFT? 


JSB SERRS,I 


NO 


LDB MSFLC 


YES, SAVE 


STB SSTAK, 1 


'MuLTlpLE STORE' 


ISZ SSTAK 


FLAG 


LDB UFLAG 


SAVE 


STB SSTAK, I 


•UNARY OPERATOR' 


ISz SSTAK 


FLAG 


LDB yAROP 


SAyE 


STB SSTAK, I 


VAROP 


IS7 SSTAK 


RETURN ADDRESS 


LdB GETPF 


SAV E 


STB SSTAK,! 


GETPF 


ISZ SSTAK 


RETURN ADDRESS 


LDB FSC 


SAVE 


STB SSTAK, I 


FSC 


ISZ SSTAK 


RETURN ADDRESS 


CCA 


DISABLE 


AOA SFLAG 


SFLAG 


STA SFLAG 


VALUE 


JMP FRCUR, I 


A * 


VARIABLES 


*** 
** 


(A) IS SAVED 


BUT CB) IS NOT, 


STA TEMP*1 


SAVE (A) 


LOB SSTAK 


RESET 


ADB ,mb 


SYNTAX STACK 


STB SSTAK 


POINTER 


InB 


RESfuRE 


ldA 1,1 


•multiple store* 
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0452 

0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 

0461 
0462 

0463 

0464 
0465 



33343 
33344 
33345 
33346 
33347 
33350 
33351 

33352 
33353 
33354 
33355 
33356 
33357 
33360 
33361 



073447 

006004 
160001 
073455 
006004 
160001 
071240 
006004 
104200 
100001 
071250 
075230 

037453 
061614 

125236 



STa msflg 


Ft A 6 


INB 


RESTORE 


IDA 1,1 
STA UFLAG 


•UNARY OPERATOR' 


FLAG 


INB 


RESTORE 


LOA 1,1 


VAROP 


STA VARQP 


RETURN ADORESS 


INB 




OLD 1,1 


RESTORE GETPF 


STA CETPF 


RETURN ADDRESS AND 


STB FSC 


FSC RETURN ADDRESS 


132 SFLAG 


RESTORE SFLAG VALUE 


IDA TEMP+1 


RESTORE (A) 


JMP FPOP»I 





0467* 
0468* 
0469* 
0470* 
047l* 
0472* 
0473* 
0474* 
0475* 
0476* 

0477 
0476 
0479 
0480 
0481 

0482 
0483 
0464 
0485 
0486 
0487 
0466 
0489 

0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 



* ** 
** SINGLE CHARACTER AND/OR FORMULA OPERATORS *** 

* ** 

BITS j5.9 OF THE OCTAL WORD ARE THE OPERATOR CODE, 
BITS 3,0 ARE THE PRECEDENCE FOR FORMULA OPERATORS, 



THE ASCII WqrD IS USED 
INPUT ANo TO PROVloE The 
ORDERING OF THE TABLE F 



33362 
33363 
33364 
33365 
33366 
33367 
33370 
33371 
33372 

33373 
33374 
33375 
33376 
33377 
33400 
33401 
33402 

33403 
334^4 
33405 
33406 
33407 
33410 
33411 
33412 
33413 
33414 
33415 



001000 
021040 
002000 
026040 
003000 
035440 
004000 
021440 
015000 
014000 
011000 
047106 
052117 
0475^6 
010001 
024440 
011001 
056440 
012013 
055440 
013013 
024040 
014011 

025440 
018011 

026440 
016002 
026040 



QUgTE 

COMMA 

SEMI 

HATCH 

UNMNC 

UNPLC 

RBOP 

FN 

TO 

OF 

RPARN 



LBRAC 



SCMMA 



OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
OCT 
OCT 
ASC 
ASC 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
AsC 
OCT 
ASC 
OCT 
ASC 



rECog n ize the operator ON 

PRINT NAME ON OUTPUT. THE 
CILITATE3 SEARCHING, 



000 

n 
r 

2000 

1 1 
3000 

,} 

4000 

f* 
5000 

4000 

1000 

, NF 

#TO 

,QF 

0001 

t) 

1001 

,1 

2013 

, ( 
3013 

/( 
4011 

f* 
0011 

r m 
6002 



STRING DELIMITER 
COMMA 
SEMICOLON 
HATCH SIGN 



right parenthesis 
right bracket 
left bracket 
lefi parenthesis 
unary plus 

unary minus 
subscript separator 
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0505 


33416 


017002 


ASSOP 


OCT 


17002 


ASSIGNMENT OPERATOR 


0506 


33417 


036440 




ASC 


1#" 




fc35k)7 


33420 


020007 


PLUS 


OCT 


20007 


ADDITION 


0508 


33421 


025440 




ASC 


!'♦ 




0509 


33422 


021007 




OCT 


21007 


SUBTRACTION 


0510 


33423 


026440 




ASC 


If 




0511 


33424 


022010 


TIMES 


OCT 


22010 


MULTIPLICATION 


0512 


33425 


025040 




ASC 


If* 




0513 


33426 


023010 




OCT 


23010 


DIVISION 


0514 


33427 


027440 




ASC 


If/ 




05l5 


33430 


0240J.2 




OCT 


24012 


EXPONENTIATION 


0516 


33431 


057040 




ASC 


l,t 




0517 


33432 


025005 


RELOS 


OCT 


25005 


GREATER THAM 


0518 


33433 


037040 




ASC 


lf> 




0519 


33434 


026005 




OCT 


26005 


LESS THAN 


0520 


33435 


036040 




ASC 


X>< 




0521 


33436 


027005 




OCT 


27005 


UNEQUAL 


0522 


33437 


021440 




ASC 


tr# 




0523 


33440 


030005 




OCT 


30005 


EOUAL 


0524 


33441 


036440 




ASC 


If" 




0525 


33442 


053572 


MATFN 


DEF 


MATFS 




0526 


33443 


053431 


MATlO 


OEF 


IQSTS 




0527 


33444 


032064 




OCT 


32004 


AND 


052S 


33445 


000000 


DFIAG 


NOP 






0529 


33446 


033003 




OCT 


33003 


OR 


0530 


33447 


000000 


MSf-U 


NOP 






0531 


33450 


034006 




OCT 


340^6 


MINIMUM 


0532 


33451 


053420 


At N D 


OEF 


eqFqp 




0533 


33452 


035006 




OCT 


35006 


MAXIMUM 


0534 


33453 


000000 


SFUG 


NOP 






0535 


33454 


036005 




OCT 


360i<)5 


UNEQUAL 


0536 


33455 


000000 


UFUG 


NOP 






0537 


33456 


M37005 




OCT 


37005 


greater than ur e u ual 


W538 


33457 


000000 


ahyad 


NOP 






0539 


33460 


040005 




OCT 


40005 


less taan or £qua l 


0540 


33461 


*)5350i 


ASTfcP 


DEF 


STEP 




0541 


33462 


041011 




OCT 


41011 


NO! 
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0003** 

0004** 

0005** 

0006* 

0007* 

0006* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

0018* 
0019* 
0020* 
0021* 
0022* 
0023* 

0024* 

0025* 

0026* 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
004g 
0047 
004g 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 



** 
, SUBSCRIPT SYNTAX *** 

** 

S0SCK ASSUMES A PRIOR ARRAY OPERAND REFERENCED THROUGH 
THE POINTER ARYAD, ENTRY IS MADE WITH A CHARACTER IN 
(A)| EXIT TO (P*l) IF T HIs CHARACTER 1$ NU| '(« OR »£'# 
OTHERWISE ANALYZE THE SUBSCRIPT WHICH MUST FOLLOW, 
EXITING TO (P + 2), S&SqK HANdLES BOTH SINGLE ANq dOUBLe 
SUBSCRIPTS, IF OFLAG.0 THE SUBSCRIPT IS FROH A 
<UIM STATEMENT* AND THE BOUNDS MUST BE POSITIVE 
INTEGERS, IF DFLAGfl THE SUBSCRIPT R£. DIMENSIONS A 
MATRIX AND A CgMMA SEPARATES THE TWq BqUNDS F A 
DOUBLE SUBSCRIPT AND AN END-OF-FORMULA QPERAtOR 
FOLLOWS THE LaST BOUND, OTHERWISE A 'SUBSCRIPT' 
COMMA SEPARATES THE TWO PARTS OF A DOUBLE SUBSCRIPT 
AND NO END»QF„FORMULA OPERATOR APPEARS, IN ALL CASES, 
THE ARRAY qpERANO iS MARKED AS qHI» R TWq'DIMENSIoNAL, 
X F T H E 3UBSCRiPT BELONGS TO A STRjNG VARiABlE jN A 

<dim statement*, it must have one a n d only one bound 

consisting of a positive integer not larger than 72, 

in this case aryad holds a dummy pointer since string 

variables are not marked with dimensionality, 



33463 
33464 
33465 
33466 
33467 
33470 
33471 
33472 

33473 
33474 
33475 
33476 
33477 
33500 
33501 
33502 

33503 
33504 

33505 
3350 6 
33507 
33510 
33511 
33512 
33513 
33514 
33515 
33516 
33517 
33520 
33521 



064350 
015272 
033403 
125232 
035232 
163457 

040350 
173457 
060622 
171574 
037445 
006404 
057445 
027574 
064361 
015234 
065232 
175617 
035617 
0^7457 
175617 
035617 

060341 
073447 

015230 
007400 
045617 
075617 
164001 
077457 
067445 



#SBCK LDB 
J3B 
DEF 
JMP 
ISZ 
LDA 
ADA 
S T A 
LDA 
STA 
I3Z 
CLB, 
CPB 
JMP 
LDB 
J 3 B 
LDB 
STB 
IS Z 
LDB 
STB 
ISZ 
LDA 
STA 
JSB 
CCB 
ADB 
STB 
LDB 
ST B 
LDB 



t-2 

SYMCK 

LBRACwl 

S6SCK,I 

SBSCK 

ARYAD, I 

• *2 
ARyAD,I 

LBOP 

SBPTR,I 

DFLAG 

INB 

DFLAG 

SBSC5 

,♦7 

FrCur 

SBSCK 

SSTAK,I 

SSTAK 

ARYAD 

SSTAK, I 

SSTAK 

,*»9 

MSFLG 

FSC 

SSTAK 
SSTAK 
If I 

aRVad 
dflag 



'(' 

OR 

NO, RETURN TO (P+l) 
YES, SET RETURN TO (P*2) 
SET 

ARRAY TO 

SINGLE DIMENSION 
RECORD 

» H 
BUMP MAGIC FLAG 
DIM 

STATEMENT'* 
YES 
NO, SAyE FSC 

LOCAL VARIABLES 
SAVE 

RETURN 
ADDRESS 
SAVE ARRAY 

REFERENCE 
RESERVE SPACE FOR '(' COUNT 
TURN OFF 'STORE 

ALLOWED* MODE 
OEMANO SUBSCRIPT 
RESTORE 

ARRAY 

REFERENCE 
'MATRIX SUBSCRIPT' 
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0056 


33522 


H54354 


CPB 


.♦2 


MOOE? 


0059 


33523 


027567 


JMP 


SBSC4 


YES 


0060 


33524 


007400 


SB3C1 CCB 




NO, SEEK 


0061 


33525 


015272 


JSB 


SYMCK 


'SUBSCRIPT' 


0062 


33526 


033413 


DEF 


SCMMA-1 


Comma 


0063 


33527 


027537 


JMP 


SBSC3+1 


NONE FOUND 


0064 


33530 


137457 


I3Z 


ARYADfl 


SET ARRAY AS DOUBLY-SUBSCRIPTED 


0065 


33531 


006404 


CLB, 


-INB 


DIM 


0066 


33532 


057445 


CPB 


OFLAG 


STATEMENT? 


0067 


33533 


1027536 


JMP 


SBSC3 


YES 


0066 


33534 


015230 


JSB 


fsc 


no, Demand second subscript 


0069 


33535 


002001 


H8S 






0070 


33536 


015244 


SBSC3 JSB 


PRGIN 


DEMAND SECOND BOUND 


0071 


33537 


007400 


CCB 




RESTORE 


0072 


3354fc5 


047445 


AOB 


DFt,AG 


ORIGINAL 


0073 


33541 


077445 


STB 


DFLAG 


DFLAG VALUE 


0074 


33542 


054353 


CPB 


.♦1 


•MATRIX SUBSCRIPT' MUOE? 


0075 


33543 


015270 


JSB 


SBPuO 


YES 


63076 


33544 


064350 


LOB 


t "* 


DEMA N D 


m77 


33545 


015272 


JSb 


SYMQK 


»; ' or 


0078 


33546 


033377 


DEF 


rpahn-i 


•J • 


0079 


33547 


115W71 


JSB 


SERRS+23, 


I NOT FOyND 


0060 


33550 


6)63374 


U OA 


RBQP 


RECQRD 


0081 


33551 


1715/4 


STA 


SBPTR,I 


n ♦ 


0082 


33552 


015270 


JSB 


SBPUO 


UPDATE POINTER 


0083 


33553 


015450 


JSB 


GETCR 


FETCH N£XT 


0064 


33554 


000000 


NOP 




CHARACTER 


0085 


33555 


006400 


CLB 




DIM 


00g6 


33556 


057445 


CPB 


DFLAG 


STATEMENT? 


0087 


33557 


125232 


JMP 


SBSCK,I 


YES 


0086 


33560 


007400 


CCB 




NO, 


0089 


33561 


0456i7 


AOB 


SSTAK 


RESTORE 


00g0 


33562 


0766 1 7 


STB 


SSTAK 


THE 


0091 


33563 


1656 J 7 


LOB 


SSTAK, I 


RETURN 


0092 


33564 


075232 


STB 


S8SCK 


ADDRESS 


0093 


33565 


015236 


JSB 


fpop 


RESTORE fSC 


0094 


33566 


125232 


JMP 


S83CK,I 


LOCAL VARIABLES 


0095 


33567 


007400 


SB3C4 CCB 






0096 


33570 


015272 


JSB 


SYMCK 


COMMA? 


0097 


33571 


033363 


DEF 


COMMA«l 




0098 


33572 


027537 


JMP 


SBSC3+1 


NO 


0099 


33573 


027530 


JMP 


SBsCl+4 


YEs 


0100 


33574 


015244 


SBSC5 JSB 


PR&IN 


DEMAND DECLARED BOUND 


0101 


33575 


037453 


IS2 


SFLAG 


STRING VARIABLE? 


0102 


33576 


027524 


JMP 


SBSC1 


NO 


0103 


33577 


044752 


AOB 


M73 


yES, DOES BOUND 


0104 


33600 


006021 


SSb, 


,KSS 


EXCEED 72? 


0105 


33601 


116100 


JSB 


SERRS+30# 


I YES 


0106 


33602 


027537 


JMP 


SBSC3*1 


NO 
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0108* 

0109* 

0110* 

0111* 

0112* 

0113* 

0114* 

0115* 

0116 

0117 

0118 

0119 

0120* 

0121* 

0122* 

0123* 

0124* 

0125* 

1(3126* 

0127* 

0l2« 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150* 

0151* 

0152* 

0153* 

0154* 

0155* 

0156* 

0157* 

0158 

0159 

0160 

0161 

0162 



* 
** 

* 



RECORD ARRAY IDENTIFIER 



** 

*** 

** 



ARRAY IDENTIFIER LEFT IN T£MP*l, ARRAY OPERAND ADDRESS 



PUT 
AND 

33603 
33604 
33605 
33606 



IN 
IN 



ARYAD, 
(A), 



EXIT WITH FOLLOWING CHARACTER IN TEMP+2 



015256 
115074 
065242 
075339 



#ARID 



JS8 
J3B 
LD8 
STB 



** RECORD 

* 



LTK FETCH IDENTIFIER 
SERRS+26,1 NONE FOUND 
ARRID SET 
STRID EXIT 
** 
STRING IDENTIFIER *** 

** 



STRING IDENTIFIER LEFT IN TEMP+i, SFLAG SET TO „i. 
EXIT WITH FOLLOWING CHARACTER IN (A), EXIT TO ERROR 
IF A STRING VARIABLE I3 NOT PErMIttED IN 7HIS CONjEXTt 



33607 
33610 
33611 
33612 
33613 
33614 
33615 
33616 
33617 
33620 

33621 
33622 
33623 
33624 
33625 
33626 
33627 
33630 
33631 
33632 
33633 
33634 

* 

** RE 



#STRI 



STRI1 



050416 
027620 
061574 
073457 
061614 

064430 
015260 
061615 
125330 
063453 
051574 
003401 
116075 

073453 
061614 
064425 
015260 
061617 
073457 
015450 

000000 

125330 



CORD A STRING 



CPA ,+44B 
JMP STRIJ 
LDA SBPTR 
STA ARYAD 
LDA TEMP*1 
LOB f +56B 
JSB STROP 
LDA TEMP+2 
JMP STRlDrl 
LDA SFLAG 
CPA SBPTR 

CCA,RSS 

JSB SERRS*27 
SFLAG 
TEMP*1 
,*53B 
STROP 
SSTAK 
ARYAD 
GETCR 



STA 
LDA 
LDB 
JSB 
LDA 

STA 
JSB 

NOP 
JMP 



STRID, I 
** 

OPERAND *** 
** 



'$» ? 

YES 

NO, SET POINTER TO 

VARIABLE LOCATION 
RECORD 

ARRAY 

variable 
retrieve following 

CHARAqTER 
STRING VARIABLE 

PERMITTED? 
YES 
,1 NU 

SET FLAG TO 'STRING OCCURRED' 
RECORD 
SIRING 

VARIABLE 
SET POINTER TO DUMMY 

VARIABLE LOCATION 
FETCH 
NEXT 

CHARACTER 



DEMAND A STRING VARIABLE OR A STRING CONSTANT, EXIT 
TO ERROR IF NEITHER IS FOUND, ELSE EXIT WITH THE NEXT 
CHARACTER In (A), 



33635 061574 

33636 073453 

33637 015240 

33640 027644 

33641 037453 



#RSTQ LDA SBPTR 
STA SFLAG 
JSB VAROP 
JMP RSTOl 
ISZ SFLAG 



SEEK 

STRING 
OPERAND 
1ST CHARACTER NOT A LETTER 
STRING VARIABLE? 
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0163 

0164 

0165 

0166 

0167 

0168* 

0169* 

0170* 

0171* 

0172* 

0173* 

0174* 

0175* 

0176* 

0177* 

0178* 

0179* 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196* 

0197* 

0198* 

0199* 

0200* 

0201* 

0202* 

0203* 

0204* 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 



33642 115076 

33643 125332 

33644 015270 RSTQ1 

33645 015334 

33646 125332 
* 

** FETCH A STRING 
* 



JSB SERR8*28,I NU 



JMP RSTOP,I 
JSB SBPUD 
JSB gETST 
JMp RSTOp,I 

• * 
CONSTANT *** 

** 



YES 

DEMAND A 
STRING 

CONSTANT 



EXIT TO ERROR IF (A) # " UPON ENTRY, ELSE SAVE CURRENT 
BUFFER POINTER AND PACK THE INPUT STRING INTO THE BUFFER 
FOLLOWING THE INITIAL BUFFER WORD, EXIT TO ERROR IF NO 
CLO S ING « Ig FOyND, rECO h D THE OPENING " ALONG WITH A 
COUNT OF THE STRING CHARACTERS AND EXIT WITH THE NEXT 
CHARACTER IN (A), fXIT TO ERROR IF STRING EXCEEDS 
72 CHARACTERS, 



33647 
33650 
33651 
33652 
33653 
33654 
33655 
33656 
33657 
33660 
33661 
33662 
33663 
33664 
33665 
33666 



065574 
077457 
050414 
006401 
115076 
015262 
115077 
063362 
041614 
173457 
043743 
002021 
115100 
015450 
000000 
125334 



#GTST L.DB SBPTR 
STB ARYAO 
CPA a +42B 
CLB,RSS 
JSB SERRS+28 
jSB CHRST 
JSB SERRS+29 
LDA QUoTE 
ADA TEMP*1 
STA ARYAD,I 
ADA DlUl 

SS*,RSS 
JSB SERRS+30 
jSB GETCR 
NOP 



JMP 



* 
** 

* 



CHECK FOR USING STATEMENT 



GETST,I 

* 
** 



SAVE SYNTAX 

BUFFER POINTER 
« ? 

YES, SET CB) * 
,1 NO 

RECORD STRING CONSTANT 
,1 NO CLOSING QUOTE 
RECORD CHARACTER CoUnT 
ALONG WITH 

OPENING QUOTE 
MORE THAN 72, 

CHARACTERS? 
,1 YES 

NO, FETCH 

NEXT 

CHARACTER 

* 



** 



scan 

TO ( 

OTHE 

EXIT 

* TH 

33667 

33670 

33671 

33672 

33673 

33674 

33 6 75 
3367 b 
33677 
33700 
33701 

33702 
33703 



THE INP 

P+l) WIT 

RWISE, C 

TO (P+2 

E NEXT C 

171574 

060357 

071402 

007400 

063734 

015246 

«2772 5 

03554 6 

015256 

027712 

050416 
002001 
115104 



UT STRING F 
H THE INPUT 
HECK FOR A 
) AFjEr 3AV 
HARACTER, 
#USCK STA 
LDA 
STA 
CCB 
LDA 

JSB 
JHP 
ISZ 
JSB 
JHP 
CPA 
RS3 
JSB 



OR A USING OPERATOR, IF NONE FOUNO, EXIT 

STRING AND SYNTAX BUFFER AS UPON ENTRY, 

LEGAL OPERATOR FOLLOWING THE 1USING1 AND 

ing ij in the syntax buffer, with ia) 



SBPTR,I 
.♦6 

MAXCR 

US T MA 

TBSRH 

USCK3 

USTCK 

LTR 

USCKt 

,+44B 



(A) b NE X T CHARACTER 
5 CHARACTERS 

ALLOWED 
LOOK 
LOOK 

'USING' 
NUT FOUND 



NEXT CHARACTER LETTER? 
NO 

YES, •$• F0LL0W3? 
YES 
SERRS+34,1 NO 
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0218 


33704 


065574 




LOB 


SBPTR 


ENABLE STRING 


0219 


33705 


077453 




STB 


SFLAG 


VARIABLE 


0220 


33706 


015330 




JSg 


STRID 


STORE STRING 


0221 


33707 


015232 




JSB 


SBSCK 




0222 


33710 


000000 




NOP 






0223 


33711 


125546 




JMP 


USTCK,I 




0224 


33712 


0504U 


U8CK1 


CPA 


.♦428 


QUOTE? 


0225 


337J3 


027722 




JMP 


USCK2 


YES 


0226 


33714 


015452 




JSB 


BCKSP 


SEARCH 


0227 


33715 


007400 




CCB 




FOR 


0226 


33716 


075422 




STB 


GFLAG 


STATEMENT 


0229 


33717 


015244 




JSB 


PRGjN 


NUMBER 


0230 


337215 


125546 




JmP 


USTC K rI 


found one 


0231 


33721 


115104 




JSB 


SERRS*34, 


I NUT FOUND, ERROR 


0232 


33722 


015270 


USCK2 


JSB 


8BPUD 


ADVANCE BUFFER POINTER 


0233 


33723 


015334 




jSB 


GETST 


RECORD STRING CONTSTANT 


0234 


33724 


125546 




JMP 


USTCk,I 




0235 


33725 


007400 


UScK3 


CC B 




RESTORE 


0236 


33726 


045574 




ADB 


SBpTR 


BuFFEk 


0237 


33727 


075574 




STB 


SBPTR 


POINTER 


0236 


33730 


060355 




LDA 


,♦3 


reset For 


0239 


33731 


071402 




STA 


MAXCR 


,3 CHARACTERS 


0240 


33732 


015452 




JS B 


BCKSP 


RESTORE INPUT STRING 


0241 


33733 


125546 




JMP 


USTCK»I 
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fe)243 


33734 


053346 


UST*A 


DEF 


USTMT 


0244 


33735 


053342 


STTYP 


DEF 


STYPS 


13245 


33736 


053331 


MCREL. 


DEF 


MRELS 


0246 


33737 


100337 


UnCn 


OCT 


100337 


0247 


33740 


076000 


TUQP 


OCT 


76000 


024a 


33741 


063000 


INPOP 


OCT 


63000 


0249 


33742 


024000 


EXPOP 


OCT 


24000 


0250 


33743 


176667 


Dim 


OCT 


-1111 


0251 


33744 


177201 


0577 


OCT 


-577 


0252 


33745 


000133 


B133 


OCT 


133 
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0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262** 

0263** 

0264** 

0265* 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273* 

0274** 

0275** 

0276** 

0277* 

027a 

0279* 

0280** 

0281** 

0282** 

0283* 

0284 

0285 

0266 

0287 

0288** 

0289** 

0290** 

0291* 

0292 

0293 

0294 

0295 

0296 

0297 

0296 

0299 

0300 

0301* 

0302** 

0303** 

0304** 

0305* 

0306 

H3H7 

0308 



34000 ORG 340006 

34000 000133 86133 OCT 133 

34001 177645 D133 OCT »133 

34002 032051 DCOM0 OEF COMS0 

34003 033453 SF^GA OEF sFlAG 

34004 177725 D53 OCT «53 

34005 177631 H103 DEC «103 

34006 032037 EOSTA OEF EOST 

* ** 

SYNTAX ** 
** 



^RESTORE STATEMENT* 



34007 015450 RSTRS JSB GETCR 



34010 
34011 
34012 

34013 
34014 

34015 



026014 
015452 
015244 
126006 
035574 
124524 



RSTR1 



JMP 
JSB 
JSB 
JMP 
ISZ 
JMP 



RSTR1 

BCKSP 

PRGIN 

EOSTA, I 

SbPTR 

ACCsA,I 



* ** 
<FILES STATEMENT* SYNTAX ** 

* ** 

3 4 01 6 002 4 01 FILES CLA,RSS 

* ** 
<REM STATEMENT* SYNTAX ** 

* ** 



34017 6 03 6 7 

34020 006404 

34021 015262 

34022 124524 



REMS 



LDA ♦♦I5B 
CL6,INB 
JSB CHRST 
JMP ACCSA/I 



** 



<CMAIN STATEMENT* SYNTAX ** 

** 



34023 015332 

34024 007400 

34025 0152 7 2 

34026 033363 

34027 126006 

34030 006400 

34031 176003 

34032 015230 

34033 126006 



CHANS JSB RSTOP 
CCB 

JSB SYMCK 

DEF COMMA-* 

J M P EOSTA, I 
CLB 

STB SFLGA,I 

JSB FSC 

JMP EOSTA,! 



* ** 

<ENTER STATEMENT* SYNTAX ** 



** 



34034 015450 

34035 U5i05 

34036 035574 



ENTRS JSB GETCR 

JSB SERRS*35, 
ISZ SBPTR 



END OF STATEMENT? 

YES 

NO, DEMAND 

SEQUENCE NUMBER 
DEMAND END OF STATEMENT 
RECORD DUMMY OPERAND 



SUPPRESS BLANKS 



DUMMY STATEMENT TERMINATOR 
SET CHARACTER FLAG TO 'LOW HALF' 
RECORD REMAINDER OF STATEMENT 
AS A STRING 



ReQU£ST STRING OP£RAND 

COMMA FOLLOWS? 

A COMMA? 
N 0, 06MAN0 EnD-qF-STATEmEnT 
qISALLO* 

STRING VARIABLES 
GET A FORMULA FOR LINE NO, 
DEMAND END«.OF~STATEMENT 



FETCH FIRST CHARACTER 
I NONE FOUND 
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0309 
0310 
03U 
0312 
0313 
03U 
031s 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 

«332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

k)346 

0347* 

03*8* 

0349* 

0350* 

0351* 

0352 

0353* 

0354* 

0355* 

0356* 

0367* 

0358 

0359 

0360 

0361 

0362 

0363 



34037 
34040 
34041 
34«42 
34043 
34044 
34045 
34046 
34047 
34050 
34051 
34052 
34053 
34054 
34055 
34055 
34056 
34057 
34060 
34061 
34061 
34062 
34063 
34064 
34065 
34066 
34067 
34070 
34071 
34072 
34073 
34074 
34075 
340 76 
34077 
34100 
34101 
34102 



007400 
015272 
033367 
026055 
015240 
115105 
000000 
050367 
026307 
007400 
015272 
033363 
115050 
026061 

015452 
007400 
045574 
075574 

015230 
007400 
015272 

033363 

115050 
015240 
115105 
000000 
007400 
015272 
033363 
115050 
065574 

1760B3 
015240 

115105 

000000 

126006 



ENTRI 



ENTR2 



CCB 
JSB 
DEP 
JMP 
JSB 
JSB 
NOP 
CPA 
jMP 

CCB 
JSB 

DEF 
JSB 
JMP 

EQU 
JSB 
CCB 
AUB 
STB 
EQU 
JSB 
CCB 
JSB 
DEF 
JSB 
JSB 
JSB 
NOP 
CCB 
JSB 
DEF 
JSB 
LOB 
STB 
JSB 
JSB 
NOP 
JMP 



SYMCK 

HATCH-l 

ENTRi 

VAROP 

SERRS+35, 

.♦15B 
ACCST 

SYMCK 
CQMMAM 
SERRS+6, I 

ENTR2 
* 
BCKSP 



FIRST CHARACTER A •#»? 

NO 

yES, SEEK SIMPLE VARIABLE 

I,. NONE FOUND 



CR FOLLOWS? 

YES, ACCEPT STATMENT 

NO 

COMMA? 

NO 



SBPTR 
SBPTR 

* 

fsc 

SYMCK 
COMMA»j 
SERRS+6, I 

VAROP 
SERRS+35, 



SYMCK 

COMMA-1 

SERRS+6, I 

SBPTR 

SFLGA,! 

VAROP 

SERKS+35, 



EOSTA,! 



BACKUP ONE CHARACTER 
RESTORE 

Buffer 

POINTER 
DEMANO A FORMULA 
COMMA FOLLOWS? 

NO 

DEMAND A SlMpLE VARIABLE 
I NONE FOUND 

COMMA FOLLOWS? 

NO 

YES, ENABLE 

STRING VARIABLE 
SEEK VARIABLE OPERAND 
I NONE FOgND 

OEMNAD END. OF. STATEMENT 



** ** 

* <USING STATEMENT SYNTAX ** 
** ** 



34103 115103 (jSlNS JSB SERRS+33,1 ySING ILLEGAL AS FIRST W ORD 



** ** 

* <A3SIGN STATEMENT SYNTAX ** 

** ** 



34104 
34105 
34106 
34107 
34110 
34H1 



015332 
007400 
015272 
033363 

115050 
064354 



aSns 



JSB 
CCB 
JSB 
DEF 
JSB 
LDB 



RSTOP 

SYMCK 

CQMMAM 

SERRS + b,I 

.♦2 



RECORD 

A COMMA 
NOT A COMMA 
DISABLE 
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0364 


34112 


0365 


34U3 


0366 


34114 


0367 


34115 


0368 


34U6 


0369 


34117 


0370 


34120 


0371 


34121 


0372 


34122 


0373 


34123 


0374 


34124 


0375 


34125 


0376 


34126 


0377 


34127 


037B 


34130 



176003 
015230 
007400 
015272 
033363 
115050 
018240 
115105 
000000 
007400 
015272 
033363 
002001 
015332 
126006 



STB 
JSB 
ASNS4 CCS 
JSB 
OEF 
JSB 
JSB 
JSB 
NOP 
CCB 
JSB 
OEF 
RSS 

JSB 
JMP 



SFl<JA,i STRING VARjAHU 
FSC RECORD FORMULA 

SYMCK RECORD 

COMMAS A COMMA 

3ERRS*6,I NOT A COMMA 

VARQP SEEK A NUMERIC OPERAnU 

SERRS+35,1 NONE FOUND 



SYMCK COMMA 

CQMMA-i NEXT? 

RSTOP DEMAND A STRING OPERaNO 

E03tA,J DEMAND END.QF^StAjEMENt 
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0380** 

0381** 

0382** 

0383* 

0384* 

0385* 

0388* 

0387* 

0388* 

0389* 

0390* 

0391* 

0392* 

0393* 

0394* 

0395* 

0396* 

0397* 

0398* 

0399 

0400 

0401 

0*02 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 



* SEEK A VARIABLE OPERAND 



** 

*** 
** 



varop scans 
the first c 
with the ch 

OpERAND IS 

following c 

AN ARRAY OR 
SUBSCRIPT, 
SBPTR, SET 
VARIABLE IS 
AFTER FINOI 
TEMP+2 8 (A 
VARjABlE IN 
SIMPLE V A RI 
MATCHES ARE 



FOR AND REC 
HARACTER IS 
ARACTER IN ( 
RECORDED AND 
HARACTER, E 

STRING VARI 

IF A STRING 
SFLAG « »l| 

PERMITTED A 
NG A SIMPLE 
) AND THE LA 

TEMP+1. jF 
ABIES A RE CO 

MARKED. 



ORDS A V 
NOT A LE 



A) 



OIH 



UpON EX 
XjT IS T 
AflLE ALU 

VARIABL 
IF SFLAG 
T THIS P 
VARIABLE 
ST CHArA 

INSIDE 
MP A RED w 



ARIABLE OPER 
TTER, EXIT I 
ERW1SE A VAR 
IT (A) CONTA 
CP+2) AFTE 
NG WITH ANY 
E IS FOUND A 

n SBPTR, NO 
OlNTl EXIT T 

EXIT TO (P* 
CTER OF the 
A <DEF STATE 
ITH THE P A Ra 



AND, IF 
3 TO (P*l) 
IABLE 
INS THE 
R FjNDjNG 
FOLLOWING 
NO SFLAG * 

3TRING 
U ERROR, 
3) WITH 
SIMPLE 
MENT>, 
METER AND 



34131 
34132 
34133 
34134 
34135 
34136 
34137 
34140 

34l4l 
34U2 
34143 
34144 
34145 
34146 
34147 
34150 
34151 
34152 
34153 
34154 
34155 
34156 
34157 
34160 
34161 
34162 
34163 
34164 
34165 
34166 
34167 
34170 
34171 
34172 
34173 
34174 



015256 
125240 
035240 
050422 
026155 
052000 
026155 
05«4l6 
026155 
035240 
015264 
026165 
061614 
044432 
075614 

015260 
015450 
000000 
071615 
026171 
015330 
015232 
002001 
125240 
065240 
056002 
115047 
125243 
061614 
064431 
015260 
061615 
006400 
055621 
125240 



#VROP 



VAR04 



VAROl 



VARQ2 



J3B 
JMP 
132 
CPA 
JMP 

CPA 
JMP 
CPA 
JMP 
IS2 
JSB 
JMP 
LDA 
ADB 
STB 
JSB 
J8B 
NOP 
STA 
JMP 
JSB 
J9B 
R3S 

JmP 

LDB 
CP8 
J3B 
JMP 
LDA 
LDB 
JSB 
LDA 
CLB 
CPB 
JMP 
CCB 



LTR 
VAROP,! 

VAROP 
, +5|jB 

VAR04 
BB133 
VAR04 
f *4 4 B 
VAR04 
VAROP 
DIGCK 

VAROl 

TEMP*1 

,♦48 

TEMP+1 

STROP 

geTCR 

TEMP+2 
VAR02 
STRIo 
S B S CK 

VARQPrl 

VaROP 

DCOM0 

S ERR S 45, I 

yAROP,I 

TEMP+i 

.♦57B 

STROP 

TEMP+2 

PFLAG 
VAROP,! 



» n 



I 



«$« 1 



NEXT? 



LETTER? 

NO, EXIT VIA (P+l) 

YES 

1 (i ? 

YES 

NO, 

YES 

NO, 

YES 

NO 

DIGIT 

NO 

YES, LOAD LETTER, 

res t ore digi t , 
and record 
simple variable 
fetch 

AND SAVE 
NEXT 

CHARACTER 
RECORD ARRAY OR STRING VARIABLE 
FE T CH T HE guBsCRIPT 
N SUBSCRIPT 
EXIT VIA (P*2) 
W A S V A RQP CALLED FOR 
DIM OR COM SYNTAX? 
YEs«.-ERROR 
NO^ExIT 

RETRIEVE LETTER, 
SET 'NO DIGIT', 
AND RECORD 

SIMPLE VARIABLE 
INSIDE A 

»UEFi STATEMENT? 

no, exit via cp+3) 

YES, 
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0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446* 

0447 + 

0448* 

0449* 

0450* 
0451* 
0452* 
0453* 
0454* 
0455* 
0456* 
0457* 
0458* 
0459* 

0460* 

0461 

0462 

0463 

0464 

0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 



34i75 045574 ADB SBPTR 

34176 160001 LDA 1,1 

34177 010502 AND B777 

34200 051621 CPA PFLAG 

34201 026204 JMp *+3 

34202 061615 VAR03 LDA TEMP+2 

34203 125240 JMP VARQP»I 

34204 160001 LDA %,l 

34205 031036 IOR FLCBT 

34206 170001 STA 1,1 

34207 026202 JmP VARQ3 



ISOLATE 

LATEST 
OPERAND 
IS IT THE PARAMETER? 
YE8 
NO, RETRIEVE CHARACTER 

AND EXIT VIA (P*3) 
FLAG 

OPERAND 
A3 

PARAMETER 



** 



PROCESS CHARACTER STRING 



** 

*** 

** 



UPON ENTRY (A) CONTAINS THE STRING DELIMITER AND (B) 

INDICATES WHETHER THE FIRST CHARACTER IS TO BE STORED 

IN THE LOwEr HALF OF THE CURRENT BUFFER wOrD ( (B) ■ 1) 

OR THE UPPER HA L F OF THE NEXT BUFFER WORD i, (B) * 0), 

EXIT TO (P*l) ON EMPTYING THE INPUT STRING. EXIT TO 

(P*2) ON FINDING THE STRING DELIMITER, BLANKS ARE NOT 

STRIPPED OUT OF THE INPUT STRING IF (A) * UPON ENTRY, UPON 

EXIT SBPTR POINTS TO THE FIRST BUFFER WORD NOT CONTAINING PART QF 

THE STrW WHILE TEMP*1 CONTAIN3 A COyNj OF THE STRANG 

CHARACTERS BIASED BY THE VA^UE oF (B) UPON EnTRY, 



34210 
342U 

34212 
34213 
34214 
34215 
34216 
34217 
34220 

34221 
34222 
34223 
34224 
34225 
34226 
34227 
34230 
34231 
34232 
34233 
34234 
34235 
34236 
34237 



0756J4 
071615 
064364 
002002 

075573 
015450 
026234 
060001 
051615 
026233 
065614 
006014 
026227 
015270 
001737 
131574 
171574 
075614 
026215 
035262 
015270 

064412 
075573 
125262 



#CRST STB 
STA 
L DB 
SZA 
STB 

CHRSl J8B 
JMP 
LDA 
CPA 
JMP 
LDB 
SLB 
JMP 
JSB 

ALF 
CHRS2 IOR 

STA 
STB 
JMP 
CHRS3 I3Z 
JSB 
LDB 
STB 
JMP 



TEMP*1 
TEMP+2 
• ♦10 

BLANK 
GETCR 
CHR33+1 

B 
TEMP+2 

CHRS3 

TEMP*1 
fINB 

CHRS2 

SBPUD 
rSLA,ALp 

SBPTR, I 

SBPTR, I 

T£MP*1 

CHRSl 

CHRST 

SBPUD 

.♦408 
BLANK 

CHRST, I 



SET CHARACTER FLAG AND COUNTER 
NOiE tErMINAtOr CHArACtEr 
IF (A) # 

stop blank 

SUPPRESSION 
FETCH CHARACTER 
NONE FOUND 
ALLOW LOWER CASE 
TERMINATOR? 
YES 

no, count Character 
and select word half 

LOW HALF 

high halpr move to next word 
position Character and skip 
combine w 1th previous character 

save flag/counter 

set exit to cp*2) 
advance pointer 
restore blank 
suppression 
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0486* 
0487* 
0488* 
0489* 
0490* 
0491* 
0492* 
0493* 
0494* 
0495* 

0496* 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 



* 
** 

* 



DELETE SOME PROGRAM 



** 
*** 

** 



THAT PART OF THE PROGRAM REFERENCED BY CORE LOCATIONS 
(TEMP+1)*(A) THROUGH ( TEMP+1 ) ♦ (B)tl INCLUSIVE IS 
DELETED BY SLIDING UP ALL OF THE PROGRAM FROM 
CTEMP+1)*(B) TO (PBPTR)»t (I,t f , THE kEST OF THE 
PROGRAM FOLLOWING THE »GAP«). PBPTR JS THEN 
UPDATED TO POINT TO LAST WORD +1 OF THE PROGRAM, 

34240 041614 #DLPR ADA TEMP+1 COMPUTE INITIAL 

34241 071615 3TA TgMP+2 DESTINATION AqdRESS 

34242 045614 ADB TEMP+1 COMPUTE INITIAL SOURCE 

34243 054056 DELPl CPB PBPTR DONE? 

34244 026252 JMP DELP2 Y&3 

34245 160001 LDA 1,1 no, TRANSFER 

34246 171615 STA TEMP*2,I A WORD 

34247 035615 ISZ TEMP+2 BUMP 

34250 006004 INB POINTERS 

34251 026243 JMP DELPl 

34252 06i6i5 DELP2 LOA TEMP+2 UPDATE 

34253 070056 STA PBPTR END.QFwPROGRAM 

34254 125312 JMP DELPR,I POINTER 



ADDRESS 
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0511* 

0512* 

0513* 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 
0533 
0534 
0535 

0536 

0537 

0538 

0539 

0540* 

0541* 

0542* 

0543* 

0544* 

0545* 

0546* 

0547* 

0548* 

0549* 

0550* 

0551* 

0552* 

0553* 

0554* 

0555* 

0556* 

0557* 

0558* 

0559* 

0560* 

0561 

0562 

0563 

0564 

0565 



* 

** 

* 
34255 
34256 
34257 
34260 
34261 
34262 
34263 
34264 
34265 
34266 
34267 
34270 
34271 
34272 
34273 
34274 
3427b 
34276 
34277 
34300 
34301 
34302 

34303 
34304 
34305 
34306 

* 

** ACC 



STATEMENT SYNTAX ENTRY POINTS 



034104 
034103 
032124 

032043 
032022 
032042 
032064 
034017 
032142 
032225 
032275 
032332 
032142 
032336 
032336 
032336 
032342 
032414 
032404 
032425 
034007 
032555 
034016 
034023 
034034 
032017 



3YNTB DEF 
OEF 
OEF 

0£F 
DgF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 

DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



EPT A STATEMENT * 



ASNS 

USINS 

IMAGS 

COM3 

LeT3 

DIMS 

DEFS 

REMS 

GOTOS 

IF8 

FORS 

NExTS 

GOTOS 

ENDS 

ENDS 

ENDS 

DA|A 5 

INPT3 

READS 

PRlNS 

rstRs 

MATS 

FILES 

CHANS 

ENTR8 

LET0 

** 

** 

** 



** 
*** 

** 
ASSIGN 
USING 
IMAGE 
COM 
LET 
DIM 
D&F 
REM 
GOTO 
IF 
FOR 
NE X T 

cosua 

RETURN 

END 

STOP 

OAfA 

INPUT 

READ 

PRINT 

RESTORE 

MAT 

FILES 

CHAIN 

ENTER 

•IMPLIED' LET 



A CORRECT STATEMENT IS ADDED TO THE PROGRAM BUFFER, 
IF ITS SEQUENCE NUMBER IS THE HIGHEST 30 FAR, ONLY 
THE END.OFwPROfcRAM POINTER REHIRES CHANGE, slNCE jH£ 
STATEMENT IS TRAnS L ATED I MM EDIATE L Y BE l qW THE PREVIOUS 
PROGRAM, OTHERWISE THE NE* STATEMENT IS INSERTED INTO 
THE PROGRAM IN PROPER SEQUENTIAL POSITION, IF ITS 
SEQUENCE NUMBER COINCIDES WITH THAT OF A PREVIOUS 
PROGRAM STATEMENT, IT REPLACES IT, WITH SPACE MADE OR 
DELETED IN THE p rOGrAM As NECESSArY, EXIT TO EXEC, 
IF STATEMENT LENGTH * THE STATEMENT WAS REgECTEO DUE TO 
A STORAGE OVERFLOW IN TAPE MODE, IF IN KEYBOARD MODE AND 
SYMTB * 4 AT LEaST ONE OVER/UNDERFLOW OCCURRED WHILE ANALYZING 
THE STATEMENT SO EMIT THE ERROR; OTHERWISE ECHO A LINE FEED, 
IF IN TAPE MODE MOVE THE START~OF-«RECQRD POINTER TO THE START 
OF THE NEXT BUFFER AND IF IT IS COMPLETED SYNTAX IT NOW, ELSE 
EXIT TC EXEC, 



34307 065620 ACCST LOB SBUFA 

34310 006004 IN8 

34311 061620 LDA sBuFA 

34312 003004 CmA,InA 

34313 041574 ADA SBPTR 



COMPUTE 

STATEMENT 
LENGTH 
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tj566 


34314 


002003 


SZA, 


-RSS 


UNPKUCESStD STATEMENT? 


0567 


34315 


0264)3 


JMP 


ACCS6 


YES 


0568 


34316 


170001 


STA 


1,1 


NO, STORE LENGTH IN STATEMENT 


0569 


34317 


071616 


STA 


TEMP+2 


SAVE IT 


0570 


34320 


060056 


IDA 


PBPTR 


FINU STATEMENT'S 


0571 


34321 


165620 


LOB 


SBUFA, I 


SEUUENTIAL 


0572 


34322 


015314 


J3B 


FNDPS 


HUSITION 


0573 


34323 


026376 


JMP 


ACCS4 


APPEND STATEMENT TO PROGRAM 


0574 


34324 


02^350 


JMP 


Accsg 


INSERT STATEMENT INFO PROGRAM 


0575 


34325 


006004 


INB 




REPLACE PRIOR STATEMENT 


0576 


34326 


160001 


IDA 


1,1 


CQMpAnE LENGTH 


0577 


34327 


003004 


CmA, 


rlNA 


of new statement 


0578 


34330 


041 6 i 5 


ADA 


7EMP+2 


WITH THAT OF OLD 


0579 


34331 


002003 


SZA, 


.RSS 


EQUAL? 


0580 


34332 


026340 


JMP 


ACCSl 


YES 


0581 


34333 


002021 


SSA, 


-RSS 


NO, LONGER? 


0582 


34334 


026351 


JMP 


ACC32+1 


YES 


0583 


34335 


061615 


IDA 


TEMP+2 


NO, SHORTER 


0584 


34336 


164001 


LOB 


1,1 


LOA D LENGTH Or OLD STATEMENT 


0585 


34337 


015312 


jab 


DEIPR 


DELETE EXTRA LENGTH 


0586 


34340 


065620 


ACCSl LDB 


SBUFA 


LOAD FIRST SOURCE ADDRESS 


0587 


34341 


160001 


IDA 


1,1 


TRANSFER 


0588 


34342 


171614 


STA 


TEMP+1,1 


A WORD 


0589 


34343 


035614 


IS Z 


TEMP+1 


ADVANCE DESTINATION 


0590 


34344 


006004 


INB 




AND SOURCE ADDREssEs 


0591 


34345 


055574 


CPB 


SBPTR 


DONE? 


0592 


34346 


026400 


JMP 


ACC35 


YES 


0593 


34347 


02fi341 


JMP 


ACC31+1 


NO 


0594 


34350 


061615 


ACCS2 LDA 


TEMP+2 


LOAD SPACE REQUIREMENT 


0595 


34351 


041620 


ADA 


SBUFA 


UPDATE POINTER 


0596 


34352 


071620 


STA 


SBUFA 


TO NEW STATEMENT 


0597 


34353 


041615 


A D A 


TEMP+2 


RESET 


0598 


34354 


065574 


LOB 


SBPTR 


END OF STATEMENT 


0599 


34355 


071574 


STA 


SBPTR 


POINTER 


0600 


34356 


071615 


STA 


T£MP+2 


INITIALIZE DESTINATION A D dRESS 


0601 


34357 


003000 


CMA 




USER 


0602 


34360 


040462 


ADA 


L.WAUS 


3PAC E 


0603 


34361 


002020 


S8 A 




OVEKFLOW? 


0604 


34362 


115042 


JSB 


SERRS,I 


Y ES 


0605 


34363 


061620 


LOA 


SBUFA 


NO, UPDATE POINTER 


0606 


34364 


070056 


STA 


pbptr 


TO END-Of- -PROGRAM 


0607 


34365 


055614 


ACCS3 CPB 


TEMP+l 


EVERYTHING MOVED? 


0608 


34366 


026340 


JMP 


ACCSl 


YE9 


0609 


34367 


003400 


CCA 




NO, BACK UP 


0610 


34370 


041615 


ADA 


TEMP*2 


SOURCE AND 


0611 


34371 


071615 


STA 


TEMP+2 


DESTINATION 


0612 


34372 


044351 


ADB 


.-1 


ADDRESSES 


06i3 


34373 


160001 


LDA 


1,1 


TRANSFER 


0614 


34374 


171615 


STA 


TEMP*2,I 


A WORD 


06i5 


34375 


026365 


JMP 


ACCS3 




0616 


34376 


061574 


ACCS4 LDA 


SBPTR 


RESET POINTER TO 


0617 


34377 


070056 


STA 


PBPTR 


LAST WORD+1 OF PROGRAM 


0618 


34400 


060362 


ACCS5 LOA 


TAPfcF 


TAPE 


0619 


34401 


110257 


AND 


MJN,1 




0620 


34402 


002002 


SZA 




MODE? 
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0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 

0001* 

0002* 

0003*. 

0004* 

0005* 

0006* 

0007* 

0006* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017 

0016 

0019 

0020 

0021 

0022 

0023 
0024 
0025 
0026 
00 2 7 
0026 
0029 
0030 
0031 

0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 



34403 
34404 
34405 
34406 
34407 
34410 
34411 
34412 
34413 
34414 
34415 
34416 
34417 
34420 



026413 
065575 
071575 
054356 
115146 
060364 
015454 
124514 
064257 
006004 
160001 
030242 
114500 
124514 



ACC36 



JMP ACCS6 YES 

LDB SYMTB NO 

3TA SYMTB 

CPB ,*4 

jSB RERRS*32,I 

UOA , + 128 

JSB OUTCR 

JMP SCH£N,1 

LOB MAIN 

INB 

LDA l fI 

IOR ALI 

JSB S14SCI INPUT 

JMP SCHEn,! 



RESET UNDEr/OVErFLOW FLAG 
UNOER/OVERF1.OH ERROR(S)? 



YES 

NO, 

OUTPUT 
LINE 
ALLOW 

MORE 



A 
FEED 



** 



** FIND A STATEMENTS SEQUENTIAL POSITION *** 
* ** 

UPON ENTRY (A) POINTS TO THE LAST WORD*l °P THE PROGRAM 
AND (B) HOLDS A SEQUENCE NUMBER, IF (8) IS LARGER THAN 
ANY SEQUENCE NUMBER IN THE PROGRAM, EXIT To Cp+1) WITH 
(B) POINTING TO T H E LAST WORD+1 OF TmE PROGRAM, iF (B) 

falls between two sequence numbers, exit to cp*2) with 
(8) pointing tu the statement with a larger sequence 
number, if a statement in the program has tke sequence 
number in (b), exit to (p + 3) with (b) pointing to this 

STATEMENT (IF It Is AN EMBEDDED ErrOr MESSAGE, sTATEMfcNy 
TYPE « 0f DECREMENT THE EHROR COUNT), In All CASES TE M P*1 
> (8) UPON EXIT, 



34421 
34422 
34423 
34424 
34425 
34426 
34427 
34430 
34431 
34432 

34433 
34434 

34435 
34436 
34437 
34440 
34441 
34442 
34443 
34444 
34445 
34446 

34447 
34450 
34451 



075614 
071616 

065577 
0556J6 
026466 
160001 
003004 
041614 
002003 
026443 
0020g0 
026469 
060001 
002004 
160000 
044000 
015556 
026424 
060001 
040354 
160000 
010664 
002002 
026464 
003400 



#PDPS 



FNDPl 



FNDP2 



STB TEMP*J 


SAVE TEST SEQUENCE NUMBER 


STA TEMP*3 


SAVE TERMINATION POINTER 


LDB SPROG 


START WITH FIRST WORU OF PROGRAM 


CPB TEMP+3 


PROGRAM EXHAUSTED? 


JMP FNDP3+2 


YES, EXIT TO (P+l) 


LDA lr I 


NO, IS 


CMA,INA 


PROGRAM 


ADA TEMP+1 


SEQUENCE NUMBER 


SZA f RSS 


THE SAME? 


JMP FNQP2 


YESr EXIT TO (P*3) 


SSA 


NO, GREATER? 


JMP FNDP3-H 


YES, ExlT T° (P*2) 


LDA 8 


NO, CHECK 


INA 


STATEMENT 


LDA A'l 


LENGTH ANO 


A06 A 


SET CB) TO 


JSB SjLCK 


POINj tQ NExi 


JMP FNDPl 


STATEMENT 


LDA 1 


LOAO 


ADA ,* 2 


STATEMENT 


LDA 0,1 


ERROR 


AND OPMSK 




SZA 


STATEMENT? 


JMP FNDP3 


NO 


CCA 


YES, 
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0042 

0043 

01344 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

00g4 

0055 

0056* 

0057* 

0058* 

0059* 

00$0* 

0061* 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073* 

0074* 

0075* 

0076* 

<d®77 + 

0078* 

Id\d79* 

0080* 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 



34452 
34453 
34454 
34455 
34456 
34457 
34460 
34461 
34462 
34463 
34464 
34465 

344g6 
34467 



041576 
071576 
002002 
026464 
103100 
060353 
003000 
110257 
170257 
102100 
035314 
035314 

0756H 
125314 



FNDP3 



ADA EKRCT 


DECREMENT 


STA ERRCT 


ERROR COuNT 


SZA 


ONLY ERRUR? 


JMP FNDP3 


NO 


CUF 




IDA TERR 


YES** 


CMA 


SET FLAG 


AND MAIN, I 


TO SAY 


STA MAIN#I 


•NO EMBEDDED 


STF 




132 FNDPS 




JSZ FnDPS 




STB TEMP+1 


SAVE POINIER TO 


JMP FNDPS, I 


FINAL STATEMENT 



ERRORS 



SEEN 



** 



** FETCH PARENTHESIZED FORMULA *** 



** 



AN END-OF«FORMULA OPERATOR FOLLOWS THE FORMULA 



34470 064357 

34471 015234 

34472 015270 

34473 015450 

34474 U5070 

34475 015252 

34476 015230 

34477 015270 

34500 015254 

34501 015236 

34502 125250 



#GTPF 



** 

* 



RECORD AN INTEGER 



LDB ,*5 

JSB FRCUR 

JSB SBPUD 

J38 GlTcR 

JSB 8ERRS*22,I 

JSB LPCK 

JSB FSC 

JSB SBPUD 

JSB RPCK 

JSB pPOP 

JMP GETPF,I 

** 
*** 

• * 



SAVE FSC 

LOCAL VARIABLES 
UPDATt POINTER 

RECORD 
LEFT 

PARENTHESIS 
DEMAND FORMyLA 

RECORD END-Ofr -FORMULA OPERATOR 
RECORD RIGHT PARENTHESIS 
RESTURE FSC 

LOCAL VARIABLES 



PRGIN FLAGS THE PREVIOUS OPERATOR TO SaY 'INTEGER FOLLOWS', 

STORE THE INTEGER AND EXIT WITH IT IN (B) AND THE FOLLOWING 
CHARACTER IN (A). 

34503 161574 #PGiN LDA SBPTR^I SET 

34504 030670 IQR INTFL "INTEGER FOLLOWS' 

34505 171574 STA SBPTR,! FLAG 

34506 015270 JSB SBPUD ADVANCE POINTER 

34507 015466 JSB BLpIN bUILp INTEGER 

34510 175574 $TB s BPtR,I RECORD IN T EGER 

34511 015270 JSB SBPUD ADVANCE POINTER 

34512 125244 jMP PRG^i 
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0090* 
009}* 
0092* 
0093* 
0094* 

0095* 

0096* 

0097 

0098 

0099 

0^00 

0101 

0102 
0103 

0104 
0105 

0106 
0107 

0106 
0109 

0110 
0111 
0112 
0113 
0114 

0115 
0116 
0117 
011b 
0119 

0120 

0121 

0122* 

0123* 

0124* 

0125* 

»126* 

0127* 

012S* 

0129* 

0130* 

0131* 

0132* 

0133* 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 



* * * 
** BUILD AN INTEGER *** 

* ** 

MISSING OR ILLEGAL INTEGER EXITS TO tP*2) OF PRGIN IF GFLAG « -If 
ELSE TO ERROR, A LEGAL INTEGER 18 NON-ZERO AND LESS THAN 10000, 



345l 3 
34514 

34515 
34516 
34517 
34520 
34521 
34522 
34523 
34524 
34525 
34526 
34527 
34530 
34531 
34532 
34533 
34534 
34535 
34 9 3 6 
34537 
34540 
34541 
34542 

34543 
34544 



002400 
071645 
015450 

026535 
015264 
026535 
071646 
061645 
100200 
000364 
000040 
041646 

006043 
026514 
035422 
115043 
035244 
125244 
065645 
006103 
026531 
044716 
002040 
026531 
065645 
125466 



#BLUI 



BLOIl 



BLPI2 



CLA 
STA 
JSB 
JMP 
JSB 
JMP 

sta 

LOA 

MPy 

CLE 

AOA 

SEZ, 

JMP 

ISZ 

JSB 

ISZ 

JMp 

LDB 

CLE, 

JMP 

ADB 

SEZ 

JMP 

LOB 

JMP 



** 

* 



SEEK RECORD REFERENCE 



PINTG 

GETCR 

BLDI2 

OIGCK 

BLDI2 

PlNTG+1 

PINTG 

,♦10 



PINTG+1 
SZBrRSS 

#BLDl*l 

GFLAG 

SERRS*1#I 

PRGIN 

PRGIN, I 

PINTG 

SZBfRSS 

BLDI1 

MAXSN 

BLPH 
PINTG 

BLOlNrI 
** 
*** 

** 



INITIALIZE TO 
ZERO INTEGER, 



DIGIT? 

NO 

yes, save it 
multiply previous 

IN T EGER By 10 

ADD IN 

NEW DIGIT 
OVERFLOW? 
NO 

YES, RETURN ON ERROR? 
NO 
YES, EXIT TO 

(P*2) Qf PRGIN 
ZERO 

INTEGER? 
YES 
NO, INTEGER 

TOO LARGE* 
YES 
NO 



IF THE NEXT CHARACTER IS NOT '#«, RESTORE SBPTR AS UPON ENTRY 
AND EXIT TO (P*l) WITH THE CHARACTER IN (A). OTHERWISE CHECK 
CHARACTER RETURNED IN ( A) FROM FILRP, IF IT IS A COMMA OR A 
SEMICOLON RECORD IT. EXIT TO (p*2) WlTH THE CHArACTE* IN (A) 
IF IT IS A SEMICOUON, IF A COMMA, PROCESS THE FQtLOMNG RECORD 
r EFE r ENCe AND t XlT TO CP+2) WITH CHARACTER FALLOWING IT IN (A) 
(IF A SEMICOLON, RECORD IT BEFORE EXITING), 



34545 015504 *RECR JSB FILRF 

34546 026562 JmP RECRi 

34547 036502 ISZ REC«F 

34550 050426 CPA ,+54B 

34551 002001 RSS 

34552 026556 JMP RECR0 

34 55 3 0e46l2 LOB B2000 

34554 175574 STB SBPTR, I 

34555 015230 JSB fSC 

34556 064614 RECR0 LDB B3000 



SEEK FILE REFERENCE 
NONE FOUND 
FOUNQ 
COMMA? 
YES 
NO 

RECORD 
COMMA 

process record reference 
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0144 

0145 

0146 

6)147 

0146 

0149 

0150 

0151* 

0152* 

0153* 

0154* 

0155* 

0156* 

0157* 

0158* 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169* 

0170* 

0171* 

0172* 

0173* 

0174* 

0175* 

0176* 

0177* 

0178* 

0179* 

0180* 

0181* 

0182* 

0183* 

0184* 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 



34557 
34560 
34561 
34562 
34563 
34564 
34565 



050722 
175574 
125502 
007400 
045574 
075574 
125502 



RECRl 



CPA 
STB 
JMP 
CC8 

Aoe 

ST8 

Jmp 



* 
** 



SEEK FILE REFERENCE 



B73 

SBPTR, I 
RECRF,I 

SBPTR 
SBPTR 
RECRF,I 

** 
*** 

** 



SEMICOLON? 
YES 

RESTORE 

SBPTR 



if the next chakacter is not a •#' return 
(a), otherwise record the file reference 
with the following character in (a), 



TO (P+l) WITH IT IN 
AND RETURN TO (P+2) 



34566 035574 #FILR ISZ SBPTR 

34567 015450 J3B GETCR NEXT 

34570 125504 JMP FILRF,! 

34571 007400 CCB CHARACTER 

34572 015272 J3B SYMCK 

34573 033367 DEF HATCH*1 

34574 125504 JMP FILRF, I NO 

34575 015230 JS8 F3C YES, 

34576 035504 ISZ FILRF 

34577 125504 JMP FILrF,I 
* 
** SEARCH TABLE FOR MULTICHARACTER SYMBOL 



A «# 



PROCESS PILE REFERENCE 



** 
*** 



UPON ENTRY (A) 
SYMBOLS, <B) C 
TABLE (IN 2»S 
ACCEPTABLE NyM 
SBpTR,I ConTAI 

symbol in bits 

IN BITS 15-8, 
(P+l) WITH THE 
STRING AS UPON 
THE OPERATOR C 
STRING BEGINS 



POINTS TO THE TABLE OF A 
ONTAINS THE NUMBER OF ENT 
COMPLEMENT), MAXCR CONTAI 
BEr OF CHARACTERS IN jHl 
N S THE FIRST CHARACTER of" 
7*0 AND EITHER « OR THE 
IF NO ACCEPTABLE SYMBOL 
HALVES OF SBPTR, I SWAPPE 
ENTRY, ON SUCCESS EXIT 
ODE IN BOTH (A) AND SBPTR 
WITH THE CHArACtEr FOLLOW 



** 

cceptable 
ries in the 
ns the maximum 
symbol, and 
the prospective 

second Character 
is found, exit to 
d and the input 

TO (P+2) WITH 

,I| THE NEW INPUT 

ING THE SYMBOL, 



34600 071404 #TBSR STA TABLE 

34601 075406 STB LNGTH 

34602 060257 LOA MAIN 

34603 0020K4 INA 

34604 160000 lOA *t\ 

34605 030224 IQR SBp 

34606 114500 JSB Sl4SC,I 

34607 061574 LOA SBPTR 
34$10 071410 STA 8M86N 
346U 302404 CLA,INA 

34612 071434 STA sLENG 

34613 161574 LDA SBPTR, I 

34614 001727 ALF,ALF 

34615 171574 STA SBPTR,! 



SAVE TABLE ADDRESS 

SAVE -(NUMBER OF ENTRIES) 

SAVE 

Buffer 

poster 
save current 

SYNTAX BUFFER POINTER 
COUNT FIRST CHARACTER 

OF SYMBOL 
LEFT JUSTIFY 

FIRST 

CHARACTER 
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0199 


34616 


010441 




AND B177 


TWO 


0200 


34617 


002003 




SZA,RSS 


CHARACTERS? 


0201 


34620 


026637 




JMP TSRC4 


NO 


0202 


34621 


035434 


TSRC1 


IS* SLENG 


COUNT NEW CHARACTER 


0203 


34622 


065406 




LDB LNGTH 


SET COUNTER 


0204 


34623 


075440 




STB COUNT 


FOR TABLE ENTRIES 


0205 


34624 


061404 




LDA TABU 


SET POINTER 


0206 


34625 


071442 


TSRC2 


STA TBLPT 


TO NEXT ENTRY 


0207 


34626 


161442 




LOA TBLPT, I 


TABLE ENTRY AND 


0208 


34627 


010361 




AND t +7 


CURRENT SYMBOL 


0209 


34630 


051434 




CPA SLENG 


OF SAME LENGTH? 


0210 


34631 


026654 




JMP TSRC6 


YES 


0211 


34632 


040355 


TSRC3 


ADA t+3 


NO, UPDATE 


0212 


34633 


001100 




ARS 


TABLE 


0213 


34634 


041442 




ADA TBLPT 


POINTER 


0214 


34635 


035440 




ISZ COUNT 


MORE ENTRIES? 


0215 


34636 


026625 




JMP TSRC2 


YES 


0216 


34637 


015450 


TSRC4 


jSB GETCR 


NU, FETCH NEXT CHARACTER 


0217 


34640 


026705 




JMP T8R10 


NONE FOUND 


0218 


34641 


065434 




LDB SLENG 


Symbol already 


0219 


34642 


055402 




CPB MAXCR 


OF MAXIMUM LENGTH? 


0220 


34643 


026705 




JMP T3R10 


YES" 


0221 


34644 


006011 




SL^fRSS 


NOr EVEn»nU^BErED CHANACTEr? 


0222 


34645 


026651 




JMP TSRC5 


NO 


0223 


34646 


131574 




iQR SBPTRrI 
STA SBPTR,I 


yes, fill lower h alf 


0224 


34647 


171574 




OF LAST WORD OF SyMBOL 


0225 


34650 


026621 




JMP T8RC1 




0226 


34651 


015270 


jSRCS 


JSB SBP|jD 


advance Symbol poin t er 


0227 


34652 


001727 




ALF,ALF 


STQR6 CHARACTER I N 


0228 


34653 


026647 




JMP *«4 


UPPER HALF OF WORD 


0229 


34654 


065442 


TSRC6 


LUB TBLPT 


SET POINTER TO 


0230 


34655 


W75444 




STB TSPTR 


SYMBOL IN TABLE 


0231 


34656 


065410 




LDB SMBGN 


SET (B) TO 


a 232 


34657 


«26663 




JMP **4 


INPUT SYMBOL 


0233 


34660 


055574 


TSRC7 


CPB SflPTR 


ALL OF SYMBOL MaTcHED? 


0234 


34661 


026671 




JMP TSRC8 


YES 


0235 


34662 


006004 




INB 


NO, ADVANCE 


0236 


34663 


035444 




ISZ TSPTR 


POJNTERS 


0237 


34664 


161444 




LDA TSPTR, I 


COMPARE NEXT 


02 3 8 


34665 


150001 




CPA 1,1 


WORD OF SYMBOLS 


0239 


34666 


026660 




JMP TSRC7 


EQUAL 


0240 


34667 


06M 3 4 




LDA SLENG 


UNEQUAL, TRY 


0241 


34670 


026632 




JMP T8RC3 


NEXT lABLt SYMBOL 


0242 


34671 


060257 


T3RC8 


LDA MAIN 


FREE 


0243 


34672 


002004 




INA 




0244 


34673 


160000 




LDA 0,j 


SAVED 


0245 


34674 


030224 




IOR FflP 




0246 


34675 


114500 




JSB S14SCI 


BUFFER SPACE 


0247 


34676 


161442 




LDA TBLPT, I 


LOAD, ISOLATE 


0248 


34677 


010664 




AND OPMSK 


AND STORE 


0249 


34700 


171410 




STA SMBGN, I 


OPERATOR CODE 


0250 


34701 


035246 




ISZ TbSRH 


SET EXIT TO (P*2) 


0251 


34702 


065410 


TSRC9 


LDB SMBGN 


correct Syntax 


0252 


34703 


075574 




STB SBPTR 


BUFFER POINTER 


0253 


34704 


125246 




JMP TBSRH,! 
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0254 

0255 

0256 

0257 

0258 

0259 

0260* 

0261* 

0262* 

0263* 

0264* 

0265* 

0266* 

0267* 

0268* 

0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 



34705 060257 TSR10 LOA MAIN 

34706 002004 XNA 

34707 160000 LOA 

34710 030225 IOR 

34711 114500 J8B 

34712 026702 JMP 

* ** 
** FETCH A LETTER *** 

* ** 



«,I 
RBP 

S14SCI 
T3RC9 



RESTURE 
8UFFFR 
POINTER 



exits to £p*j) if next character not a letter, 
otherwise stores it in temp*t, stores following 
character in temp+2, and exits to (p + 2) with 
second character in cb). 



34713 015450 #LTR JSB GETCR 

34714 000000 Nop 

34715 015266 J3B LETCK 

34716 125256 JMP LTR/I 

34717 035256 ISZ LTR 

34720 071614 STA TeMP+1 

34721 015450 JSB GETCR 

34722 000000 NUP 

34723 071615 STa TEMP+2 

34724 125256 JMP LTR* I 



FIRST 

CHARACTER 
A LETTER? 
NO, EXIT WITH CHARACTER 
YES, SET RETURN ADDRESS 
SAVfc CHARACTER 
SAVE 

SECOND 

CHARACTER 



IN 
TO 



(A) 
(P+2) 
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0280** 

0281** 

0282** 

0263* 

0284* 

0285* 

0286* 

0287* 

0288* 

0289* 

0290* 

0291* 

0292* 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301** 

0902** 

0303** 

0304* 

0305* 

0306* 

0307* 

0906 

0309 

0310 
0311 
0312 
0313 
0314 
0315 

0316 
0317 

0318** 

0319** 

0320** 

0321* 

0322* 

0323* 

0324* 

0325* 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 



* STORE AN OPERAND NAME 



** 

*** 

** 



OPERANDS ARE STORED AS 9-BIT QUANTITIES, BITS 6-4 
HOLD A LETTER (1^32 OCTAL FOR A.Z), BITS 3-0 INDICATE 
THE TYPE OF OPERANDI FOR A STRING, 1 AND 2 FOR 
SINGLY ANO DOUBLY SUBSCRIPTED VARIABLES, 3 FOR A 
SUBSCRIPTED VARIABLE WITH DIMENSIONALITY NOT DEFINED 
LOcALLY, 4 FOR A SlNGLE-LETTfcR SIMPLE VARIABLE, 5-16 
OCTAL FOR A LETTER-DIGIT SINGLE VARIABLE, ANO 17 OCTAL 
FOR A PROGRAMMER-DEFINED FUNCTION, 



34 7 25 040610 *STQP ADA D100 LETTER s ASCII CODE 

34726 046004 ADB D53 DIGIT ■ ASCII CODE « 

34727 001700 ALF COMPLETE 

34730 030001 IQR 1 OPERAND 

34731 131574 IOR SBPTR,! MERGE OPERATOR 

34732 171574 STA SBPTR, I AND OPERAND 

34733 015270 JSB SBPUD SET POINTER TO 

34734 125260 JMP STROP, I FRESH WORD 



• 100 OCTAL 
53 OCTAL 



* DEMAND A RIGHT PARENTHESIS 



** 
*** 

** 



IF (A) HOLDS ')' OR ']' RECORD A »)• 
WITH THE FOLLOWING CHARACTER IN (A), 



AND EXIT 
ELSE ERROR, 



34735 
34736 
34737 
34740 
34741 
34742 
34743 
34744 

34745 
34746 



064350 
015272 
033377 
115071 
060616 
171574 
015270 
015450 
000000 
125254 



#RPCK 



LDB 
JSB 
DEF 
JSB 
LDA 
STA 
J98 

JSB 

NOP 
JMP 



.•2 ')• 

SYMCK OR 

RPARN»l lj 1 ? 

SERRS*23,I NO 

RPOP 

SBPTR,I 

SBPuD 

GETcR 



* CHECK FOR A DIGIT 



RPCK,I 
** 
*** 
** 



YES, RECORD 

A ') 1 

record a null 

FETCH 
NEXT 

CHARACTER 



OPERAND 



ENTER WITH CHARACTER IN (A), IF NOT 
TO (P+l) WITH CHARACTER IN (A)J ELSE 
WITH DIGIT (BINARY) IN (A) AND (B), 



A DIGIT, EXIT 
EXIT TO (P+2) 



34747 
34750 
34751 
34752 
34753 
34754 
34755 
34756 
34757 



064000 
044316 
006021 
125264 
044364 
006020 
125264 
060001 
035264 



#DGCK 



LDB 


ASCII 


ADB D72 


72B OR 


SSB,RSS 


Greater? 


JMp DIGCK,I 


YES 


ADB ,+12B 


NO, ASCII 57B 


SSB 


OR LESS? 


JMP DigCK,I 


YES 


LDA 1 


NO, LOAD 


ISZ DIGCK 


DIGIT 
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0335 

0336* 

0337* 

0338* 

0339* 

0340* 

0341* 

0342* 

0343 

0344 

0345 

0346 

0347 

034a 

0349 

0350 

0351* 
0352* 

0353* 

0954* 

0355* 

0356* 

0357* 

0358* 

0359* 

0360* 

0361* 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

03q0 



34760 125264 



JMP DIGCK,I 

* ** 
** CHECK FOR A LETTER *** 

* ** 



INTO (A) 



ENTER WITH CHARACTER 
LETTER, ELSE EXIT 10 



IN (A), 
(P*l). 



EXIT TO (P+2? IF A 
(A) IS NOT CHANGED, 



34761 
34762 
34763 
34764 
34765 

34766 
34767 



064000 
046001 
006021 
125266 

044404 
006021 
035266 



34 7 /0 1252 6 6 



#LTCK LOB 

ADB 0133 
S3B,RSS 
JMP LETCKfl 
ADB .+32B 
S$B,RSS 
ISZ LETCK 
JMP LETCK, I 



ASCII 
133B OR 

greater? 

YES 

NO, ASCII 101B 

OR GREATER? 
YES 

NO 

** 



** CHECK FOR SINGLE»CHARACTER OPERATORS *** 
* ** 

ENTER WITH CHARACTER IN (A) AND NUMBER OF ACCEPTABLE 
OPERATORS IN (B) IN 2iS COMPLEMENT, (P+l)+2 POINTS 
To THE LI3T qF ACCEPTABLE gpERAToRS. UN A M A TCH 
EXIT TO (P*3) AfTfcR RECORDING THE OPERATOR CQDe, 
WHICH REMAINS IN (a). ON NO MATCH EXIT TO (P*2) 
WITH THE CHARACTER IN (A), 

34771 075440 #3YCK STfl COUNT SaVE C0UN1 OF POSSIBLE MATCHES 

34772 001727 ALF,ALF POSITION 

34773 030412 IOR ,+32 CHARACTER 

34774 165272 LOB SYMCK,I LOAD 

34775 035272 ISZ SYtfCK 8TARTIN& 

34776 044354 SYhCI ADB .+2 TAB|.E ENTRY 

34777 150001 CPA lrl MATCH? 

35000 027006 JMP SYMC2 YES 

35001 035440 ISZ COUNT NO, POSSIBILITIES LEFT? 

35002 026776 J M p SYhCI YES 

35003 001727 ALF#ALF NO, 

35004 010441 AND B177 RESTORE 

35005 125272 jMP SYMCK/I CHARACTER 

35006 044351 SYMq2 Ad b ,*1 FETcH 

35007 160001 LDA 1,1 AND 

35010 010664 AND QPM8K STORE 

35011 171574 STA SBPTR,I OPERATOR 

35012 035272 xSZ 8YMCK CUDE 

35013 125272 JMP SYMCK,I 
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0382** 








** 


0383*** SEARCH FOR 


PRINT FUNCTIONS < 


t** 


0384** 








** 


0385* 












0386* 


SEARCH THE INPUT 


STRING FOR A ' 


•TABS 'LIN» OR «SPA' FUNCTION 


0387* 


IF FOUND, RECORD 


IT. AND EXIT TO CP+D. OTHERWISE RESTORE THE 


0388* 


INPUT 


f STRING 


AND 


SYNTAX BUFFER 


POINTER AND EXIT TO (P+2), 


0389* 












0390 


35014 


064347 


#Pf-SH LDB ,»3 


3 POSSIBLE FUNCTIONS 


0391 


35015 


060510 




IDA ATAB 


SEARCH 


0392 


35016 


015246 




JSB TBSRH 


FOR THEM 


0393 


35017 


027032 




JMP PFSH1 


NONE FOUND 


0394 


35020 


007400 




CCB 


BACKUP 


0395 


35021 


045574 




ADB SBPTR 


BUFFER 


0396 


35022 


075574 




STB SBPTR 


POINTER 


0397 


35023 


001727 




ALF,ALF 


CONSTKUCT 


0398 


35024 


001723 




ALF,rAr 




0399 


35025 


130001 




IOR B,i 


FUNCTION 


0400 


35026 


030672 




IOR POFFU 




0401 


35027 


170001 




STA B.I 
JSB G ETPF 


OPERAND 


0402 


35030 


015250 




FETCH PARENTHESIZED FORMULA 


04fc>3 


350J1 


125550 




JMP PFSHHrl 




0404 


35032 


015452 


PFSHi JSB BCKSP 


BACKUP 


0405 


35033 


007400 




CCB 


To POINT 


0406 


35034 


045574 




ADB SBPTR 


FOLLOWING 


0407 


35035 


075574 




STB SBPTR 


LAST OPERATOR 


040B 


35036 


035550 




ISZ PFSRH 


EXIT TO 


0409 


35037 


125550 




JMP PFSRH, I 


(P*2) 
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0411** 

0412** 

0413** 

0414* 

0415* 

0416* 

0417* 

0416* 

0419* 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 
0445 
0446 
0447 
0446 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
045a 
0459 
0460 
046i 
0462 
0463 
0464 
0465 



* ALLOCATE COM STORAGE 



** 

*** 
** 



THE BEGINNING Of THE PROGRAM IS SCANNED FOR <CQM STATEMENTS> t THE 
AMOUNT OF COM STORAGE NEEDED IS COMPUTED, A POINTER (SPROG) TO 
THE START OF THE PROGRAM IS CREATED AND THE PROGRAM IS SHIFTED TO 
HIGHER CORE TO A LL ow F OR THE COM STORAGE, 

35040 
35041 
35042 
35043 
35044 
35045 
35046 
35047 
35050 
35051 
35052 
35053 
35054 
35055 
35056 
35057 
35060 
35061 
35062 
35063 
35064 
35065 
35066 
35067 

35070 
35071 
35072 
35073 
35074 
35075 
35076 
35077 
35100 
35101 
35102 
35103 
35104 
35105 
35106 
35107 
35110 
35ui 
35112 
35113 
35114 
35ll5 



006400 


#ALCO 


CLB 




SAY NO COMMON 


075514 




STB 


DE8T 


ALLOCATED YET, 


064702 




LOB 


PBUFF 




075620 




STB 


STPTR 


POINTER TO FIRST STATfcMENT 


161620 


ALCOl 


LOA 


STPTR,! 


SAVE STATEMENT 


071570 




STA 


,LNUM 


NUMBER 


035620 




ISZ 


STPTR 




145620 




ADB 


STPTR, I 




075236 




STB 


NSPTR 


POINTER TO NEXT STATEMENT 


035620 




ISZ 


STPTR 




161620 




LDA 


STPTR, I 


EXTRACT 


010664 




AND 


OPMSK 


OPERATOR 


050742 




CPA 


COMOP 


COM STATEMENT? 


027103 




JMP 


ALC02 


YES 


061514 


ALC06 


LDA 


DEST 


GET TOTAL COMMON ALLOCATED 


002003 




SZA, 


'RSS 


EXIT IF THERE wE K E 


125520 




JMP 


ALCOM,I 


NO COM STATEMENTS 


040702 




ADA 


PBUFF 


PROGRAM BEGINNING MOVES BY 


071577 




STA 


SPROG 


AMOUNT UF COMMON ALLOCATED, 


007400 




CCB 




POINTER To FIRST 


044056 




ADB 


PBPTR 


WORD TO BE MOVED 


060001 




LDA 


1 


POINTER TO 


041514 




ADA 


DEST 


FIRST DESTINATION 


071514 




STA 


DEST 


LOCATION 


002004 




INA 




RESET END OF 


070056 




STA 


pBpTR 


PRUGrAM pOlNTER, 


160001 


ALCO0 


L^A 


1,1 


MOVE A 


171514 




sta 


DE S T,I 


WOrD 


054702 




CPB 


PBUFF 


DONE? 


125520 




JMP 


ALCOM,! 


exit 


044351 




AOB 


• «•! 


N 0—»BuMp 


003400 




CCA 






041514 




ADA 


DEST 


POINTERS 


071514 




STA 


OEST 




027072 




JMP 


ALCO0 


AND LOOP 


161620 


ALC02 


LDA 


STPTR, I 


EXTRACT 


010371 




AND 


.♦l7B 


OPERAND 


002002 




SZA 




STRING? 


027II7 




JMP 


ALC03 


NO 


035620 




ISZ 


STPTR 


YESw'o 


035620 




ISZ 


STPTR 


EXTRACT 


161630 




LDA 


STPTR,! 


LENGTH 


002004 




INA 




COMPUTE 


001100 




AR8 




STgRAGE 


002004 




INA 




REQUIRED 


03562a 




ISZ 


STPTR 


BUMP PAST RIGHT BRACKET 
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0466 
0467 
0466 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0476 
0479 
0480 
0481 
0482 

0483 
0484 

0485 

04e6 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

04g4 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506* 

0507 

0508* 

0509* 

0510* 

0511* 

0512* 

0513* 

0514* 

0515* 

0516* 
0517 
0518 
0519 



35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 
35 

35 
35 
35 

35 
35 
35 
35 
35 
35 
35 
35 

35 
35 

35 

35 

3b 

35 
35 
35 
35 
35 
35 
35 
35 



16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 

42 
43 

44 

45 
46 
47 

50 
51 

52 
53 
54 
55 
56 

57 

60 

6l 
62 

63 
64 
65 
66 



027153 
040346 
002020 
027124 
002404 
02^152 
035620 
035620 
165620 
035620 
161620 
010664 
050744 
027136 
060001 
027145 
060001 

035620 
100200 
101620 
006002 
127I67 
035620 
000066 
002061 
000035 
127167 
040354 
001000 
041514 
071514 
040437 
015326 
035620 

065620 
05523$ 

002001 
027103 
054056 
027056 
027044 



JMp 
ALC03 ADA 
SSA 
JMP 
CIA, 
JMP 
ALC04 ISZ 
ISZ 
1.06 
ISZ 
IDA 
AND 
CPA 
JMp 
IDA 
JMP 
UDA 
ISZ 
MPY 

SZB 
JMP 
AU05 ISZ 
CLE, 

3EZ, 

SUA, 

JMP 

ADA 

ALCO7 AL3 

ADA 

STA 
ADA 
JSB 
ISZ 
LDB 
CPB 
RSS 
JMP 
CPB 
JMP 

Jmp 



ALC07+1 
.-4 

ALCQ4 

Ina 

ALC07 

STPTR 

STPTR 

STPTR, I 

STPTR 

STPTRrl 

OPMSK 

SCOMM 

**3 

1 

AUC05+1 

1 

STPTR 

S T P T R,I 



CUSlArl 

STPTR 

ELA 

SSA, RSS 

ERA 

CUSlA,j 

,♦2 

DE8T 

DEST 

,100 

CU8P 

STPTR 

STPTR 

NSPTR 

ALC02 
PBPTR 
ALC06 
A L C 1 



SIMPLE VARIABLE'/ 

NO 

YES*- ALLOW TWO WqRDS 

MUST BE ARRAY 

EXTRACT LENGTH 

&ET NEXT 

OPERATOR 
SUBSCRIPT COMMA? 
YES 

NO 

COMPUTE 
ARRAY 
SIZE 

TOO BIG? 

YES 

BUMP PAST 

TOO BIG? 
NO 
YES 

ALLOW 4 WORDS FOR DIMENSIONS 
DOUBLE EVERYTHING 
UPDATE 
POINTER 

CHECK F(jR storage overflow 

END OF STATEMENT 

YES 

NO 

END OF PROGRAM? 

YES 

NO 



35167 035176 CUSU DEF CUSPt 

* ** 
** INSURE SPACE FOR NEW ENTRY *** 

* ** 



A CHECK IS MADE THAT THE UNUSED 
LEAST AS LARGE A3 THE NUMBER OF 
(A). EXIT TO E R rO R IF NOT SO. 
ON NORMAL £XiT (A) CONTAjNS |TS 



35170 040056 

35171 071476 

35172 003000 



tfCUSP 



ADA PBPTR 
STA Col 
CMA 



user space is at 
words specified by 
(b) i5 not changed, 
Entry value ♦ (pbptr), 

AT LEAST 
(A) wORDS 

qF available 
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0520 

0&21 

0522 

0523 

0524 

0525 

0526 

0527* 

13528* 

0529* 

0530* 

0531* 

0532* 

0533 

0534 

0535 

0536 

0537 

0530 

0539 

0540* 

0541* 

0542* 

0543* 

0544* 

0545* 

0546* 

0547 

0546 

0549 

0550 

0551 

0552 

0553 

0554* 

0555* 

0556* 

0557* 

0558* 

0559* 

0560 

0561 

0562 

0563 

0564 

0565 
0566 



35l 7 3 
35174 
35175 
35176 
35j77 
35200 
35201 



040462 

002021 



APA LWAUS 
SSA,RSS 



USER 
SPACE? 



* 
** 



027200 JMP **3 YES 
015322 CUSPl J88 DCMPL NO, DECOMPILE 
U 5i20 JSB RERRS+i0,I OUT OF STORAGE 
061476 IDA CUl RETURN WITH NEW 
125326 JMP CUSP, I VALUE OF PBPTR 

** 
ADVANCE SYNTAX BUFFER POINTER *** 

** 



(A) AND (3) REMAIN AS UPON ENTRY 



35202 
35203 
35204 
35205 
35206 
35207 
35210 



0713G6 
035574 
061574 
051472 
115101 
061306 
125270 



** DEMAND A LEFT 



#SBPU STA SBT0 SAVE (A) 

137, SBPTR ADyANCE POINTER 
LDA SBPTR BUFFER 

CPA SYNTO overflow? 
JSB SERRS*3l,I YES 
LDA SBT0 NO, RETRIEVE (A) 
JMP 3BPUD,I 

** 
PARENTHESIS *** 

** 



INSIST CHARACTER 
AS A « (», 



IN (A) BE •(' OR ' t' 



RECORD IT 



35211 
35212 
35213 
35214 
35215 
35216 
35217 



064350 
015272 
033403 
115070 
060624 
171574 
125252 



#LPCK 



LDB 
JSB 

def 

JSB 
LDA 
STA 
JMp 



.-2 •<» 

SYMCK OR 

LBRAC-1 » 11 ? 
SERRS*22,I NO 



** STATEMENT LENGTH 



UPOP 
SBPTR, I 
LpCK,i 

** 

CHECKER *** 

** 



YES, RECORD 
A • (i 



,-3 



CHECK THAT (a) (THE STATEMENT 
IF NOT, EXIT TU ERROR, 

35220 040347 #SLCK ADA 

35221 002020 SSA 

35222 115167 JSB 

35223 042005 ADA 

35224 002020 SSA 

35225 125556 JMP 

35226 115167 JSB 



LENGTH) IS BETWEEN 3 AND 105' 



RERRS+49,1 
M103 



TOO SMALL 



STLCK,I OK 
RERRS+4y,I TOO 



BIG 
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0002 

0003 

00.04 

0005 

0006 

0007 

0008 

0009 

0010* 

0011* 

0012** 

0013** 

0014** 

0015* 

0016* 

0fl7* 

0010* 

0019* 

0020* 

0021* 

0022* 

0023* 

0024* 

0025* 

0026* 

0027* 

0026* 

0029* 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0046 

0049 

0050 

0051 

0052 

0053 

0054 
0055 
0056 



36000 
36000 
36001 
36002 
36003 
36004 
36005 
36006 



011610 
000364 
037025 
037016 
041675 
075045 
067000 



,5000 

A. 10 
APTK2 

APTR1 
DONfcA 
CSVRT 
MATOP 



ORG 
DEC 
DEF 
DEF 
DEF 
DEF 
DEF 
OCT 



360006 

5000 

,♦10 

8YMT7 

3YMT6 

EXIT3 

C3AV2 

67000 



************************** 
** ** 

* »CQMPIU« THE PROGRAM ** 
** ** 

************************** 



SYMTB.0 IMPLIES THE PROGRAM IS 
SYMBOLIC FORM SYMTB#0 AND SP 
COMPILED' j VARIABLE OPERANDS A 
STATEMENT REFERENCES ARE REPLA 
SyM T B ■ SPjR IMPLIES jHE PROGR 
E N TRIES ConTAIn POSTERS Tq A 
FUNCTIONS TO T H E DEFiNiN G FORM 
CONTAINING INFOKM A TION FOR EaC 

building the symbol tabler the 
is set to the statement refere 
lowest numbered statement Is t 



IN 'SOURCE 1 ? ALL OPERANDS ARE IN 
TRptf IMPLIES THE PROGRAM IS 'SEMI- 
RE POINTERS TO A SYMBOL TABLE AND 
CED BY ABSOLUTE POINTERS, 
AM IS 'COMPILED': T HE SYMBOL T ABLfc 
VALUE TABLE OR *N THE CASE tf 
ULA, AND A TABLE jS BUILT 
H FILE IN THfc PROGR A M, BEFORE 

INTERPRETER'S PROGRAM COUNTER 
NCED BY THE |RUN» COMMAND (THE 
HE DEFAULT CHOICE), 



36007 
36010 
36011 
36012 
36013 
36014 
36015 
36016 
36017 
36020 
36021 
36022 
36023 
36024 
36025 
36026 
36027 
36030 
36031 
36032 
36033 
36034 
36035 
36036 
36037 
36040 
36041 



064702 
054056 
126004 
006404 
075334 
015464 
015450 
026025 
015452 
015466 
075334 
050367 
002001 
115122 

103100 
160257 
030372 
170257 
102100 
064702 
055577 
015520 
061575 
002003 

060056 
065334 
015314 



CMPLE 



CMP15 



LDB PBUFF 


NULL 


CPB P8PTR 


PROGRAM? 


JMp DoNEAfI 


YES 


CLB,IN8 


INITIALIZE 


STB PRGCT 


PROGRAM COUNTER 


J3B SlNlT 


SIMPLE 


JSB GETCR 


'RUN' ? 


JMP CMP15 


YES 


JSB bcksp 


NO 


JSB BLDIN 


DEMAND AN INTEGER 


STB PRGCT 


SAVE STARTING STATEMENT NUMBER 


CPA ,*15B 


END OF REC0rlD7 


RSS 


YES 


JSB RERRS+12, 


I NO 


CLF 




LDA MAIN, I 


DON'T 


IOR UNA8T 


allow 


STA MAIN,! 


AB0RT8 


STF 




LDB PBUFF 




CPB SPROG 


NO, COM STORAGE ALLOCATED? 


JSB ALCOM 


NQ»-»DQ IT ^ 


LDA symtb 


GET SYMBOL TAB L E POINTER = 
IS PROGRAM COMPILED ? «J 


SZA,RS3 


LDA PBPTR 


NO, USE PBPTR 


LOB PRGCT 


GET STARTING STATEMENT NUMBER 


JSB pNDPS 


SEEK REFERENCED STATEMENT 
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id057 


36042 


126004 




JMP 


OONEAf I 


NOT WITHIN PROGRAM 


0058 


36^43 


000000 




NOP 




SET 


0059 


36044 


075334 




8TB 


PRGCT 


PROGRAM COUNTER 


005k! 


36045 


060257 


CMPH 


LOA 


MAIN 


TELL 21H 


0061 


36046 


002004 




INA 






0062 


36047 


160000 




LOA 


»fl 


THAT USER 


0063 


36050 


030227 




IOR 


UlR 




14064 


36051 


114500 




JSB 


S14LP,I 


is Running 


0065 


36052 


061575 


CMPL0 


LOA 


SYMTB 


PROGRAM 


0066 


36053 


002003 




SZA, 


>KSS 


uncqmpileD? 


0067 


36054 


026071 




JMP 


CMP00 


YES 


0068 


36055 


051230 




CPA 


SPTR 


NO, COMPILED? 


0069 


36056 


002001 




RSS 




YES 


0070 


36057 


026067 




JMP 


CMP16 


NO, MUST BE SEMICOMPILED 


0071 


36060 


065773 




LOB 


A8INP 




0072 


36061 


006003 




SZB ( 


-RSS 


ASSIGN STATEMENT SEEN? 


0073 


36062 


027221 




JMp 


VALUE 


NO 


0074 


36063 


015522 




JSB 


RSTPT 


YES, FAKE SEMICOMPILED P 


0075 


36064 


061575 




L OA 


SYMTB 




0076 


36065 


071230 




STA 


SPTR 




0077 


36066 


026434 




JMP 


CMP18 




0078 


36067 




CMP16 


EQU 


* 




0079 


36067 


071230 




STA 


SPTR 




0080 


36070 


026423 




JMP 


CMP17 




0081 


36071 


071504 


CMP00 


STA 


FILTB 




0082 


36072 


103100 




C L F 







0083 


36073 


060354 




LOA 


CPLAG 


SET 


0084 


36074 


064273 




LOB 


MLJNK+1 




0085 


36075 


044335 




AOB 


,-?LINK 


PROGRAM MODE 


0066 


36076 


130001 




IQR 


1,1 




0087 


36077 


170001 




STA 


1,1 


TO 'COMPILED' 


0088 


36100 


102100 




STP 
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0090* 
0091* 
0092* 
0093* 
0094* 
0095* 
0096* 
0097* 
0098* 
0099* 
0100* 

0101* 

0102* 

0103* 

0104* 

0105* 

0106* 

0107* 

0106* 

0109* 

0110* 

0111* 

0112* 

0113* 

0114* 

0115 

0116 

0117* 

0118* 

0U9* 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0I3I 

0132 

0133 
0134 

0135 
0136 
01 37 
0136 



** BUILD THE SYMBOL TABLE 
* 



** 
*** 

** 



THE PROGRAM IS EXAMINED STATEMENT BY STATEMENT, ALL 
VARIABLE OPERANDS ARE REPLACED BY POINTERS (RELATIVE 
TO THE START OF THE SYMBOL TABLE) TO TWO WORD ENTRIES, 
SYMBOL TABLE EN T RIEs KEEP THE SYMBOL IN T*E FIR S t WORD 

and Information In the second, for functions the 

Se C ONd WORd CONTAINS A POlNTgR TO THE DEFINING FORMULA 

(0 before finding the «def statements, for simple 
variables the second word is used to form a linked list 
of unmatched fur*variables (otherwise it is 0) with 

FLINK pOlNjlNG TO THE INNERMOST NESTED FOR»y.«RlABL£, 

if T M fc simple variable appears in a <com statement 
the second word is set to «i. for ap«ay and string 
variables the second word is unless the variable 
appears in a <dim statement^ in which case it 

pOlNTS TO THE DIMENSIONS IN THE COOE, Op IT AppEARS 
t N A <COM STATEMENTS ;N W m iC m CASE jT iS Th£ 
NEGATION OF A POINTER TO THE DIMENSIONS, 
PROGRAM INTEGERS ARE REPLACED BY A POINTER TO THE 
STATEMENT THEY REFERENCE, ON EXIT TO VALUE OR DCMPL, 
SPTR POINTS TO THE FIpgT WOrD NOT PROCESSED. 



36101 
36102 



064056 
075575 



LOB PBPTR CREATE POINTER 
STB SYMT8 TO SYMBOL TAB^E 



COUNT NUMBER OF STATEMENTS IN PROGRAM 



36103 002404 CLA»INA 

36104 065577 LDB SPRQG 

36105 006004 C M p0t InB 

36106 144001 Adb lrl 

36107 044351 ADB ,«1 
36110 054056 CPB PBPTR 
36H1 026U4 J M P C M R02 

36112 002004 INA 

36113 026105 JMP CMP01 

36114 006400 CMP02 CLB 
36U5 100400 DIV ,*32 

36116 000412 

36117 007000 CMS 

36120 002003 SZA f RSS 

36121 006004 INB 

36122 002004 INA 

36123 071621 STA STCT1 

36124 075615 STB STCT2 

36125 064544 LDB ERSCA 

36126 075610 STB NUMPT 



INITIALIZE STATEMENT COUNTER 

MOVE To 
NEXT 

STATEMENT 
DONE? 
YES 
NO»*BUMP COUNTER 

DIVIDE U OF STATEMENTS 
INTO 32 PARTS 

8ET B»~l-# OF OVERSIZE GROUPS, 
BUT IF <32 STATEMENTS USE *# 

SET A TO SIZE OF LARGER GROUP 
SET COUNTER 

SET POINTER TO TABLE 
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0140* 

014U 

0142* 

0143* 

0144* 

0145* 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 
0159 

0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 

016a* 

0169 

0170 

0171 

0172 

0173 

0174 

0175* 

0176 + 

0177* 

0178 

0179 

0180 

0181 
0182 
0183 
0}84 
0185 
0186 
0187 
0186 
0189 
0190 
0191 
0192 
0193 
0194 



BUILD A TABLE. OF 64 WORDS, THE 

NUMBERS OF 3TATEMNTS WHICH DlV 

EGUAl PARTS, THE SECOND 32 WOR 
OF THESE STATEMENTS 



FIRST 32 CONTAIN THE SEQUENCE 
IDE THE PROGRAM INjO 32 ALMOST 
DS ARE ThE ABSOLUTE ADDRESSES 



36127 
36130 
36131 
36132 
36133 
36134 
36135 
36136 
36137 
36140 
36141 
36142 
3&143 
36144 
36 t 45 
36146 
36i47 
36150 
36151 
36J52 
36153 
36iS4 

36155 
36156 
36157 
36160 

36l6l 
36162 



061577 

044412 
170001 
164000 
1756J0 
035610 
035615 
006401 
007400 
045621 
075621 
007000 

075616 
065610 
054644 
026155 
035616 
002005 
026130 
140000 
040351 
026147 

002404 
071234 
01 5324 
036405 
002041 
026240 



LDA 
CMP03 ADB 
STA 
LDB 
STB 
ISZ 
ISZ 
CLB, 
CCB 
ADB 
STB 
CMB 
STB 
LDB 
CPB 
JMP 
ISZ 
IN A, 

JMP 
ADA 
ADA 
JMP 



SPR06 

,♦32 

1/1 

0a 

NUMPT, 

NUMPT 

STCT2 

RSS 

STCTl 
STCT1 

STCT3 

NUMPT 

ERS32 

CMP04 

STCT3 

RSS 

CMP03 

0,1 

,-1 

*•$ 



CMP04 CLArlNA 

STA FLINK 
J8B PRNST 
DEF CMP11 
SEZ,RSS 
JMP CMPL3 



* PROCESS NON..VARIABLE OPERAND 



36163 
36i64 

36165 
36166 
36167 
36170 
36j7i 
36172 
36173 
36174 
36175 
36176 
36177 
36200 
36201 
36202 
36203 



040346 
002021 
026703 
035230 
065230 
055236 

026405 
064544 
160001 
003000 
141230 
002024 
026207 
006004 
054644 

002001 
026173 



CMPL1 



CMP05 



ADA 
SSA 
JMP 
ISZ 
LDB 
CPB 
JMP 
LDB 
L DA 
CMA 
ADA 
SSA 
JMP 
XnB 
CPB 
RSS 
JMP 



t *4 
,RSS 
PRNS2 
SPTR 
3PTR 
NSPTR 

CMPn 
ErsCa 

1,1 

SPTR, I 
, INA 
CHP06 

ERS32 
CMP05 



set Absolute adoress into table 
set sequence # into table 

bump pointers 
test for any more 
oversize groups 

COMPUTE SIZE OF NEXr GrOuP 



TEST FOR DONE 



COMPUTE FIRST STATEMENT 
IN NExT GROUP 



SET FOR.QUEUE TO EMPTY 
INITIALIZE 

COMPILATION 
WAS FLAG BIT SET? 
NO 



* 
** 



PROGRAM 

INTEGER? 
NO, MUST BE A PARAMETER 
YES, MOVE 

TO NEXT WORD 
STATEMENT FINISHED? 
YES 

BEGIN 3EARCH FOr rEFErNECED STMT 
FIRST STATEhEnT »>SQUGHT STATE,? 



FOUND ONE 
TEST POR DONE 



PAGE 


0081 t 


*07 COMPILATION AND DECOMPILATION 


13195 


36204 


044411 




AOB 


,♦31 




0196 


36205 


061575 




IDA 


SYMTB 


8TATEMENT IS IN LAST GROUP 


01«7 


36206 


026216 




JMP 


CMP07 




0198 


36207 


044412 


Cnp06 


AOB 


.♦32 


B»> FIRST 3TATEMNT IN GROUP 


0199 


36210 


002003 




SZA, 


rRSS 


TEST FOR FOUND 


0200 


36211 


026231 




JMP 


CMP09 




0201 


36212 


054644 




CPB 


ERS32 


TEST FOR NOT THERE 


0202 


36213 


026236 




JMp 


CMPL2 


ERRUR 


0203 


36214 


160001 




loa 


lrl 


SET A»> FIRST WORD BEYOND GROUP 


0204 


36215 


044351 




aob 


e"l 




0205 


36216 


164001 


CMP07 


LOB 


ltl 




0206 


36217 


071621 




STA 


STCT1 


SAvE END TEST 


0207 


36220 


161230 




LOA 


8PTR,I 


GET SEQUENCE NUMBER 


0206 


36221 


006004 


CMP08 


IN8 




BUMP STATEMENT POINTER 


0209 


36222 


144001 




AOB 


1,1 




0210 


36223 


044351 




AOB 


.-1 




0211 


36224 


055621 




CPB 


STCTl 


TEST FOR PONE 


0212 


36225 


026236 




JMp 


CMpL2 


LABEL NqT F0UND--ERR0R 


0213 


36226 


150001 




CPA 


l'I 


test fop found 


0214 


36227 


026232 




JMP 


CMP09-H 




0215 


36230 


026221 




JMP 


CMP08 




0216 


36231 


164001 


CMP09 


LDB 


8PTR,I 




0217 


36232 


175230 




STB 


FOUND—REPLACE INTEFER 


0216 


36233 


035552 




isz 


IN^ST 


In 'usInG* state m EnT? 


0219 


36234 


026166 




JMP 


CMPH 


NO 


0220 


36235 


026703 




JMP 


PRN32 


YES 


0221 


36236 


015322 


CMPL2 


JSB 


DCMPL 


DECOMPILE 


0222 


36237 


115106 




JSB 


RERH3, I 


NON-ExlSTENT STATEMENT NUMbER 


0223* 










* 




0224** PROCESS VARIABLE ' 


OPERAND ** 




0225* 










* 




(i)226 


36240 


071513 


CMPL3 


STA 


STMPi 


SAVE SYMBOL 


0227 


36241 


010371 




AND 


.♦17B 




0226 


36242 


050371 




CPA 


.♦17B 


FUNCTION? 


0229 


36243 


026327 




JMP 


CMPL6 


YES 


0230 


36244 


002003 




SZA, 


-RSS 


NO, STRING VARIABLE? 


0231 


36245 


026350 




JMP 


CMPL9-3 


YES 


0232 


36246 


040346 




ADA 


,.4 


NO, 


0233 


36247 


002020 




SSA 




ARRAY? 


0234 


36250 


026353 




JMP 


CMPL9 


YES 


0235 


36251 


015316 




JSB 


3SYMT 


NO, COMPILE 


0236 


36252 


035230 




ISZ 


SPTR 


SIMPLE VARIABLE 


0237 


36253 


054742 




CPB 


COMOP 


•COM»V 


0238 


36254 


026320 




JMP 


CMP41 


YES 


023 9 


36255 


055775 




CPB 


FOROP 


NO, FOR-VARIABLE OF 'FOR'? 


0240 


36256 


026301 




JMP 


CMPL4 


YES 


0241 


36257 


054646 




CPB 


NXTOP 


NO, FOR-VARIABLE OF 'NEXT' ? 


0242 


36260 


002001 




RSS 




YES 


0243 


36261 


026704 




JMP 


PRNS2+1 


NO 


0244 


36262 


065234 




LOB 


FLINK 




0245 


36263 


006020 




SSB 




MAKE 


0246 


36264 


007004 




CMbi 


-INb 


POSITIVt 


0247 


36265 


055614 




CPB 


STMP2 


MATCH LATEST <FOR STATEMENT V 


0248 


36266 


026271 




JMp 


* + 3 


YES 


0249 


36267 


015322 




JSB 


OCMpL 


Nq, DECoMpILE 
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0250 36270 U5107 JSB RERRS+1,1 

0251 36271 065234 LOB FLINK 

0252 36272 161614 LDA STMP2,I 

0253 36273 071234 SIA FLINK 

0254 36274 006020 SS B 

0255 36275 007401 CCB,RSS 

0256 36276 006400 CUB 

0257 36277 175614 STB STMP2,I 

0258 36300 026704 J M P PRNS2+1 
025g 36301 1616J4 CMPL4 LOA STMP2,I 

0260 36302 002002 SZA 

0261 36303 002007 INA,SZA,RSS 

0262 36304 026307 JMP CMPL5 

0263 36305 015322 J$& OCMPL 

0264 36306 115110 JSB RERRS+2,1 

0265 36307 065614 CMPL5 LOB STMP2 

0266 36310 161614 LDA STMP2,I 

0267 36311 002020 SS A 
026B 36312 007004 CmB,InB 

0269 36313 0&1234 LDA FUNK 

0270 36314 171614 STA STMP2,I 

0271 36315 075234 STB FLINK 

0272 36316 035240 ISZ STYPE 

0273 36317 026 7 04 JMP PRNS2+1 

0274 36320 061614 CMP41 LDA STMP2 

0275 36321 164000 LDB A, I 

0276 36322 006002 SZB 

0277 36323 026403 JMP CHPJ0+1 
027B 36324 007400 CCB 

0279 36325 174000 STB A, I 

0280 36326 026704 jmP PRNS2+1 

0281 36327 0J53J6 CMPL6 JSB SSYMT 

0282 36330 055774 CPB DEFOP 

0283 36331 002001 RSS 

0284 36332 026703 JMP PRNS2 

0285 36333 165614 LOB STMP2,I 

0286 36334 006002 SzB 

0287 36335 026345 J M P CmPL8 

0288 36336 061614 LDA STMP2 

0289 36337 035240 ISZ STYPE 

0290 36340 065230 CMPL7 LDB SPTR 

0291 3634! 044355 AOB .+3 

0292 36342 075230 STB SPTR 

0293 36343 174000 STB 0rl 
02»4 36344 026704 JMP PRNS2+1 

0295 36345 035230 CMPL8 I3Z S?TR 

0296 36346 015322 Js** OCMPL 

0297 36347 115m JSB RERRS+3,1 

02 9 8 36350 015316 JSB SSYMT 

0299 36351 035613 ISZ STMPi 

0300 36352 002001 RSS 

0301 36353 015320 CMPL9 JSB ASYMT 

0302 36354 002300 CCE 

0303 36355 054742 CPB COMOP 

0304 36356 026362 JMP CMP91 



NEXT NOT PRECEDED BY PROPER FOR 

REMOVE 

VARIABLE 
WA3 VARIABLE IN COMMON? 
NO 
NO 
RESET AS SIMPLE VARIABLE 

LOAD SECOND WORD OF TABLE ENTRY 
ALREADY IN FOR-QUEUE? 
COMMON VARIABLE 

OECOMPILE 

NESTED »FOR«S» W ITH SAME VARlABL 

WAS VARIABLE 
IN COMMON? 
YES 
ADD 

TO 

FOR, QUEUE 

DESTROY STATEMENT TYPE 



GET POINTER 

already In common? 

flag variable as 
contained in common 

compile function name 
function definition? 

YES 
NO 

PREVIOUSLY 
OEFINED? 
YES 
NO 
DESTROY STATEMENT TYPE 

ADVANCE 

PROGRAM 
POINTER 
SAVE 

POINTER 

oecompile 

function defined twice 
compile string variable 
set to isingl* subscripted! 
process possible declaration 
compile array variable 
set 'com' fuo 

•COM'? 
YES 
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0305 ' 


36357 


054636 






CPB OIMOP 


NO, '0IM'? 


0306 


36360 


002101 






CLE,R8S 


YES**3ET 'DIM' FLAG 


0307 


36361 


026703 






JMP PRNS2 




0308 


36362 


165614 


CMP91 


LOB STMP2,I 


was variable 


0309 


36363 


006002 






SZ0 


PREVIOUSLY DIMENSIONED? 


0310 


36364 


026402 






JMP CMP10 


YES 


0311 


36365 


065230 






L08 SPTR 


NO, SAVE POINTER 


0312 


36366 


044354 






ADB ,+2 


TO DIMENSIONS 


0313 


36367 


002040 






SEZ 


DIMENSIONED IN 'COM' ? 


0314 


36370 


007004 






CMB,INB 


YES-*FLAG IT 


0315 


36371 


175614 






STB STMP2,I 


NO 


0318 


36372 


065230 






LOB SPTR 


RESTORE 


0317 


36373 


044354 






AOB ,+2 


POINTER 


0318 


36374 


061613 






LOA STMP1 


RETRIEVE SYMBOL 


0319 


363/5 


002011 






SLA,RSS 


ADVANCE 


0320 


36376 


044354 






ADB ,+2 


POINTER 


0321 


36377 


044354 






ADB ,+2 


PAST 


0322 


36400 


075230 






STB SPTR 


ONE OH TWO 


0323 


36401 


026705 






JMP PRNS2+2 




0324 


36402 


035230 


CMP10 


ISZ SPTR 




0325 


36403 


015322 






jSO DCMPL 


DECOMPILE 


0326 


36404 


115112 






JSB RERRS+4, 


I VARIABLE DEFINED TWICE 


0327* 










* 




0328** PROCESS END 


Of- 


STATEMENT ** 




0329* 










* 




0330 


364k)5 


055575 


CMP 


'11 


CPB SYMTB 


END OF PROGRAM? 


0331 


36406 


002001 






Rss 


YEs 


0332 


36407 


026607 






JMP PRNS1 


NO 


0333 


36410 


075230 






sre SPTR 


INSURE CORRECT SETTING FOR SPTR 


0334 


36411 


061240 






LDA STYPE 


LAST STATEMENT 


0335 


36412 


050650 






CpA E|\|Ogp 


A N »EnD' ? 


0336 


36413 


026416 






JMP CMP12 


YES 


0337 


36414 


015322 






JSB DCMPL 


NO, DECOMPILE N 


0338 


36415 


115113 






JSB REPRS+5, 


I MISSING 'END' 


0339 


36416 


002404 


CMP12 


CLA, INA 




0340 


36417 


051234 






CPA FLINK 


ALL FORS MATCHED? 


0341 


36420 


026423 






JMP **3 


YES 


0342 


36421 


015322 






JSB DCmPU 


DECOMPILE 


0343 


36422 


115114 






JSB rErrS+6, 


I 'F R« WITHqUT 'NEXT' 


0344 


36423 




CMP17 


£QU * 




0345 


36423 


002400 






CLA 




0346 


36424 


071600 






sta vlflg 


MUST RUN VALUE, 


0347 


36425 


064056 






LDB PBPTR 


SET POINTER TO 


0348 


36426 


075504 






STB FILTB 


end op symbol table, 


0349 


36427 


060273 






LDA MLINK*l 


IS C3AVE 


0350 


36430 


040351 






ADA ,+?3TAt- 


?LINK 


0351 


36431 


160000 






loa 0,1 


RUNNING 


0352 


36432 


050374 






CpA ,+5+CsAV 


-COM2 


0353 


36433 


126005 






JMP cs v rt,i 


yES*»ExIT to it 


0354* 














0355* 


FILCT t -5 AT THIS 


POINT UNLESS 


THE PROGRAM CONTAINS A 


0356* 


<FILES STATEMENT 


>. 


THE CALL TO 


8CHL0,J LEAVES VALTB « 


0357* 


FILtB+7*(NUMBEr 


OF 


FILES rEqUEs 


TED), IF NO <FILEs STATEMENT* 


0358* 


APPEARS, VALTB ■ 


' FILTB, 




0359* 
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0360 


36434 




CMP18 


EQU 


0361 


36434 


061606 




IDA 


0362 


36435 


050345 




CPA 


0363 


36436 


026445 




JMP 


0364 


36437 


114532 




J38 


0365 


36440 


072037 




DEF 


0366 


36441 


115123 




j s b 


0367 


36442 


115124 




JSB 


0368 


36443 


115120 




JSB 


0369 


36444 


027223 




JMP 


0370 


36445 


065504 


CMP13 


LOB 


037J 


36446 


075576 




STB 


0372 


36447 


027223 




JMP 



DECOMPILATION 



ANY <FIlES 

statements*? 

NO 

request pile table 



filct 

,»6 

CMP13 

SCHLB,I 

FILIB 

RERRs+13,1 BAO FORMAT OR ILLEGAL NAME 

RERRS+14,1 MISSING OR PROTECTED FILE 

RERRS+10,1 OUT OF STORAGE 

VALUE+2 SUCCESSFUL REQUEST 

FILTB SET VALUE TABk.E 

VALTB POINTER. 

VALUE+2 
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0374** 








** 


037b*** DECOMPILE - 


«*LL OR 


PART OF PROGRAM *** 


0376** 








** 


0377* 












0378* 


IF CFLAGUJ < 


■ PROGRAM IS IN 


SOURCE, EXIT IMMEDIATELY; 


0379* 


ELSE 


SET CFLAGII1 


p AND DECOMPILE PROGRAM, SPTR POINTS 


0380* 


INITIALLY TO 


LAST 


WQRD+1 OF COMPILED PROGRAM, ABSOLUTE 


0381* 


ADDRESSES ARE REPLACED BY THE ; 


SEQUENCE NUMBERS TO WHICH 


0382* 


THEY 


POINT, 


VARIABLE OPERAND 1 


POINTERS ARE REPLACED BY 


0383* 


ThEiR SYMBOL 


, P8PTR IS SET TO 


LAST WQRD+i OF PROGRAM, 


0384* 












0385 


36450 


060354 


#DCMP 


LDA CFLAG 


PROGRAM 


0386 


36451 


064273 




LDB MLINK+1 




0387 


36452 


044335 




AOB ,„?LINK 




0388 


36453 


110001 




AND t,i 


COMPILED? 


0389 


36454 


002003 




SZA,RSS 




0390 


36455 


026553 




JMP DCMP4 


NO 


0^91 


36456 


103100 




CLF 


YES 


0392 


36457 


120001 




XOR 1,1 


SET PROGRAM MODE 


0393 


36460 


170001 




STA 1,1 


TO 'UNCOMPILED' 


0394 


36461 


102100 




STF 




0395 


36462 


060056 




LOA PBPTR 


NULL 


0396 


36463 


050702 




CPA PBUFF 


PROGRAM'/ 


0397 


36464 


026551 




JMP DCMP3+2 


yES 


03 9 » 


3 6 4 6 5 


6 1230 




LDA SPTR 


SPTR«0 TO FLAG 


0399 


36466 


002003 




SZA,RSS 


SEMI-COMPILED ? 


0400 


36467 


061575 




LDA 8YMTB 


YES,.„RESET IT TO CORRECT VALUE 


0401 


36470 


071230 




STA SPTR 


SET TERMINATION 


0402 


36471 


071504 




STA FILTB 


ADDRESS 


0403 


36472 


015324 




JSB PRNST 


INITIALIZE 


0404 


36473 


036607 




DEF PRNS1 


DECOMPILATION 


0405 


36474 


006441 




CLB,3EZ,RSS 


WAS FLAG BIT SET? 


0406 


36475 


026515 




JMP DCMP2 


NO 


0407* 










* 


0408** PROCESS NON. 


^VARIABLE OPERAND 


** 


0409* 










* 


0410 


36476 


040346 




ADA ,«4 


PROGRAM 


04U 


36477 


002021 




SSA,RSS 


INTEGER? 


0412 


36500 


026703 




JMP PRNS2 


NO 


0413 


3 6 50l 


035230 


DCMPi 


ISZ SPTR 


YES, MOVE TO 


0414 


36502 


065230 




LDB SPTR 


NExT w ORD 


041 5 


36503 


055504 




CPB FILTB 


DONE? 


"4*6 


365«4 


026547 




JMP DCMP3 


YES 


0417 


36505 


055236 




CPB NSPTR 


NO, STATEMENT DONE? 


0418 


36506 


026610 




JMP PRNSH-1 


YES 


0419 


36507 


1&1230 




LDA SPTR, I 


NO, REPLACE 


0420 


36510 


160000 




LDA 0,1 


ABSOLUTE ADDRESS 


0421 


36511 


171230 




STA SPTR, I 


WITH SEQUENCE NUMBER 


0422 


36512 


035552 




ISZ INFST 


IN <USING STATEMENT*? 


0423 


36513 


026501 




JMP DCMPI 


NO 


0424 


36514 


026703 




JMP PRNS2 


YES 


0425* 








* 




0426** PROCESS VARIABLE 


OPERAND ** 




0427* 








* 




042« 


36515 


040351 


DCMP2 


ADA ,»t 


COMPUTE 
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'ILATIUN 


0429 


36516 


101117 


RRR 


15 


SYMBOL TABLE 


0430 


3 6 5l7 


045575 


ADB 


SYMTB 


ADDRESS 


0431 


36520 


161230 


LDA 


SPTR,I 


extract 


0432 


36521 


010664 


AND 


OPMSK 


OPERATOR 


0433 


36522 


130001 


IQR 


1>1 


REPLACE OPERATOR- 


0434 


36523 


171230 


STA 


SPTR,I 


OPERAND PAIR IN CODE 


0435 


36524 


065240 


LOB 


STYPE 




0436 


36525 


054636 


CP8 


DIMOP 


'DIM* ? 


0437 


36526 


026532 


JMP 


DCMP6 


YES 


0438 


36527 


054742 


CPB 


COMOP 


NO, 'COM*? 


0439 


36530 


002001 


RSS 




YES 


0440 


36531 


026703 


JMP 


PRNS2 


NO 


0441 


36532 


065230 


DCMP6 LOB 


SPTR 




0442 


36533 


006004 


XN8 






0443 


36534 


055504 


CPB 


FILTB 


DONE? 


0444 


36535 


026547 


JMP 


DCMP3 


YES 


0445 


36536 


006004 


INS 




NO 


0446 


36537 


010371 


ANO 


.♦178 


STRING 


0447 


36540 


040346 


AOA 


'Wwf 


SIMPLE 


044a 


365*1 


002021 


S8A, 


-RSS 


VARIABLE? 


0449 


36542 


026703 


JMP 


PRNS2 


YES 


0450 


36543 


040356 


AOA 


,♦4 


NO, STRING 


0451 


36544 


002003 


SZA, 


-RSS 


VARIABLE? 


0452 


36545 


002004 


INA 




yes, set tu single subscript 


0453 


36546 


026375 


JMP 


CMP10*5 




0454 


36547 


061575 


0CMP3 LOA 


SYMTB 


SET ACTIVE USER AREA POINTER 


0455 


36550 


070056 


STA 


pBpTR 


TO LAST WURD+1 ()F PROGRAM 


0456 


36551 


002400 


CLA 




ZERO 


0457 


36552 


071575 


STA 


SYMTB 


POINTER 


0458 


36553 


170634 


DCMP4 STA 


DCLC1,I 


BLOCK CLOCK 


0459 


36554 


064702 


LOB 


PBUPP 




0460 


36555 


055577 


CPB 


3PR0G 


COMMON ALLOCATED? 


0461 


36556 


026570 


JMP 


DCMP5 


NO 


0462 


36557 


054056 


CPB 


PBPTR 


YES, NULL PRQ6UAM? 


0463 


36560 


026570 


JMP 


DCMP5 


YES 


0464 


36561 


075514 


STB 


DEST 


NO 


0465 


36562 


061577 


LDA SPROG 


SET UP 


0466 


36563 


075577 


STB 


SPROG 


POINTERS 


0467 


36564 


064056 


LOB 


PBPTR 


FOR MOVE 


046)3 


36565 


015500 


JSB 


MOVER 


REMOVE COMMON AREA 


0469 


36566 


065514 


LOB 


DEST 


RESET END-Of-'- 


0470 


36567 


074056 


STB 


PBPTR 


PROGRAM POINTER 


0471 


36570 


114534 


DCMP5 JSB 


ABCK,I 


ABORT ATTEMPT DURING COMPILE? 


047 2 


36571 


160640 


LOA 


DCIC2,1 


NO»«UNBLOCK 


0473 


36572 


170634 


STA 


DCLCifl 


CLOCK 


0474 


36573 


125322 


JMP 


OCMPL f I 





MOD 
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0002** 










** 


0003*** PROCESS NEXT STATEMENT OF PROGRAM *** 


0004** 










** 


0005* 














0006* 


USED 


BY CMPLE AND 


DCMPL TO SCAN 


THROUGH THE PROGRAM, 


0007* 


A 'JSB PRNST 


» INITIALIZES THE SCANi tP*i) IS A POINTER 


0008* 


TO THE CODE 


FOR HANDLING THE ENC 


>.OF. STATEMENT CONDITION? 


0009* 


,Ln|U> 


1 HQLDS 


THE SEQUEM 


;E NUMBER 


OF THE STATEMENT bElNG 


0010* 


PROCESSED! SPTR POINTS 


TO T M E WORD OF ThE PROGRAM BEING 


0011* 


PROQESSEO. 


PRNST 


HANDLES <R£M STATEMENT*, «OATA STATEMENTS 


0012* 


STRING CONSTANTSr 


NULL 


OPERANDS, 


NUMERICAL CONSTANTS, AND 


0013* 


<FILES STATEMENT*. 


OTHER CASES 


EXIT TO (P*2), PRNST IS 


0014* 


RE-ENTERED DIRECTLY, LEAVING THE 


: INITIALIZED EXIT ADDRESSES 


0015* 


UNCHANGED jHROuGHOyj PROCESSING 


OF THE PROGRAM, 


00}6* 














0017 


36574 


161324 


#PNST 


LDA 


PRNST,! 


SET POINTER TO 


001* 


36575 


071242 




STA 


STEND 


END-OF, STATEMENT 


0019 


36576 


035324 




ISZ 


PRNST 


PROCESSING ROUTINE 


0020 


36577 


060452 




LDA 


DFILt 


INITIALIZE POINTER tO 


0021 


36600 


071605 




STA 


FILPT 


<FILES STATEMENT* TABLE 


0022 


36601 


002400 




CLA 




INITIALIZE 


0023 


36602 


0716J7 




STA 


COMSN 


COM FLAG 


0024 


36603 


071607 




SyA 


gSESN 


AND ySlNG FLAG 


0025 


36604 


060345 




LDA 


•-B 


INITIALIZE <FILES 


0026 


366 5 


071606 




STA 


FILCT 


STATEMENT* COUNTER 


0027 


36606 


065577 




LOB 


3PRQG 


INITIAL PROGRAM POINTER 


0028 


36607 


075230 


PRNSl 


STB 


SPTR 


SET PROGRAM POINTER TO STATEMENT 


0029 


36610 


161230 




LDA 


SPTR, I 


SAVE STATEMENT 


0030 


36611 


071570 




STA 


,LNUM 


SEQUENCE NUMBER 


0031 


366i2 


035230 




ISZ 


SPTR 


COMPUTE 


0032 


36613 


145230 




ADB 


S^TRfl 


LENGTH 


0033 


366* 4 


075«3 6 




STB 


NSPTR 


SAVE POINTER TO NEXT STATEMENT 


0034 


36615 


035230 




isz 


SPTR 


EXTRACT 


0035 


36616 


161230 




LDA 


SPTR,! 


STATEMENT 


0036 


36617 


010664 




AND 


OPMSK 


TYPE 


0037 


36620 


071240 




STA 


STYPE 


SAVE IT 


0038 


36621 


050742 




CPA 


COMOP 


iCOM» ? 


0039 


36622 


026625 




JMP 
STB 


**3 


YES 


0040 


36623 


075617 




COMSN 


no*«»cle a « com flag. 


0041 


36624 


026635 




JMP 


PRNS4 




0042 


36625 


065617 




LDB 


COMSN 


NON-COM 


0043 


36636 


006003 




SZB, 


.RSS 


STATEMENT SEEN? 


0044 


36627 


026704 




JMP 


PRN32+1 


NO 


0045 


3$630 


0$5230 




LDB 


SPTR 


YES, RESET 


0046 


36631 


044350 




ADB 


• "2 


STATEMENT 


0047 


36632 


075230 




STB 


SPTR 


POINTER 


0048 


36633 


015322 




JSB 


DCMPL 


ErrOr 


0049 


36634 


115160 




JSB 


RERRS*42, 


I 'COM' OUT OF ORDER 


0050 


36635 


050642 


PRNS4 


CpA 


REMgp 


•REMt ? 


0051 


36636 


026705 




JMP 


PRNS2*2 


YES 


0052 


366 3 7 


050Q52 




CPA 


DATOP 


NO, DATA? 


0053 


36640 


026705 




JMP 


PRNS2+2 


YES 


0054 


36641 


050746 




CPA 


IMGOP 


NO, IMAGE? 


0055 


36642 


026705 




JMP 


PRNS2+2 


YES 


0056 


36643 


050660 




CPA 


FILOP 


NO, 4FILES STATEMENT* ? 
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0057 
0058 
0059 
0060 
0061 
0062 
0063 

0064 
0065 
0066 
0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

d077 

0078 

0079 

0080 

0061 

0082 

0063 

0084 

00g5 

0086 

0087 

0088* 

0089* 

0090* 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 



36644 
36645 
36646 
36647 
36650 
36651 
36652 

36653 
36654 

36655 
36656 

36657 
36660 
36661 
36662 
36663 
36664 
36665 
36666 
36667 
36670 
36671 
36672 

36673 
36674 
36675 
36676 
36677 
36700 
36701 
36702 



002001 
026662 
065230 
044350 
039606 
026655 
07g230 

015322 
115150 
006004 
175605 
035605 
065236 
026705 
065230 
052006 
006005 
026670 
160001 
010664 
050656 
006005 
026701 

160001 
010664 
050776 
003401 
002001 
071607 
071552 
002001 



PRNS5 



PRNS6 



RSS 
JMp 
LDB 
AOB 
ISZ 
JMP 
STB 
J8B 
JSB 
INB 
STB 
ISZ 
LOB 

J«P 
LDB 
CPA 
INB, 

JmP 

LOA 

AND 

CPA 

INB, 

JMP 

LDA 

AND 

CPA 

CCA, 

RSS 
STA 
STA 
RSS 



PRN35 
SPTR 
,*»2 
FILCT 

♦ ♦4 
SPTR 
DCMPL 
RERRS+34, 

FILPT,I 

FILPT 

NSPTR 

PRNS2+2 

SPTR 

MATOP 

RSS 

♦ ♦3 

8,1 
OPMSK 

PRTUP 

RSS 

PRNS6 

1,1 

OPMSK 

USEOP 

RSS 

USESN 
INFST 



* PROCESS NEXT WORD OF STATEMENT 



36703 
36704 
36705 
36706 
36707 
36710 
36711 
36712 
36713 
36714 
36715 
36716 
36717 
36720 
36721 
36722 
36723 
36724 
36725 
36726 
36727 



035230 
065230 
055504 
026547 
055236 
125242 
161230 
010664 
050445 
026724 
121230 
002003 
026703 
001265 
002003 
026340 
125324 
121230 
040355 

001100 

041230 



PRN32 



PRNS3 



ISZ 

LDB 

CPB 

JMP 

CPB 

JMP 

LDA 

AND 

CPA 

JMP 

XOR 

SZA, 

JMP 

RAL, 

SZa, 

JMP 
JMP 
XOr 
ADA 
ARS 
ADA 



SPTR 

SPTR 

FILTB 

DCMP3 

NSPTR 

ST£ND,I 

SPTR, I 

OPMSK 

B1000 

PRNS3 

SPTR, I 

RSS 

PRNS2 

CLE#ERA 

RSS 

CMPL7 

RRNST,I 

SPTR, I 
,♦3 

SPTR 



YES 
N 

TOO MANY <FILES STATEMENTS^? 

NO 

YES— RESET STATEMENT POINTER 

I EXTRA <FIL£S STATEMENT 

SAVE POINTER TO «FILES STATEMENT 

SKIP OyER REST 
OF STATEMENT 

iMATi STATEMENT? 

yes, bump to next word 

NO 

EXTRACT 
OPERATOR 

•PRINT* statement? 

YES, BUMP TO NEXT WORD 

NO 

EXTRACT 

OPERATOR 
•USING' STATEMENT? 
YES, SET (A) 
NO 

SET 'USING SEEN' FLAG 
SET INTEGER FOLLOWS FLAU 

* 
** 

* 
MOVE TO 

NEXT WORD 
DECOMPILE FINISHED? 
YES 

NO, STATEMENT FINISHED? 
YES 
NO, ISOLATE 

OPERATOR 
11 1 

YES 

NO, GET OPERAND 
NULL OPERAND? 
YES 

NO, PUT FLAG BIT IN (fc) 
NUMBER? 
YES 
NO 

EXTRACT LENGTH 
COMPUTE 
POINTER 

TO CLOSING 
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12 

13 

14* 

15* 

16* 

17* 

18* 

19* 

20* 

21* 

22* 

23* 

24* 

25* 

26* 

27 

2 8 

29 

30 

31 

32 

33 

34 

35 

36 

37* 

38* 

39* 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50* 

51* 

52* 

53 

54 

55 

56 

57 

58 

59 

60 

61* 

62* 

63* 

64 

65 

66 



36730 
36731 

* 
** 

* 



071230 
026704 



STA 

JMP 



•COMPILE' A SYMBOL 



8 PT« 
PRNS2+1 
** 
*** 

** 



OuOfE 



ENTER WITH A SYMBOLIC NAME IN STMPl AND SEARCH THE 
SYMBOL TABLE FOR A MATCHING ENTRY, IF NO ENTRY IS 
FOUND, APPEND A NEW TWO WORD ENTRY WITH THE SYMBOL 
IN THE FIRST WORD AND IN THE SECOND, THE SYMBOL IN 
THE PROGRAM IS REPLACED WITH THE ORDINAL NOMBER OF 
ITS SYMBOL TABLE ENTRY, EXIT WITH THE NEW PROGRAM 
WORD IN (A), A POINTER TO THE SECOND WORD OF THE 
TABLE ENTRY IN STMP2, AND THE STATEMENT TYPE IN (B), 



36732 
36733 
36734 
36735 
36736 
36737 
36740 
36741 
36742 
36743 



060356 
015326 
061613 
065575 
054056 
026756 
150001 
026766 
044354 
026736 



3SSYM 



SYMTi 



LDA ,*4 
JSB CUSP 
LDA STMPl 
L DB SYMTB 
CPB PBPTR 
JMP SYMT3 
CPA 1,1 
JMP SYMT5 
ADB ,*2 
JMP SYMTi 



* HANDLE UNMATCHED ARRAY SYMBOL 



36744 
36745 
36746 
36747 
36750 
36751 
36752 
36753 

36754 
36755 



05j6i3 
002001 
026756 
034056 
034056 
061614 
002006 
026761 

170001 
044354 



SYMT2 



CPA 
RSS 
JMp 
ISZ 
ISZ 
L DA 



STMPl 



* CREATE A NEW TABLE ENTRY 



SYMT3 
PBPTR 
PBPTR 
STMP2 

INA,SZA 

JMP SYMT4 

STA 1» I 

ADB ,+2 

* 
** 



36756 
36757 
36760 
36761 
36762 
36763 
36764 

36765 



034056 

034056 
002400 

006004 
170001 
044351 
061613 
170001 



SYMT3 



SYMT4 



1,1 
.-1 
STMPl 

1,1 

* 
COMPILE' PROGRAM WORD ** 

* 



ISZ 
ISZ 
CLA 
INB 
STA 
ADB 
LDA 
STA 



PBPTR 
PBPTR 



36766 006004 

36767 075614 
36770 007000 



SYMT5 



INB 
STB 
CMB 



INSURE SPACE 

FOR NEW ENTRY 
RETRIEVE SYMBOL 

SYMBOL TABLE EXHAUSTED? 
YES 

no, is next symbol a match? 

YES 

NO, MOVE 

TO NEXT ENTRY 
* 
** 
* 

"DON»T KNOW" SYMBOL? 
YES 

NO, MAKE NORMAL TABLE ENTRY 
ALLOCATE SPACE 

FOR NEW ENTRY 
WAS A SlNgLt OR DOUBLE 

subscripted entry found? 
yes, include pointer in entky 
no, save space for later entry 

with number of dimensions 



ALLOCATE SPACE 

F 0R new entry 

INITIALIZE 

SECOND 
WORD 

put symbol 

IN FIRST 
WORD 



STMP2 



COMPUTE 
RELATIVE 
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0167 
0166 
0169 
0170 
0171 
0172 
0173 
0174 
017b 



36771 
36772 
36773 
36774 
36775 
36776 
56777 
37000 
37001 



045575 
007004 
005100 
161230 
010664 
030001 
171230 
065240 
1253*6 



AD8 SYMTB 

CMB,INB 

BRS 

LDA SPTR,I 

AND OPMSK 

IOR 1 

STA SPTR,I 

LOB STYPE 

JMP SSyMT,I 



AODRESS 

replace Symbol 
in program 

WITH RELATIVE 
ADDRESS 
LOAD STATEMENT TYPE 
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0177** 








** 




0178*** PROCESS ARRAY SYMBOL 


*** 




0179** 








** 




U180* 














0l8l* 


ENTER WITH AN ARRAY NAME IN STMP1, IF A MATCHING 


0182* 


SYMBOL TABLE 


ENTRY 


EXISTS. PROCEED AS IN SSYMT. ELSE IF 


0183* 


THE ARRAY IS 


SINGLY OR 


DOUBLY SUBSCRIPTED (LAST FOUR 


0184* 


BITS 


OF NAME 


ArE 0001 ( 


)r 0010)1 


EXIT IS TO CrrOr ON 


0185* 


Finding a conflicting t 


iNTRY? ON 


Finding only a "don't 


0186* 


KNOW 


« ENTRY 


(LAST 


FOUR 


BITS 0011), PROCEED AS IN SSYMT, 


0187* 


placing the 


APPROPRIATE ENTRY IN 


THE TWO WORDS ABOVE 


0186* 


THE » 


'DON'T KNOW" ENTRY 


AND SETTING A POINTER TO ITS 


0189* 


SECOND WORD 


INTO THE SECOND WORD 


OF THE "DON'T KNOW" 


0190* 


ENTR) 


1, IF THE SYMBOL J 


[3 AN UNMATCHED *DQN»T KNOW* 


0191* 


ARRA) 


t NAME, 


APPEND 


A a) 


fMBOL TABLE ENjRY; IF A 3 INGLY 


0192* 


OR D0UB1Y SUBSCRIPTED \ 


VERSION OP 


THE ARRAY HAS 8EE N 


0193* 


PREVIOUSLY FOUNp, I 


PLACE A POINTER TO THE SEcONu WORD 


0194* 


OF THE PREVIOUS ENTRY 3 


[NTO THE 3EC°ND WORD OF THE NEW 


01 95* 


"DON' 


'T KNOW" 


ENTRY; OTHERWISE LEAVE TWO WORDS ABOVE 


IS 196* 


THE NEW ENTRY, 








0197* 














0198 


37002 


051320 


#ASYM 


LDA 


ASYMT 


SET RETURN 


0199 


37003 


071316 




STA 


SSYMT 


ADDRESS 


0200 


37004 


003400 




CCA 




SET MATCH 


0201 


37005 


071614 




STA 


STMP2 


FLAG FALSE 


0202 


37006 


0g2003 




LOA 


APTRl 


INT1ALIZE 


0203 


37007 


071320 




STA 


ASYMT 


SEARCH LOOP 


0204 


37010 


060356 




LDA 


,♦4 


INSURE SPACE 


0205 


37011 


015326 




JSB 


CUSP 


FOR NEW ENTR Y 


0206 


37012 


065575 




LOB 


SYMTB 




020? 


37013 


06l6j3 




LDA 


STMP t 


RETRIEVE SYMBOL 


0208 


37014 


030355 




IOR 


.♦3 


sej array symbol 


0209 


37015 


027030 




JMP 


SYMT7*3 


TO "DON'T KNOW" 


0210 


37016 


040350 


SYMT6 


ADA 


, «2 


MATCH AS 


0211 


37017 


150001 




CPA 


lri 


'SINGLE SUBSCRIPT'? 


0212 


37020 


027033 




JMP 


SYMT8 


YES 


0213 


37021 


002004 




INA 




NO, MA T CH AS 


0214 


37022 


150001 




CpA 


1,1 


•Double subscript'? 


0215 


37023 


027033 




JMP 


SYMT8 


YES 


0216 


37024 


002004 




INA 




NO, MATCH AS 


0217 


37025 


150001 


SYMT7 


CPA 


1,1 


"DON'T KNOW"? 


021* 


37026 


027047 




JMP 


8YMT9 


YES 


0219 


37027 


044354 




ADB 


• *2 


no, more symbol 


0220 


37030 


054056 




CPB 


P8PTR 


table entries? 


0221 


37031 


026744 




JMP 


SYMT2 


no 


0222 


37032 


125320 




JMP 


ASYMT,I 


YES 


0223 


37033 


051613 


SYMT8 


CPA 


STMP1 


DOES ENTRY MATCH SYMBOL 


0224 


37034 


026766 




JMp 


SYMT5 


YES 


0225 


37035 


030355 




JOR 


,♦3 


NO, iS SYMBOL OF 


0226 


37036 


051613 




CPA 


STMP1 


TYPE "DON'T KNOW"? 


0227 


37037 


027042 




JMP 


**3 


YES 


0228 


37040 


015322 




JSB 


DCMPL 


NO, DECOMPILE 


0229 


37041 


115121 




JSB 


RERRS + H, 


I SUBSCRIPT CONFLICT 


0230 


37042 


075614 




STB 


STMP2 


SAV£ POINTER TO ENTRY 


0231 


37043 


066002 




LDB 


APTR2 


CONTINUE SEARCH 
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W232 
0233 
0234 
0235 
0236 
0237 
0238 

0239 

0240 

0241 

0242 

0243* 

0244* 

0245* 

0246* 

0247* 

0248* 

0249* 

0250* 

0251* 

0252* 

0253* 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

02 7 1 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 
0283 
0284 
0285 
0286 



37044 075320 

37045 065614 

37046 027027 

37047 051613 

37050 026766 

37051 006004 

37052 060001 

37053 044350 

37054 174000 

37055 002400 

37056 026762 



STB A3YMT 
LOB STMP2 
JMP SYMT7+2 
SYMT9 CPA STMP1 
JMP SYMT5 
INB 
LDA i 
ADB ,«2 
STB 0,1 
CLA 
JMP SYMT4+1 



* 
** 



RESTORE SYMBOL TABLE POINTERS 



FOR POSSIBLE 
"DON'T KNOW 
ENTRY 
DOES ENTRY MATCH SYMBOL? 
YES 

NO, NEW ENTRY TO BE MADE 
SET POINTER TO 
NEW ENTRY INTO 

"DON'T KNOW" ENTRY 
MAKE NEW 

Entry 
** 

*** 



** 



OSED BY CSAVE TO RESTORE THE SYMBOL 
BEFORE VALUE HAS BEEN RUN. I.E. THE 
STATEMENTS ARE PLACED IN THE SECOND 
ENjRIES IN T HE SyMBOL T*6LE, tDON'T 



To THE C(jRRESPOn oi N g *NOWn 
ENTRIES IS SET TO ZERO, 



Table to its appeaRamce 
pointers tp dim and com 
word of array and string 
know' entries are linked 



ONE A N D THE SECon^ W U RD 0^ DEFAULT 



37057 
37060 
37061 
37062 
37063 
37064 
37065 
37066 
37067 
37070 
37071 
37072 
37073 
37074 
37075 
37076 
37077 
37I00 
37101 
37102 
37103 
37104 
37105 
37106 
37107 
37110 
37111 
37112 

37113 
37H4 

37115 
37116 
37117 



065577 
075230 
055575 
027147 
035230 
145230 
075236 
035230 
161230 
010664 
050742 
027077 
050636 
002001 
027060 
006400 
075621 
161230 
010700 
040351 
001000 
041575 
071613 
160000 
010371 
040346 
00202S 
027125 
003400 
065613 
006004 
170001 
065230 



#WSTP 



RSTP1 
R5TP2 



LDB SPROG INITIALIZE PROGRAM 

STB 3PTR POINTER 

CPB SYMTB FINISHED PROGRAM SCAN? 

JMP RSTP5 YES 

I3Z SPTR NO-^COMPUTE 

ADB SPTR, I NEXT STATMENT 

STB N3PTR POINTER 

1SZ SPTR 

LOA SPTR, I EXTRACT 

AND OPMSK OPERATOR 

CPA COMOP 'COM'? 

JMP RSTPl+1 YES 

CPA DIMOP NO, »DIM»? 

RS3 YES 

JMP #RSTP*1 NO 

CLB 

STB DCFLG SET COM.DIM FLAG 

LOA SPTR, I COMPUTE 

AND OPDMK POINTER 

aoa ,-i Into 

ALS SYMBOL 

ADA SYMTB TABLE 

STA STMP1 

LDA 0,1 EXTRACT 

AND .+17B SYMBOL 

ADA ,-4 SIMPLE 

SSA VARIABLE? 

JMP RSTP4 NO 

CCA YE8 

LDB STMPi FLAG 

INb AS »IN 

STA 1,1 COMMON' 

LOB SPTR UPDATE 
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0287 

0268 
0289 
0290 
0291 
0292 

0293 
0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

030 6 

0307 

0308 

0309 

0310* 

0311* 

0312* 

0313* 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336* 

0337* 

0330* 

0339 

0340 

0341 



3712* 
37121 
37122 
37123 
37124 
37125 
37126 
37127 
37130 
37131 
37132 
37133 
37134 
37135 
37136 
37137 
37140 
37141 
37142 
37143 
37144 
37145 
37146 



006004 
075230 
055236 
027060 
027100 
065230 
044354 
061621 
002002 
007004 
061613 
002004 
174000 
065230 
044356 
055236 
027060 
044351 
160001 

01066 4 
050744 

044354 

027120 



RSTP3 INB 
STB 
CPB 
JMP 
JMP 

R8TP4 LOB 
ADB 
LDA 
SZA 

C«Bf 

IDA 

INA 

STB 

LDB 

ADB 

CPB 

JMP 

ADB 

LDA 

AND 

CpA 

ADB 
JMP 



SPTK 

NSPTR 

#R3TP + 1 

RSTP2 

SPTR 

.♦2 
DCFLG 

INq 
STMP1 

SPTK 

,♦4 

NSPTR 

#RSTP+1 

.-1 

1,1 

OPMSK 

SCQMM 
.♦2 

RSTP3 



STATEMENT 
POINTER 
END OF STATEMENT? 
YES 
NO 
SET POINTER 

TO DIMENSION 

1 COM'? 

YES*»COMPLEMENT POINTER 

STORE 

IN SYMBOL 
TABLE 
FINISHED 

STATEMENT? 

YES 

NO, TWO- 
DIMENSIONAL? 

YES^bUMP PaST SECOND DIMENSION 
NO 



scan symbol table for «dqn«t know 
default dimension entries 



ENTRIES AND 



37147 
37150 
37151 
37i52 
37153 
37154 
37155 
37156 
37157 
37i60 
37161 
37162 
37163 
37164 
37165 
37166 
37167 
37170 
37171 
37172 
37173 
37174 



065575 
055504 

027215 
075613 
160001 
010371 
050355 
027175 
040347 
002021 
027I72 
006004 
160001 
003004 
041575 
002021 
027172 
002400 
170001 
065613 
044354 
027150 



RSTPb LDB 
CPB 
JMP 
STB 
LDA 
AND 

CPA 
JMP 
ADA 
SSA, 

JMP 

INB 

LDA 

CMA, 

ApA 

SSA, 

JMP 
CLA 

STA 

RSTP6 LDB 

ADB 

JMP 



SYMTB 
FILTB 
RSTP9 
STMPl 

lfl 
,*17B 

,♦3 

RSTP7 

.-3 

RSS 
RSTP6 

1,1 
INA 

SYMTB 

RSS 

RSTP6 

if I 

STMPl 

.♦2 
RSTP5*1 



INITIALIZE TABLE POINTER 

FINISHED SYMBOL TABLE SCAN? 

YES 

NO„-,SAVE POINTER 

DON 1 1 

KNOW 

ENTRY? 
YES 
NO, STRING 

OK ARRAY? 
NO 
YES 
DEFAuL T 

DIMENSIONS? 
NO 

yes*-»$tore a zero 
in symbol Table 

BUMP TO 

NEXT SYMBOL 



PROCESS 'DON'T KNOW ENTRY 



37175 075614 

37176 065575 

37177 003400 



RSTP7 



STB 3TMP2 
LDB SYMTB 

CC A 



IS THERE 

A MATCHING 



PAGE 


0094 t 


WB COMPILATION AND DECOMPILATION 


0342 


37200 


141614 


A A 


STMP2,I 


TwO*ulM&NSlQNAL 


0343 


37201 


150001 


CPA 


1,1 


ENTRY? 


0344 


37202 


027210 


JMP 


RSTP8 


YES 


0345 


3720 3 


04035* 


ADA 


."•i 


NO, MATCHING ONE- 


0346 


372^4 


150001 


CPA 


1#I 


DIMENSIONAL ENTRY? 


034; 


37205 


027210 


JMP 


RSTP8 


YES 


0348 


372^6 


044354 


AOB 


• ♦2 


NO»i»BUMP TO 


0349 


37207 


027177 


JMP 


RSTP7+2 


NEXT SYMBOL 


03g0 


37210 


006004 


RSTP8 INB 




LINK 'DON'T 


0351 


37211 


061613 


LOA 


STMPl 


KNOW) ENTRY 


0352 


37212 


002004 


INA 




WITH MATCHING 


0353 


37213 


174000 


STB 


0r I 


KNOWN ONE 


0354 


37214 


027172 


JMP 


RSTP6 




0355 


37215 


002400 


RSTpV CLA 




SET STORAGE 


0356 


37216 


071600 


sta 


VLFLG 


UNALLOCATED FLAG 


0357 


37217 


074056 


STB 


PBPTR 


RESET END*OF>«PRQGRAM POINTER 


035B 


37220 


125522 


JMP 


RSTPT,I 
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0360*« 


r ** 


0361*** BUILD THE VALUE TABLE *** 


0362*4 


r ** 


0363* 




0364* 


IF NO VALUE TABLE EXISTS, UNE IS BUILT FROM THE SYMBOL 


0365* 


TABLE AND INITIALIZED; IF IT ALREADY EXISTS, IT IS 


0366* 


initialized, in building the value table, each entry 


0367* 


in the symbol table is checked* for functions the 


0368* 


existence of a defining formula is checked* for simple 


0369* 


variables two words are allocated and set to 'undefined' 


0370* 


and a pointer to them is placeu in the second WORD of 


0371* 


THE SYMBOL TABLE ENTRY; FOR ARRAYS FOUR WORDS ARE 


0372* 


ALLOCATED FOr THE DECLARED AND DYNAMIC DIMEN3IONS, 


0373* 


T M E DIMENSIONS ARE INITIALIZED EITmER FRUM A 


0374* 


<DIM STaTEMENT> IN THE PROGRAM OR THE OEFAULT 


0375* 


DIMENSIONS, ARRAY SPACE IS ALLOCATED AT TWO WORDS PER 


0376* 


ARRAY ELEMENT CONTIGUOUS WITH THE DIMENSIONS, THE 


0377* 


ELEMENTS ARE INITIALIZED TO UNDEFINED, 1 AND A 


0378* 


POIN T ER TO T h E FIR3 T ELEMEN T IS PLACED IN T HE SECOND 


0379* 


wqrd qF the sy m bol table e n try? fqr strings fqllow the 


0380* 


PATTERN FOR ARRAYS WITH ONE WORD HOLDING THE PHYSICAL 


0381* 


DIMENSION IN BITS 15-8 AND THE DYNAMIC DIMENSION IN 


0382* 


BITS 7-0 (DIMENSION HERE MEANS LENGTH AS NUMBER OF 


0363* 


CHARACTERS), STRING SPACE IS ALLOCATED ONE WORO PER 


0384* 


TWO CHARACTERS, AND THE DYNAMIC LENGTH IS INITIALIZED 


0385* 


TO ZERO, FOR »DON»t KNOW" ARRAY ENTRIES, jHE SECOND 


0386* 


WORD qF THE SYMBOL TAB^E EnTRY IS COPIED FROM IHE 


0387* 


ASSOCIATED SINGLY OR DOUBLY SUBSCRIPTED ENTRY (OK 


0388* 


EXIT TO ERROR IF NONE EXISTS), 


0389* 


FOR VARIABLES WHICH HAVE BEEN DECLARED IN A <COM 


0390* 


STATEMENT*, STORAGE IS ALLOCATED IN THE COMMON AREA 


0391* 


WHICH RESIDES AHEAO gF THE PRoGRA M , FqR ARRAYS A N 


0392* 


STRINGS, THIS AR £ A IS LEFT UN D ISTURBed IF THE DIMENSIONS 


0393* 


DECLARED IN THE <COM STATEMENT* MATCH THOSE FOUND IN 


0394* 


THE COMMON AREA, AND THE DYNAMIC DIMENSIONS ARE CONSISTENT 


0395* 


IF A VALUE TABLE ALREADY EXISTS, VARIABLES IN COMMON ARE 


0396* 


LEFT UNTOUCHED, VALUES OF SIMPLE VARIABLES AND ARRAY 


0397* 


ELEMENTS ARE s^T TO 'UNDEFINED' AND DYNAMIC ARRAY 


0398* 


DIMENSIONS ARE SET TO DE^ARED DIMENSIONS* THE DYNAMIC 


0399* 


lengths of strings are set to Zero, txiT to xec if 


0400* 


processing is satisfactorily completed. 


0401* 




0402 


37221 065232 vALuE LOB FCORE IN S uRE CORRECT 


0403 


37222 074056 STB PBPTR SETTING FOR PBPTR 


0404 


37223 064702 LDB PBUFF INITIALIZE 


0405 


37224 075620 STB COMPT COMMON POINTER 


0406 


37225 065575 LOB SYMTB SET (B) TO 


0407 


37226 002001 RSS SYMBOL TABLE 


0406 


37227 006004 VALU1 INB SYMBOL TABLE 


0409 


37230 055504 CPB FILtB EXHAUSTED? 


0410 


37231 027662 JMP VAL99 YES 


0411 


37232 160001 L DA 1,1 NO, LOAD SYMBOL 


0412 


37233 006004 jnB POINT (B) TO VALUE TAbLE POINTER 


0413 


37234 002003 SZA,RSS NULL SYMBOL? 


0414 


37235 027555 JMP V A L14 YES 



PAGE 0096 #08 COMPILATION AND DECOMPILATION 



0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423* 

0424 

0426* 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453* 

0454* 

0455* 

0456 

0457 

0458 

0459 

0460 

0001* 

0002* 

0003* 

0004 

0005 

0006 

0007 

0006 

0009 



37236 
i7zi7 
37240 
37241 
37242 
37243 
37244 
37245 



010371 
050371 
0273^1 
002003 
027557 
040346 
002020 
027306 



VALU5 
** INITIALIZE SIMPLE VARIABLE 



AND ,*17B NO 

CPA f *17B FUNCTION? 

JMP VALU4 YES 

SZA,RSS NO, STRING VARIABLE? 

JMP VAL15 YES 

ADA ,.4 NO, 

SSA ARRAY? 

JMP VALU5 YES 



* 

** 

* 



37246 061600 LDA VLFLG SIMPLE VARIABLE 

3724 7 002003 SZA,RSS STORAGE ALLOCATED? 

37250 027263 JMP VALU3 NO 

37251 160001 LOA 1,1 YES 

37252 003004 CMA,INA VARIABLE 

37253 040001 ADA 1 IN 

37254 002021 S3A,RSS COMMON? 

37255 027227 JMP VALU1 YES 

37256 l6 004 LDA i,I NO 

37257 07i6i3 VALU2 STA VTMPj SAVE POINTER TO VALUE 

37260 003400 CCA SET 

37261 171613 STA VTMPl,I VALUE TO 

37262 027227 JMP VALUl UNDEFINED 

37263 160001 VALU3 LDA 1,1 VARIABLE 

37264 002020 SSA JN COMMON? 

37265 027274 JMP VAL31 YES 

37266 060354 LDA .*2 NO**aLLQCaT£ 

37267 015326 JSB CUSP STURaGE 

37270 070056 STA PBPTR FOR VALUE 

37271 040350 ADA ,»2 pUT VALUE pOINyER 

37272 170001 STA 1,1 InTO SYmBQL TABl& 

37273 027257 jMP VAlU2 

3727A 061620 V A L31 LDA COMPT aUOCaTE STOR A GE 

37275 170001 STA 1,1 IN COMMON 

37276 040354 ADA +2 UPDATE COMMON 

37277 071620 STA COMPT POINTER 
37300 027227 JMP yALul 



* CHECK FUNCTION 



373*>l 
37302 
37303 
37304 
37305 



16000J 

002002 
027227 
015322 
115115 



INITIALIZE ARRAY 



37306 
37307 
37310 
37311 
37312 
37313 



050351 
027546 
075613 

002004 
071614 
061600 



** 

* 

VALU4 LDA 
SZA 
JMP 
JSB 
JSB 

* 
** 

* 
CPA 
JMP 
STd 
INA 
STA 
LDA 



VALU5 



j, I WAS FUNCTION 

DEFINED? 
VALUl YES 
DCMPL NO, DECOMPILE 
RERRS+7,1 UNDEFINED FUNCTION 



,»! IS ARRAY TYPE "DON'T KNOW" ? 

VAL13 YES 

VTMPl NO, SAVE POINTER TO SYMBOL TABLE 

SAVE INFORMATION ON 
VTMP2 NUMBER OF DIMENSIONS 
VLFLG STORAGE 
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0010 


37314 


002002 


SZA 




ALLOCATED? 


0011 


37315 


027406 


JMP 


VAU2 


yES 


0012 


37316 


160001 


LDA 


X,l 


NO 


0013 


37317 


002020 


SSA 




In common? 


0014 


37320 


027422 


JMP 


VAt.51 


YES 


001b 


37321 


165613 


L DB 


VTMPlrl 


NO, tOAD POINTER TO DIMENSIONS 


0016 


37322 


060056 


UOA 


PBPTR 


SET POINTER 10 


0017 


3 7 323 


071615 


STA 


VTMP3 


DIMENSION ENTRY 


0016 


37324 


060356 


LDA 


.♦4 


ALLOCATE 


0019 


37325 


015326 


JSB 


CUSP 


SPACE 


0020 


37326 


070056 


STA 


PBPTR 


FOR ENTRY 


0021 


37327 


171613 


STA 


VTMP1,I 


SYMBOL TABLE POINTER TO ARRAY 


0022 


37330 


006003 


8*8, 


,RSS 


DEFAULT DIMENSIONS? 


0023 


37331 


027403 


JMP 


VAU1 


YES 


0024 


37332 


160001 


LDA 


1,1 


No, LqAD rqw DIMENSION 


0025 


37333 


044354 


ADB 


,♦2 


BUMP POINTER 


0026 


37334 


035614 


VA L U6 jSZ 


VTMP2 


two Dimensional? 


0027 


37335 


006405 


ClB, 


rINb,R8S 


no, SgT column Dimension to 1 


0028 


37336 


164001 


LD8 


1,1 


YES, LOAD COLUMN DIMENSION 


0029 


37337 


171615 


STA 


VTMP3,X 


PUT 


0030 


37340 


035615 


ISZ 


VTMP3 


DECLARED DIMENSIONS 


0031 


37341 


175615 


STB 


VTMP3, I 


in value table 


0032 


37342 


035615 


VALU7 ISZ 


VTMP3 


PUT 


0033 


37343 


171615 


sta 


VTMP3,1 


DYNAMIC DIMENSIONS 


0034 


37344 


0356i5 


ISZ 


VTMP3 


IN 


0035 


37345 


175615 


STB 


VTMP3,I 


VALUE TABLE 


0036 


37346 
37347 


100200 
101615 


MPY 


VTMP-5,1 


compute number of a rr ay elements 


0037 


37350 


006003 


8ZB, 


RSS 


TOO 


0038 


37351 


002020 


SSA 




LARGE? 


0039 


37352 


027401 


JMP 


VAL10 


YEs 


0040 


37353 


071616 


STA 


VTMP4 


SAyE POSITIv£ 


0041 


37354 


003004 


CMA, 


,INA 


AND NEGATIVE 


0042 


37355 


071614 


STA 


VT^P2 


COUNT 


0043 


37356 


065615 


LOB 


VJMP3 


HA S 


0044 


37357 


006004 


INB 




ARRAY BEEN 


0045 


37360 


054^56 


CPB 


PBPTR 


ALLOCATED? 


004a 


37351 


027371 


JMP 


VALU9 


NO 


0047 


37362 


003400 


VAUU8 CCA 




INITIALIZE 


0048 


37363 


170001 


STA 


1,1 


ARRAY ELEMENT 


0049 


37364 


044354 


ADB 


.♦2 


TO »UnOEFI n ED» 


0050 


37365 


035614 


ISZ 


VTMP2 


Done? 


0051 


37366 


027362 


JMP 


VAlU8 


NO 


0052 


37367 


065613 


108 


vtmpi 


YES 


0053 


37370 


027227 


Jmp 


VALU1 




0054 


37371 




VALU9 |0U 


* 




0055 


37371 


042000 


AOA 


,5000 


ARRAY 


0056 


37372 


002020 


SSA 




Too LARGE? 


0057 


37373 


027401 


JMP 


vAi.10 


YES 


0058 


37374 


061616 


IDA 


VTMP4 


NO 


0059 


37375 


001000 


ALS 




ALLOCATE 


0060 


37376 


015926 


JSB 


CU8P 


8PACE 


0061 


37377 


070056 


STA 


PBPTR 


FOR ARRAY 


0062 


37400 


027362 


JMP 


VALU8 




0063 


37401 


015322 


VAL10 JSB 


DCMPL 


DECOMPILE 
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0064 


37402 


115116 


JS6 RERRS+8,1 


ARRAY TOO LARGE 


0065 


37403 


060364 


VAL11 LOA ,+10 


LOAD (A) WITH 10 


0066 


37404 


066001 


LOB A, 10 


LOAD (6) WITH 


0067 


37405 


027334 


JMp VALU6 


ADDRESS QF 10 


0066 


37406 


160001 


VAL12 LOA l,i 


JS ARRAY 


0069 


37407 


003004 


CMA,iNA 




0070 


37410 


040001 


ADA 1 


IN COMMON? 


0071 


37411 


002021 


SSA, RSS 




0072 


37412 


027227 


JMP VALOl 


YES 


0073 


37413 


161613 


LOA VTMPirl 


NO-^LOAD 


0074 


37414 


040346 


AOA ,«4 




0075 


37415 


071615 


STA VTMP3 


DECLARED 


0076 


37416 


161615 


LOA VTMP3,I 




^77 


37417 


035613 


I3Z VTMP3 


DIMENSIONS 


007a 


37420 


165615 


LOB VTMP3,I 




0079 


37421 


027342 


JMP VALU7 




0060 


37422 


165613 


VAL51 LOB VTMPt#I 


SET 


0081 


37423 


007004 


CMB,IN8 


DIMENSION 


0082 


37424 


075617 


STB VTMP5 


POINTER 


0083 


37425 


175613 


8Tb VTMPlfl 


POSITIVE 


0084 


37426 


061620 


LOA COMPT 


SET 


0085 


37427 


071615 


STA VTMP3 


POINTER 


0086 


37430 


040356 


AOA .*4 


IN SYMBOL 


0087 


37431 


171613 


STA VTMP1,I 


TABLE 


0088 


37432 


160001 


LDA 1,1 


PHYSICAL ROW DIMENSION 


0089 


37433 


151615 


CPA VTMP3,I 


SAME AS DECLARED DIMENSION? 


0090 


37434 


002001 


RSS 


YES 


0091 


37435 


027504 


JMP VAi.52 


NO 


0092 


37436 


044354 


AOB ,+2 


bo second dimension 


0093 


i7Ai7 


1^61614 


LOA VTMP2 


TWO 


0094 


37440 


050350 


CPA ,-2 


DIMENSIONAL? 


0095 


37441 


006405 


CLBr INBfRSS 


N0*-»8ET COLUMN DIMENSION TO 1 


0096 


3y442 


1&4001 


LOB 1,1 


YES»*LOAD COLUMN DIMENSION 


0097 


37443 


035615 


ISZ VTMP3 


PHYSICAL COLUMN DIMENSION 


0098 


37444 


15561b 


CPB VTMP3,! 


same as declared dimension 


0099 


37445 


002001 


RSS 


YES 


0100 


37446 


0275^4 


JMP VAL&2 


NO 


0101 


37447 


1616^0 


LDA COMPT,! 


COMPUTE SIZE OP 


0102 


37450 
37451 


100200 
101615 


MPY VTMP3,1 


ARRAY AS DECLARED 


0103 


37452 


006063 


SZB,RSS 


TOO 


0104 


37453 


002020 


SSA 


LARGE? 


0105 


37454 


027504 


JMP VAL52 


YEs 


0106 


37455 


071616 


STA yTMP4 


NQ^SAvE Sl£E 


0107 


37456 


042000 


AOA ,5000 


TOO 


0108 


37457 


002020 


SSA 


LArUE? 


0109 


37460 


027504 


J*p VA L 52 


YES 


0110 


37461 


035615 


13Z VTMR3 


NO 


0111 


37462 


161615 


LOA VtMP3,I 


COMPu T E SIZE 


0112 


37463 


035615 


ISZ vl"MP3 


AS SPECIFIED BY 


0113 


37464 
37465 


100200 

101615 


MpY VTMp3,I 


DYNAMIC DIMENSIONS 


0114 


374$(, 


006003 


SZB,KSS 


TOO 


0115 


37467 


002020 


SSA 


LARUE? 


0116 


37470 


027504 


JMP VAL52 


YE 3 
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8117 


37471 


003007 


CMA, 


INA,SZA, 


RSS 


0118 


37472 


027504 


JMP 


VAL52 


CHEESE ITJ OYNAMIC DIM = 


0119 


37473 


041616 


ADA 


VTMP4 


DYNAMIC SIZE 


0120 


3/4/4 


002020 


83 A 




> DECLARED SIZE 


0121 


37475 


0275^4 


JMP 


VAL52 


YES 


0122 


37476 


161613 


LOA 


VTMP1,I 


■ COMPT+4 


0123 


37477 


041616 


ADA 


VTMP4 




0124 


37500 


041616 


ADA 


VTMP4 


OPDATE 


0125 


37501 


071620 


STA 


COMPT 


COMMON POINTER 


0126 


37502 


065613 


LOB 


VTMP1 


RESIORE CB) 


012 7 


37503 


027227 


JMP 


VALOi 




0128 


37504 


065617 


VAL52 LOB 


VTMP5 


«> ROW DIMENSION 


0J29 


37505 


160001 


LOA 


l'l 




0130 


37506 


044354 


AOb 


.+2 


«> COLOMN DIMENSION 


0131 


37507 


035614 


IS Z 


VTMP2 


TWO-DIMENSIONAL? 


0132 


37510 


006405 


CLB, 


,INB,RSS 


NO*»LOAD DEFAULT DIMENSION 


0133 


375U 


164001 


LDB 


1,1 


POT 


0134 


37512 


171620 


STA 


COMPT,I 


DECLARED 


0135 


37513 


035620 


jSZ 


COMPT 


dimensions in 


0136 


37514 


175620 


STB 


COMPT, I 


COMMON AR£A 


0137 


37515 


035620 


JSZ 


COMPT 


POT 


013a 


3751& 


i7l6?0 


STA 


COMPT, I 


DYNAMIC 


0139 


37517 


035620 


ISZ 


COMPT 


dimensions IN 


0140 


3752« 


175620 


STB 


COMPT,! 


COMMON AREA 


0141 


37521 
37522 


100200 
101620 


MPY 


COMPT,! 


COMPUTE NUMBER OF ARRAY ELEMENTS 


0U2 


37523 


006003 


SZB, 


rRSS 


TOO 


0143 


37524 


002020 


SSA 




LARGE'/ 


0144 


37525 


027401 


JMP 


VAL10 


YES 


0145 


37526 


003004 


CMA. 


rIN A 


N0«-8aVE COMPLEMENT 


0146 


37527 


071614 


STA 


VTMP2 


OF NUMBER OF ELEMENTS 


0U7 


3753* 


00 3 004 


CMA, 


-INA 


ARRAY 


0148 


37531 


042000 


ADA 


,5000 


TOO 


0149 


37532 


002020 


ss A 




Large? 


0150 


37533 


027401 


JMP 


VAL10 


YES 


0l5l 


37534 


035620 


ISZ 


COMPT 


NO 


0!52 


3753b 


065620 


LOB 


COMPT 


INITIALIZE 


0153 


37536 


003400 


CCA 




ALL 


0154 


37537 


179001 


VAL53 STA 


irl 


elements 


0155 


37540 


044354 


AOB 


,♦2 


TO 


0156 


37541 


035614 


ISZ 


VTMP2 


UNDEFINED 


0157 


37542 


027537 


JMP 


VAL53 




01 5 8 


37543 


075620 


STB 


COMPT 


OPDATE COMMON POINTER 


0159 


37544 


0&5613 


LOB 


VTMP1 


RESTURE (B) 


0160 


37545 


027227 


JMP 


VALOI 




0161 


37546 


061600 


VAL13 LOA 


VLPLS 


STORAGE 


0162 


37547 


002002 


SZA 




ALLOCATED? 


0163 


37550 


027227 


JMP 


VALOI 


YES 


0164 


37551 


160001 


LOA 


1 r I 


NO, GET 


0165 


37552 


160000 


LOA 


0,1 


AND STORE 


0166 


37553 


170001 


STA 


lrl 


POINTER TO 


0167 


37554 


027227 


JMP 


VALui 


VALUE TABLE 


0168 


37555 


015322 


VAL14 J3B 


DCMPL 


DECOMPILE 


0169 


37556 


115U7 


JSB 


RERRS+9, 


I NUMBER OF DIMENSIONS NOT KNO W N 
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0171* 

0172* 

0173* 

0174 

0175 

0176 

0177 

U178 

0179 

0180 

0181 

0182 

0183 

0J84 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 
0220 

2 2l 
2 22 
0223 
0224 
0225 



* INITIALIZE STRING VARIABLE 



37557 
37560 
37561 

37562 
37563 
37564 
37565 
37566 

37567 
37570 
3757J 
37572 
37573 
37574 
37575 
37576 
37577 
37600 
37601 
37602 
37603 
37604 
37605 
37606 
37607 
37610 
376H 
37612 
37613 
37614 
37615 
37616 
37617 
37620 
37621 
37622 
37623 
37624 
37625 
37626 
37627 

37630 
37631 
37632 
37633 
37634 
37635 

37636 
37637 
3764(0 
37641 
37642 



075613 

061600 
002002 

027612 
160001 

002020 
027625 
165613 

060056 
071615 

002004 
050462 
115120 
070056 
1716313 
006003 
002405 
160001 
001727 
171615 
001727 
002004 
001100 
015326 

070056 
065613 
027227 

160001 

003004 
040001 
002021 
027227 
007400 
145613 
160001 
010762 
170001 
027610 
003004 
071615 
061620 
002004 
1/0001 
161620 
001727 
010443 
151615 

002^01 
02765* 
161620 
010443 

003004 



.* 
** 

* 



VAL15 



VAH6 
VAL17 



VAL18 



3TB 
LOA 
SZA 
JMP 
LOA 
SSA 
JMP 

L°B 
LOA 

STA 
INA 

CPA 
JSB 
STA 
STA 
SZB 
CLA 
LOA 
ALF 
STA 
ALF 
InA 

AR3 
JSB 

STA 
LOB 
JMP 
LOA 
CMA 
AOA 
SSA 
JMP 
CCB 
AOB 
LOA 
ANO 
STA 
JMP 
CMA 
STA 
LOA 
INA 
STA 
LOA 
ALF 
AND 
CPA 
R8S 
JMP 
LOA 
AND 
CmA 



VTMP1 
VLFLG 

VAL17 
1,1 

VAL18 
VTMPl,I 
PBPTR 
VTMP3 

L*AUS 

RERRS+10, 

PBPTR 

VTMP1,I 
,R8S 
,INA,RSS 

1,1 
,ALF 

yTMP3,I 
,ALF 



CUSP 
PBPTR 
VTMP1 
VALU1 

UI 
,INA 

1 
,RSS 
VALU1 

VTMPi, I 

1,1 
M256 

i»I 
VAL16 

,INA 

VTMP3 

COMPT 

1,1 

COMPT, I 
,ALF 
B3 77 
VTMP3,! 

VAL20 
COMPT, I 

B377 

,INA 



SAVE (B) 
STORAGE 

ALLOCATED? 
YES 
NO 

IN Cummqn? 
yes 

NO, SAVE L^nCTH POINTER 
SET POINTER TO 

LENGTH ENTRY 
MORE 

USER SPACE? 
I NO 
YES, SET POINTER TO STRING 

INTU SYMBOL TABLE ENTRY 
DEFAULT LENGTH? 
YES, SET (A) * l 
NO, LOAD DECLARED LENGTH 
STOrE PHYSICAL LENGTH 

ALONG wITH ZERO 
LOGICAL LENGTH 
ALLOCATE 

SPAtE 

For 

STRING 
RESTORE 
(B) 

STRING 

In 
common? 

YES 

NO—RESET 

LOGICAL LENGTH 

TO ZERO 

SET POINTER POSITIVE 

■> DIMENSION INFORMATION 

SET VALUE 

POINTER IN 
SYMBOL TABLE 
EXTRACT PHYSICAL 

LENGTH FROM 
COMMON AREA 
SAME AS DECLARED LENGTH? 
YES 
NO 
LOGICAL 

LENGTH <» 
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4226 


37643 


141615 


0227 


37644 


002020 


0226 


37645 


027650 


0229 


37646 


161615 


0230 


37647 


027654 


0231 


37650 


161615 


0232 


37651 


001727 


0233 


37652 


171620 


0234 


37653 


001727 


0235 


37654 


002004 


0236 


37655 


001100 


0237 


37656 


002004 


0238 


37657 


041620 


0239 


37660 


071620 


0240 


37661 


027227 


0241 


37662 




0242 


37662 


061600 


0243 


37663 


002002 


0244 


37664 


027675 


0245 


37665 


061607 


024 6 


37666 


002803 


0247 


37667 


^27675 


0248 


37670 


060056 


0249 


37671 


071760 


0250 


37672 


060440 


0251 


37673 


015326 


0252 


37674 


070056 


0253 


37675 




0254 


37675 


002404 


0255 


37676 


071600 


0256 


37677 


060056 


0257 


37700 


071232 



VAL20 



VAL19 



VAL99 



VAL98 



ADA 

SS* 

JMp 

LDA 

JMP 

LDA 

ALF, 

STA 

ALF, 

INA 

AR3 

INA 

ADA 

STA 

JMP 

EQU 

loa 

SZA 

JMP 

LDA 

S£A, 

JMP 

LDA 

STA 

LOA 

J38 

STA 

EWU 

CLA, 

STA 

LDA 

STA 



VTMP3,I 

VAL20 

VjMP3,I 
VAL19 

VTMP3,I 

ALF 
CqMpT,I 

ALF 



COMPT 
COMPT 

VALU1 

* 

vlflg 

VAL98 

USE3N 

RSS 

VAL98 

PBPTR 

IFSS 
.72 

CUSP 
PBPTR 

* 

INA 
VLFLG 
PBPTR 
FCORE 



PHYSICAL LENGTH? 
NO 
LOAD PHYSICAL LENG-|-H 

RESET PHYSICAL LENGTH TU 

declared length anu 
logical length to zero 

UPDATE 
COMMON 
POINTER 



has storage 
been allocated? 

YES 

NO, ANY 'PRINT 

USING' STATEMENTS? 
NO 
YES, 

ALLOCATE 

SPACE FOR 
FORMAT 
STACK 

SAY STORAGE 

ALLOCATED 
POINTER TO END 

OF FIXED TABLES 



PAGE 0102 #09 MAIN EXECUTION LOOP 



0289* 

0260* 

0261** 

0262** 

0269** 

0264* 

0265* 

0266* 

0267* 

0268* 

0269* 

0270* 

027J* 

0272* 

0273* 

0274* 

0275* 
0276* 
0277* 
027b* 
0279* 
0280* 
0281* 
0282* 
02 8 3* 
0284* 
0285* 
0286* 
0287* 
0268* 
0289* 

0290* 
0291** 

0292** 

0293** 

0294* 

0295* 

0296* 

0297* 

0298* 

0299* 

0300* 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 



************************* 
** *** 

* EXECUTE THE PROGRAM ♦** 
** *** 

************************* 



the core-resident file buffers follow the value tablei one 
record.sized block of core is allocated for each file requested 
in the <files statement^ five stacks exist during execution: 
since stack pointers are assumed to reference the tofmusf 
e n try i n their stack they are i n itially set one e*try below 
t h e physical start of the stack* thus the first entry advances 
a stack pointer to the first word of its stagk spaqe. gosues 
queue their return addresses in the return stack, which has a 
fixed length of nine words allocated immediately following 
the file buffers, the for. stack (sjx^word entries) contains 
all information pertaining to active for„next loops; initially 
empty, its core space is allocated dynamically as needed, the 

TEMPORARY STACK HqLDS INTERMEDIATE RESULTS DURING FqRMULA 
EVALUATION! iT iS iNlTiA^EO TO HQI.D TEN TEMPORARIES AnO 
EXPANqS DYNAMICALLY AS N£cE 38AR Y t THE OP£RANo ANo OPtRATOR 
STACKS FOLLOW WITH THEIR ONE^WORD ENTRIES OCCUPYING ALTERNATE 
LOCATIONS, EXPANDING INTO FREE USER SPaCE UN A DEMAND BASIS, 
THE TOP OF THE OPERATOR STACK, ALWAYS AT LEAST ONE WORD AHEAD 
OF THE OPERAND STACK, IS PBPTR SO THAT ALL ACTIVE USER SPACE 
I S KEPj WlyHIN T HE S wAP REGION, S INCE ALL STACK S EXCEPT T*E 
KETURn STACK EXPAnO DYnAmICA ll Y, STATIC A N U DYnA M IC nESTInG 
Op F0RMULA3 AND fOR»NEXT LUOPS iS F«EELY PERMITTED UP TO 
THE EXHAUSTION OF USER SPACE, 



* INITIALIZE EXECUTION 



** 

*** 

** 



PRINT THE PROGRAM NAME, INITIALIZE FILE STATUS INFORMATION 
IN THE FILE IABLE AND NOTIFY USER OF ANY REQUESTED FILES 
WHICH ARE READ-ONLY, ALLOCATE A 64 WORD BUFFER FOR EACH FILE, 
ALLOCATE RyN-TIME STACKS, INITIALIZE POINTERS TO THE DATA BLOCK, 
AND MOVE TO A FRESH TE L ETYPE lInE, 



37701 
37702 

37703 
37704 
37705 
37706 
37707 
37710 
37711 
37712 
37713 
37714 
37715 



002400 
170634 
114534 
160640 
170634 
1602S7 
010445 

071252 
002003 
027720 
103100 
120257 
170257 



XEC 



CLA 


BLOCK 


STA DCLCl,i 


CLOCK 


JSB ABCK,I 


ABORT ATTEMPT DURING COMPILE? 


LDA DCLCg,I 


NO"«UNBLOCK 


STA DCLC1,I 


CLOCK 


LDA MAIN,! 




AND CHNFG 




STA TEMP2 


SAVE CHAIN FLAG 


SZA,RSS 


W AS THIS PROGRAM CHAINED TO? 


JMP X EC01 


NO 


C|.F 


YES 


XOR MAIN, I 


CLEAR 


STA MAIN, I 


CHAIN FLAG 
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10314 
031b 
0316 
0317 

0318 

0319 
0320 
0321 
0322 
0323 
0324 
0325 

0^26 
0327 
0326 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
W34j0 
0341 
0342 
0343 
0344 

0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
k)356 
0357 
0358 
0359 
03&0 
0361 
0362 
03 G 3 

0364 
0365 
^366 
0367 
0368 



37716 
37717 
37720 
37721 
37722 
37723 

37724 
37725 
37726 
37727 
37730 
37731 
37732 
37733 
37734 
37735 
37736 
37737 
37740 
37741 
3 77 42 
37743 
37744 
37745 

37746 
37747 

37750 
37751 
37752 
37753 
37754 

37755 
37756 
37757 
37760 
37761 
37762 
37763 
37764 
37765 
37766 
37767 
3777 
37771 
37772 
37773 
37774 
37775 
37776 
*7777 
40000 
40001 
40002 
40003 
40004 



102100 
027734 
060364 
015454 
061571 
071430 

002004 
160000 
002003 
027734 
006400 
075274 
060347 
015462 
002400 
071502 
071242 
071611 
071773 
065504 
0555 7 6 
B27777 
035502 
061252 
002002 
027753 

150001 

002020 
124451 
061036 
044356 

170001 
044347 
160001 
001423 
170001 
044361 
015326 
070056 
170001 
006004 
170001 

00*004 
002400 
170001 
044356 
170001 
00*004 
027742 
061502 
002003 
026007 
060444 
103100 
130257 



XEC01 



XEC0 



X£g2 



XEC3 



XEC4 



STF 




JMP X EC0 


DON'T PRINT NAME 


LDA ,+12B 


ECHO 


JSB OUTCH 


LINE FEED 


IDA INAME 




STA LT1 




INA 


NULL 


LDA 0,1 




SZA,RS8 


NAME? 


JMP XEC0 


YES 


CLB 


NO 


STB LT2 


OUTPUT 


LDA .-3 


PROGRAM 


JSB OUTST 


NAME 


CLA 


ZERO 


STA FCNTR 


FILE COUNTER 


STA RTNST 


AND MESSAGE FLAG 


STA ENUUF 


TURN OF? UVfeR/UNOERFLOW 


STA ASINP 


SET NO ASSIGN PROCESSED 


LDB FILTB 


LOAD ADDRESS OF FILE TABLE 


CPB valtb 


DONE? 


JMP XEC4 


YES 


ISz FCNTR 


NO, COUNT FILE 


LDA TEMP2 




sza 


was This program chained to? 


JMP XEC3 


YES 


LDA 1,1 


READ 


SSA 


ONLY? 


JMP XEC5I,I 


YES 


LDA BITX5 


NO 


ADB »*4 


SET NULL 


STA B,I 


RECORD ADDRESS 


ADB ,„3 


GET RECORD 


LDA B,i 


SIZE AND 


Ai.R,RAR 


C^EAR BITS 14 AnD 15 


STA B,j 


AND STICK BACK IN plLE TABLE 


ADB .+7 


ALLOCATE 


JSB CUSP 


BUFFER »-OR 


STA PBPTR 


THE FILE 


STA 1,1 


SET 


INB 


'Record f:jll' 


STA 1,1 


condition 


INB 


SET 


CLA 


•N y IqF EXIT' 


STA l,i 


CONDiTjON 


ADB ,+4 


POINT TO MASK 


STA 1,1 


CLEAR PROTECT MASK 


INB 


POINT TO NEXT ENTRY 


JMP XEC2 




LDA FCNTR 


ARE THERE 


SZA,RSS 


ANY FILE8? 


JMP XEC9 


NO 


LDA DFCHK 


YES, SET 


CLF 


POSSIBLE DIRTY 


IOR MAIN,! 


FILES BIT IN 



PAGE 0104 #09 MAIN EXECUTION LOOP 



0369 
0370 
0371 
0372 
0373 
0374 
0375 

0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 

0387 
0388 

0389* 

0390* 

0391* 

0392* 

0393* 

0394* 

0395* 

0396* 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

04U 

04l2 

0413 

0414 

0415 

04*6 

0417* 

0418* 

0419* 

0420 

0421 

0422 

0423 



40005 
40006 
40007 
40010 
40011 
40012 
40013 

40014 
40015 
40016 
40017 
40020 
40021 
40022 
40023 
40024 
40025 
40026 
40027 
40030 



170257 

102100 
061252 
002002 
026020 
060367 
015454 

060364 
015454 
060364 
015454 
064056 
044351 
075240 
075242 
044356 
075246 
015432 
065577 
015360 



XEC9 



XEC8 



3TA MAIN,1 


TTY TABL£ 


STF 




LOA TEMP2 




SZA 


WAS THIS PROGRAM CHAINED 


JMP X EC8 


YE3 


LOA ,*158 


NU# OUTPUT A 


jsb outcr 


CARRIAGE RETURN 


LOA ,+128 


AND 


JSB OUTCR 


T^O 


LOA ,+12B 


LINE FEEOs 


J88 OUTCR 




LOB PBPTR 




AOB ,«1 


SET POINTERS TO 


STB RTRNQ 


TOP AND BOTTOM 


STB RTNST 


OF RETURN STACK 


AOB ,+4 


SET 


STB FORQ 


EXECUTION 


J3B SETPT 


POINTERS 


LOB SPROG 


SET POINTERS TO 


JSB SETOp 


FIRST «DATA 3TATEMENT> 


W 

** 





TO? 



* EXECUTE STATEMENT 



save sequence number for possible use by error routine, 
advance program counter to next statement and 6kanch to 
code for execution of current statement, 



40031 
40032 
40033 
40034 
40035 
40036 
40037 
40040 
40041 
40042 

40043 

40044 
40045 
40046 
40047 
40050 
40051 
40052 
40053 
40054 



065334 
160001 
071570 
060001 
002004 
160000 
015556 
060001 
002004 
144000 
075334 
002004 
071613 
161613 
010664 
001727 
001300 
043770 
071234 
124000 



XECl 



LDB 
LDA 
STA 

LOA 
INA 

LDA 
JSB 
LDA 
INA 
AOB 
STB 

Ina 

STA 

LDA 

AND 

ALF, 

RAR 

AOA 

STA 
JMP 



PRGCT 

If I 

,LNUM 
B 

A, I 
STLCK 

1 

0,1 

PRGCT 

TEMPI 
TEMPI, I 
OPMSK 
ALF 

XECBR 
FILE* 
0,1 



* OUTPUT READ-ONLY WARNING 



* 
** 



40055 075240 XEC5 STB 

40056 064273 LDB 

40057 044341 ADB 
40060 160001 cDA 



RTRNQ 
MLINK+l 
.♦7ID-7LINK 
1,1 GET 



SAVE CURRENT 
SEQUENCE 
NUMBER 

CHECK 

STATEMENT 
LENGTH 

compute 

ADDRESS 
OF NEXT 
STATEMENT 
SET 1 N TRA- 

STATEMENT POINTER 
COMPUTE 
BRANCH 
ADDRESS 

FOR CURRENT 

STATEMENT TYPE 
SET 'NO FILE' FLAG 
BRANCH TO APPROPRIATE ROUTINE 



SAVE (B) 



I» 



Page 
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I EXECUTIQI* 


1 LOOP 




0424 


40061 


010732 




AND 


M2000 


IS IT 


0425 


40062 


050612 




CPA 


A000 


AN «A'? 


0426 


40063 


026107 




JMP 


XEC7 


YES 


0427 


40064 


035242 




ISZ 


RTNST 


NO, FIRST TIME THR0UGH7 


0426 


40065 


115217 




JSB 


WERHS+8,1 


YES, EMIT MESSAGE 


0429 


40066 


003400 




CCA 




SET FLAG FOR 


0430 


40067 


071242 




STA 


RTNST 


MESSAGE SUPPRESSION 


0431 


40070 


060415 




LDA 


,♦438 


OUTPUT 


0432 


40071 


015454 




JSB 


OUTCR 


A »#l 


0433 


40072 


061502 




LDA 


FCNTR 


OUTPUT 


0434 


40073 


040340 




ADA 


,*10 




0435 


40074 


002020 




SSA 




FILE #>9? 


0436 


40075 


026103 




JMP 


XEC6 


NO 


0437 


40076 


060433 




LDA 


,♦618 


YES 


0438 


40077 


015454 




JSB 


OUTCR 


OUTPUT A t l • 


0439 


40100 


061502 




LDA 


FCNTR 


OUTPUT 


0440 


40101 


040420 




ADA 


,+468 


SECOND 


0441 


40102 


002001 




RSS 




DIGIT 


0442 


40103 


040436 


XEC6 


ApA 


,58 


OUTPUT SINGLE DIGIT 


0443 


40104 


015454 




JSB 


OUTCR 




0444 


40105 


060412 




LDA 


,♦408 


OUTPUT 


0445 


40106 


015454 




JSB 


OUTCR 


BLANK 


0446 


40107 


065240 


XtC^ 


ldb 


RTRNQ 


RETRIEVE <B) 


0447 


40110 


124450 




JMP 


X E C3I,J 
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0002* 

0003* 

0004* 

0005* 

0006* 

0007 

0006 

0009 

0010 

00U* 

0012* 

0013* 

0014* 

0015* 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 
0026 
0027 

002a 

0029 

0030 

0031 

0032* 

0033* 

0034* 

0035* 

0036* 

0037 

0036* 

0039* 

0040* 

0041* 

0042* 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 



*+ ** 

* EXECUTE <LET STATEMENT ** 

** ** 



40111 002404 

40112 07U72 

40113 015336 

40114 026031 



ELET 



CLA, 
STA 

JSB 
JMP 



** 



* EXECUTE <IF STATEMENT 



** 



ISZ 

J3B 
ISZ 
ISZ 
LOB 
STB 
JMP 
OLD 



INA 

EQL 
FORMX 

XEC1 

** 

** 
** 

TEMPI 
VLFIL 
F8ASE 
TEMPJ 

TEMPI, I 
FBASE,I 

XEC1 
TEMP1#I 



40115 035613 EIFl 

40116 015506 

40117 035236 

40120 035613 

40121 165613 

40122 175236 

40123 026031 

40124 104200 EiF 

40125 101613 

40126 054650 

40127 002020 

40130 002405 

40131 026115 

40132 071472 

40133 015356 

40134 002003 

40135 026031 

* EXECUTE <GO TO STATEMENT* ** 
** ** 

40136 006401 EGOTO CLB,RSS 



CpB EnOOP 

SSa 

CU, 

JMP 

STA 

JSB 

SZA, 

JMP 



INA,RS3 
EiFl 

FETCH 

RSS 

XECi 



** 

* EXECUTE <S0SU8 STATEME 

** 



NT> 



** 
** 

** 



40137 

40140 

40U1 
40142 
40143 
40144 
40145 
40146 
40147 
40150 
40151 
40152 
40153 



007400 
075500 

065613 

006004 

161613 
010700 
05067b 
026161 
015356 
015342 
026031 

045613 
006004 



EGOSB 



CCB 
STB 
LOB 
INB 
LDA 
AND 
CPA 
JMP 
JSB 
JSB 
JMP 
AOB 
INB 



GTMP 
TEMPI 

TEMPI, I 

OPPMK 

INTFL 

EGOS1 

FETCH 

SBplX 

XECI 

TEMPI 



ALLOW STRING CONSTANT 

IN FORMULA 
EVALUATE 

FORMULA 



EVALUATE 

FILE REQUEST 
TRANSFER 
EOF LABEL 
TU 

FILE TABLE 

EOF 



OPERATOR? 
NO 
YE8 

ALLOW STRING CONSTANT 
EVALUATE DECISION FORMULA 
RES(jLTANT ' TRuE' ? 
NO 



SET FLAG TO 'GOTO' MODE 



SET FLAG TO 

'GOSUB' MODE 
COMPUTE SIMPLE BRANCH 

'ADDRESS' ADDRESS 
SIMPLE 

BRANCH 

STATEMENT? 
YES 
NO, COMPUTE 

BRANCH INDEX 
UNSUITABLE RESULT 
COMPUTE 

•ADDRESS' 



PAGE 
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execution processors 


0056 


40154 


060001 




lda 


1 


ADDRESS 


0057 


40155 


003000 




CMA 




WITHIN 


0058 


40156 


041334 




ADA 


PRGCT 


STATEMENT 


0059 


40157 


002020 




SSA 




RANGE? 


0060 


40160 


026031 




JMp 


XEC1 


NO 


0061 


40161 


164001 


ESqSI 


U 08 


1,1 


YES, |.aAD BRANCH ADDRESS 


0062 


40162 


035500 




ISZ 


GTMP 


<GOTO STAVEMENT> ? 


0063 


40163 


026032 




JMP 


XECIM 


YES 


0064 


40164 


061334 




LDA 


PRGCT 


NO, STACK 


0065 


40165 


035242 




ISZ 


RTNST 


RETURN 


0066 


40166 


171242 




STA 


RTNST,! 


ADDRESS 


0067 


40167 


061242 




LDA 


RTNST 


NESTING 


0068 


40170 


040340 




AOA 


• •10 


10 


0069 


40171 


051240 




CpA 


RTRNQ 


DEEP? 


0070 


40172 


115125 




JSB 


RERRS*15, 


I YES 


007i 


40173 


026032 




JMP 


XECl+1 


NO 


0072* 














0073*** 








** 




0074** EXECUTE «FQR SWEMENT> ** 




0075*** 








** 




0076* 














m77 


40174 


055250 


EFOR0 


CP8 


FORST 


TOP ENTRY? 


0078 


40175 


025231 




JMP 


EFQR5+1 


YES 


0079 


40176 


071422 




STA 


EFN0 


no, save caj 


0080 


40177 


075514 




ST8 


DEST 


SET DESTINATION AqdRESS 


0081 


40200 


065250 




LOB 


FORST 


COMPUTE MOVE 


0082 


40201 


044360 




AOB 


5est 


TERMINATION ADDRESS 


0083 


40202 


061514 




LOA 


COMPUTE 


0084 


40203 


040360 




AOA 


,♦6 


SOURCE ADDRESS 


0085 


40204 


015500 




JSB 


MOVER 


DELETE FOH-TABLE EnTRY 


0086 


40205 


061422 




LOA 


EFNy 


RETRIEVE (A) 


0087 


40206 


026230 




JMP 


EF0R5 




0086 


40207 


161613 


EFOR 


LDA 


TEMPI, I 


EXTRACT 


0089 


40210 


010502 




AND 


B777 


AND SAVE THE 


0090 


40211 


071430 




STA 


FVT 


FOR^VARIABLE 


0091 


40212 


001000 




ALS 




CoMpUTE 


0092 


40213 


041575 




ADA 


SYMTB 


ADDRESS 


0093 


40214 


040351 




AOA 


t»l 


OF ITS 


0094 


40215 


150000 




LDA 


0r I 


VALUE 


0095 


40216 


065250 




LDB 


FORST 


LOAD POINTER TO FOR*STAC 


0096 


40217 


055246 


EFOR1 


CPB 


FORQ 


AT BOTTOM OF FOR»STACK? 


0097 


40220 


026225 




JMP 


EF0R2 


yES 


0096 


40221 


150001 




CpA 


1,1 


No, ENTRY F R THIS F R-v 


0099 


40222 


026174 




JMP 


EFOR0 


YES 


0100 


40223 


044344 




AOB 


.•6 


NO, CHECK 


0101 


40224 


026217 




JMP 


EFOR1 


LOWER ENTRY 


0102 


40225 


065250 


EFQR2 


L OB 


FORST 


MOVE TO SPACE 


0103 


40226 


044360 




AOB 


,♦6 


FOR ENTRY 


0104 


40227 


015432 




JSB 


setpt 


RESET EXECUTION POINTERS 


0105 


40230 


171250 


EpOR5 


STA 


FORST,! 


SAVE ADDRESS Op VALUE IN 


0106 


40231 


015336 




JSB 


FORMX 


INITIALIZE FOR-VARIABLE 


0107 


40232 


061250 




LDA 


FORST 


SAVE POINTERS TO 


0108 


40233 


002004 




INA 




ENTRY FOR 


0109 


40234 


071422 




STA 


EFN0 


LIMIT VALUE 


0110 


40235 


040354 




ADA 


,♦2 


AND 



Entry 
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0111 
0112 
0113 
0114 
0115 
0116 

0117 
0118 
0119 
0120 
0121 

0122 
0123 
0124 
0125 

0126 
0127 

012a 

0129 
0130 
0131 
0132 

0133 

0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 

0143 

0144 

0145 

0146 

0147 

0148 

*>149* 

0X59** 

0151** 

0152** 

0153* 

0154 

0155 

0lS6 

0157 

0158 

0159 

0160 

0161 

0162 



40236 
40237 

40240 
40241 

40242 
40243 

40244 
40245 
40246 
40247 
40250 
40251 
40252 
40253 
40254 
40255 
40256 

40257 
40260 
40261 
40262 
40263 
40264 
40265 

40266 
40267 
40270 
40271 
40272 
40273 
40274 
40275 
40276 
40277 

40300 
40301 
40302 
40303 
40304 

40305 
40306 



071424 
040354 
065334 
174000 
015356 
104400 
101422 
061513 
051334 
026304 

015356 
104400 
101424 
006400 
002020 
007400 
075426 
035334 
065334 
006004 
160001 
071366 
044351 
144001 

010664 
050646 

002001 
026261 
021366 
051430 
002001 
026261 
044351 
075334 

165250 
104200 

100001 
026346 
061040 

064354 
026251 



EFQR3 



EF0R4 



EFQR6 



EXECUTE <NEXT 3TA 



40307 
40310 
40311 
40312 
40313 

403U 

40315 
40316 
40317 



161613 
010502 

001000 

041575 
040351 
160000 
065250 
055246 
02603i 



ENEXT 



EnEXI 



3TA 


EFN1 


STEP SIZE 


ADA 


• ♦2 


SAVE ADDRESS OF 


LOB 


PRGCT 


FOLLOWING STATEMENT 


3TB 


0,1 


IN ENTRY 


JSB 


FETCH 


COMPUTE AND SAVE 


DST 


EFN0,I 


LIMIT VALUE 


LOA 


TEMPI 


IMPLICIT 


CPA 


PRGCT 


STEP SjZE? 


JMP 


EF0R6 


yCS 


JSB 


FETCH 


NO, COMPUTE STEP SIZE 


DST 


EFNi,I 


AND SAVE VALUE 


CIS 




SET SIGN FLAG 


S3A 




TO «1 FOR 


CCB 




NEGATIVE STEP SIZE, 


STB 


EFN2 


FOR POSITIVE STEP SIZE 


ISZ 


PRGCT 


LOAD 


LOB 


PRGCT 


TYPE WORD OF 


INB 




STATEMENT FOLLOWING 


IDA 


1,1 


THE <FOr STATEMENT 


STA 


EFN3 


SAVE IT 


ADB 


»<»1 


COMPufE POINTER 


AOB 


1,1 


TO ITS SUCCESSOR 


AND 


0PM3K 


<NEXT 


CPA 


NXTOP 


STATEMENT 1 


R$3 




YEg 


JMP 


EF0R4 


NO 


XOR 


EFN3 


SAME 


CPA 


FVT 


FOR.-VARIABLE? 


R33 




YE3 


JMP 


EF0R4 


NO 


AOB 


.•1 


SET proGra m Counter 


STB 


PRGCT 


past <next statemenT> 


LOB 


FORST,I 


loao 


DLD 


1,1 


INITIAL VALUE OF 


JMp 


E N EX3 


F R-VArIABLE 


LOA 


HALF 


LOAD 


LOB 


• ♦2 


DEFAULT 


JMP 


EF0R3 


OF 1.0 


** 
TEMENT> ** 






** 




LOA 


TEMPI,! 


EXTRACT 


AND 


8777 


FOH-VARlABLfe 


ALS 




COMPUTE 


ADA 


SYMTB 


ADDRESS 


ADA 


.-1 


OF ITS 


LOA 


0*1 


VALUE 


LOB 


FORST 


LOAD POINTER TO FOR-STACK 


CP8 


FORQ 


BOTTOM OF STACK? 


JMP 


XECl 


YES# IGNORE STATEMENT 
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k>!63 
16164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 

0178 
0179 

0180 
0161 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0lg2 

0193 

0194 

0195 

0196 

0197* 

0J98* 

0199* 

0200* 

0201* 

0202 

0203 

0204 

0205 

0?06 

0207 

0208 

0209* 

0210* 

0211* 

0212* 

0213* 

0214 

0215 



40320 

40321 
40322 
40323 
40324 
40325 
40326 
40327 
40330 
40331 
40332 
40333 

40334 

40335 
40336 
40337 

40340 
40341 
40342 
40343 
40344 
40345 
40346 
40347 
40350 
40351 
40352 
40353 
40354 
40355 

40^56 
40357 

40360 
40361 
40362 
40363 



150001 

026324 
044344 

026316 
071424 
055250 
026331 
015432 
065250 
006004 
075422 
044354 

060350 
071426 
104200 
100001 
00g0g0 
035426 
015402 
101424 
104400 
101424 
015404 
101422 
035426 
001600 
002020 
026360 
061250 
040357 
164000 
026032 

065250 
044344 
015432 
026031 



CPA 
JMP 
ADB 
JMP 
ENEX2 STA 
CPB 
JMP 

Jsw 

LOB 

INB 
STB 
ADB 
IDA 
STA 
DID 



E N EX3 JSB 
DtF 
ISZ 
ELA 

S3* 
JMP 
L DA 

ADA 
LDB 
JMP 
ENEX4 LDB 
ADB 
JSB 
JMP 



ENEX2 

.-6 

ENEX1 

EFNl 

FQRST 

* + 3 

SfcTPT 
FQRST 

EFN0 

,+2 

.•2 

EFN2 

1,1 



3SA 

ISZ EFN2 
JSB ,FAD 
DEF EFNl, I 

DST EFM, I 



.FSB 
EFN0,I 

EFN2 



ENEX4 

FQRST 

,♦5 

0,1 

XEC1+1 

FORST 

.-6 

SETPT 

XECI 



** ** 

* EXECUTE <RETURN STATEMENT* ** 

** *'* 



NO, MATCHING ENTRY? 

YES 

NO, CHECK 

LOWER ENTRY 
SAVE FOR^VARIABLE VALUE ADDRESS 
TOP ENTRY OF FOR-STACk? 
YES 
NO, REsET 

execution pointers 
Save address 

OF LIMIT VALUE 

SET SIGN FLAG TO SAY 
POSlTIVt 3T£p SIZE 
LUAD STEP SIZE 

POSITIVE? 

NO, RESET SiGN FLAG 

ADD STEP SI7E 

TO VALUE OF FQR„VARI ABLE 
3AVE NEW VALUE 

SUBTRACT 

LIMIT VALUE 
IF STEP SIZE POSITIVE, 

INyERT SIGN OF RESULT 
LIMIj VALUE EXCEEDED? 
YES 
NO, LOAD ADDRESS 

OF STATEMtNT 
FOLLOWING THE 

<FOR STATEMENT* 
REMOVE 

ENTRY ^RUM 
F0R-3TALK 
SKIP PA3T <NE X T STATEMENT* 



40364 
40365 
40366 
40367 

40370 
40371 
40372 



061242 
051240 
115126 
164000 

040351 
071242 
026032 



ERTRN 



LDA 


RTNST 


RETURN STACK 


CPA 


RTRNQ 


EMPTY? 




JSB 


RERRS+16, 


-I Y£S 




LDB 


«rl 


NO, POP 




ADA 


•"I 


RETURN 


ADDRESS 


STA 


RTNST 


FROM 


STACK 


JMP 


xeci+i 







** ** 

* EXECUTE <INPUT 3TATEMENT* ** 
** ** 



40373 
40374 



002400 
071500 



EINPT CLA 
STA 



MCNT 



TURN OFF 

MATRIX INPUT COUNTER 
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2 l6 
0217 
0219 
0219 
0220 
0221 
(9222 
0223 
0224 
022 5 
0226 
0227 
0229 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0236 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
02§9 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 



40375 
40376 

40377 
40400 
40401 
40402 
40403 
40404 
40405 
40406 
40407 
40410 
40411 

40412 
40413 
40414 
40415 
40416 
40417 
40420 
4042J 
40422 
40423 
40424 
40425 
40426 
40427 
40430 
40431 
40432 
40433 
40434 
40435 
40436 
40437 
40440 
40441 
40442 
40443 
40444 
40445 
40446 
40447 

40450 
40451 
40452 
40453 
40454 
40455 
40456 
40457 
40460 
40461 
40462 
40463 



071460 
002400 

071472 

015446 
035422 
003400 
051460 
026415 
015336 
165332 
006020 
026521 
061332 
040350 
071332 
075574 
002400 
07U66 
071354 
026424 
075266 
015446 
035422 

015450 
026422 

007400 
075474 
050427 
026506 
006404 
050425 
026506 
015276 
026471 
026475 
064412 
075573 
035500 
002001 
127773 
065613 
055334 
026512 

03g474 
026456 

050367 
026400 
050426 
026465 
115207 
065422 
006004 

015456 
060367 
015454 



E1NP1 



E1NP2 



EINP3 



EINP4 



EINP5 
EINP6 

EINP0 



EINP9 



STA 
CUA 
STA 
JS B 
I3Z 
CCA 
CPA 
JMP 
JSB 
LOB 
SSB 
JMP 

LDA 

ADA 

STA 

ST8 

CLA 

STA 

STA 

JMP 

STB 

J$B 

ISZ 

JSB 

JMp 

CCB 

STB 

CPA 

JMP 

CUB, 

CpA 

JMP 

JSB 

JMP 
JMp 

L oB 
STB 

I$Z 
R3S 
JMP 
LOB 
CPB 
JMP 
ISZ 
JMP 

CPA 
JMP 
CpA 
JMP 
JSB 
LOB 
INS 
JSB 
LOA 
JSB 



INITF 
3YNTQ 

incaU 

IFCNT 

INITF 
EINP3 

form* 

OPDST,I 

EIN13 
OPOST 

• •2 

OPOST 

SBPTR 

SIGN 

INTMp 

EINP4 

SIGN 

INCA U 

IFCNT 

GETCR 

#•3 

SERR 

.♦45 

EINU 

INB 

,♦43 

EIN11 

NUMCK 

EINP7 

EINpB 

,+40B 

BLANK 

MCNT 

MlQEN, I 

TEMPI 

PRGCT 

EIN12 

SERR 

EINP9 

. + 1&B 
EINP2„l 

.♦548 

EIN10 

WERRS,I 

IFCnT 

OUTIN 
,M5B 
UUTCR 



SAVE AOORESS FLAG 
REQUEST 

FIRST 

INPUT RECORD 
COUNT INPUT QUANTITY 
MATRIX 

INPUT? 
YES 

NO# EVALUATE NEXT ADDRESS 
IS IT A 

STRING VARIABLE? 
YES 
NO* 

UNSTACK 
ADDRESS 
SAVE DESTINATION AOORESS 
SET SIGN 

TO POSITIVE 
FLAG REQUEST FqR NUMbER 

RESET SIGN TO POSITIVE 

FETCH 

FIRST 

CHARACTER 
TURN OFF 

OVER/UNDERFLOW FLAG 
• •I ? 
YES 
NO 

»♦» ? 
YES 

NO, NUMBER? 
NO 

BAD EXPONENT 
TURN ON 

BLANK SUPPRESSION 
MATRIX COMPLETED? 

NO 

YES 

<INPUT STATEMENT* 

SATISFIED? 
YES 

DID OVER/UNDERFLOW OCCUR? 
YES 

NOr END OF INPUT RECORD? 
Y ES 

Ng, CqMMA NEXT? 
YE8 
NO 
OUTPUT NEXT 

ITEM 
NUMBER 
OUTPUT 

CARRIAGE RETUHN 
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0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 

0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 

0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 

0321 
0322 
0323 
0324 
0325 



40464 
40465 
40466 
40467 
40470 
40471 
40472 
40473 
40474 
40475 
40476 
40477 
40500 
40501 
40502 
40503 
40504 
40505 
40506 
40507 
40510 
40511 
40512 
40513 
40514 
40515 

405 1 6 
40517 

40520 
40521 
40522 

40523 
40524 
40525 
40526 
40527 
40530 
40531 
40532 
40533 
40534 
40535 
40536 
40537 
4^540 
40541 

40542 
40543 
40544 
40545 

40546 
40547 

40550 
40551 
40552 



026400 
0I5450 
026456 
015452 
026401 
050414 
026475 
055266 
026424 
115207 
065422 
015456 
060367 
015454 

006400 
055354 
026421 
025535 
075266 
015450 
026475 
026435 
050367 
002401 
115216 
071572 

06036 4 
015454 

026031 
007000 
160001 
001727 
010443 
003000 
141330 
071410 
003400 
015344 
065406 
075354 
026537 
015446 
035422 

01545" 
026535 
007400 
075474 
050414 
002001 
015452 
006400 
07S573 
063772 
015350 
006400 



EIN10 



E1NP7 



EINP8 



EINU 



EXN12 



E-1N13 



EIN14 



UNl7 



JMP EINP2-1 




JSB GETCR 


END OF INPUT RECORD? 


JMP EINP9 


YES 


JSB BCKSP 


NO 


JMP EINP2 




CPA ,*42B 


" ? 


JMP EINP8 


YES 


CPB SIGN 


NO, SIGN FOUND? 


JMP EINP4 


NO, IGNORE CHARACTER 


JSB WERRS,I 


YES 


LDB IPCNT 


OUTPUT 


JSB OUTIN 


ITEM NUMBER 


LDA ,*15B 


OUTPUT 


JSB OUTCR 


CARRIAGE RETURN 


CL6 


NUMBER 


CPB INTMP 


REQUESTED? 


JMP EINP4-3 


YES 


JMP EIN14 


NO 


STB SIGN 


SAVE SIGN 


JSB GETCR 




JMP EINP8 


OUT.OF*.OATA ERROR 


JMP EINP5 




CPA ,*15B 


End qf record? 


cl*,rss 


YES 


JSB WERRS+7,1 


NO 


STA CHRCT 


ZERO CHARACTER COUNT 


IDA ,*12B 


OUTPUT A 


JSB OUTCR 


LINE FEED 


JMP X EC1 




CmB 


EXTRACT 


LDA 1#I 


PHYSICAL 


ALF, ALF 


LENGTH OF 


AND B377 


DESTINATION STRI 


CMA 


SET IT AS END 


ADA TMPST,J 


OF UNSPECIFIED 


STA TPRME 


DESTINATION STRING 


CCA 


PREpARE 


JSB PSTR 


DESTINATION STRING 


LD8 TNULL 


SAVE LENGTH 


STB I N TMp 


ALLoWA N CE 


JMP *+3 




JSB INCAL 




ISZ IFCNT 


FETCH 


JSB GETCR 


FIRST 


JMP *-3 


CHARACTER 


CCB 


TURN OFF 


STB SERR 


OVER/UNDERFLOW FLAG 


CPA ,*42B 


" ? 


RSS 


YES 


JS B BCKSP 


NO, STRING BEGINS HERE 


CLB 


TURN OFF 


STB BLANK 


BLANK SUPPRESSION 


LDA FINCA 


POINT TO INPUT BUFFER 


JSB TRSTR 


TRANSFER STRING 


CLB 


ALL REQUESTED 



PAGE 


0112 l 


*10 STATEMENT 


execution processors 


0326 


40553 


055406 




CPB 


TNULL 


CMARACTtRS TRANSFERRED? 


0327 


40554 


026600 




JMP 


EIN21 


yES 


0328 


40555 


055464 




CPB 


P31 


NO, TRANSFER LENGTH SPECIFIED? 


0329 


40556 


026574 




JMP 


EIN20 


NO 


0330 


40557 


071354 




STA 


INTMP 


YES, SAVE (A) 


0331 


40560 


003400 




CCA 




FINISH 


0332 


40561 


071410 




STA 


TPRME 




0333 


40562 


041406 




aqa 


TNULL 


TRANSFER 


&334 


40563 


071406 




STA 


TNULL 




0335 


40564 


060600 




LDA 


F8CHA 


WITH BLANKS 


0336 


40565 


015350 




JSB 


TRSTR 




0337 


40566 


061354 




LDA 


INTMP 


RESTORE CA) 


033a 


40567 


0g03e7 


EXN18 


CPA 


.♦I5B 


TRANSFER ENDED BY END*QF~INPUT? 


0339 


40570 


026440 




JMP 


E|NP6 


YES 


0340 


40 5 7l 


0I5450 


EIN19 


JSB 


GETCR 


NO, WAS A " 


0341 


40572 


000000 




NOP 




EXIT WITH 


0342 


40573 


026440 




JMP 


EINP6 


NEXT CHARACTER 


0343 


40574 


165260 


EIN20 


IDB 


TEMP6,I 


SET LOGICAL 


0344 


40575 


04g406 




AOB 


TNULL 


TO ACTUAL 


0345 


40576 


175260 




STB 


TEMP6,I 


STRING LENGTH 


0346 


40577 


026567 




JMP 


EIN18 




0347 


40600 


055464 


EIN21 


CPB 


PSl 


LENGTH OF TRANSFER SPECIFIED? 


0348 


40601 


026607 




JMP 


EIN15 


NO 


0349 


40602 


015450 


E1N16 


J3B 


GETCR 


YES 


0350 


40603 


026440 




JMp 


EINp6 


IMpLIED CL03ING QUOTE 


0351 


40604 


050414 




CpA 


,♦428 


« ? 


0352 


40605 


026571 




JMP 


EIN19 


YES 


0353 


40606 


026602 




JMP 


EIN16 


NO, LOOK FOR * OR END-QF-INPUT 


0354 


40607 


015450 


EJN15 


JSB 


GETCR 


END-OF-INPuT NS.XT? 


0355 


40610 


026440 




JMP 


EINP6 


YES 


0356 


40611 


050414 




CPA 


,♦428 


NO, CLOSING * ? 


0357 


40612 


026571 




JMP 


EIN19 


YES 


0358 


40613 


061354 




LDA 


IN T MP 


NO, DESTINATION $T KI NG EXCEEDED 


0359 


40614 


071406 




STA 


TNULL 


RESTORE 


0360 


40615 


061574 




IDA 


sbptr 


DESTINATION STRING 


0361 


40616 


071272 




STA 


TEMP5 


PARAMETERS 


0362 


40617 


0604*2 




LDA 


.♦408 


SET TO 


0363 


40620 


071573 




STA 


BLANK 


SKIP BLANKS 


0364 


40621 


026475 




JMP 


EINP8 




0365* 














0366*** 








** 




0367** EXECUTE <READ STATEMENT ** 




0308*** 








** 




0369* 














0370 


40622 


015506 


EKEAD 


JSB 


VLFIL 


LOOK FOR FILE REQUEST 


0371 


40623 


026640 




JMP 


EREAl 


FILE REQUEST Fo uND 


0372 


40624 


015336 




JSB 


FQRMX 


EVALUATE DESTINATION ADDRESS 


0373 


40625 


161332 




LOA 


OPDST,I 


STRING 


0374 


40626 


002020 




SSA 




VARIABLE? 


0375 


40627 


026644 




JMP 


EREA2 


YES 


0376 


40630 


071574 




STA 


SBPTR 


NO» SAVE AND 


0377 


40631 


061332 




LOA 


OPOST 


UNSTACK 


0378 


40632 


040350 




ADA 


.-2 


DESTINATION 


0379 


40633 


071332 




STA 


OPOST 


ADDRESS 


0380 


40634 


006404 




CLB, 


rINB 


FETCH 
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0381 
0382 

0363 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0001* 

0002* 

0003* 

0004* 

0005* 

0006 

0007 

0008 

0009 

0010 

00U 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 
0032 
0033 
0034 
0035 
0036 
^i7 

0038 
0039 
0040 
0041 



40635 
40636 

40637 
40640 

40641 
40642 
40643 
40644 
40645 
40646 
40647 
40650 
40651 
40652 



015362 
104400 
101574 
061613 
031334 
026031 
026624 
064354 
015362 
003400 
015344 
060600 
015350 
026640 



EREA1 



EREA2 



** 

* EXECUTE <PR 

** 



FDATA 
SBpTR,I 

TEMPI 

PR(jCT 

XEC1 

EREAD+2 

.♦2 

FDATA 

PSTR 
FSCMA 
TRSTR 
EREA1 

** 
INT STATEMENT ** 
** 



JSB 
DST 

IDA 
CPA 
JMP 
JMP 
LDB 
JSB 
CCA 
JSB 
LDA 
JSB 
JMP 



40653 
40654 
40655 
40656 
40657 
40660 
40661 
40662 
40663 
40664 
40665 
40666 
40667 
40670 
40671 
40672 
40673 
40674 
40675 
40676 
40677 
40700 
40701 
40702 
40703 

40704 
40705 
40706 
40707 
40710 
40711 
40712 

40713 
40714 
40715 
40716 



002404 
015554 
002400 
071756 
015506 
027017 
026671 
061234 
002021 
026670 
002400 
051472 
015430 
003401 
002400 
071472 
161613 
010700 
002002 
026722 
035613 
065613 
055334 
027014 
161613 

010664 
050612 
026662 

05^614 
026670 
050445 
026746 
0^0650 
027006 
002003 
026673 



EPRIN 



EPRli 



EPrI2 



EPRI3 



EPRI4 



CLA, 

JSB 

CLA 

STA 

JSB 

JMP 

JMP 

LDA 

S3A, 

JMP 

CLA 

CpA 

JSB 

CCA, 

CL* 
STA 

LDA 
AND 
SZA 
JMP 
ISZ 
LDB 
CpB 
JMP 
LDA 
AND 
CPA 
JMP 
CPA 
JMp 
CPA 
JMP 
CPA 

JMP 
SZA, 

JMP 



ZNA 
EpRUS 

FFLtt 

VLFXL 

EPR13 

EPRJ2M 

FI L E# 

RSS 

EPRI2 

EqL 

EDELM 

RSS 

EQL 
TEMPI, I 

OPDMK 

EPRI5 

TEMPI 

TEMPI 

PRGCT 

EPR12 

TEMPI, J 

OPMSK 

B2000 

tPRll 

B3000 

EpRl2 

B1000 

EPRI8 

ENDOP 

EPR11 

RSS 

EPRI3 



NUMBER 
STQRE NUMBER 

END OF 

STATEMENT? 
YES 
NO 
PREPARE 

SOURCE STRING 
PREPARE 

DESTINATION STRING 

TRANSFER STRING 



FLAG AS 'PRINT' 

CHECK FuR USInG STATEMENT 

FLAg AS 

NON-FORMATTED 
VALIDATE FILE REQUEST 

NO FILE REQUEST FOUND 
FILE 

MODE? 
YES 

no, execute comma 
unless preceded by 

A »TAB! (EOL ■ 1) 
TURN OFF «END«QF„LINE» FLAG 
TURN ON 

'ENp-OF-LINE' FLAG 
EXTRACT 

NEXT OPERAND 

NULL? 

NO, BEGINS FORMULA 

YES 
STATEMENT 

FjniShED? 
YES 
NO, EXTRACT 

NEXT OPERATOR 
COMMA? 
YEs 

NO, SEMICOLON? 
YEs 

NO, » ? 
YES 

NO, 'END' ? 
YES 

NO, NULL? 
YES 
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004g 


40717 


0043 


40720 


0044 


40721 


0043 


40722 


0046 


40723 


0047 


40724 


0040 


40725 


0049 


40726 


0050 


40727 


00 5 1 


40730 


0052 


40731 


0053 


40732 


0054 


40733 


0055 


40734 


0056 


40735 


0057 


40736 




40737 


0058 


40740 


0059 


40741 


0060 


40742 


0061 


40743 


0062 


40744 


0063 


40745 


0064 


40746 


0065 


40747 


0066 


40750 


0067 


40751 


0066 


40752 


0069 


40753 


0070 


40754 


0071 


40755 


0072 


40756 


0073 


40757 


0074 


40760 


0075 


40761 


0076 


40762 


did77 


40763 


0078 


40764 


0079 


40765 


0080 


40766 


0081 


40767 


0082 


40770 


0083 


40771 


0084 


40772 


0085 


40773 


0086 


40774 


0087 


40775 


0088 


40776 


0089 


40777 


0090 


41000 


0091 


41001 


0092 


41002 


0093 


41003 


0094 


41004 


0095 


41005 



003400 

041613 
071613 
003400 
071472 
015336 
165332 
006020 
026747 

015376 
061234 

002021 
026742 
035472 
026700 
104200 
100001 
015420 
026700 
075574 
064350 
015512 
026700 
015340 

060350 
015344 
071256 

075410 
064347 

061234 
002021 
026744 
002400 
071472 
061406 
003004 
041572 
043774 
002021 
015426 
027003 
015364 
060412 
050370 

060364 
050371 

002001 
027002 
060367 
015454 
002400 
015454 
035406 
026770 
026700 



EPRI5 



EPRI7 



EPRX8 



EPRi9 



EPR10 



CCA 


NO, MUST BE FORMULA 


ADA TEMPI 


RESET TO PRIOR 


STA tempi 


NULL OPERAND 


CCA 


TURN OFF 


STA EOL 


•TAB' FLAG 


JSB FORMX 


EVALUATE FORMULA 


LD8 0PD3T,I 


IS IT A 


338 


STRING VARIABLE? 


JMp EpR!8*l 


YES 


JSB OPCHK 


NO, UNSTACK VALUE ADDRESS 


IDA FILE* 


TO BE WRITTEN 


SSA,RSS 


ON A FILE? 


JMP EPRJ7 


YES 


I3Z EOL 


NO, A ITAB! ? 


JMP EPRI4 


YES CEOL * 1 NOW) 


OLD 1,1 


NO, OUTPUT 


J88 ENOUT 


A NuMBEk 


JMP EPRI4 




ST8 SBPTR 


SAVE VALUE ADDRESS 


LOB ..2 


write number 


JSB FUST 


ON FILE 


JMP EPRI4 




JS8 STSTR 


STACK STRING CONSTANT 


IDA ,«2 


PREPARE 


JSB PSTR 


PRINT 


STA TEMP4 


STRING 


STB TPRME 




LOB *3 


PRESET TO WRITE ON FILE 


LOA FILE* 


TO BE WRITTEN 


S3A,RSS 


ON A FI(.E? 


JMP EPRI7+2 


YES 


CLA 


NO, ru«N ON 


STA EOL 


»END«.OF..LINE» FLAG 


LDA TNULL 


ENOUGH 


CMArlNA 


8PACE 


ADA CHRCT 


UN 


ADA M74 


CURRENT 


SSA,R8S 


LINE? 


J38 OUTLN 


NO 


JMP EPR10 


YEs 


J38 FSC H 


FETC H 


LDA .+40b 


CHARACTER 


CPA .♦ieB 


PSUEUU LINE FEED? 


LDA ,*12B 


YES 


CPA ,+178 


PSUEOO CARRIAGE RETURN? 


RSS 


YES 


JMP EPR10-1 


NO 


LDA ,+158 


OUTPUT 


JSB OUTCR 


CARRIAGE RETURN 


CLA 


AND A NULL 


JSB OUTCR 


OUTPUT CHARACTER 


ISZ TNULL 


MORE STRING? 


JMP EPRI9 


YES 


JMP EPR14 


NO 
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0096 
0097 
0096 
0099 
0100 
0101 
0102 
0103 
0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113* 

0114* 

0115* 

0116* 

0117* 

0116* 

0119* 

0120* 

0121 

0122 

0123 
0124 
0125 
0126 
0127 

l2 * 
0129 

0130 
0131 
0132 
0133 
0134 
0135 

0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
01§0 



41006 071653 EPRU STA EQRFL FILE 

41007 015514 JSB GTTYP 

41010 050355 CPA , + 3 FULL? 

41011 026677 JMP EPRI4-1 yES 

41012 007400 CCB NOr WRITE 

41013 026744 JMP EPRI7+2 END,-OF,FILE 

41014 035472 EPR12 I§Z EOL ' END-OF-LINE « FLAG S ET? 

41015 015426 JSB QUTLN YES 

41016 026031 JMP XEC1 NO 

41017 044342 EPR13 ADB ,-8 SET BUFFER 

41020 160001 LDA B,I D1R» 

41021 031036 IOR BIT15 TY 

41022 170001 STA 8,1 BIT 

41023 065613 LDB TEMPI NULL 

41024 055334 CPB PRGCT PRINT7 

41025 026031 JMP XfcCl YtS 

41026 025670 JMP EPRI2 NO 



EXECUTE <PRXNT USING STATEMENT ** 

**■ 



EXIT TO (P*l 
FORMAT SPECI 



) IF NO USING OPERATOR FOUND, OTHERWISE PREPARE 
FICATION STRING AND CAM- FORMATTED OUTPUT ROUTINE, 



41027 
41030 
41031 
41032 
41033 
41034 
41035 

41036 
41037 
41040 
41041 
41042 
41043 
41044 
41045 

41046 
41047 
41050 
41051 
41052 
41053 
41054 
41055 
41056 
41057 
41060 
41061 
41062 
41063 
4l0g4 



071756 
065613 

160001 

050656 
006005 
125554 
055334 
125554 
160001 
010664 
050776 
002001 
125554 
120001 

0/5613 

002021 
027065 
006004 
164001 
044354 
160001 
010664 
050746 
002001 
115154 
035613 
035613 
002400 
071762 
015552 



#EPRU STA 
LDB 
LDA 
CPA 
INB, 
JMP 
CPB 
JMP 
LDA 
AND 
CpA 
RSS 
JMP 
XQR 
STB 
SSA, 
JMR 
INB 
L DB 
ApB 
LDA 
AND 
CPA 
RSS 
JSB 
ISZ 

isz 

CLA 
STA 
JSB 



FFLG 
TEMPI 
B,I 
PRTOP 

RSS 
EPRUS,I 

PRGCT 

EPRUS,! 

OPM S K 
USEOP 

EPRUSfl 
8,1 
TEMPI 
RSS 

EPRU1 

B,I 
.♦2 

B,I 
OPMSK 

JMGOP 

RERRS+38, 

TEMPI 

TEMPI 

NCh 
FRMAT 



SAVE FORMAT FLAG 



NULL 

YE3 

NO, 
END 
YES 
NO. 



OPERAND? 

CAN'T BE USING STATEMENT 
OF STATEMENT? 



'USING' 
UPE h AtOk 
NEXT? 
YES 

NO, EXIT 
GET OPERAND 
SAVE POINTER 
INTEGER FOLLOWS? 
NO 

GET ADDRESS OF ImAGE STATEMENT 
«> LENGTH WORD 

GET OPERATOR 
IMAGE? 
YES 
I NO, ERROR 
BUMP TO POINT 

to First oPfcRAND 



CALL FORMATTER 
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0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202* 

0203*** 

0204** 

0205*** 



065 
066 
067 
070 
071 
072 
073 
074 
075 
076 
277 
00 
01 
02 

03 
04 
05 
06 
07 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
1147 



002003 
027135 
015336 
060350 
015344 
161260 
010443 
002003 
026031 
003004 
071552 

065330 
044354 
160001 
003004 
006004 
134001 
027112 
002400 
071762 
027125 
140001 
002003 
026031 
002020 
115162 
071762 
003400 
140001 
041552 
002021 
115162 
044351 
160001 
041552 
002021 
115162 
160001 
065260 
015562 
006004 
160001 
018700 
002004 
001100 
041613 
040354 

071613 
002400 
071762 
015552 



EPRul 



EPRU2 



EHRU3 



ERRU4 



3*A, 

JMP 

JSB 

IDA 

JSB 

LOA 

AND 

SZA, 

JMP 

CMA, 

8TA 

LOB 

AOB 

LOA 

CMA, 

JNB 

ISZ 

JMP 

CIA 

STA 

JMP 

ADA 

8ZA, 

JMP 

SSA 

JSB 

STA 

CCA 

ADA 
ADA 

S3*' 
JSB 

ADB 

IDA 
ADA 

SS*' 
JSB 

IDA 

LOB 
J8B 
INB 
LOA 
AND 
INA 

AR3 
ADA 
ADA 
STA 
CIA 
STA 
JSB 



«ss 

EPRU4 

fqrmx 

.-2 

PSTR 
TEMP6, I 
B377 

«ss 

XECl 

INA 

STRLN 

TMPST 

,♦2 

B,I 

INA 

6,1 
EPRU2 

NCH 

EPRy3 

B,I 

RS3 

XECl 

RERRS+44, 

nch 

B,I 
STRLN 

R 5S 
RERRS+44, 

,-1 

Brl 
STRLN 

RSS 
RERRS+44, 

B,X 

TEMP6 

FRMAT 

OPDMK 



TEMPI 

,+2 

TEMPI 

NCH 

FRMAT 



NULL OPERAND? 

YES 

NO, FETCH 

STRING 
OPERAND 
GET 

LENGTH 
NULL STRING? 
YES 
No* SAVE 

"LENGTH 



GET FIRST SUBSCRIPT 
NEGATE IT 

SECOND SUBSCRIPT EXIST? 

YES 

NO, SET 

CHARACTER COUNT 

COMPUTE DIFFERENCE 
NULL STRING? 
YES 

NO, NEGATIVE? 
I YES 
NO, SAVE DIFFERENCE 

SECOND 

SUBSCRIPT 
VALID? 
I NO 
YES 
FIRST 

SUBSCRIPT 
VALID? 
I NO 
YES, l ad IT 
•> FIRST WORD OF STRING 
CALL FORMATTER 
■> 1ST WQRD of STRING 
UPDATE 

Intra- 
statement 

POINTER 



CALL FORMATTER 



** 



EXECUTE <RE3TORE STATE^EN^ ** 

** 
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0206* 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214* 

0215* 

0216* 

0217* 

0218* 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

22 8 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

024 6 
024/ 
0248 

0249 
0250 
025i 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 



41150 
41151 
41152 
41153 
41154 
41155 
41156 



161613 
035613 
065577 
002020 
165613 
015360 
026031 



ERSTR LDA 
ISZ 
LDB 
SSA 
LDB 
JSB 
JMP 



TEMPI, I 

tempi 
sprog 

tempi, I 
setup 

XEC1 



LOAD FLAG WORD 

ADVANCE STATEMENT POINTER 

SET (b) TO START OF PROGRAM 

'LABELLED RESTORE' 

YES, RESET C8) TO STATEMENT 

5ET OAT« POINTERS 



** ** 

* EXECUTE <ENTER STATEMENT ** 
** *** 



41157 
41160 
4ll6l 
41162 
4H63 
41164 
41165 
41166 
41167 
4u70 
41171 

41172 
41173 
41174 
41175 
41176 
41177 
41200 
41201 
41202 
41203 
41204 
41205 
41206 
41207 
41210 
41211 
41212 
41213 
41214 
41215 
41216 
4l2l7 
41220 
41221 
41222 
41223 
41224 
41225 
41226 
41227 
41230 



161613 
010700 
002002 
027214 
065613 
006004 
160001 
010664 
050736 

002001 
027214 

075613 
015336 

165332 
075574 
061332 
04^350 
07J332 
064257 
003004 
160001 
001727 
015346 
171574 
035574 
175574 
061613 
0^1334 
026031 
015356 
015416 
000000 
060001 
010443 
002003 
002004 
U71612 
060257 
002004 
050255 
115220 
060373 



EENTR LDA 
AND 
SZA 
JMP 
LDB 
INB 

LDA 
AND 

CPA 
RSS 
JMP 
STB 
JSB 
LDB 
STB 

LDA 
ADA 
STA 
LDB 

InB 

LD A 

ALF, 

JSB 

STA 

ISZ 

STB 

LO* 
CPA 
JMP 
EENT3 J38 
JSB 

NOP 

LDA 

AND 

SZA, 

INA 

S1A 

LDA 

INA 

CPA 

JSB 

LDA 



TEMPI, I 

OPDMK 

EENT3 
TEMPI 

BrX 

OPMSK 

84000 

EENT3 

TEMPI 

pORMX 

OPDST,! 

SBPTR 

OPDST 

.-2 

OPDST 

MAIN 

1,1 

ALF 
FLOAT 
SBPTR, I 
SBPTR 
SBPTR, I 

Tempi 

PRSCT 

XEC1 
FETCH 

I^IX 

B377 
RSS 

ATIM 
MAIN 

PRIST 

WERRS+9,i 

,+218 



•> FIRST OPERATOR 

IS '#' PRESENT? 
NO 



GET NEXT OPERATOR 

»#«? 
YES 

NO 

EVALUATE ADDRESS 

«> SYMBOL 
UNSTACK 

ADDRESS 

«> USERS TTY * IN TELETYPE lAB^E 
GET TTY » ANu 

RIGHT JUSTIFY 
CONVERT TO FLOATING POINT 
STORE 

TTY 

NUMBER 
ENTER STATEMENT 

FINISHED? 
YES 

NO*«FETCH ALLOWED TIME 
CONVERT 

TO 

SECONDS 
MASK T 8 BI T S 
IF 0, s£T 

TO 1 

DOES THIS USER 
HAVE THE 

LINfc PRINTER? 
YES * RELEASE iT 
UUTPUT 
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0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0203 
0284 
0285 
0286 
0287 
0288 
0269 
0290 
0291 
0292 
0293 
02g4 
02^5 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
9312 
0313 
0314 
0315 



41231 
41232 
41233 
41234 
41235 
41235 
41236 
41237 
41240 
41241 
41242 
41243 
41244 
41245 
41246 
41247 
41250 
41251 
41252 
41253 

41253 
41254 

41255 
41256 

41257 
41260 
41261 
41262 
41263 
41264 
41265 
41266 
41267 
41270 
41271 
41272 
41273 
41274 
41275 
41276 
41277 
41300 
41301 
41302 
41303 
41304 
41305 
41306 

4*307 
41310 
41311 
41312 

41313 
41314 
41315 



015454 
060221 
031612 
H4516 

027253 
015336 
165332 
075574 
061332 
040350 
071332 
060762 
015346 
171574 
035574 
175574 
127252 
041425 

006400 
075573 

015450 
000000 
064412 
075573 

050355 
124554 
015452 
015336 
165332 
075574 
076422 
061332 
040350 
071332 
064257 
044371 
160001 
015346 
171574 
035574 
175574 
015336 
165332 
006020 
027341 
061332 

040350 
071332 
075574 
002400 
071266 
015450 
027414 



ENTRT 



EENT6 



JS0 OUTqR 


AN X<*ON 


IDA 3TE 


START 


IOR ATIM 


ENTER 


JSB 8CMXN,I 


TIMING 


E8U * 




JMP EENT6 


INPUT ENTERED 


jSB FQRMX 


TIMEOUT OCCURED 


LOB OPDST,! 


m> RESPONSE 


STB SBPTR 


TIME 


IDA OPDST 


UNSTACK 


ADA T «2 




STA OPDST 


ADDRESS 


IDA M256 


SET 


JSB FLOAT 


RESPONSE 


STA SBPTR, I 


Time 


I3Z SBPjR 


to 


STB SBPTR, I 


• 256 


JMp **1,I 




DEF EEN18 




eou * 




CLB 


DON'T SUPPRESS 


STB BLANK 


BLANKS 


JSB GETCR 


FIRST 


NOP 


CHARACTER A 


LDB ,*40B 


SUPPRESS 


STB BLANK 


BLANKS 


CPA ,+3 


CONTROL C? 


JMP ExITA,I 


yES 


JSB 8CKSP 


NO 


JSB FQRMX 


EVALUATE ADDRESS 


LDB OPDST, I 




STB SBPTR 


■> RESPONSE TImE 


8T» RsPT R 




LDA OPDST 


UNSTACK 


ADA .-2 




STA OPDST 


ADDRESS 


LDB MAIN 




ADB ,+?RTIM 


GET RESPONSE 


LOA l f I 


TIME 


JSB FLOAT 




ST A 3bPTR,I 


STORE 


JSZ SBPTR 


IT 


STB sBPTRfl 




JSg FORMX 


EVALUATE AdqRESS 


LDB OPDST, I 


IS IT A 


SSB 


STRING VARIABLE? 


JMP EENJ0 


YES 


LDA OPDST 


NO, 


ADA ,*2 


UNSTACK 


STA OPDST 


ADDRESS 


STB SBPTR 


SAVE DESTINATION ADDRESS 


CLA 


SET SIGN 


STA SIGN 


TO POSITIVE 


JSB G£TCR 


fetch first character 


JMP EEN17 


NONE POuNU — ERROR 
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0316 

031/ 
0316 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0336 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
034 7 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 



41316 
41317 
41320 
41321 

41322 
41323 
41324 
41325 
41326 
41327 
41330 
41331 
41332 
41333 
41334 
41335 
41336 
41337 
41340 
41341 
41342 

41343 
41344 

41345 
41346 
41347 
41350 
41351 
41352 
41353 
41354 

41355 
41356 
41357 
41360 
41361 
41362 
41363 
41364 
41365 
41366 
41367 
41370 
41371 
41372 
41373 
41374 
41375 
41376 
41377 
41400 
41401 
41402 
41403 
41404 



007400 
0756U 
050427 
027326 
006404 
050425 
002001 
027331 
075266 
015450 
027414 
015276 
000000 
027414 
035611 
027414 
050367 
027425 
027414 
007000 
160001 
001727 
010443 
003000 

141330 
071410 
003400 
015344 
065406 
075354 
006400 
075573 
063771 
015350 
006400 
055406 
027401 
055464 
027375 
071354 
003400 
071410 
041406 
071406 
060600 
013350 
027425 
165260 
045406 
175260 
027425 
055464 
027406 
015450 
027425 



EENT7 
EENTb 

EENT9 

EE N 10 



EEN13 

EEN14 

EEN15 



CCB 

STB 

CPA 

JMP 

CLB, 

CPA 

RSS 

JMP 

STB 

JSB 

JMP 

JSB 

NOP 

JMP 

ISZ 

JMP 

CPA 

JMP 

JMP 

c m b 

LDA 

A LP, 

AND 

CMA 

ADA 

STA 

CCA 

JSB 
LDB 
STB 
CUB 
STB 
LDA 
JSB 

CLB 
CPB 
JMP 
CPB 

JMP 
STA 

CCA 
STA 
Ai)A 

STA 
IDA 
JSB 

JMP 

LDB 
ADB 
STB 
JMP 
CPB 
JMP 
JSB 
JMP 



ENOUF 

,♦558 

EENT7 

INB 

,+538 

EENT8 
SIGN 
GETCR 
EEN17 

NUMCK 

EEN17 
ENOUF 
EEN17 
.♦15B 
EEN18 
EEN17 

i#I 
ALF 
B377 

TMP3T,I 
TPRME 

PSTR 

TNULL 
iNTMp 

BLANK 
FENCA 
TR8TR 

TNULL 

EEN14 

PSl 

EEN13 

JNTMP 

TPRME 

TNULL 

TNULL 

FSCHA 

TRSTR 

EEN18 

TEMP6,J 

TNULL 

T£MP6,I 

EEN18 

PSl 

EEN16 

GETCR 
EEN18 



TURN OFF 

OVER/UNOERFLOw FLAG 

YES 

NO 

!♦»? 

YES 
NO 

SET SIGN 

GET NEXT CHARACTER 
NONE FOUND 
NUMBER? 
NO— ERROR 

BAD EXPONENT—FRROR 
DID OVER/UNDERFLOW OCCUR? 
YES*,ERROR 

NO, CARRIAGE RETURN FQLLOwS? 
YES 

NO--EHROR 
EXTRACT 
PHYSICAL 
LENGTH OF 

DESTINATION STRING 

SET IT as end 

OF UNSPECIFIED 

DESTINATION STRING 
PREPARE 

DESTINATION STRING 
SAVE LENGTH 

ALLOWANCE 
TURN OFF 

BLANK SUPPRESSION 
POINT TO ENTER CHAR ROyTINE 
TRANSFER STRING 
ALL REQUESTED 

CHARACTERS TRANSFERRED? 
YES 

NO, TRANSFER LENGTH SPECIFIED? 
NO 

YES-»SAV£ (A) 
FINISH 

TRANSFER 

WITH BLANKS 



SET LOGICAL 
TO ACTUAL 

STRING LENGTH 

LENGTH OF TRANSFER SPECIFIED? 

NO 

YES 

CARRIAGE RETURN 
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037i 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

03»1 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

03$2 

03g3 

0394* 

0395** 

0396** 

0397** 

0398* 

0399 

0400 

0401 

4 02 

0403 

0404 

0405 

0406 

0408 
0409 
0410 
4 11 
0412 
0413 
0414 

0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 



41405 
41406 
41407 
41410 
41411 
41412 
41413 
41414 
41415 
41416 
41417 
41420 
41421 
41422 
41423 
41424 
41425 
41426 
41427 
41430 
41431 
41432 
41433 



027403 
015450 
027425 
061354 
071406 
061574 
071272 
161422 
035422 
165422 
015370 
175422 
007400 
045422 
170001 
0756U 
002400 
071572 
060412 
071573 
002400 
015454 
026031 



EEN16 



EEN17 



EEN18 



JMP 
JSB 
JMP 
IDA 
3TA 
IDA 
STA 
IDA 

isz 

L D8 
J8B 
STB 
CC8 
ADS 
STA 
STB 
CLA 
STA 

IDA 
STA 

CLA 
JSB 
JMP 



I 



EEN15 

GETCR 

EEN18 

INjHP 

TNULL 

SBPTR 

TEMP5 

RSPTRf 

R3PTR 

RSPTR,I 

ARXNV 

R3PTR,I 

R 3 P T R 

1,1 

ENOUF 

CHRCT 
,+40B 
BLANK 

OUTCR 
XECi 



LOOK FOR CARRIAGE RETURN 

END-OF-INPUT NEXT? 

YES 

NQ*«.DEsTlNATlQN STRING EXCEEDED 

RESTORE 

DESTINATION STRING 

PARAMETERS 

TAKE 

arithmetic 
Inverse 0." 

RESPONSE TIME 
STORE 

In 

VALUE 
TABLE 
CLEAR OVER/UNDERFLOW FLAG 

ZERO CHARACTER 

COUNTER 
RESTORE 

BLANK SUPPRESSION 

OUTPUT A 
NULL, 



* ** 

EXECUTE <ASSIGN STATEMENT ** 



** 



41434 
41434 
41435 

41436 
41437 

41440 
41441 
41441 

4*442 

4*443 
41444 

41445 

4*446 
41447 
41450 
41451 
41452 
41453 
41454 
41455 
41456 
414 5 7 
41460 
41461 
41462 
41463 
41464 





EASN EQU * 




060347 


LDA ,«3 




071442 


STA LT5 




071773 


STA ASINP 


SET FLAG TO SAY ASSIGN 


067767 


L.DB ASBpA 




063766 


LOA dbLNK 
EASN0 EGU * 




170001 


STA a, I 


BLANK OUT 3 NOHDS 


006004 


INB 




03544? 


I8Z LT5 




027441 


JMP EASN0 




002404 


CLA,INA 


ALLON STRING 


07U72 


STA EOL 


CONSTANT 


015336 


JSB FORMX 


EVALUATE STRING 


06035^ 


LDA ,-2 




015344 


JSB PSTR 


PREPARE STRING OPERAND 


071256 


STA TEMP4 


SAVE SORCE POINTER 


002400 


CLA 


INITIALIZE TO 


071470 


STA ASTYP 


LOCAL LIBRARY 


054351 


CPB .«1 


NULL STRING? 


027514 


JMP EAS02 


YES 


075410 


STB TPRME 


SAVE 8TRING LENGTH 


065256 


LDB TEMP4 


GET FIRST 


004065 


CLE,ERB 




160001 


LDA B,I 


CHARACTER 


002041 


SEZrRSS 




001727 


ALF^ALF 


OF STRING 
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KJ426 
0427 
0428 
0429 
0430 
0431 

0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 

0449 
0450 
0451 
0452 

0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 

0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 

0470 
0471 
fc)472 
0473 
0474 
0475 
0476 
0477 
0478 



41465 
4U66 
41467 
41470 
41471 
41472 
41473 
41474 
41474 
41475 
4U76 
41477 
41477 
41500 
41501 
41502 
41503 
41504 
41505 
41506 
41507 
41510 
41511 
4 i 5 12 
41513 
41514 
41515 
41516 
41517 
41520 
41521 
41522 
41523 

4*524 
41525 
41526 
41527 

41530 
41531 
41532 
41533 
41534 
41535 
41536 
41537 
41540 
41541 
41542 
41543 
41544 
41545 
41546 
41547 
41550 
41551 



010443 
006404 
050416 

027474 

050424 
006005 
027477 

075470 
035256 
035410 

061410 
040361 
002020 
002400 

040343 
0714J0 
071405 
063767 
071556 
001000 
071272 
061004 
015350 
015356 
015342 
064445 
075552 
015336 
161332 
071635 
060356 
015346 
104400 
101635 
015376 
061552 
003000 
041502 
003021 
026031 
006400 
061552 
100200 
000371 
041504 
040357 
071236 
040355 
164000 

040343 
160000 
001423 
003004 



AND 
CLE, 
CPA 
JMP 
CPA 
INB, 
JMP 
EAS01 EQU 
STB 

I« 
ZSZ 

EAS00 EQU 
LDA 
ADA 

SSA 

CLA 
ADA 
STA 
STA 
LDA 
STA 
AIS 
STA 
IDA 
JSB 
EAS02 JSB 
J3B 
LDB 
STB 
JSB 

LDA 
STA 
LUA 
JSB 
OST 



8377 

INB 

.♦44B 

EAS01 

>52B 

RS8 

EAS00 

* 

ASTYP 

TEMP4 

TPRMt 

* 

TPRME 

.♦7 



i»7 
TPRME 

TNULL 
ASBFA 

ASBFP 

TEMP5 

FCUCA 

TRSTR 

FETCH 

SBpiX 

B1000 

ORDNQ 

FORMX 

OPdST,! 

ATMP+1 

,♦4 

FLOAT 

ATMP+i,I 



JSB OPCMK 
LOA ORONO 
CMA 

ADA FCNTR 
CMA,SSA,RSS 
JMP XECl 
EASNl CLB 

LUA ORUNO 
MPY ,+FTEL 

ADA FILTB 
ADA ,*5 
STA FBASE 
ADA ,43 

LDB 0*1 
ADA .-7 

LDA 0,1 
ALRfRAR 
CMA, jNA 



SET FOR PUBLIC LIBRARY 

YES 

NO, '*«? 

YES, SET FOR GROUP LIBRARY 

NO 

SAVE LIBRARY TYPE 
BUMP SOURCE POINTER 
BUMP LENGTH 



LENGTH > 6? 
YES, SET TO 6 
NO 



pointer to 
name buffer 

destination string pointer 
upper case characters only 
move name 

evaluate numeric operand 
round to integer 

Save specified ordinal number 
leave next variable on top of st 

SAVt ADDRESS OF USER V A RIabLE 

DEFAULT 
RETURN CODE 
TO NON-EXISTENT FILE 

UNSTACK VALUE ADDRESS 
DOES 

REQUESTED 
FILE 
EXIST? 
NO, DONE 

LOCATE 

CORRECT 

FCB 

DISC ADDRESS AND SAVE IT 

GET CURRENT BUFFER ADDRESS 



clear bits 15 and 14 
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0479 


41552 


040001 


ADA 1 




0480 


41553 


071647 


STA RQ3 




0481 


41554 


015516 


JSB WRBUF 


write out record 


0482 


41555 


061236 


LDA FBASE 


RESTORE 


0483 


41556 


040345 


ADA ,»5 


FCB 


0484 


41557 


071236 


STA FBASE 


POINTER 


0485 


41560 


006402 


CLB 




0486 


41561 


174000 


STB 0rl 


INITIALIZE 


0487 


41562 


040370 


ADA ,+14 




0488 


41 5 63 


174000 


ST8 0,1 


INITIALIZE PROTECTMASK TO 


0489 


41564 


075772 


STB RETCO 


INITIALIZE RETURN CODE 


0490 


41566 


114532 


J38 SCHLB,I 


CALL IN 


0491 


415$g 


072040 


DEF ASNIB 


ASSIGN OVERLAY 


0492 


41567 


027653 


JMP £ASN5 


ASSIGNED FILE RECORD SIZE TO 


0493 


41570 


027651 


JMP EA$N4 


FILE DOESN'T EXIST 


0494 


41571 


035772 


ISZ RETCO 


iREAD ONLY* ■» GROUP OR A000 


0495 


41572 


035772 


ISZ RETCO 


« READ ONLY' • IN USE 


0496 


41573 


061613 EA8N2 


LDA TEMPI 




0497 


41574 


051334 


CPA PRGCT 


END OF STATEMENT ? 


0498 


41575 


027644 


JMP EA8N3 


Y E S 


0499 


41576 


160000 


IDA *,l 


TEST FOR A COMMA 


0500 


41577 


010664 


AND OPMSK 




0501 


41600 


050612 


CPA B2000 


COMMA FOLLOWING? 


0502 


41601 


002001 


RS3 




0503 


41602 


027644 


JMP EA3N3 


NO 


0504 


41603 


002404 


CLAflNA 


ALLOW 


0505 


41604 


071472 


STA EOL 


STRING CONSTANT 


0506 


41605 


015336 


JSB FORMX 


YEB, EVALUATE STRING OPERAND 


0507 


41606 


060350 


LDA ,-a 


PREPARE 


0508 


41607 


015344 


JSB PSTR 


SOURCE 


0509 


41610 


07lg56 


STA TEMP4 


STRING 


0510 


41611 


075410 


STB TPRME 




0511 


41612 


063767 


LOA ASBFA 




0512 


41613 


071556 


STA ASBFP 


GET CHARACTER 


0513 


41614 


001000 


ACS 


PqJnt£r to 


0514 


41615 


071272 


STA TEMP5 


PASSWORD BUFFER 


0515 


41616 


060347 


IDA ,-3 




0516 


41617 


071442 , 


STA LT5 




0517 


41620 


065556 


UD8 A§BFP 




0518 


41621 


063766 


LOA DBLNK 




0519 


41622 


170001 


STA 1,1 


FILL PASSWORD 


0520 


41623 


005004 


INB 


BUFFER WITH 


0521 


41624 


035442 


IS* LT5 


BLANKS 


0522 


41625 


027622 


j^p #»3 




0523 


41626 


060343 


LOA ,-7 


SET LENGTH (IN CHARACTERS) 


0524 


4162 7 


07140C 


STA TNUU 


of password buffer 


0525 


41630 


060600 


LOA FSCHA 




0526 


41631 


015350 


JSB TRSTR 


MOVE PASSWORD TO BUFffcR 


0527 


41632 


061556 


LDA ASBFP 




0528 


41633 


002004 


INA 




0529 


41634 

41635 


104200 
100000 


DLO 0,| 




0530 


41636 


141556 


ADA ASBFP,! 


ADD WORDl AND W0RD2 


0531 


41637 


020001 


XOK 1 


EXCLUSIVE OR - W0RD3 


0532 


41640 


030225 


IOR RBP 


INCLUSIVE OR BITS 14 AND 15 



LA 
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0533 41641 065236 LDB FBAgE 

0534 41642 044370 ApB ,+14 

0535 41643 170001 3Ta 1,1 STORE PROTECTMaSK IN FCB 

0536 41644 061772 EASN3 LOA RETCO 

0537 41645 015346 JSB FLOAT FLOAT RETURN CODE AND 

0538 41646 104400 D5T ATMP*1,I STORE IN US&R VARIABLE 
41647 101636 

0539 41650 026031 JMP XEC1 DONE 

0540 41651 060355 EA3N4 LOA ,4-3 SET RETURN CODE FOR NON-EXISTENT 

0541 41652 027645 JMP EASN3+1 

0542 41653 060357 EaSNS LDA .+5 SET RETURN CUDE FOR RECORD SIZE 

0543 41654 027645 JMP EASN3+1 
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0545* 

0546* 

0547* 

0548* 

0549* 

&)550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 
0564 

0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
05sl 
05g2 
0583 
0564 
0585 
0586 

0587 

0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0590 
0599 



** 



103100 
160257 
030372 
170257 
102100 
061502 
003000 
071502 
002004 
071552 
061232 
065504 
044357 
035502 

027752 
015560 
006400 
174634 
114534 
160640 
170634 
063775 
071430 
160257 
010356 
002002 
003401 
060346 
064257 
006004 
054255 
002001 
027723 
063737 
071430 
060340 

006400 
074255 
006400 
075274 
015462 
060257 
002004 
160000 
030230 
114500 
060366 
064257 
015564 



EXIT 



EXIT0 



EXIT3 



* COMPLETE EXECUTION 
** 

41655 
41655 
41656 
41657 
41660 
41661 
41662 
41663 
41664 
41665 
41666 
41667 
41670 
4l67i 
41672 
41673 
41674 
41675 
41676 
41677 
41700 
41701 
41702 
41703 
41704 
41705 
4^706 
41707 
41710 
417H 
41712 
4I7U 
41714 
41715 
41716 
41717 
41720 
41721 
41722 
41723 
41724 
41725 
41726 
41727 
41730 
41731 
41732 
41733 
41734 
41735 



**, 

** 
** 



EXIT4 



EQU 
CLF 
LDA 
10* 

sta 

ST? 

LDA 

CMA 

STA 

INA 

STA 

LDA 

LOB 

ADB 

ISZ 

JMP 

J3B 

CLB 

STB 

JSB 

LDA 

STA 

LDA 

STA 

LDA 

AND 

SZA 

CCA, 

LDA 

LDB 

INg 

CPB 

RSS 

JMP 

LDA 

STA 

LDA 

CLB 

STB 

CLB 

STB 

JSB 
LDA 
INA 
LDA 
IOR 
JSB 
LOA 
LDB 
JSB 



* 


MAIN, I 

UNABT 

MAIN,! 



FCNTR 

FCNTR 

FRMAT 
FCORE 
FILTB 

.+5 
FCNJR 

EXIT? 
LCDLP 

DCLCi,I 

A8CK,I 

DCLC2.I 

DClC1,I 

EXIT1 

LT1 

MAIN, I 

HFLaG 

RSS 

* •4 
MAIN 

PRIST 

EXIT4 
EXTIA 
LT1 

.'10 

PRIST 

LT2 
OUTST 

MAIN 

9,1 

UNR 

814LP,I 

.♦4 

MAIN 

EDABR 



INHIBIT 

ABqrtS 

SET COUNTER TO 

1»8 COMPLEMENT OF 
NUMBER OF FILES 

SAVE 2'S COMPLEMENT FOr 

LGp'S FILE COUNT 
LOAD FIRST BUFFER ADDRESS 
LOAD POINTER TO 

FIRST DISC ADDRESS CLOW WORD) 
MqrE FILES? 
YES 

UPDATE LAST CHANGE DATE 
OUTPUT 



COMPLETION 



MESSAGE UNLESS 
SMELLO PROGRAM 



DOES USER 
HAVE LP? 



NO, 
YES, 

RELEASE IT AND 
PRINT MESSAGE 



TEU 2114 

that user is 

finished running 
clear pbflg and cbflg 

bits. 
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0600 
0601 
0602 
0603 
0604 



0605 
0606 
0607 
0606 

0609 
0610 
0611 
0612 
0613 
0614 
0615 
06l6 
0617 
0616 
0619 
0620 
0$2l 



41736 
41737 
41740 
41741 
41742 
41743 
41744 
41745 
41745 
41746 
41747 
41750 
41751 
41752 
41753 
41754 
41755 
41756 
41757 
41760 
41761 

41762 
41763 
41764 
4l7 6 5 



124514 
041737 
011423 
006412 
046120 
020106 
051105 

042412 
006412 
042117 
047105 
006412 
075236 
071647 
015516 
065236 
044365 
160001 
001423 
003004 
044361 
1*0001 
044347 
027672 



EXTlA 



JMP 
DEF 
OCT 
OCT 
ASC 



8CHEN,I 

11423 

6412 

3, LP PRE 



EXT1 



EQU * 
OCT 42412 
OCT 6412 
ASC 2, DONE 



OCT 6412 
EXIT2 STB F8ASE 
STA RQ3 
JSB WRBUF 
LOB FBASE 
AOB ,*FTEL*4 

LOA 1,1 
AIK,RAR 

CMA,INA 

ADB ,«7 
ADA 1,1 
ADB ,.3 

JMP EXIT0 



WRITE 
OUT 

RECORD 
GEj RECORD 

size of next fjle 

CLEAR BITS i* AND lg 

GET END OF FILE BUFFER 
COMPUTE FILE BUFFER STARTING ADD 
POINT B TO FIRST DISC ADDRESS 



»623 41766 020040 DBLNK OCT 200*0 

0624 41767 001741 ASBFA DEF ERSEC+60 

0625 4I770 142246 XECBR DEF XECTB-42b,I 

0626 41771 001524 FENCA DEF FENCH 

0627 41772 001274 FINCA DEF FINCH 

0628 41773 046174 MIOEN DEF MI07 

0629 41774 177666 M74 DEC »74 

0630 41775 041745 EXITl DEF EXTl 
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0002 


42000 






ORG 


42000b 






0003 


42000 


142664 


AKfcjAS 


DEF 


F0JT»12b, 


I 




0004 


42001 


177712 


D66 


OCT 


-66 






0005 


42002 


041675 


EXT3A 


DEF 


EXIT3 






0006 


42003 


000000 


ITEMP 


BSS 


1 






0007 


42004 


177670 


*72 


DEC 


-72 






000a 


42005 


000111 


.73 


DEC 


7i 






0009* 
















0010** 








** 






0011*** EXECUTE <CHAIN 3TATEMENT> *** 






0012** 








** 






0013* 
















0014 


42006 


114532 


ECHAn 


J3B 


SCHLB,I 


CALL 


SYSTEM TO EXECUTE DISC RQUT 


0015 


42007 


072041 




DEF 


CHLIB 






0016 


42010 


115155 




J36 


RERR3+39, 


I 




0017 


42011 


115166 




JSB 


RERRS+48, 


I 




0016 


42012 


115156 




JSB 


PERRS+40, 


I 




0019 


42013 


115157 




JSB 


RERRS+41, 


I 




0020 


42014 


115165 




JSB 


RERRS+47, 


I 




0021 


42015 


126002 




JMP 


EXT3A, 1 


NULL 


PROGRAM OR BAD LINE NUMBER 


0022 


42016 


126017 




JMP 


♦ ♦1,1 


60 COMPILE It 


0023 


42017 


036052 




DEF 


CMPL0 






0024** 










** 




0025*** SET 


r POINTERS TO 


DATA 


STATEMENT 


*** 




0026** 










** 




0027* 
















0028* 


STARTING WITH THE 


STATEMENT REFERENCED BY (B) UPON 


0029* 


ENTR^ 


f, FIND ■ 


THE NEXT <DATA STATEMENT 


AND SET THE DATA 


0030* 


BLOC*' 


I POlNjERs APPROPRIATELY. IF NO 


«DATA STATEMENT* 


0031* 


is found, set the 


POINTERS TO THE 'OUT OF DATA' 


0032* 


CONFIGURATION A ND 


EXIT 


WITH (A) 


■ »1, 




0033* 
















0034 


42020 


055575 


#STDP 


CPB 


SYMTB 


PROGRAM EXHAUSTED? 


003 5 


42021 


02«037 




JMP 


8ETD2 


YES* 


SET 'OUT OF DATA' CONDITION 


0036 


42022 


044354 




ADB 


,♦2 


NO, 




0037 


42023 


160001 




LOA 


1,1 


STATEMENT 


0038 


42024 


044351 




ADB 


,-i 




0^ 


0039 


42025 


010664 




AND 


OPMSK 




TYPE 


0040 


42026 


050652 




CPA 


DATOP 




«DATA»? 


0041 


42027 


026033 




JMP 


SETD1 


YES 




0042 


42030 


144001 




ADB 


1,1 


NO, 


COMPUTE 


0043 


42031 


044351 




ADB 


."1 


ADDRESS OF 


0044 


42032 


026020 




JMP 


#STDP 




NEXT STATEMENT 


0045 


42033 


160001 


SE T D1 


LDA 


1,1 


LOAD 


Statement leng t h 


0046 


42034 


006004 




I N B 




SfcT 




idHA7 


42035 


003004 




CMA ( 


-INA 


DATA 


0048 


42036 


002005 




INA, 


,RS8 




COUNTER 


0049 


42037 


003400 


SETD2 


CCA 






TO 


0050 


42040 


071262 




STA 


DCCNT 




l-STATEMENT LENGTH 


0051 


42041 


075244 




STB 


NXTDT 


SET 


POINTER ONE WORD 


0052 


42042 


1253 6 




JMP 


SETDPfl 


ABOVE FIRST qaTA CONSTANT 


0053** 








** 






0054*** VALIDATE A 


FILE 


REQUEST *** 






0055** 








** 






0056* 
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0057* 

0058* 

0059* 

0060* 

00*1* 

0062 

0063 

0064 

0065 

0066 

0067 

006g 

006g 

0070 

0071 

0072 
0073 
0074 
0075 
0076 
Wd77 
0076 
0079 
0080 

0081 

0082 

0083 

0084 

0085 

0086 

0067 

0080 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100** 

0101** 

0102** 

0103* 

0104* 

0105* 

0106* 

0107* 

0106* 

0109* 

0110* 
0111 



EXiT TO (P+2) IF (TEMP1)*1 DOES NOT BEGJN A FILE REFERENCE* 
ELSE EVALUATE THE FILE REFERENCE AND VERIFY ITS CORRESPONDENCE 
WITH A REQUESTED FILE, IF A RECORO REFERENCE IS ALSO PRESENT, 
EVALUATE IT AND CALL FOR ITS SWAPPING INTO THE CORE SUFFER, 



42043 
42044 
42045 
42046 
42047 
42050 
42051 
42052 
42053 
42054 

42055 
42056 
42057 
42060 
42061 
42062 
42063 
42064 
42065 
42066 

42067 
42070 
42071 
42072 
42073 
42074 

42075 
42076 
42077 

42100 
42101 
42102 
42103 
42104 
42105 
42106 
42107 
42110 



065613 
006004 
055334 
026053 
160001 
010664 
050736 
026055 
035506 
125506 

007400 
161613 
010664 
050656 
006400 
075516 
035613 
015356 
015342 
115151 
075234 
161613 
010664 
050612 
026105 
007400 
075352 
006020 
064350 
061234 
035516 
003000 
015510 
125506 
015356 
015342 
064274 
026075 



* FETCH DATA 



#VLFI LDB 
INB 

CPB 
JMP 
LDA 
AND 
CPA 
JMP 

VLFI0 ISZ 
JMP 

VLFIi CCB 

LD A 
AND 
CPA 
ClB 
8TB 
ISZ 
JSB 
JSB 
JSB 
STB 
LDA 

AND 
CPA 

JMP 

CCB 

VLFI2 STB 
SSB 
LDB 
LDA 
ISZ 
CMA 
JSB 
JMP 

VLFI3 JSB 

JSB 

UDB 

JMP 

** 

ITEM *** 
** 



TEMPI 

PRGCT 
VLFI0 

1#I 

OPMSK 

B4000 
VLFII 
VLFIL 
VLFIL,I 

TEMPI, I 

OPMSK 

PRTOP 

VL0 

TEMPI 

FETCH 

3BFIX 

RERRS*35, 

FILE* 
TEMPI, I 

OPMSK 
B2000 
VLFI3 

RCRD# 

.-2 

FILE# 
VL0 

RQSTR 

VLFIL,I 

FETCH 

SB F IX 

jNF 

VLFI2 



IS 

NEXT 

OPERATOR 

A '#• ? 
YES 
NO, EXIT 

TO (P*2) 
SET 

VL0 * 
FOR 

'PRINT', 

ELSE 

VL0 ■ -1 
EVALUATE 

FILE REFERENCE 
15-.B1T INTEGER? 
I NO 
YES, SAVE IT 
NEXT 

OPERATUR 
A COMMA? 

YE S 

NO, USE NULL RECORD 

NULL RECORD? 

YEs, DO NOj ADJUST FILE POIN T E R 

WRITE REQUEST? 

YE3 

VALIDATE FILE/RECORD REQUEST 

EVALUATE RECORD REFERENCE 

16-BJT INTEGER? 

NO, LOAD IMPOSSIBLE RECORD 

YES 



UPON ENTRY (B) « 1 IF A NUMBER IS REQUESTED OR (B) ■ 2 U A 
STRING IS REQUESTED, FDATA FILLS THE REQUEST FROM A PILE IF 
ONE Is REFERENCED BY THE CALLEr, ELSE FrQM THE DATA BLOCK, 
TYPE M*TCH 13 CHEC K ED, nUmBErS RETURN In (A) A N D (B)| STRIPS 
ARe PREPARED AS SOURCE STRINGS, FpATA MOVeS TO N£W FJLe 
RECORDS OR «DATa STaTEMENT>3 AS NECESSARY, 



42111 061234 #FDAT LDA FILE* 



rEAD FrOM 
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0112 


42112 


002021 


SSA, 


RSS 


FILE? 


0113 


42113 


026164 


JMP 


FDAT3 


YES 


0114 


421U 


035262 


13Z 


DCCNT 


NO, DATA IN CURRENT STATEMENT? 


0115 


42U5 


026125 


JMp 


FOAT1 


YES 


0116 


42116 


075272 


STB 


TEMPS 


NO, SAVE (B) 


0117 


42117 


065244 


LD8 


NXTOT 


MOVE TO NEXT 


0118 


42120 


015360 


JSB 


SETDP 


«DATA STATEMENT* 


0119 


42121 


065272 


LOB 


TEMP5 


RETRIEVE (B) 


0120 


42122 


035262 


isz 


OCCNT 


DATA FOUND? 


0121 


42123 


002001 


RSS 




YES 


0122 


42124 


115133 


JSB 


RERRS+21, 


I NO, OUT OF DATA 


0123 


42125 


035262 


FOATl 132 


DCCNT 


increment counter 


0124 


42126 


161244 


IDA 


NXTDT, I 


CORRECT 


0125 


42127 


035244 


I3Z 


NXTOT 




0126 


42130 


005300 


RBR 




TYPE OF 


0127 


42131 


020001 


XOR 


1 




0128 


42132 


002020 


S3A 




DATA? 


0129 


42133 


115134 


JSB 


RERRS+22, 


-I NO 


0130 


42134 


006021 


SSB, 


.RSS 


YES, STRING? 


0131 


42135 


026144 


JMP 


FDAT2 


YES 


0132 


42136 
42137 


104200 
101244 


OLD 


NXTDT, I 


NO, LOAD NUMBER 


0133 


42140 


035244 


ISZ 


NXTOT 


UPDATE 


0134 


42141 


035244 


ISZ 


NXTOT 


POINTER 


0135 


42142 


035262 


ISZ 


DCCNT 




0136 


42143 


125362 


JMP 


FDATA,I 




0137 


42144 


161244 


FOAT2 LOA 


NXTOT, I 


LOAD STRING LENGTH 


0138 


42145 


035244 


ISZ 


NXTDT 


SET 


0139 


42146 


065244 


LOB 


NXTDT 


START-OF-STRING 


0140 


42147 


005000 


bLS 




CHARACTER 


0141 


42150 


075256 


STB 


TEMP4 


ADDRESS 


0142 


42151 


010443 


AND 


B3 7 7 


SET 


0143 


42152 


003000 


CMA 




TRANSFER STRING 


0144 


42153 


071410 


STA 


tprme 


length 


0145 


42154 


003004 


CMA* 


ina 


UPDATE 


0146 


42155 


001100 


AKS 






0147 


42156 


064000 


LOB 







0148 


42157 


4 12 44 


ADA 


NXTOT 


DATA 


0149 


42160 


071244 


STA 


NXTOT 




0150 


42161 


045262 


AOB 


DCCNT 




0151 


42162 


075262 


STB 


DCCNT 


POINTERS 


0152 


42163 


l 2 53<>2 


JMP 


FDATA,I 




0153 


42164 


061236 


FOAT3 LDA 


F»*$e 


SET 


0154 


42165 


040357 


ADA 


t*» 




0155 


42J66 


160000 


LDA 


0,1 


PROTECT 


0156 


42167 


071771 


STA 


PMASK 


MASK 


0157 


42170 


075272 


STB 


TEMP5 


SAVE DATA REQUEST TYPE 


0158 


42171 


065352 


LDB 


RCRO* 


GET TYPE 


0159 


42172 


075653 


SfB 


EORFL 


OF NEXT IT^M 


0160 


42173 


015514 


JSB 


GTTYP 


IN FII.E 


0161 


42174 


051272 


CPA 


TEMPS 


MATCHING TYPES? 


0162 


42175 


026213 


JMP 


FDAT5 


YE8 


0163 


42176 


050356 


CPA 


,♦4 


NO, END»OF»RECORD? 


0164 


42177 


026203 


JMp 


F0AT4 


YES 


0165 


42200 


050355 


CPA 


.♦3 


NO, EnD»QF«.FilE? 
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0166 


42201 


002001 




R38 






YES 


0167 


42202 


115134 




JSB 


RERRS* 


22, 


,1 NO, TYPE MISMATCH 


0l6B 


42203 


03523$ 


FDAT4 


I8Z 


FBASE 




LOAO 


0169 


42204 


165236 




LOB 


FBASE, 


I 


EOF/EUR ADORESS 


0170 


42205 


006003 




328, 


RSS 




NULL? 


0171 


42206 


115153 




JSB 


RERRS* 


-37, 


,1 YES, UNPROTECTED EQf/EOR 


0172 


42207 


075334 




STB 


PRGCT 




NO 


0173 


42210 


065250 




LDB 


F0R3T 




CLEAN UP 


0174 


42211 


015432 




JSB 


3ETPT 




EXECUTION STACKS 


0175 


42212 


124556 




JMP 


XEC1A, 


I 




0176 


42213 


165236 


F0AT5 


LOB 


FBASE/ 


I 


LOAD DATA ADDRESS 


0177 


42214 


002011 




SLA, 


,RSS 




STRING? 


0178 


42215 


0262 2 7 




JMP 


F0AT6 




YES 


0179 


42216 
42217 


104200 
100001 




OLO 


i,I 




NO, LOAD NUMBER 


0160 


42220 


021771 




XOR 


PMASK 




MASK 


0181 


42221 


Ik) 110k) 




SWP 








0182 


42222 


021771 




XOR 


PMASK 




DATA 


0183 


42223 


101100 




SWP 








0184 


42224 


135236 




ISz 


FBASE, 


I 


ADJUST RECORD POINTER 


0185 


42225 


135236 




ISZ 


FBASE, 


I 


past data 


0186 


42226 


125362 




JMP 


FOAjA, 


I 




0187 


42227 


160001 


F0AT6 


LDA 


1,1 




Load string header 


0188 


42230 


006004 




INB 






SET 


0189 


42231 


005000 




BLS 






SUUKCt 


0190 


42232 


075256 




STB 


TEMP4 




ADDRESS 


0191 


42233 


005100 




BRS 








0102 


42234 


010443 




AND 


B3 77 




SET 


0193 


42235 


003000 




CMA 






TRANSFER 


0194 


42236 


071410 




3TA 


TPRME 




LENGTH 


0195 


42237 


003004 




CM A i 


•IN A 




ADJUST 


0196 


422 4 


001100 




ARS 






RECORD POINTER 


0197 


42241 


044000 




AOB 







PAST 


0198 


422 4 2 


175236 




STB 


FBASE, 


I 


STRING 


0199 


42243 


125362 




JMP 


FDAjA, 


1 
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0201* 

0202* 

0203* 

0204* 

0205* 

0206* 

0207* 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

»226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

023e 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244* 

0245* 

0246* 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 



* ** 
** REQUEST AN INPUT RECORD *** 

* ** 

SERVICES REQUESTS FOR TELETYPE INPUT, 
AND 'X.QN» ELSE EMIT A LINE PEED, TWO 



IF 



(A) i 
AND 




AN 



EMIT A 
'X«ON>, 



'?' 



42244 072003 

42245 060257 

42246 002004 

42247 050255 

42250 115220 

42251 062003 

42252 002002 

42253 026303 

42254 061572 

42255 042004 

42256 002020 

42257 026264 

42260 060367 

42261 015454 

42262 060364 

42263 015454 

42264 060734 

42265 015454 

42266 060373 

42267 015454 

42270 002400 

42271 071572 

42272 071422 
422/3 060231 

42274 114516 

42275 015450 

42276 026303 

42277 050355 

4 2300 I24554 

42301 015452 

42302 125446 

42303 060364 

42304 0i5454 

42305 060734 

42306 015454 

42307 026264 
* 

** EXECUTION 
* 

42310 041434 

42311 040031 

42312 040031 

42313 040031 

42314 040U1 

42315 040031 

42316 040031 

42317 040031 
42320 040136 



*INCL STA ITEMP 
LOA MAIN 
INA 

CPA PRIST 
JSB WERRS+9,1 
LDA HEMP 
SZA 

JMP INCL2 
LDA CHRCT 
ADA M72 
SSA 

JMP INCLl 
LOA ,*158 
J38 OUTCR 
LDA .+128 
JSB OUTCR 
INCLl LDA B77 

JSB OUTCR 

LDA f *2lB 

JSB OUTCR 
CLA 

STA CHRCT 

STA IFCNT 

LDA JWT 

JSB SCHI N ,I 

JSB GETCR 

JMP INCL2 

CpA ,+3 

JMP EXITAfI 

JSB BCKSP 

JMP InCAi^I 
INCL2 LDA .+12B 
JSB OUTCR 
LDA B77 
JSB OUTCR 
JMP INCLl 
** 
BRANCH TABLE *** 
** 
XEcTg DEF EASN 

DEF XECI 
DEF XECI 
DEF XECI 
DEF ElET 
DEF XECi 
OfcF XECI 
DEF XECI 
DtF EGOTO 



SAVE FLAG 
DOES THIS USER 
HAVE THE 

LINE PRINTER? 
yES * RELEASE IT 
hEstOhE FLAG 
INITIAL REQUEST? 
NO 
YES 
LINE 

FULL? 
NO 
YES, OUTPUT 

CARRIAGE RETURN 
AND 

LINE FEED 

OUTPUT 
iff 

OUTPUT 

AN X„ON 

rEsET 

output character counter 
and input item counter 

request Input record 

FIRST 

CHARACTER A 

'CqNTRoI- C» ? 
YES, TERMINATE EXECUTION 
NO, RETURN 

TO CA LL ER 
OUTPUT A 
LINE FEED 
AND 
A '?' 



ASSIGN 

USING 

IMAGE 

COM 

L ET 

dim 

DEF 
REM 
GOTO 
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0256 

13257 

0256 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273* 

0274* 

0275* 

0276* 

0277* 

0278* 

0279 

0260 

0281 

0282 

0283* 

0284* 

0285* 

0286* 

0287* 

0288* 

0289* 

0290* 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305* 

0306* 

0307* 

0308 

0309 



42321 
42322 
42323 
42324 

4232S 

42326 
42327 
42330 
42331 
42332 
42333 
42334 
42335 
42336 
42337 
42340 
42341 



040124 
040207 

040307 
040137 
040364 
041655 
041655 
040031 
040373 
040622 
040653 
041150 
046023 
040031 
042006 
041157 
040111 



** FfcTCH FORMULA 



DEF EIF 
DEF EFOR 
DEF ENEXT 
OEF EGOSB 
OEF ERTRN 
OEF EXIT 
OEF EXIT 
OEF XEC1 
OEF EINPT 
OEF EREAD 
OEF EPRlN 
DEF ERSTR 
DEF EMAT 
DEF xECl 
DEF ECHAN 
DEF EENTR 
OEF ELET 

** 
VALUE *** 

** 



IF 

FOR 

NEXT 

GOSUB 

RETURN 

END 

3TOP 

DATA 

INPUT 

READ 

PRINT 

RESTORE 

MAT 

FILES 

CHAIN 

ENTER 

'IMPLIED* LET 



RETURN WITH THE RESULT IN (A) AND (B) 



42342 
42343 
42344 
42345 
42346 

* 

** 



015336 
015376 
104200 

100001 
125356 



*FTCH 



JSB 
JSB 
OLD 

JMP 



FORMX 
OPCH K 
1,1 



EVALUATE FORMULA 
UNSTACk address 
LOAp RESULT 



FE T CH,I 

** 

SET EXECUTION POINTERS *** 

** 



SETS POINTERS TO THOSE STACKS WHOSE LOCATION MAY CHANGE 
DURING EXECUTION, USUALLY DUE TO INITIATION OR COMPLETION 
OF FOR»LOOPS, 



42347 
42350 
42351 
423 5 2 

42353 
42354 

42355 

42j56 
42357 
42360 
42361 
42362 
42363 
42364 

* 

** IN 

* 

42365 
42366 



075250 #STPT STB FORST SET TOP OF FQR*STACK 

044356 ADB ,+4 3ET PqINTEr To TQP 

075330 STB TMPST OF TEMPORARY STaCK 

044376 ADB ,*20 SET POINTER TO TOP 

075332 STB 0PD3T OF OPERAND STACK 

044355 ADB ,*3 SET POINTER To BqTTqM 

075466 9TB OPTRQ OF OPERATOR STACK 

007000 CMB OUT 

044462 ADB LWaUS OF 

006020 SSB STORAGE? 

115120 JSB RERRS+10,1 YES 

065466 LOB OPTRQ NO, SET POINTER TO TOP 

074056 STB PBPTR OF OPERATOR STaCK 

125432 JMP sETPTfl 



** 
ITIALIZE FOR PROGRAM MODIFICATION *** 

** 
TURN ON 

BLANK SUPPRESSION 



060412 
071573 



*SINI LDA ,*408 
STA BLANK 
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0310 42367 071422 STA GFUAG TURN OFF INTEGER £RROR*SUPPRES5 

0311 42370 125464 JMP SINIT,! 
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0313** 

0314** 

0315** 

0316* 

0317* 

0318* 

0319* 

0320* 

0321* 

10322* 

0323* 

0324* 

0325* 

0326* 

0327* 

0328* 

0329* 

0330* 

0331* 

0332* 

0333* 

«334* 

0335 

0336 
0337 

0338* 

0339** 

0340* 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350* 

0351** 

0352* 

0353* 

0354* 

0355* 

0356* 

0357* 

0358 

0359 

0360 

0361 

036 2 

0363 

0364 

0365 

0366 

0367 



« EVALUATE A FORMULA 



** 

*** 
** 



ENTER WITH TEMPj POINTING TO THE FIRST OPERAND OF THE 
FORMULA, OPERATORS AND THE ADDRESSES OF OPERANDS ARE 
STACKED SEPARATELY, OPERAND ADDRESSES ARE STACKED AS 
SOON AS ThE OPERAND l3 SCANNED. AN OPERATOR IS NOT 
STACKED WHILE THE OPERATOR ON TOP OF THE STaCK HaS EQUaL 

or higher precedence, instead the latter is unstacked 
and executed* thus an operator forces execution of those 
previously stacked, down jo the latest one stacked which 
has a lower precedence, the operator stack is initialized 

WITH AN END~QF-FORMULA (LOWEST PRECEDENCE) OPERATOR, ThE 
ACTION OF OPERATORS IS IN GENERaL TO COMBINE THE TOP TWO 
OPERANDS STACKED . THE ADDRESS OF THE PARTIAL RESULT THUS 
OBTAINED REPLACES THE ADDRESSES OF ITS CONSTITUENT OPERANDS 
ON THE STACK (VALUES OF PARTIAL RESULTS ARE KEPT ON THE 
TEMPOrArY STACK), yPON EXIT TEMPI POIN T s TO THE FIRST PrOGrAM 
WORD WHOSE OPERATOR OOES NOT M AnIPUi,ATE THE STAC K (THIS 
MAY BE AN ENd-OF*FORMULA, 'THEN', 'OF', ETC.). 



42371 015366 

42372 006400 

42373 174056 



#HORM JSB PSHST 
CL8 

STB PbPTR,I 
* 
PROCESS NEXT OPERAND ** 

* 
FORM1 LOA TEMPI, I 



42374 161613 

42375 035613 

42376 010700 

42377 002003 

42400 026441 

42401 035332 

42402 035332 

42403 002020 

42404 026517 



isz tempi 

AND OPDMK 

S*A,RSS 

JMP F0RM2 

ISZ OPDST 

ISZ OPDST 

SSA 

JMP F0RM6 



STACK 

BEGINNING..QF-FQRMULA 
OPERATOR 



EXTRACT 

NEXT 

OPERAND 
NULL OPERAND? 
YES 
NO, BUMP POINTER 

TO OPERAND STACK 
VARIABLE OPERAND? 
NO 



STACK NQN-FUNCTION VARIABLE OPERAND ADDRESS 



* 
• * 

* 



THE ADDRESSES STACKED ARE AS FOLLQWSi FOR SIMPLE VARIABLES, 
A POINTER TO THE VALUE? FOR ARRAYS, THE BA8E ADDRES8I FOR 

STRING VARIABLES, THE NEGATION OF THE BA.gE AODREss, 



42405 
42406 
42407 
42410 
424U 
42412 
42413 
42414 

42415 
42416 



040351 
001000 
041575 
064000 
006004 
160000 
010371 
050371 

026551 
164001 



ADA 


• »1 


COMPUTE 


ALS 




POINTERS 


ADA 


SYMTB 


TO SYMBOL 


LDB 





TABwE 


INS 




ENTRY 


LDA 


0,1 


PROGRAMMER, 


and 


.♦178 


DEFINED 


cpa 


.♦17B 


FUNCTION? 


JMP 


FORMS 


YES 


LDB 


lfl 


NO, LOAD VALUE POINTER 
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0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 

0382 

0383 

0384 

0385* 

0386* 

0387* 

0388 

0389 

0390 
0391 
0392 
0393 
0394 
0395 
0396 

0397 
0398 
0399 
0400 
0401 
0402 

0403 
0404 
0405 
0406 
0407 
0408 
0409 

0410 
0411 
0412 

0413* 

0414* 

0415* 

0416 

0417 

0^18 

0419 

0420 

0421 



42417 
42420 
42421 
42422 
42423 
42424 
42425 

42426 
42427 
42430 
42431 
42432 
42433 
42434 
42435 
42436 
42437 
42440 



002002 

026440 
061613 
051334 
026430 
161613 
010664 
050622 
026437 
075256 
015400 
002400 
007400 
104400 
101330 
065256 
007004 
175332 



SZA 
JMP 
LDA 
CPA 
JMP 
LDA 
AND 
CPA 
JMP 
FORM0 ST8 
J3B 
CLA 
CC8 
OST 



FQRM2*1 

T£MP1 

PRCCT 

FORM0 

TEMPI, I 

OPMSK 

L80P 

F0RM2.2 

TEMP4 

R8CMK 



TMPST,I 



LOB TEMP4 
CMB,INB 
STB QPDST,! 
* 
* PROCESS NEXT OPERATOR ** 



STRING VARIABLE? 

NO 

YES, EHD 

of formula? 

YES" 

NO, 

FOLLOWED BY 
SUBSCRIPT? 
YES 
NO 

CREATE TEMpORARY 
RECORD 

(0fi) 

retrieve and 

negate string address 
stack address 



42441 
42442 
42443 
42444 
42445 
42446 
42447 
42450 
42451 
424 5 2 
42453 
42454 
42455 
42456 
42457 
42460 
42461 
42462 
42463 
42464 
42465 
42466 
42467 
42470 
42471 



061613 
051334 
026457 
161613 
010664 

001727 

064000 
050354 
026651 
040332 

002020 
006400 
042001 
002021 
006400 

002^00 
006003 
026466 
044sfi4 

1&0001 
010443 
071252 

120001 

001100 
071254 



42472 160056 

42473 010443 

42474 003000 

42475 041252 

42476 002020 

42477 026507 



F0RM2 


LDA TEMPI 


FORMULA 




CPA PRSCT 


EXHAUSTED? 




JMP F0RM3 


YES 




LDA TEMPI, I 


NO, 




AND OPMSK 


EXTRACT 




ALF, ALF 


NEXT 




LDB 


OPERATOR 




CpA ,*2 


STRING CONSTANT? 




JMP F0R13 


YES 




AOA ,-208 


NO, NQNwFQRMULA 




SSA 


OPERATOR? 




CLB 


YES 




ADA D66 


NO, non*furmula 




SSA,RSS 


OPERATOR? 


F0RM3 


CL8 


YES 




CLA 


NO 




SZB,RSS 


enD'of-fqrmula? 




JMP **4 


YES 




ADB FOPBS 


NO, LOAD OPERATOR 




LDA 1,1 


INFORMATION WORD 




AND B377 


SAVE 




SIA TEMP2 


PRIORITY 




XOR lr I 


SAVE 




ARS 


INTERNAL 




STa TEMP3 


name 


T OR 


EXECUTE PREVIOUS OPERATOR *♦ 


F0RM4 


LDA PBPTR,I 


DOES OPERATOR 




ANO 8377 


ON TOP 




CMA 


Of STACK 




ADA TEMP2 


HAVE HIGHER 




SSA 


PRIORITY? 




JMP F0RM5 


YES 
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0422 
0423 
0424 
0425 
0426 
042/ 
0428 
0429 
0430 
0431 
0432 

0433 

0434 

0435 

0436 

0437* 

0438* 

0439* 

0440* 

0441* 

0442* 

0443* 

0444* 

0445 
0446 
0447 

0448 
0449 
0450 
0451 
0452 
0453 
0454 

0455 
0456 
0457 

045a* 

0459* 

0460* 

0461* 

0462* 

0463* 

0464* 

0465* 

0466* 

0467* 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 



42500 061252 LD* TEMP2 NO 

42501 050365 CPA ,*13B CORRECT 

42502 002404 CLA,INA STACK PRIORITY 

42503 031254 IQR TEMP3 ADO NAME 

42504 015366 JSB PSHST STACK 

42505 170056 8TA PBPTR,I OPERATOR 

42506 026374 JMP FORM1 

42507 160056 FORMS LOA PBPTR,! POP 

42510 064350 LDB f «2 OPERATOR 

42511 044056 ADB PBPTR FROM TOP 

42512 074056 STe PbPTR OF STACK 
425i3 00i7g7 ALF,ALF BRANCH 

42514 010443 AND B377 TO 

42515 042000 ADA ARBAS APPROPRIATE 

42516 124000 JMp 0,1 ROUTINE 

* 
* STACK CONSTANT OR PARAMETER ADDRESS ** 



FOR NUMERICAL CONSTANTS STACK A POINTER TO THE VALUE 
EMBEDDED IN THE PROGRAM, FOR PARAMETERS STACK THE 
PARAMETER ADDRESS, 



42517 001665 F0RM6 ELA,CLE,ERA 

42520 002002 SZA 

42521 026526 jmP FQRM7 

42522 065613 LDB TEMPI 

42523 035613 ISZ TEMPI 

42524 035613 ISZ TEMPI 

42525 02fi440 JMP FQRM2M 

42526 071252 FURM7 STA TEMP2 

42527 010371 AND ,*17B 
42530 050371 CPA ,*17B 
4253* 026534 JMP *+3 

42532 165466 LDB OPTRQ,! 

42533 026440 JMP F 0RM2-1 

FOR FUNCTIONS RECURSION ON FORMX EVALUATES THE PARAMETER 
ANO, FOR PROGRAMMER DEFINED FUNCTIONS, THE VALUE, 
FUNCTION VALUES A R E LEFT ON jHE tEM p OrA r Y STACK AND A 
POINTER ThERLTO lS PLACED ON T H E OPERAND STACK, 
'LEN' IS HANDLED IN A SPECIAL WAY, 



ERASE FLAG BIT 
CONSTANT? 


NO 
YES, 
STACK 

ADDRESS 


PRE* 

DEFINED 

FUNCTION? 
YES 
NO, STACK 

PARAMETER ADDRESS 



* EVALUATE PRE-DEFINED FUNCTION 



* 
** 



42534 
42535 
42536 
42537 
42540 
42541 
42542 
42543 
42544 



021252 
001727 
001700 
050367 
026630 
040740 
015366 
170056 
061336 



XOR TEMP2 
ALF,ALF 
ALF 

CPA ,*15B 
JMP FOR12 
AyA P D pBS 
JSB PSHST 
STA PBPTR, I 
LDA FORMX 



IDENTIFY 

FUNCTION 
«LEN» ? 
YES 
NO, STACK 

JUMP TO 

ENTRY POINT 
SAVE FORMX 
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0477 42545 171332 3TA OPqST,I RETURN A D oRESS 

0478 4 2546 015336 JSB FQRMX EVALUATE ARGUMENT 

0479 42547 015374 J8B STTOP BRANCH TO 

0480 42550 124056 JMP PqPTR,! SUBROUTINE 



PAGE 0137 #13 FORMULA EVALUATION ROUTINES 



0001* 










* 


0002** EVALUATE PROGRAMMER»DEFINED FUNCTION ** 


0003* 










* 


0004 


42551 


160001 FORMS 


LDA 


1»X 


LOAD ADDRESS OF FORMULA 


0005 


42552 


015366 


JSB 


PSHST 


SAVE VALUE OF 


0006 


42553 


065330 


LDB 


TMPST 


CURRENT POINTER TO 


0007 


42554 


174056 


STB 


PBPTR,I 


TEMPORARY STACK 


0008 


42555 


015366 


JSB 


PSHST 


SAVE ADOR6SS OF 


0009 


42556 


170056 


STA 


PBPTR, I 


DEFINING FORMULA 


0010 


42557 


061336 


LOA 


FORMX 


SAVE FORMX 


0011 


42560 


171332 


STA 


QPD8T,I 


RETURN ADDRESS 


0012 


42561 


015336 


JSB 


FORMX 


EVALUATE ARGUMENT 


0013 


42562 


161332 


LOA 


OPOST,I 


SWAP 


0014 


42563 


165466 


LOB 


QPTRQ,I 


OLD AND NEW 


0015 


42564 


175332 


STB 


0PD8T,I 


ARGUMENT 


0016 


42565 


171466 


STA 


OPTRQ,! 


A0DRESSE8 


0017 


42566 


051330 


CPA 


TMPST 


PROTECT PARAMETER 


0018 


42567 


015400 


JSB 


RSCHK 


ON TEMPORARY STACK 


0019 


42570 


061613 


LDA 


TEMPI 


SWAP ADDRESSES 


0020 


42571 


164056 


LOB 


PBPTR, I 


OF CURRENT 


0021 


42572 


KJ75613 


STb 


TEMPI 


AND FUNCTION 


0022 


42573 


170056 


STA 


PBPTR, I 


FORMULAS 


0023 


42574 


015336 


JSB 


FORMX 


EVALUATE FUNCTION 


0024 


42575 


165332 


LOB 


OPDST, I 


POP 


0025 


42576 


060350 


LDA 


,•2 


OPERAND 


0026 


42577 


041332 


AOA 


OPDST 


STACK, 


0027 


42600 


071332 


STA 


OPDST 


SAVING 


002B 


42601 


161332 


LDA 


OPDST,! 


RESULT ADDRESS 


0029 


42602 


171466 


STA 


OPTRO,! 


and address uf 


0030 


42603 


175332 


STB 


OPDST, I 


OLD PARAMETER 


0031 


42604 


160056 


LDA 


PBPTR, I 


RESTORE 


0032 


42605 


071613 


STA 


TEMPI 


FORMULA POINTER 


0033 


42606 


060056 


LDA 


PBPTR 


POP 


0034 


42607 


040350 


ADA 


• •2 


OPERAIOR 


0035 


42610 


070056 


STA 


PBPTR 


STACK 


0036 


42611 


160056 


LOA 


PBPTR,! 


RESTORE ORIGINAL 


0037 


42612 


K71330 


STA 


TMPST 


TEMPORARY STACK POINTER 


0038 


42613 


015374 


JSB 


STTOP 


LOAD pUNCTlON RESULT 


0039* 








* 




0040** RECORD RESULT OF 


FUNCTION ** 




0041* 








* 




0042* 












0043* 


PRE-OEHNEO FUNCTIONS RETURN TO 


THIS POINT WITH THEIR 


0044* 


RESULT IN (A) AND 


CB), 






0045* 












0046 


42614 
42gl5 


104400 FOR10 
101330 


DST 


TMPST, I 


SAVE RESULT 


0047 


42616 


161332 


LDA 


OPDST,! 


RESTORE FORMX 


0048 


42617 


071336 


STA 


form* 


RETURN ADDRESS 


004g 


42620 


061330 


LDA 


TMPST 


RECORD LOCATION 


0050 


42621 


171332 


STA 


OPDST, I 


OF RESULT 


0051 


42622 


064056 


LDB 


PBPTR 


POP 


0052 


42623 


044350 


ADB 


.-2 


FUNCTION 


0053 


42624 


074056 


STB 


PBPTR 


ADDRESS 


0054 


42625 


035613 


I3Z 


TEMPI 


OF REQULT 



PAGE 


0Ue t 
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0055 


42626 


035613 


ISZ 


TEMPI 


ON TOP OF 




0056 


42627 


026441 


Jmp 


FQR M 2 


OPERAND STACK 




0057* 






* 








0058** EVALUATE 'LEN' 


** 








0059* 






* 








0060 


42630 


015400 F0R12 JSB 


rschk 


CREATE SPACE ON TEMPORARY 


STACK 


00^1 


42631 


161613 


LDA 


TEMPI,! 


FIND 




0062 


42632 


010700 


AND 


OPDMK 


STRING'S 




0063 


42633 


040351 


ADA 


«»1 


SYMBOL 




0064 


42634 


001000 


ACS 




TABLE 




00 6 5 


42635 


041575 


ADA 


SYMTB 


ENTRY 




0066 


42636 


002004 


INA 




LOAD ADDRESS 




0067 


42637 


160000 


LDA 


0,1 


QF string 




0068 


42640 


040351 


ADA 


,*»1 


EXTRACT 




0069 


42641 


160000 


LDA 


0,1 


STRING 




0070 


42642 


010443 


AND 


B377 


LENGTH 




0071 


42643 


015346 


JSB 


FLOAT 


STACK 




0072 


42644 
42645 


104400 
101330 


D3T 


TMPST,I 


STRING LENGTH 




0073 


42646 


061330 


LDA 


TMPST 


STACK ADDRESS 




0074 


42647 


171332 


STA 


0PD8T,I 


OF RESULT 




0075 


42650 


026625 


JMP 


F0R12*3 






0076* 








* 






W77** PROCESS STRING 


CONSTANT ** 






0076* 








* 






0079* 














0080* 


WHEN 


STRING CONSTANTS t 


*RE STACKED, AN APPROPRIATE 




0081* 


ENTRY IS PLACED 


ON THE 


TEMPORARY 


STACK SO THAT ALL 




0062* 


STRING OPERANDS 


HAVE THE SAME FOrM: A NEGATED BAsE 




0083* 


ADDRESS ON THE OPERAND 


STACK AND 


a Two word Entry on 




0084* 


THE " 


fEMPORARY STAcK CONTAINING THE START~OF*STRlNG 




0085* 


AND END-OP-STRING DESIGNATORS blASED BY «1 (DEFAULT 




0086* 


start-of-string 


DESIGNATORS HAVE 


a stack value of 0, 




0087* 


DEFAULT END»0F^STRIN6 DESIGNATORS HAVE A STACK VALUE 




0088* 


OF -; 


L). IN THE 


CASE OF SUBsCrV 


rED STRING VARIABLES, 




0089* 


THE ■ 


temporary is created when the «j' ts scanned* the 




0090* 


ENTRY FOR NON-SUbScRIPTed STRING 


operands is cheated 




0091* 


WHEN 


THEY ARE SCANNED, 








0092* 














0093 


42 6 5i 


002404 FOR13 CLA, 


-INA 


PRINT STATEMENT 




0094 


42652 


05U72 


CPA 


EOL 


STRING CONSTANT? 




0095 


42653 


015340 


JSB 


STSTR 


NO, STACK STRING CONSTANT 




0096 


42654 


026457 


JMP 


pORM3 


EXECUTE END«Op«pOHMULA 
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0098* 

0099** RECORD RESULT OF OPERATION 

0100* 

0101* 

0102* 

0103* 

0104 

0105 

0106 



** 

* 



OPERATORS CREATING INTERMEDIATE RESULTS RETURN TO HERE, 



0107 

0106 

0109 

0110* 

0111* 

0112* 

0113* 

0114* 

0115* 

0116* 

0117* 

0Ub* 

0119 

0120* 

0121* 

0122* 

0123 

0124 

0125 

0126 

0127 

0128 

0129* 

0130* 

0131* 

0132 

0133 

0134 

0135* 

0136* 

0137* 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

U146 

0147 

0148 

0149 

0150 

0151 



42655 035332 

42656 035332 

42657 104400 
4266^ 101330 

42661 061330 

42662 171332 

42663 026472 



F0R14 IS* OPDST 
IS2 OPDST 
D8T TMPST, 



LDA TMPST 
STa OPDST, 
JMP F0RM4 



STACK 

TEMPORARY 
I RESULT 

SAVE 
I ADDRESS ON 

OPERAND STACK 



* EXIT FORMULA EVALUATOR 



* 
** 

* 



this word is actually part of 
table, the words between it 

OPERATORS WHICH ArE NOj EXECU 

to utilize this space. 



THE FORMULA OPERATOR JUMP 
AND FOJT CORRESPOND TO 
TED, SO CODE Is INsErjED HErE 



42664 101336 
* 

** SET LOGICAL VALUE 
* 

42665 002400 FALSE 

42666 006400 

42667 026655 

42670 061040 TRUE 

42671 064354 

42672 026655 
* 

** EXECUTE UNARY • 
* 

42673 015374 EUMIN 

426 7 4 015370 

42675 026655 
* 

** FORMULA OPERATOR 
* 

42676 042726 FqJT 

42677 042374 

42700 042472 

42701 042673 

42702 042735 

42703 043011 

42704 043120 

42705 043123 

42706 043126 

42707 043131 

42710 043134 

42711 043235 

42712 043241 

42713 043257 



DEF FORMX, : 

** 
S *** 
** 
CLA 
CLB 

JMP F0R14 
LDA HALF 
LDB ,+2 
JMP FORM 

** 
*** 

** 
JSB STTOP 
JSB ARINV 
JMP F0R14 

JUMP TABLE 

DEF EuBRC 
DEF FORMl 
DEF F0RM4 
DEF EUMIN 
DEF ESCMA 
DEF ESTR 

DEF EFA D 

DEF EF S B 

DEF EFMP 

DEF EFDV 

DEF EPWR 

DEF EGTRT 

DEF ELSj 

DEF ENEQL 



LOAD 
ZERq 

LOAD 
1,0 



UNSTACK AND LOAD TOP OF STACK 
NEGATE IT 
STORE IT 
** 
*** 

** 
C 
( 

UNARY * 
UNARY •» 

SUBSCRIPT OMMA 
ASSIGNMENT OPERATOR 
♦ 



* 

/ 
T 
> 

n 



PAGE 0140 #13 FORMULA EVALUATION ROUTINES 



0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162* 

0163* 

0164* 

0165* 

0166* 

0167* 

0166* 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176* 

0177* 

0178* 

0179* 

0180* 

0181* 

0182* 

0183* 

0184* 

0185* 

0186* 

0187* 

0186* 

0189 

0190 

0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 

0202 
0203 
0204 

0205 



42714 
42715 
42716 
42717 
42720 
42721 

42722 
42723 
42724 
42725 



043247 

000000 
043304 
043312 
043272 
043263 
043257 
043243 
043253 
043320 



* 
** 



EXECUTE LEFT 



DEF tEOL * 

NOP UNUSED 

DEF EAND ANQ 

DEF EIOR OR 

DEF EMIN MJN 

DEF EMAX MAX 

DEF ENEQL <> 

DEF EGORE >w 

DEF ELORE <■ 

DEF ENOT NOT 

** 
BRACKET *** 

** 



LOAD A DEFAULT SECOND SUBSCRIPT AND ENTER THE CODE FOR 
A SUBSCRIPT COMMA, 



42726 
42727 
42730 
42731 
42732 
42733 
42734 



061332 
040350 
160000 
007400 
002021 
006400 
026745 



ELttRC 



0PD8T 
,*»2 

0#I 



** 



EXECUTE SUBSCRIPT COMMA 



LDA 

ADA 

LDA 

CCB 

S3A,RS3 

CLB 

JMP ESCMi 

** 
*** 



LOAD 
• 1 



f-OR A 
STRING, 


FOR 

AN ARRAY 



** 



BOTH SUBSCRIPTS ARE ROUNDED TO INTEGERS AND TESTED TO BE 
POSITIVE, FOR STRINGS, THE TWO INTEGERS ARE SAVED ON THE 
TEMPORARY STACK AS A PSUEDO-ENTRY LATER USED BY PSTR, FOR 

arrays, jHg subscripts are checked and if within t he Current 
bounOs they are combined with the base address qF the array, 

T H E ARRAY ELEMENT ADDRESS T H EN REPLACES Th*- BASE ADORESS ON 

The operand stack. unsuit a8 le subscripts exit to the error 

ROUTINE, 



42735 015376 ESCMA JSB OPCHK 

42736 104200 OLD 1,1 

42737 100001 

42740 015342 JSB SBFiX 

42741 115127 JSB RERR8*17, 

42742 060056 LDA PBPTR 

42743 04035fe5 ADA f -2 

42744 070056 STA PBPTR 

42745 075256 EScMl STg TEMP4 

42746 015374 JSB STTOP 

42747 015342 JSB SBFIX 

42750 115127 JSB RERRS+17, 

42751 175330 STB TMP8T,I 

42752 161332 LDA OPDST,I 

42753 00202i S8A,RSS 

427 5 4 026762 JMP ESCM2 

42755 061330 LDA TMPST 

42756 002004 INA 



UNSTACK 

SECOND SUBStRlpT 

ROUND TO INTEGER 

I unsuitable result 

UNSTACK 

THE 
i ( i 
SAVE RESULT 
POP FIRST SUBSCRIPT 
ROUND TO INTEGER 
I UNSUITABLE RESULT 
STORE IN TEMPORARY STACK 
STRING 

VARIABLE? 
NO, ARRAY VARIABLE 
YES, 

SAyE 



PAGE: 
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»J3 FORMULA 


EVALUATION ROUTINES 


0206 


42757 


065256 




LDB 


TEMP4 


SECOND SUBSCRIPT IN 


0207 


42760 


174000 




STB 


0,1 


TEMPORARY STACK 


0208 


42761 


026374 




JMP 


FQRM1 




0209 


42762 


040350 


ESC 


M2 ADA 


, w 2 


LOAD COLUMN 


0210 


42763 
42764 


104200 

100000 




OLD 


0,1 


AND ROW BOUNDS 


0211 


42765 


003004 




CMA, 


rlNA 


IS SPECIFIED 


0212 


42766 


141330 




AOA 


TMPST,I 


ROW 


0213 


42767 


002021 




SSA, 


,RSS 


LEGAL? 


0214 


42770 


115127 




J8B 


RERRS+17 


,1 NO 


0215 


42771 


075272 




STB 


TEMPS 


YES 


0216 


42772 


007004 




CMB, 


rINB 


IS SPECIFIED 


0217 


42773 


045256 




ADB 


TEMP4 


COLUMN 


0216 


42774 


006021 




SSB, 


,RSS 


LEGAL? 


0219 


42775 


115127 




JSB 


RERRS+17 


,1 NO 


0220 


42776 


161330 




LD* 


TMPST, I 


YES, COMPUTE ROW 


14221 


42777 

43000 


100200 
001272 




MPY 


TEMP5 


DISPLACEMENT 


0222 


43001 


041256 




ADA 


TEMP4 


ADD COLUMN DISPLACEMENT 


0223 


43002 


001000 




ALS 




DOUBLE I-Or CORE *UrDs 


0224 


43003 


141332 




ADA 


OPDST, I 


STORE ACTUAL 


0225 


43004 


171332 




STA 


QP D ST,I 


ELEMENT ADDRESS 


0226 


43005 


061330 




LDA 


TMPST 


POP UNUSED 


0227 


43006 


040350 




ADA 


.-2 


TEMPORARY 


0228 


43007 


071330 




STA 


TMPST 


STACK 


0229 


43010 


026374 




JMP 


f-ORMl 


ENTRY 


0230** 






** 






0231*** EXECUTE STORE 


*** 






0232** 






** 






0293* 














0234* 


IN ORDER TO ALLOW MULTIPLE ASSIGNMENT STATEMENTS, NO 


0235* 


ASSIGNMENT CAN TAKE PLACE UNTIL 


THE RIGHT-HAND FORMULA 


0236* 


IS EVALUATED! 


1 I, 


E, NLY AN END- 


qF-FqRMULA gpERAToR CAN 

F OF T H E STACKt ASSIGNMENTS 


0237* 


FORCE AN ASSj 


rGNMENT OPERATOR OF 


0238* 


MAY BE NUMERICAL 


TO NUMERICAL TYPE OPERAND, IN WHIrH C*S£ 


0239* 


THE ASSIGNED 


QUANTITY ] 


[S 3 A ved 


FOR POSSIBLE ADDITIONAL 


0240* 


ASSIGNMENTS; 


OR 


STRING 


TO STRING OPERAND, IN THE LATTER 


0241* 


CASE 


AN INTERMEDIATE STRING IS 


NECESSARY IF THE HEAD OF 


0242* 


THE DESTINATION 


STRING 


LIES IN 


THE TAIL OF THE ACTUAL 


0243* 


SOURCE STRING. 








0244* 














0245 


430U 


065252 


ESTR LOB 


TEMP2 


NEXT OPERATOR AN 


0246 


43012 


006002 




SZB 




END*0F W F0RM U LA? 


0247 


430*3 


027112 




JMP 


ESTR5 


NO 


0246 


43014 


055254 




CPB 


TEMP3 


YES, FIRS1 STORE OF FORMULA? 


024 9 


43015 


027030 




JMP 


ESTR2 


YES 


0250 


43016 


161332 


ESTR1 LDA 


OPDST, I 


NO, SET 


0251 


43017 


071260 




STA 


TEMP6 


DESTINATION AdoRESS 


0252 


43020 
43021 


104200 
101254 




DLD 


TEMP3,I 


TRANSFER 


0253 


43022 
43023 


104400 
101260 




DST 


TEMP6,! 


THE NUMBER 


0254 


43024 


06i332 




LDA 


OPDST 


UNSTACK 


0255 


43025 


040350 




ADA 


• -2 


DESTINATION 


02 5 6 


4302 6 


071332 




STA 


OPDST 


OPERAND 
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0257 


43027 


026472 


JMP 


FORM4 




0256 


43030 


161332 


ESTR2 LOA 


OPDST,I 


STRING 


0259 


43031 


002020 


S3A 




OPERANDS? 


0260 


43032 


027036 


JMP 


ESTR3 


YES 


0261 


43033 


015376 


J3B 


OPCHK 


NO, UNSTACK SOURCE 


0262 


43034 


075254 


STB 


TEMP3 


ANO SAVE VALUE ADDRESS 


0263 


43035 


027016 


JMP 


ESTR1 




0264 


43036 


060350 


ESTR3 LOA 


.-2 


PREPARE 


0265 


43037 


015344 


JSB 


PSTR 


SOURCE 


0266 


43040 


071256 


STA 


TEMP4 


STRING 


0267 


43041 


075410 


STB 


TPRME 




0268 


43042 


003400 


CCA 




PREPARE 


0269 


43043 


015344 


JSB 


PSTR 


DESTINATION STRING 


0270 


43044 


064056 


LOB 


PBPTR 


SAVE CORE 


0271 


43045 


075440 


SjB 


ESTl 


POINTER 


0272 


43046 


061256 


LOA 


TEMP4 


TRANSFER 


0273 


43047 


003000 


CMA 




TO 


0274 


43050 


041272 


AOA 


TEMP5 


HIGHER 


0275 


43051 


002020 


S3A 




CORE? 


0276 


43052 


027105 


JMP 


ESTR4 


NO 


0277 


43053 


041410 


ApA 


TPRME 


YES, 


0278 


43054 


040354 


AOA 


.♦2 


OVERLAPPING 


02 7 9 


43055 


002021 


SSA, 


-RS5 


TRANSFER? 


0280 


43056 


027105 


JMP 


ESTR4 


NO 


0281 


43057 


061272 


LOA 


TEMP5 


YES, SAVE 


0282 


43060 


071442 


STA 


EST2 


DESTINATION ADDRESS 


0283 


43061 


006004 


INB 




SET DESTINATION 


0284 


43062 


005000 


BL8 




ADDRESS TO START 


0285 


430g3 


0752?2 


STB 


TEMP5 


OF FREE CORE 


0286 


43064 


061406 


LOA 


TNULL 


SAVE TRANSFER 


0287 


430 6 5 


071444 


STA 


E8T3 


LENGTH 


0288 


43066 


003004 


CMA, 


INA 


ALLOCATE 


0289 


43067 


001100 


ARS 




SPACE FOR 


0290 


43070 


015326 


JSB 


CUSP 


INTERMEDIATE 


0291 


43071 


070056 


ST A 


PBPTR 


STRING 


0292 


43072 


060600 


LOA 


FSCHA 




0293 


43073 


015350 


JSB 


TRSTR 


TRANSFER STRlN(j TO F'HEE CORE 


0294 


43074 


061444 


LOA 


E3T3 


RESTORE TRANSFER 


02g5 


430 7 5 


07l40 6 


STA 


TNULL 


LENGTH 


0296 


43076 


071410 


STA 


TPRME 


RESET ACTUAL SOURCE LENGTH 


0297 


43077 


061440 


LOA 


ESTl 


SET SOURCE 


0298 


43100 


002004 


INA 




ADDRESS TO 


0299 


43101 


001000 


ALS 




INTERMEDIATE 


0300 


43102 


071256 


STA 


TEMP4 


STRING 


0301 


43103 


061442 


LOA 


EST2 


RESTORE ORIGINAL 


0302 


43104 


071272 


STA 


TEMP5 


DESTINATION STRING 


0303 


43105 


060600 


ESTR4 LOA 


FSCHA 




0304 


43106 


015350 


JSB 


TRSTR 


COMPLETE TRANSFER 


0305 


4^107 


061440 


LOA 


ESTl 


RESTORE FREE 


0306 


43110 


070056 


STA 


PBPTR 


CORE POINTER 


0307 


43111 


026507 


JMP 


F0RM5 


EXECUTE END-OF-f-ORMULA 


0308 


43112 


034056 


ESTR5 I3Z 


PBPTR 


DEFER 


0309 


43113 


034056 


ISZ 


PBPTR 


EXECUTION 


0310 


43114 


063117 


LOA 


BASSO 




0311 


43115 


170056 


STA 


PBPTR,! 





page 0143 #13 formula evaluation routines 



0312 
0313* 

0314 

0315** 

0316** 

0317** 

0318 

0319 

0320 

0321** 

0322** 

0323** 

0324 

0325 

0326 

0327** 

0326** 

0329** 

0330 

0331 

0332 

0333** 

0334** 

0335** 

0336 

0337 

0338 

0339** 

0340** 

0341** 

0342* 

0343** 

0344* 

0345* 

0346* 

0347* 

0348* 

0349 

0350 

0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 



43116 026500 

43117 007402 

* EXECUTE ♦ 

43120 015372 

43121 015402 

43122 026655 

* EXECUTE «• 

43123 015372 

43124 015404 

43125 026655 

* EXECUTE * 

43126 015372 

43127 015401 

43130 026655 

* EXECUTE / 

43131 015372 

43132 015410 

43133 026655 

* EXECUTE t 
REAL POWER 



BASSO 

** 
*** 

** 
Ef-AD 



** 
*** 

** 
EFS8 



** 
*** 

** 
EPMP 



** 
*** 

** 
EFDV 



** 
*** 

** 
* 
** 

* 



JMP F0RM4+6 
OCT 7402 



JSB BXNOP 
JSB ,FAD 
JMP F0R14 



JSB BXNOP 
JSB ,FSB 
JMP F0R14 



JSB 
JSB 



BINQP 
.FMP 



JMP F0R14 



JSB 

JSB 



BINOP 
.FOV 



JMP F0R14 



EXIT TO ERROR IF BASE IS NEGATIVE. 
RESULT AS ET(POWER*LN(BASEj) f 



ELSE COMPUTE 



43134 
43135 
43136 
43137 
43140 
43141 
43142 
43143 
43144 
43145 
43146 
43147 
43150 
43151 
43152 
43153 
43154 
43155 



165332 

104200 
100001 
015416 
027143 
102301 
027156 
015372 
002001 
015354 

002020 
115144 
065642 
015436 
015406 
101643 
015434 
026655 



EPwR LOB OPDST f l 
DLD 1,1 



JSB 
JMP 
SOS 
JMP 
JSB 

RSS 
JSB 
SSA 
JSB 
LOB 
JSB 
JSB 

OEF 
JSB 

JMP 



1FIX 
**3 

IPWR 
BINOP 

PCMK 

RERRS+30, 

BINOl 

.LOG 

,FMP 

BIN02,I 

.EXP 

F0R14 



LOAD 
POWER 

INTEGER? 

NO 

YES* 16-BIT? 

YES 

no, unsiack 

arguments 
check arguments 
negative base? 

I YES 

NO, LOAD BASE ADDRESS 
TAKE NATUAL LOG 
MULTIPLY 

BY POWER 
EXPONENTIATE 
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0366* 

0367*, 

0368* 

0369* 

037<3* 

0371* 

0372* 

0373* 

0374 

0375 
0376 
03 77 
0378 
0379 
0380 
0381 

0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 

0393 
0394 

0395 
0396 

0397 
0398 
0399 

0400 

0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 



INTEGER POWER 



* 
** 



MULTIPLY BASE REPEATEDLY, US 
TO SPEED PROCESS, IF POWER 
FOR FINAL RESULT, 



1NG POWERS»OF«»TWO METHOD 

IS NEGATIVE, TAKE RECIPROCAL 



43156 
43157 
43160 
431 6 1 
43162 
43163 
43164 
43165 
43166 
43167 
43170 
43171 
43172 
43173 
43174 
43175 
43176 
43177 
43200 

43201 
43202 
43203 
43204 
43205 
43206 
43207 
43210 

43211 
43212 

43213 
43214 
43215 
43216 
43217 
43220 
43221 
43222 
43223 
43224 
43225 
4322 6 
43227 
43230 
43231 
43232 
43233 
43234 



075264 

006020 
007004 

07^266 
015372 
002001 
015354 
065642 

071642 
075643 

061040 
071615 
060354 
071617 
065266 
004031 
027215 
075266 
006002 

027226 
061264 
002020 
027210 
061616 
065617 
026655 
0§1040 
064354 
015410 
001616 
026655 
075266 
061642 
065643 
015406 
001616 
071616 
075617 
065266 
027200 
06*642 
065643 
015406 
001642 

071642 
075643 

027174 



IPWR1 



IPWR2 



IPWR STB 
SSB 
CM8, 
STB 
JSB 
RSS 
JSB 
LDB 
STA 
STB 

Ld* 
STA 

LDA 

STA 

L DB 

SLB, 

JMP 

STB 

SZB 

JMP 

LDA 

SSA 

JMP 

LDA 

LDB 

JMP 

LDA 

LDB 

JSB 

DEF 

JMP 

ST 8 

LDA 

LDB 

JSB 

DEF 

STA 

STB 

LDB 

Jmp 

LDA 
LDB 
JSB 
DEF 
STA 

STB 

JMP 



IPWR3 



IPWR4 



IPWR5 



TT1 

INB 
TT2 
BINOP 

PCHK 
BINOl 
BINOl 
BIN02 

HALF 
TT3 

.♦2 

TT4 

TT2 

BRS 

IPWR4 

TT2 

IPWR5 
TT1 

IPWR3 
TT3 
TT4 
FQR14 

HALF 
.♦2 
• F«>V 
TT3 
F0R14 

TT2 

BINOl 

BIN02 

.FMp 

TT3 

TT3 

TT4 

TT2 

IPWR2 

BINOl 

BJN02 

,FMP 

BINOl 

8IN01 

BIN02 

IPWR1 



save sign 
form absolute 
value of power 

SAVE IT 
UNSTACK 

Arguments 
check arguments 

STORE 

BASE 
INITIALIZE 
RESULT 
TO 

1.0 
DIVIDE POWER 

BY 2 
ODD POWER 
EVEN POWER 
ZERO? 
NO 
YES 

POSITIVE POWER? 
NO 

YES, RETURN 
WITH 
RESULT 
TAKE 

RECIPROCAL 
FUR 
FJNAL 
RESULT 

SaVE power 

LOAD 

BASE 
MuLUpLY BY 

RESULT SO FAR 
SAVE NEW 

PARTIAL 
RESULT 

SQUARE 

BASE 

RECORD 
NEW 
BASE 
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0002* 

0003* 

0004* 

0005 

0006 

0007 

0006 

0009* 

0010* 

0011* 

0012 

0013 

0014* 

0015* 

0016* 

0017 

0016 

00}9 

0020 

0021* 

0022* 

0023* 

0024 

0026 

0026 

0027 

002b* 

0029* 

0030* 

0031 

0032 

0033 

0034 

aess* 

0036* 

0037* 

0038 

0039 

0040 

0041 

0042* 

0043* 

0044* 

0045 

0046 

00 47 
0046 

0049 

0050 

0051* 

0052* 

0053* 

0054 

0055 



** 

* 



EXECUTE > 



015352 
002020 
026665 
027260 



43235 
43236 
43237 

43240 

* 

** EXECUTE < 



43241 
43242 



015352 

003001 



** EXECUTE >■ 

* 



432 4 3 
43244 

43245 
43246 



01 5352 
002020 
026665 
026670 



** EXECUTE * 

* 

43247 015352 

43250 002002 

43251 026665 

43252 026670 

* 

** EXECUTE <* 
* 



43253 
43254 
43255 
43256 



»i5352 

002020 
026670 
027250 



** 
*** 

** 
EGTRT 



** 
*** 

** 

ELST 

** 
*** 
** 
EGURE 



** 

*** 
** 
EEUL 



** 

*** 

** 

ELORE 



** EXECUTE n 
* 
43257 015352 

43260 002002 

43261 026670 

43262 026665 



OR «> 

ENEQL 



J3B COMPR COMPARE OPERANDS 

SSA < 7 

JMP FALSE YES 

JMP ENEQL+1 NO 



JSB COMPR COMPARE OPERANDS 
CMA,RSS REVERSE COMPARISON SENSE 



JSB 
SSA 
JMP 
JMP 



JSB 
SZA 
JMP 
JMP 



COMPR COMPARE OPERANDS 

< ? 
FALSE YES 
TRUE NO 



COMPR COMPARE OPERANDS 

« ? 
FALSE NO 
TRUE YES 



EXECUTE 'MAX' * 
EMAX 



** 

* 

43263 015372 

43264 «l5404 

43265 002021 

43266 027276 

43267 104200 

43270 101543 

43271 026655 
* 

** EXECUTE 'M 
* 

43272 015372 

43273 015404 



ARq2 



IN 



JSB 

SSA 
JMP 
JMP 
** 
*** 

** 
JSB 
3ZA 

JMP 
JMp 

** 

** 

** 
JSB 
JSB 
SSA, 

JmP 

OLD 

JMP 
** 



COMPR COMPARE OPERANDS 
»» ? 

TRU& NO 
EEQL+l YES 



COMPR COMPARE OPERANDS 

* ? 
TRUE NO 
FALSE YES 



BINOP SUBTRACT THE 

,FSB TOP TWO OPERANDS 

RSS TOP OPERAND LARGER? 

ARG1 NO 

BlN02fI Yfc8, R E TRlEVE 

FOR14 ITS VALUE 



*** 
** 
EMIN JSB 
JSB 



BINOP SUBTRACT THE 
FSB TOP TWO OPERANDS 
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005$ 
0057 
005^ 
0059 
0060 
0061 

0062 

0063* 

0064* 

0065* 

0066 

0067 

0068 

0069 

0070 

0071 

0072* 

0073* 

0074* 

0075 

0076 

9077 

0078 

0079 

0080 

0081* 

0082* 

0083* 

0084 

0085 

0086* 

0087* 

0088* 

0089* 

0090* 

0091* 

0092* 

0093* 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0116 

0106 

0107 

0108 



RSS 

ARG2 

OPOST 

OPDST 

OPDST, I 

1,1 

FORH+2 



43274 002021 SSA, 

43275 027267 JMP 

43276 035332 ARGi I3Z 

43277 035332 I8Z 

43300 165332 LDB 

43301 104200 . DUD 

43302 100001 

43303 026657 JMP 

* ** 
** EXECUTE 'AND' *** 

* ** 

43304 015372 EAND JSB BINOP 

43305 002001 RSS 

43306 002003 SZA,HSS 

43307 026665 JMP FALSE 

43310 161643 LOA BiNQ2,I 

43311 027260 JMP ENEUL+1 



* 
** 



EXECUTE 'OR' 



** 

*** 

** 



43312 015372 EIOR JSB 

43313 002001 RSS 

43314 002002 SZA 

43315 026670 JMP 

43316 161643 LOA 

43317 027260 JMP 

* ** 
** EXECUTE 'NOT' *** 

* ** 

iNOT JSB 

JMP 



BINOP 



TRUE 

BIN02,I 

ENEQL+1 



43320 015374 ENOT JSB STTOP 

43321 027250 JMP EEQL+1 
* ** 
** INSURE VALID POWERING *** 

** 

INSURES THAT ATB HAS ACCEPTABLE 
RECOVERABLE ERROR, A«0 AND B<0 
RETURNS THE MAXIMUM POSITIVE NU 



TOP OPERAND LARGER? 

NO 

YES, 

RETRIEVE 
VALUE OF 

NEXT-TQ*TOP 

OPERAND 



UNSTACK 

Operands 
top operand zero? 

YES 

no, Check 
nexi. to-top operand 



UNSTACK 

OpERANDs 
TOP OPERAND NON-ZERO? 
YES 
NO, CHECK 

NEXUTG-TQP OPERAND 



LOAD TOP UPERAND 
GO TO CHECK 



ARGUMENTS, A»Bs0 IS a NON- 
PRINTS A WARNING MESSAGE AND 
MBER AS THE RESULT, 



43322 
43323 
43324 
43325 
43326 
43327 
43330 
43331 
43332 
43333 
43334 
43335 
43336 
43337 
43340 



075642 
165643 
002002 
027336 
006003 
115143 
006021 
026665 
115211 
060274 
064350 
026655 
006003 
026670 
125354 



#PCHK 



PCHK1 



STB BINOl 


LOAD HIGH PART 


LDB BIN02,I 


OF rOWEr 


SZA 


BASE ZERO? 


JMP PCHKi 


NO 


SZB,RSS 


YES, POWER ZERo? 


jSB RERRS+29, 


I YES 


S8B,RSS 


NO, POWER POSITIVE? 


JMP FALSE 


YES 


JSB WERRS+2,1 


NO 


LDA INF 


USE POSITIVE 


LDB ,«2 


INFINITY 


JMP F0R14 


FOR RESULT 


SZB,RSS 


POWER ZERO? 


JMP TRUE 


YES, TAKE RESULT AS 1,0 


JMP PCHK,I 


NO 
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0110** 

0111** 

0112** 

0113* 

0114* 

0115* 

0116* 

0117* 

0118 

0119 

0120 

0l2l 
0122 
0123 
0124 
0125 
0126 
01g7 
0128 
0129 
0130 
0131 
0132 

0133 
0134 
0135 
0136 

0137 
0138 
0139 
0140 
0141 

0142 

0143 
0144 
0145 
0146 
014 7 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 



* COMPARE TOP OPERANOS OF STACK 



*.* 
*** 

** 



ON EXIT (A) IS NEGATIVE IF THE TOP OPERAND OF THE 
STACK IS GREATER THAN THE NEXT*TQ-TOP OPERAND, 
POSITIVE IF IT 18 IESS# AND ZErO IF THEY ArE EQUAL, 



43341 
43342 
43343 
43344 
43345 
43346 
43347 
43350 
43351 

43352 
43353 
43354 
43355 
43356 
43357 
43360 
43361 
43362 
43363 

43364 
43365 
43366 
43367 
43370 
43371 
43372 
43373 
43374 
43375 

43376 
43377 
43400 
43401 
43402 
43403 
43404 
43405 
43406 
43407 
43410 
43411 
43412 
43413 
43414 
43415 
43416 
43417 



161332 
002020 
027347 
015372 
015404 
125352 
060350 
015344 
071256 

075410 
061406 
071434 
060350 
015344 
075344 

035330 
035330 
035434 
027366 

006400 
027371 
015364 
060412 
064000 
035406 
027402 
002400 
007004 
040001 
002003 
006003 
125352 
027362 
061344 
002006 
027407 
060412 
027374 
071344 
061272 
000065 
160000 
002041 
001727 
010443 
035272 
027374 



#CMPR 



COMF1 



CUMP2 

C0MP3 
C0MP4 
CUHP5 



CgMp6 



C0MP7 



LOA 
SSA 
JMP 
JS8 
jSB 
JMP 

LOA 
JSB 
STA 
STB 
LDA 
STA 
LOA 
JSB 
ST B 
ISZ 
ISZ 
ISZ 
JMP 
CLB 
JMP 
jSB 

Lo A 

LDB 

ISZ 

JMP 

CLA 

CMB, 

ADA 

sza, 

SZB, 

JMP 

JMP 

LDA 

INA, 

JMP 

LDA 

JMP 

STA 

LDA 

CLE, 

UDA 

8EZ, 

ALF, 
AND 
ISZ 
JMP 



OPDST, I 

COMP1 

BINOP 

,FSB 

COMPRrI 

,»2 

PSTR 

TEMP4 

TPRME 

TNULL 

CP0 

»-2 

PSTR 

CPl 

TMPST 

TMP3T 

CP0 

C0MP3 

C0MP4 

FSCH 

,♦408 



TNULL 

C0MP6 

INB 

1 

RSS 

RSS 

COMPR,! 

C0MP2 

Cpl 

SZA 

C0MP7 

.+40B 

C0MP5 

CPl 

TEMP5 

ERA 

0,1 

RSS 

ALF 

B377 

TEMPS 

COMP5 



STRING 

ARGUMENTS? 
YES 
NO, COMPARE 

NUMERICAL 
OPERANDS 

PREPARE 

COMPARISON 

STRING 

SAVE SPECIFIED 

LENGTH 
PREpARE 

test string 
Sa v e actu a l length 
reserve space 

For result 
MOHE SPECjFjED string? 
YES 
NO, LOAD A 

NULL CHARACTER 
LOAD NEXT 

COMPARISON 
CHARACTER 
MORE SPECIFIED TEST STRING? 
Y ES 

NOr l-0 A0 NULL CHARACTER 
COMPARE 

CHARACTERS 
EXIT ON NOT EUUAL 

OR BOTH NULL 
CHAHACTtRS 

MqRE ACTUAL 

TEST STRING? 
YES 
NO, LOAD A KLANK 



EXTRACT 
NEXT 
TEST 

CHARACTER 
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E16<5** 
0167** 
0168** 
0169* 

0170* 

0171* 

0172* 

0173* 

0174* 

0175* 

0176* 

0177* 

0178* 

0179* 

0180* 

0181* 

0182* 

0183* 

0184* 

0165 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 
0194 
0195 
0196 
0197 
01<>8 

0199 
0200 

0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
02i7 
0218 
0219 
0220 



* PREPARE STRING OPERAND 



• * 
** 
** 



THE STRING ADDRESS ON TOP OF THE OPERAND 8TACK IS COMBINED 
WITH THE SUBSCRIPTS IN A PSUEDU„ENTRY ON THE TEMPORARY SUCK 
TO FORM A STRING OPERAND, (A) ■ *2 UPON ENTRY FOR A SOURCE 
S T RING; (A) ■ -1 FOR A DESjINAtION S T RING, yHE ADDRESS OF 
THE FIRST CHARACTER qF THE SrRl N G qpERAnO IS LEFT In TEMp5? 
FOR SOURCE STRINGS (A) » TEMP5 UPON EXjT, ThE REQUESTED 
STRING LENGTH (IN C HARAcTeRS) IS LEF^ IN TNULL* FOR SOURCE 
STRINGS THE ACTUAL STRING LENGTH (WHICH MAY BE LESS THAN THE 
REQUESTED LENGTH) IS IN (6) UPON EXIT. THE FOLLOWING 
CONDITIONS EXIT TO ERRORi NEGATIVE STRING LENGTH, REQUESTED 
DESTINATION STRING WOULD EXCEED PHYSICAL STRING BOUNDARY, OR 
REQuES T ED DESjINAtION SjRING wOgLD PRODuCE AS-} RING QuAN T I T Y 

with two unconnected parts, the logical length f a 

DESTINATION STRING IS AqJUSTed AS NEEDED. 

43420 
43421 
43422 
43423 
43424 

43425 
43426 
43427 

43430 
43431 
43432 
43433 
43434 
43435 
43436 

43437 
43440 
43441 

43442 
43443 
43444 
43445 
43446 
43447 
43450 
43451 
43452 
43453 
43454 
43455 
43456 
43457 
43460 
43461 
43462 
43463 



071470 


«P3TR STA 


PS0 


SAVE MODE FLAG 


015376 


JSB 


OPCHK 


UNSTACK OPERAND 


075464 


STB 


PS1 


SET FLAG POSITIVE 


005000 


BLS 




SAVE ADDRESS UF FIRST 


075272 


STB 


TEMP5 


CHARACTER OF STRING 


005100 


BRS 




SAVE 


044351 


AOB 


i-l 


POINTER TO 


075260 


ST6 


TEMP6 


STRING LENGTH 


065330 


LOB 


TMPST 


LOAD 


044354 


AOB 


.♦2 


START„OF„ STRING 


160001 


LDA 


If I 


DESIGNATOR 


071400 


STA 


MPT 


SAVE IT 


041272 


A A 


temps 


RECORD CHARAqTeR AqoRESS 


07127? 


STA 


TEMP5 


OF START«OF-STRING 


071574 


STA 


SBPTR 


SAVE ADDRESS 


006004 


1NB 




LOAD 


160001 


LDA 


If I 


END*0F»STRING DESIGNATOR 


002005 


INA, 


pSZA 


SPECIFIED? 


027455 


JMP 


PST H 2 


ye 8 


003400 


CCA 




NO 


051470 


CPA 


PS0 


'SOURCE' MODE? 


027451 


JMP 


PSTR1 


NO 


161260 


LDA 


TEMP6,I 


YES, UQAO STRING'S 


010443 


AND 


B377 


LOGICAL LENGTH 


027455 


JMP 


PSTR2 




071464 


PSTR1 STA 


PSi 


SET FLAG TO ,1 


061410 


LDA 


TPRME 


COMPUTE 


003000 


CMA 




END»0F«STRING 


041400 


ADA 


MPT 


DESIGNATOR 


071376 


PSTR2 STA 


NOT 


SAVE IT 


003000 


CMA 




IS LENGTH 


04M00 


ADA 


MPT 


OF SPECIFIED STRING 


002021 


3SA, 


pRSS 


NEGATIVE? 


115130 


JSB 


RERRS+18, 


.1 YES 


071406 


STA 


TNULL 




042005 


ADA 


.73 


>72? 
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0221 
0222 

0223 
0224 
0225 
0226 
0227 
0226 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 

0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 

2 49 

0250 

02&1 

0252 

(9253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266* 

0267* 

0268* 

0269* 

0270* 

0271* 

0272 

0273 

0274 

0275 



43464 
43465 
43466 
43467 
43470 
43471 
43472 
43473 
43474 
43475 
43476 
43477 
43500 
43501 

43502 
43^03 

43504 
43505 
43506 
43507 
43510 
43 5 U 
43512 
43513 
43514 
43515 
43516 
43517 

4352<3 
43521 
43522 
43523 
43524 
43525 
43526 
43527 
43530 
43531 
43532 
43533 
43534 
43535 
43536 
43537 
43540 



002020 
115132 
161260 
010443 
003000 
035470 
002004 
041400 
002021 
027514 
161260 
035470 
001727 
010443 

003000 
041376 
006404 
055470 
027521 
065406 
002004 
002021 
044000 
027517 
035470 
115131 
007400 
061272 

125344 
002021 
115132 
035464 
027532 
161260 
010762 
031376 
171260 
125344 
161260 
010443 
003000 
041376 
002021 
027525 
125344 



PSTR3 



PSTR4 
P8TR5 



P3TR6 



PSTR7 



** 

* 



NQt 

#RSS 

PSTR6 

PSTR,i 
** 
STACK STRING CONSTANT *** 

** 



SSA 
JSB 

LDA 
AND 
CMA 

IS* 
INA 
ADA 
SSA 
JMP 
LOA 
ISZ 
ALF 
AND 
CMA 
ADA 
CLB 
CPB 
JMP 
LOB 
INA 
SSA 
ADB 
JMP 
ISZ 
JSB 
CCB 
LOA 
JMP 
SSA 
JSB 
ISZ 
JMP 
LOA 

and 
ior 

sr A 

JMP 
LOA 
AND 
CMA 
AOA 
53A 
JMP 
JMP 



RERRS+20, 

TEMP6,I 

B377 

PS0 

MPT 
,RSS 

PSTR3 

TEMP6,I 

PS0 
,ALF 

B377 

NQT 
,INB 
PS0 
PSTR5 
TNULL 

r RSS 



PSTR4 

PS0 

RERRS+19, 

TEMP5 
PSTK,I 
,RSS 
RERRS+20, 
PS1 
PSTR7 

TEMP6,I 
M256 

NOy 

TEMP6,I 

PSTR>I 

TEMP6,I 

B377 



DOES 

START*OF. STRING 
CHARACTER 
RELATE TO 
PREVIOUS 
VALUE 

OF STRING? 
NO 

YES, EXTRACT 
EnD*OF« 

PERMITTED-STRING 
DESIGNATOR 
COMPUTE DIFFERENCE FROM 

ENp OF SPECIFIED STRING -1 
'SOURCE' 

MOOE? 
NO 

YES, SPECiFiED SOURCE STRING 
CONTAINED WITHIN 

DEFINED SOURCE STRING? 
NO, CORRECT LENGTH 

Of- ACTUAL SOURCE STRING 
iSQURCE' MODE? 
I NO 
YES, 3ET ACTUAL LENGTH TO 
LOAD START-OF-STRING 

CHARACTER ADDRESS 
PHYSICAL STORAGE OVERFLOW? 
I YES 
END*OF«STRIKG SPECIFIED? 
YES 
NOf 
RESET 

LOGICAL LENGTH 
OF STRING 

IS NEW 

DESTINATION 
STRING 
LONGER 

THAN OLD? 
YES 
NO 



SEE NOTE AT F0RJ3 OF ROUTINE FORMX 



43541 035332 «STST ISZ 0PD3T 

43542 035332 ISZ OPdST 

43543 061613 LDA TEMPI 

43544 003000 CMA 



STACK 

NEGATIVE 
OF 

STRING 
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0276 


43545 


171332 


STA QPDST,1 


ADDRESS 


0277 


43546 


161613 


LDA TEMP1,I 


COMPUTE 


0278 


43547 


010443 


AND 8377 


STRING 


0279 


43550 


007400 


CCB 


LE N GTH 


0280 


43551 


044000 


AD8 


-1 


0281 


43552 


040355 


ADA ,*3 


UPDATE 


0282 


43553 


001100 


AR3 


INTHA-STATEMENT 


0283 


43554 


041613 


ADA TEMPI 


POINTER 


0284 


43555 


071613 


STA TEMPI 


PAST STRING 


0285 


43556 


015400 


J9B RSCHK 


CREATE TEMPORARY 


0286 


43557 


002400 


CLA 


RECORD 


0287 


43560 
43561 


104400 
101330 


DST TMP3T,I 


C0»(8) ) 


0288 


43562 


125340 


JMP ST3TR,I 




0289* 


* 




** 




0290*** FETCH SOURCE CHARACTER *** 




0291** 




** 




0292* 










0293* 


CHARACTER ADDRESS IN TEMP4, SOURCE CHARACTER COUNT 


0294* 


IN TPRME (IN 


l'S COMPLEMENT). 


EXIT To (P+U ON NO 


0295* 


MORE 


CHARACTERS (TPRME p *1) ELSE EXIT TO (P*2) WITH 


0296* 


NEXT 


CHARACTER I N (A). 




0297* 










0298 


43563 


061410 


#FSCH LDA TPRME 


MORE 


0299 


43564 


002007 


INA,8ZA,RSS 


CHARACTERS? 


0300 


43565 


125364 


JMp FSCH,I 


NO 


0301 


43566 


071410 


STa TPRME 


YES, UPDATE CHARACTER COUNT 


0302 


43567 


061256 


LOA TEMP4 


LOAD CHARAC1ER 


0303 


43570 


000060 


CLE, ERA 


AODrEsS 


0304 


43571 


160000 


LDA 0,1 


EXTRACT 


0305 


43572 


002041 


SEZ,RSS 


NEXT 


0306 


43573 


001727 


ALF,ALF 


CHARACTER 


0307 


43574 


010443 


AND 8377 




0308 


43575 


035256 


ISZ TEMP4 


UPDATE CHARACTER ADDRESS 


0309 


43576 


035364 


18Z F3CH 




0310 


43577 


125364 


J M p FSCH,I 




0311** 






** 


0312*** FETCH SOURCE CHARACTER (UPPER 


CASE) *** 


0313** 






** 


0314* 










03l5* 


SAME 


AS FSCHi 


, EXCEPT LOWER CASE 


CHARACTERS ARE CONVERTED TO 


0316* 


UPPER CASE, 


USED BY CHAIN AND 


ASSIGN STATEMENTS. 


0317* 










0318 


43600 


061410 


#PCUC LDA TPRME 


MORE 


0319 


43601 


002007 


INA,SZA,RSS 


CHARACTERS? 


0320 


43602 


125562 


JMP FCUCrl 


NO 


0321 


43603 


071410 


STA TPRME 


YES, UPDATE CHARACTER COUNT 


0322 


43604 


061256 


LDA TEMP4 


load Character 


0323 


43605 


000065 


CLE, ERA 


ADDRESS 


0324 


43606 


160000 


LDA A, I 


extract 


0325 


43607 


002041 


SEZ,RSS 


NEXT 


0326 


43610 


001727 


ALF,ALF 


CHARACTER 


0327 


43 6 H 


010443 


AND B377 




032a 


43 6 12 


040766 


ADA M96 




0329 


436I3 


0020 2 1 


S3A,RSS 


LOWER CASE 
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(9330 

0331 

0332 

0333 

0334 

0335* 

0336* 

0337* 

0338* 

0339 + 

0340* 

(3341* 

0342* 

0343* 

0344 

0345 

0346 

0347 

0348 

034 9 

0350 



43614 040317 ADA M32 

43615 040730 ADA ,140 

43616 035256 ISZ TEMP4 

43617 035562 ISZ FCUC 
43620 125562 JMP FCUCI 

* ** 
** FETCH INPUT CHARACTER *** 

* ** 



NO 
YES 

update character address 



EXITS NORMALLY 
IF THE CHARACTE 

exit to trstr,i 
Condition^ 



TO (P+2) WITH NEXT INPUT CHARACTER IN 
R IS A " OR THE INPUT RECORD IS EMPTY 
(THE ONLY CALLER WHO CAN ENCOUNTER 



CA) 



THIS 



43621 
43622 
43623 
43624 
43625 
43626 
43627 



035274 
015450 
125350 
060001 
050414 
125350 
125274 



#HNC 



ISZ 
JS B 
JMP 
LDA 
CPA 
JMP 
JMP 



FINCH 

GETcR 
TRSTR,1 

B 

,♦428 

TR8TR,I 

FINCH, I 



FETqH NEXT CHARACTER 

NONE IN BUFFER 

ALLOW LOWER CAsE 
ft i 

YES, TERMINAL EXIT 
NO 
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0352* 

0353* 

0354* 

0355* 

0356* 

0357* 

0358 

0359 

0360 

0361 

0362 

0363* 

0364* 

0365* 

0366* 

0367* 

0366* 

0369* 

0370* 

0371 

0372 

0373 

0374 

0375* 

0376* 

0377* 

0376* 

0379* 

0360* 

0381* 

0382* 

0383* 

0384* 

0385* 

0386 

0387 

0386 

0389 

0390 

0391 

0392 

0393* 

0394* 

0395* 

0396* 

3 97* 

0396* 

0399* 

0400* 

0401* 

0402* 

0403 
0404 
0405 



* 
** 

* 



FETCH ENTER CHARACTER 



** 

*** 

** 



SAME AS FINCH EXCEPT IT DOES NOT CHECH FOR A QUOTE 



43630 035524 #FENC I3Z FENCH 

43631 015450 JSB GETcR 

43632 125350 JMP TRSTR,I 

43633 060001 IDA 6 

43634 125524 JMP FENCH, I 

* ** 
** FETCH TOP OF STACK *** 

* ** 



FETCH NEXT CHARACTER 
NONE IN SUFFER 
ALLOW LOWER CASE 
CHARACTER FOUND 



EXIT WITH TOP OPERANO IN (A) AND (B) AFTER UNSTaCKING 

it, create empty space on temporary stack for future 
intermediate result. 



43635 015376 *STTP JSB OPCHK 

43636 015400 JSB RSCHK 

43637 104200 OLD 1,1 

43640 100001 

43641 125374 JMP 3TT0P,I 

* ** 
** EXECUTE A BINARY OPERATOR *** 

* ** 



UNSTACK OPERAND 

CREATE SPACE FOR TEMPORARY 

LOAD TOP OPERAND 



on entry (p*l) contains 
operation, the top two 
un8tacke0 and verified 
appropriate subroutine 

ADDRESS In BIN02 AnO TH 

(A) AND CB), EXIT IS T 

AND (B), 

43642 161372 #BNOP 



A SUBHOU 
OPERANDS 
AS NOT BE 
IS CALLED 
E NEXT-TO 
(P*2) M 



43643 071642 

43644 035372 

43645 015376 

43646 075643 

43647 015374 
43650 025642 

* 

** VERIFY LEGITIMACY OF OPERAND 



LOA 
STA 
1SZ 

JSB 
STB 

JSB 
JMP 



BINOP, I 

BINOI 
BINOP 
OPCHK 
BIN02 
STTOP 
BINOl 



TINE CALL FOR A BINARY 

ON THE STACK ARE 
ING »UNDEFINEO,t THE 

WITH THE TOp ARGUMENT'S 
-TOP ARGUMENT'S VALUE IN 
ITH THE RESULT IN (A) 

SAVE 

SUBROUTINE 
CALL 
SAVE ADDRESS OF 

TOP OPERAND 
FETCH NEXT OPERAND 
EXECUTE SUBROUTINE 
** 
*** 
** 



THE VALUE REFERENCED BY THE TOP OF THE OPERAND STACK 
IS CHECKED, EXIT TO ERROR IF VALUE IS 'UNOEFINED,' 
ELSE REMOVE OPERAND ADDRESS FROM STACK AND REMOVE VALUE 
FR M Top O f TEMPORARY STACK, IF IT IS THERE, EXIT 
WITH OPERAND ADDRESS IN (B), 



43651 165332 

43652 006020 

43 6 53 027676 



#OPCK LOB OPDST,I 
SSB 
JMP 0PCH3»1 



STRING 

Operand? 

YES 
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0406 
0407 
0408 
0409 
0410 
0411 

0412 
0413 
0414 
0415 
0416 
0417 
041b 
0419 
0420 
0421 
0422 
0423 
4 2 4 
0425 
0426 
0427 
0428 
0429* 

0430* 

0431* 

0432* 

0433* 

0434* 

0435* 

0436* 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0446 

0449 

0450 

0451 

0452 

0453 

0454 
0455 
0456 
0457 
045g 
0459 
0460 



43654 160001 

43655 001222 

43656 002004 

43657 001310 

43660 027670 

43661 051036 

43662 006005 

43663 115135 

43664 160001 

43665 002002 

43666 115135 

43667 044351 

43670 055330 

43671 027677 

43672 061332 

43673 040350 

43674 071332 

43675 125376 

43676 007004 

43677 061330 

43700 040350 

43701 071330 

43702 027672 



OPCH1 
0PCH2 

OPCH3 



LpA 1,1 NO, HIGH PART OF 

RAL,RAL IS 

INA OPERAND 

RAR,SU NORMALIZED? 

JMP OPCH1 YES 

CPA BIT15 WAS FIRST WORD ZERO 

INB,RSS YES 

JSB RERRS*23,I NO«»*ERROR 

LDA i,I SECOND 

SZA WORD ZERO? 

JSB RERRS+23,1 NO««ERROR 

ADB ,»1 YES*-KEST(jRE OPERAND ADDRESS 

CPB TMPST TEMPORARY? 

JMP 0PCH3 YES 

LDA 0PD3T NO, 

ADA ,«2 UNSTACK 

STA OPDST OPERAND 

JMP OPQHK,I ADDRESS 

CMB,INB SET ADDRESS TRUE 

LDA TMPST UNSTACK 

ADA \w2 TEMPORARY 

STA TMPST OPERAND 

JMP 0PCH2 



** ALLOCATE AN ENTRY ON THE TEMPORARY STACK 

* 



** 
*** 

** 



(b) is unchanged upon exit on stack overflow, 
the operator anu operand stacks are moved to higher 
Cqre To make roo m f oR five m re temporary entries. 



43703 
43704 
43705 
43706 
43707 
43710 
43711 
43712 
43713 
43714 
43715 
43716 
43717 
43720 
43721 
43722 
43723 

43724 
43 7 25 
43726 
43727 
43730 
43731 
43732 



061330 
040354 
071330 
002004 
051466 
002001 
125400 
075440 
064056 
060364 
015326 
070056 
071442 
160001 
171442 
055330 
027731 
003400 
041442 
071442 

044351 
027720 
061332 
040364 



#RSCK LDA 
ADA 
STA 

INA 
CPA 

RSS 
JMp 
STB 

LDB 
LDA 
JSB 
STA 
STA 

RSCHi LDA 
STA 
CPB 
JMP 
CCA 
ADA 
STA 
ADB 
JMP 

RSCH2 LDA 
ADA 



TMPST 

.♦2 
TMPST 

OPTRQ 

RSCHK,I 

RT0 

PgPTR 

.♦10 
CUSP 

pBptr 

RT1 

1,1 

RT1,I 

TMPSI 

RSCH2 

RT1 
RT1 

• "1 
RSCHl 
OPDST 
,♦10 



ADVANCE 

POINTER TO 
NEXT ENTRY 
STACK 

OVERFLOW? 
YES 
Nq 

SAyE (B) 

LOAD SOURCE ADDRESS 
ALLOCATE SPACE FOR 

FIVE MORE 

TEMPORARIES 
SAVE DESTINATION ADDRESS 
TRANSFER 

A WORD 
DONE? 
YES 
NO, DECREMENT 

DESTINATION 
AND SOURCE 
ADDRESSES 

CORRECT 
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0461 
0462 
0463 

0464 

0465 

0466 

0467** 

0466** 

0469** 

0470* 

0471* 

0472* 

0473* 

0474 

0475 

0476 

0477 

0476 

0479 

0480 

0481 

0482 



43733 071332 STA OPqST 

43734 061466 LDA OPTRQ 

43735 040364 ADA 4 *10 

43736 &71466 STA OPTRQ 

43737 065440 LOB RT0 
43740 125400 JMP R8CHK,I 

** 
* PUSH DOWN OPERATOR STACK *** 

** 



STA C K 

POINTERS 
RESTORE (B) 



ALLOCATE AN 
NOT CHANGED, 



ENTRY ON THE OPERATOR STACK. (A) 13 



43741 
43742 
43743 
43744 
43745 
43746 
43 7 4 7 
43750 
43751 



064056 
044354 
007000 
044462 
006020 
115120 
034056 
034056 
125366 



#PSHS LOB PBPTR 
AOB ,+2 
CMB 

AOB LWAUS 
SSB 



ADVANCE 
STACK POINTER 
USER 
SPACE 

OVERFLOW? 



JSB rErrs*10,I YEs 
ISZ PBPTR NO, ALLOCATE 
ISZ PBPTR STORAGE 
JMP PsHSTrl 
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0002 


44000 


ORG 44000B 




0003 


44000 140000 


UNNRM OCT 140000 




0004 


44001 077600 


SMSK OCT 77600 




0005 


44002 176736 


SERRA ABS »SERR3 




0006 


44003 177734 


RERRA ABS SERRS-RERRS 


0007 


44004 177716 


FERRA ABS RERRS-FERRS 


0006 


44005 177761 


WERRA ABS FERRS-WERRS 


0009 


44006 072133 


DSERR DEF DSERA 




0010 


44007 062613 


S1CKL DEF SICK 




0011** 


** 




0012*** ROUND NUMBER TU INTEGER **• 




0013** 


** 




0014* 








0015* 


ENTER WITH NUMBER IN (A) AND (8) 


, EXIT TO (P*2) IF 


0016* 


INTEGER FORM 


(ROUNDED AS NEEDED) 


IS POSITIVE AND NOT 


0017* 


UArGEr THAN 


15 BITS, ELSE EXIT TO (P*l), ON EXIT TO 


0016* 


CP+2), (B) HOLDS THE INTEGER BIASED BY «1, 


0019* 








0020 


44010 015416 


#SBFX JSB IFIX 


TRUNCATE NUMBER 


0021 


44011 125342 


JMP SBFIX,I 


NUMBER TOO LARGE 


0022 


44012 002002 


SZA 


INTEGER OVERFLOW? 


0023 


44013 125342 


JMP SBFIX, I 


YES 


0024 


44014 002041 


SEz,RSS 


NO, ROUNDING BIT? 


0025 


44015 044351 


AOB ,«1 


NO, BIAS INTEGER BY -1 


0026 


44016 006021 


SS8#RSS 


YES, POSITIVE RESULT? 


0027 


44017 035342 


IS* SBFIX 


YES 


0026 


44020 125342 


JMP SBFIX, I 


NU 
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0030** 
003W* 
0032** 
0033* 

0034* 

0035* 

0036* 

0037* 

0036* 

0039* 

0040* 

0041* 

0042* 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 
0057 
0056 
0059 
0060 
0061 
0062 
00&3 
0064 
0065 
0066 

0067 
0068 
0069 
0070 
0071 
0072 



* INTEGERIZE A 



** 

NUMBER *** 

** 



ENTER WITH A FLOATING POINT NUMBER IN (A) AND (B), 

IF EXPONENT EXCEEDS 23, NUMBER HAS INTEGER SIGNIFICANCE! 

EXIT TO (P*l), ALL OTHER CAsts EXIT TO (P*2) WITH 32-BIt 

i n teger right justified In caj and cb), on exit co) « 

IF NUMBER IS EXACTLY RePReSENTABLE AS A 16*BIT INTEGERt 
IF EXPONENT IS NEGATIVE, TRUNCATE TO OR *1 APPROPRIATELY 
AND LET (0) • 1, OTHERWISE RIGHT JUSTIFY INTEGER ANO EXIT 
WITH LAST BIT LOST IN (E), 



44021 
44022 
44023 
44024 
44025 
44026 
44027 
44030 
44031 
44032 
44033 
44034 
44035 

44036 
44037 
44040 
44041 
44042 
44043 
44044 
44045 
44046 
44047 
44050 

44051 
44052 
44053 
44054 
44055 
44056 



071260 
102101 
015414 

002020 
026050 
040332 
002020 
103101 
040342 
002021 
125416 
040342 
071322 

06126?) 
026044 

000071 
002200 
004035 
102101 
035322 
026040 
035416 
125416 
061260 

002 12* 5 
003401 
002401 
007401 
006400 
026046 



#IFIX 



IHXl 



IFIX2 



IF 1X3 



STA TEMP6 


SAVE (A) 


STO 


SET iNOT ONE»wORD INTEGER* MODE 


J8B ,FLUN 


UNPACK (8) 


SSA 


NEGATIVE EXPONENT? 


JMP IFIX3 


YES 


ADA ,.16 


no, exponenet 


SSA 


<m 15? 


ILO 


YES 


ADA ,-8 


NO, EXPONENT 


SSA,RS8 


«« 23? 


JMP IFIX,I 


NO, An. SIGNIFICANCE IS INTEGER 


ADA ,«8 


YES, MOVE BINARY POINT TO EnD OF 


STA EXP 


(8) AND SAVE SHIFT COUNT 


LDA TEMP6 


RETRIEVE (A) 


JMP IFIX2 




CLE,SLA,ARS 


SHIFT (A) RIGHT 


CME 


SHIFT 


SLB,ERd 


(8) RIGHT 


STO 


LOST A 1 


ISZ EXP 


ALL SHIFTS oON£? 


JMP IFIX1 


NO 


ISZ IFIX 


YES 


JMp IFIx,I 




LDA TEMP6 


RETRIEVE (A) 


CLE, SSA 


TRUNCATE 


CCA,RSS 


TO 


CLA,RSS 


• 1 


CCB,RSS 


OR 


clb 





JMP IFIX3-2 
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0074** 
0075** 
0076** 
M77* 

0078* 

0079* 

0080* 

0081* 

0082* 

0083* 

0084* 

0085* 

0086* 

0087* 

0088* 

0089* 

0090* 

0091* 

0092* 

0093 

0094 

0095 

0096 
9\d97 
0098 

0099 
0100 

0101 
0102 
0103 

0104 
0105 
0108 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 

0121 
0122 
0123 
0124 
0125 
0126 
0127 



** 
r REQUEST A RECORD *** 

** 

UPON ENTRY (A) HOLDS A FILE NUMBER (P03I 
REQUEST, NEGATIVE FOR A WRITfc REQUEST) A 
VALIDATION OF THE FILEtS EXISTENCE ( (B) 
RECORD TO BE PUT IN THE FILE BUFFER ( (8 
THE RECORD WHICH FOLLOWS THE ONE CURRENT 
(B) >•■ REQUESTS RECORD (B) + l ), EXJT 
FILE DOES NOT EXIST OR A WHITE REQUEST I 
READ-ONLY FILE. EXIT TO THE END«OF»FXLE 
REQUESTED RECORD DOES NOT EXIST, OTHERW 
BIT IS EXAMINED jO DETERMINE IF THE FILE 
BE WRITTEN BACK TO DlSC, 

A READ REQUEST Rfc AD S THE REQUESTED RECUR 
A WRITE REQUEST HERELY INITIALIZES THE B 
THE FILE TABLE IS UPDATED TO REFLECT THE 



TIVE FOR A READ 
ND (B) SPECIFIES 

» «2) OR THE FILE 
) « »1 REQUESTS 
LY IN THE BUFFER, 
TO ERROR IF ThE 
S GIVEN FOR A 

CODE IF THE 
IS£, THE DIRTY 

BUFFER SHOULD 

D INTO THE BUFFER; 
UFFER TO 'EMPTY', 
CHANGES, 



44057 

44060 
440^1 

44^62 
44063 
44064 

44065 
44066 
440 67 
44070 
44071 
44072 
44073 

44074 
44075 
44076 
44077 
44100 
44101 
44102 
44103 
44104 
44105 
44106 
44107 
44110 
44H1 
44112 
44U3 
44114 
44U5 
44H6 
44U7 
44120 
44121 

44122 



075651 

007400 
002020 
006401 
003000 
075646 
04I502 
0030 2 1 

II5I5I 
041502 
100200 
000371 
041504 

071236 
161236 
002003 
115151 
065236 
044356 
075236 
007500 
002020 
055646 
001S75 
115152 
065651 
054350 
026351 
035651 
026146 
165236 
055036 
026145 
035236 
165236 
035236 



#RQST 



8T 8 


RQ2 


CCB 




SSA 




CLB, 


>RSS 


CMA 




STB 


RQl 


ADA 


FCNTR 


CMA, 


,8SA,RSS 


JSB 


RERRS*3 5 ,I 


Ada 


FCNTR 


MPY 


,+FTEL 


ADA 


FILTB 


STA 


FBASE 


LDA 


FBAsE,! 


SZA, 


>RSS 


JSB 


rErrS+35,1 


LOB 


FBASE 


ADB 


,♦4 


STB 


FBASE 


CCB, 


,CLE 


SSA 




CpB 


RQl 


EL*i 


»cle,sla,er 


JSB 


RERRS+36,1 


L DB 


RQ2 


C PB 


g ** wL 


Jmp 


RQST9 


isz 


RQ2 


JMP 


RQST2 


LDB 


FBASE,! 


CPB 


BIT15 


JMP 


RQST6 


ISZ 


FBASE 


LDB 


FBASE, I 


ISZ 


FBASE 



SAVfc. RECORD REFERENCE 
GET t'S COMPLEMENT 
OF FILE NUMBER AND 
SET RQl « *l FOR A 
READ REQUEST OR 
FOR A WRITE REQUEST 
DOES REQUESTED 
FILE EXIS1? 
NO 
YES 
SET POINTER 

TO FILE TABLE 
ENTRY 

load number of records 

DqEs FILE EXIST? 



READ-ONLY file? 

yes, read request? 

a yes, clear «it i*> and skip 

no 
file validation 

ONLY? 
YES 

no, record specified? 

YES 

NO, GET HIGH OLD RECORD ADDRESS 
NULL RECORD? 
YES 

NO, COMPUTE 
RECORD'S 
DISTANCE 
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0128 


44123 


035236 


I3Z F8A S E 


FROM 


0129 


44124 


007000 


CMS 


FIRST 


0130 


44125 


145236 


AOB FBASE,I 


RECORD 


0131 


44126 


007000 


CMB 




0132 


44127 


003400 


CCA 


GET UPPER 


0133 


44130 


041236 


ADA FBASE 


WORO OF 


0134 


44131 


160000 


LDA A, I 


OIsC AOORESS 


0135 


44132 


003003 


CmA,SZA,RSS 


file on drum? 


0136 


44133 


005121 


BRS,BRS 


YES, 4 SECTORS » 1 RECORD 


0137 


44134 


060343 


LOA .-7 


GET RECORD 


0138 


44135 


041236 


AOA FBASE 


COuNj BACK 


0139 


44136 


160000 


LOA A, I 


Into a 


0140 


44137 


001665 


ela,cle,era 


CLEAR BIT 15 


0141 


44140 


004010 


SLB 




0142 


44141 


044000 


AOB A 




0143 


44142 


005100 


BRS 


NEW RECORD 


0144 


44143 


006004 


INB 


NUMBER 


0145 


44144 


026151 


JMP RQ8T7 




0146 


44145 


006400 


RQST6 CUB 


no record in core 


0147 


44146 


*)35236 


RW3T2 ISZ FBASE 


ADJUST POINTER 


014« 


44147 


035236 


I3Z FBASE 


TO LOW WORO 


0149 


44150 


035236 


ISZ FBASE 


UF BASE ADDRESS 


0150 


44151 


003004 


RQST7 CMA,INA 


DqEs 


0151 


44152 


040001 


AOA 1 


RECORD 


0152 


44153 


002020 


SSA 


EXIST? 


0153 


44154 


026160 


JMP **4 


YES 


0154 


44155 


035236 


ISZ FBASE 


NO, CORRECT FBASE 


0155 


44156 


035236 


ISZ FBASE 




0156 


44157 


125006 


JMP FDT4A#i 


FOR EOF EXIT CHECK 


0157 


44160 


040001 


AOA 1 




0158 


44l6j 


030353 


IOR ,♦! 


COMPUTE RELATIVE 


0159 


44162 


005000 


BIS 


DISC 


0160 


44163 


002020 


SSA 


ADDRESS 


0161 


44164 


060001 


LOA 1 


OF NEW KECORD 


0162 


44J65 


007400 


CCB 


GET HIGH 


0163 


44166 


045236 


AOB FBASE 


OISC 


0164 


44167 


164001 


LOB B,I 


ADDRESS 


0165 


44170 


007103 


CMB,CLE,SZB, 


KSS FILE ON DRUM? 


0166 


44171 


001020 


A L8> A^S 


YESf 1 RECORD ■ 4 SEClORS 


0167 


44172 


141236 


AOA FBASE, 1 


COMPUTE LOW OISC ADDRESS 


0168 


44173 


071651 


STA RQ2 


SAVE IT 


0169 


44174 


007000 


CMB 


OLD HIGH ADDRESS 


0170 


44175 


002040 


SEZ 


INCREMENT IF 


0171 


44176 


006004 


INB 


CARRY FROM 


0172 


44177 


075650 


STB RQ4 


LOW ADO 


0173 


44200 


064344 


LOB .»6 


GET 


0174 


44201 


045236 


AOB FBA3E 


NEGATIVE 


0175 


44202 


164001 


LOB B,I 


OF BUFFER 


0176 


44203 


005423 


BLR,R8R 




0177 


44204 


007004 


CMB, INB 


SIZE 


0178 


44205 


075652 


STB RQ5 


SAVE IT 


0179 


44206 


035236 


ISZ FBASE 


SET POINTER 


0180 


44207 


145236 


AOB FBASErl 


TO BEGINNING 


0181 


44210 


035236 


I9Z FBA3E 




0182 


44211 


175236 


STB FBASE, I 


OF RECORD BUFFER 
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0183 


44212 


075647 




STB 


RQ3 


save address of buffer 


0184 


44213 


065236 




L08 


FBASE 


MOVE TO 


0185 


44214 


044346 




ADB 


t™4 


DISC 


0186 


44215 


075236 




STB 


FBASE 


ADDRESSES 


0187 


44216 


044351 




AOB 


.-1 


is any 


0188 


44217 


164001 




LD« 


B,I 


RECORD 


0189 


44220 


055036 




CPB 


BIT15 


IN CORE? 


0190 


44221 


026225 




JMP 


RQS15 


NO, SKIP COMPARE AND WRITE 


0191 


44222 


151236 




CPA 


FBASE, I 


OLD AND NEW RECORDS THE SAME? 


0192 


44223 


026267 




JMP 


RQST3 


YES 


0193 


44224 


015516 




JSb 


HReUF 


NO, WRITE OLO RECORD TO DISC 


0194 


44225 




RUSi5 


EQU 


* 




0195 


44225 


035646 




ISZ 


RQl 


READ REQUEST? 


0196 


44226 


026272 




JMP 


RQST4 


NO 


0197 


44227 


065652 




LDB 


RQ5 


GET NEGATIVE BUFFER SIZE 


0196 


44230 


002404 




CLA, 


>INA 


CHECK 


0199 


44231 


041236 




ADA 


FBASE 


FOr 


0200 


44232 


160000 




LOA 


A, I 


OiSC 


0201 


44233 


103100 




CLF 







0202 


44234 


00300^ 




CMA, 


-SZA 


OR 


0203 


44235 


026247 




JMP 


RQST8 


DRUM 


0204 


44236 


061651 




LOA 


RQ2 


DRUMJ 


0205 


44237 


074072 




STB 


WORD 


READ IN 


0206 


44240 


065647 




LOB 


RQ3 


REyUESTED 


0207 


44241 


045036 




AOB 


BIT15 




0206 


44242 


114770 




JSB 


DRUM, I 




0209 


44243 


060261 




LOA 


ENDRM 


RECORD 


0210 


44244 


002020 




SSA 






0211 


44245 


026243 




Jmp 


*«*2 




0212 


44246 


026262 




JMP 


RQSlU 




0213 


44247 


060355 


RGST8 


L DA 


,♦3 


DISCI GET ADDRESS 


0214 


44250 


040544 




AOA 


ERSCA 


OF DOUBLE WORD ADDRESS 


0215 


44251 


074215 




st b 


MWORD 


STORE WORD COUNT 


0216 


44252 


065647 




LOB 


RQ3 


GET CORE ADORESS 


0217 


44253 


045036 




AOB 


BIT15 


AND READ BIT 


0216 


44254 


114212 




JSB 


UlScA#I 


REAu 


0219 


44255 


102030 




HLT 


30B 


IN 


0220 


44256 


102031 




HLT 


3lB 


REQUESTED 


0221 


44257 


060214 




LOA 


MflUSY 


RECORD 


0222 


44260 


002020 




SSA 






0223 


44261 


026257 




JMP 


**2 




0224 


44262 




RUS10 


EQU 


* 




0225 


44262 


002003 




8ZA, 


,RS3 


ANY ERRORS? 


0226 


44263 


026275 




JMP 


RQST5 


NO 


0227 


44264 


006400 




CLB 




YES, CLEAR DRUM DrIVEr 


0228 


44265 


074261 




STB 


ENDRM 


BUSY WORD 


0229 


44266 


115163 




JSB 


RERRS+45, 


,1 AND GO INDICATE ERROR 


0230 


44267 


035646 


RQST3 


ISZ 


RQl 


WRITE REQUEST? 


0231 


44270 


002001 




RSS 




YES 


0232 


44271 


026342 




JMP 


RQS14 


NO, GO FINISH UP 


0233 


44272 


064350 


RQST4 


LOB 


EOR 


SCRATCH RECORD 


0234 


44273 


175647 




STB 


RQ3,I 


WITH ENO*OF«RECORD MARK 


0235 


44274 


026342 




JMP 


RQS14 


GO FINISH UP 


0236 


442^5 


065236 


RU3T5 


LOB 


FBASE 


GET 


0237 


44276 


044363 




AOB 


,♦9 


PROTECT 
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023a 


44277 160001 




tOA 


8,1 


MASK 


0239 


44300 002003 




8ZA, 


'RSS 


IS XT ZERO? 


0240 


44301 026342 




JMP 


RQS14 


yES, SKIP MASKING 


0241 


44302 071771 




STA 


PMASK 


NO, SAVE MASK 


0242 


44303 044344 




AOB 


»«6 


ADJUST FBASE TO 


0243 


44304 075236 




3TB 


FBASE 


Buf*FER LIMIT POINTER 


0244 


44305 065647 




LOB 


RQ3 




0245 


44306 155236 


HQSn 


CPB 


FBASE, I 


DONE ? 


024$ 


44307 02g337 




JMP 


RQS13 


YES 


0247 


44310 160001 




LOA 


If I 


NO 


0248 


44311 050350 




CPA 


EOR 


EOR ? 


0249 


44312 026337 




JMP 


RQS}3 




0250 


44313 050351 




CPA 


EOF 


EOF ? 


0251 


44314 026337 




JMP 


RQS13 




0252 


44315 010762 




ANO 


M256 




<*253 


44316 050445 




CPA 


Bi000 


STRING ? 


0254 


44317 026322 




JMP 


* + 3 




0255 


44320 044354 




AOB 


.♦2 


SKIP TWO KQRD8 


0256 


44321 026306 




JMp 


RQSU 




0257 


44322 160001 




LOA 


Irl 


YES 


0258 


44323 010443 




ANO 


B377 




0259 


44324 040355 




AOA 


,♦3 




0260 


44325 001100 




AR8 






0261 


44326 040001 




AOA 


1 




0262 


44327 071634 




STA 


ATMP 




0263 


44330 006004 


RQS12 


inb 




MASK 


0264 


44331 055634 




CPB 


ATMP 




0265 


44332 026306 




JMP 


RQS11 


STRING 


0266 


44333 160001 




LOA 


1*1 




0267 


44334 021771 




X 0R 


PMASK 




0268 


44335 170001 




STA 


1,1 




0269 


44336 026330 




JMP 


RQS12 




0270 


44337 061236 


RUS13 


LOA 


FBASE 


RESTORE 


0271 


44340 040347 




AOA 


• -3 




0272 


44341 071236 




STA 


FBASE 


FBASE 


0273 


44342 


RQS14 


EttU 


* 




0274 


44342 061651 




LOA 


RQ2 




0275 


44343 171236 




STA 


FBASE, I 


NE W RECORD INTO FlLfc 


0276 


44344 061650 




LOA 


RQ4 




0277 


44345 007400 




CCB 






0278 


44346 045236 




AOB 


FBASE 




0279 


44347 075236 




STB 


FBASE 




0280 


44350 170001 




STA 


B,l 




0281 


44351 065236 


RQ3T9 


LDB 


FBASE 


MOVE POINTER 


0282 


44352 044357 




AOB 


.♦5 


TO REFERENCE 


0283 


44353 075236 




STB 


FBASE 


RECORO POINTER 


0284 


44354 125510 




JMP 


RQSTR,! 
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0286* 
0287* 
0288* 
0289* 

0290* 

0291* 

0292* 

0293* 

0294* 

0295* 

0296* 

0297 

029a 

0299 
0300 
0301 
0302 
0303 
0304 

0305 
030a 
0307 
0306 
0309 

0310 
0311 
0312 

0313 
0314 
0315 

0316 
0317 

03l« 
0319 

0320 
0321 

0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
033o 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
033 8 
0339 



** STORE ITEM IN FILE 

* 



** 
*** 
** 



UPON ENTRY (B) INDICATES WHAT IS TO BE WRITTEN ON THE FILE: 



CB) * „i WRITES AN END„OF„FILE MARK, (B) » .2 
WORD FLOATING POINT NUMBER, (B) « »3 WRITES A 
THE RECORD CANNOT ACCOMMODATE THE QUANTITY, A 
WILL PLACE IT In THE FqLLOWInG RECORD WHILE A 
WILL EXIT TO THE ENd«OF*FILE CODE. 



WRITES A TWO* 
STRING, IF 
SERIAL WRITE 
RECORD WRITE 



44355 

44356 
44357 
44360 
44361 
44362 
44363 
44364 
44365 
44366 

44367 
44 370 
44371 
44372 
44373 
44374 
443 7 5 
44376 
44377 
44400 

44401 
44402 

44403 
44404 
44405 
44406 
44407 
44410 
444H 
44412 
44413 
44414 
4441 5 
44416 
44417 
44420 
44421 
44422 
44423 
44424 
44425 
44426 
44427 
44430 



075655 

065236 
044357 
164001 
075771 

007400 
045236 
104200 
100001 
050001 
02 6 4 5 7 

075654 
035655 

026403 
003400 
170001 
065236 

044342 
160001 
031036 
170001 
125512 
035655 
026442 
044354 
003004 
040001 
003004 
002020 
026452 
175236 
002003 
020420 
060350 

1^0001 

035655 
026431 
061406 
003000 
030445 
171654 
060600 
015350 
026375 



#FILS 



FILS 7 



FILS2 



FILS3 



FILS4 



STB 
LDB 
ADB 
LDB 

STB 
CCB 
ADB 
OLD 

CPA 
JMP 
STB 

ISZ 
JMP 
CCA 
STA 
LD8 
ADB 
LDA 
IOR 
STA 
JMP 
ISZ 
JMP 
ADB 

CMAf 

ADA 

CMA, 

SSA 

JMP 

STB 

SZA, 

JMP 

LDA 

STA 

ISZ 

JMP 

LDA 
CMA 
IOR 
StA 
LDA 
JSB 
JMP 



FILT 

FBASE 

.♦5 

1,1 

PMASK 

FBASE 
1,1 

1 

FILS1 

DADRR 

FILT 

FILS2 

1,1 

FBASE 

,•8 

B,I 

BIT15 

1,1 

FILST,I 

FILT 

FILS6 

.♦2 

IN A 

1 
INA 

FIL30 
FBASE, I 
R38 
FILS4 
EOR 

1,1 
FILT 
FILS5 
TNULL 

B1000 
DADRR, I 
FSC H A 
TRSTR 
FILS7 



SAVE REQUEST TYPE 
GET 

PROTECT 
MASK 

LOAD 

ACTIVE AND LIMIT 
rECOrD POINTERS 

RECORD FULL? 
YES 

no, save active pointer 

EOF REQuEST? 

NO 

YES, OVERLAY PREVIOUS 

EOR OR EOF WITH EOF MARK 
MAKE POINTER TO SECOND WORD OF 

FILE TABLE ENTRY. 
SET BUFFER 

DIRTY 
BIT, 

STRING? 

YES 

NO 

COMPARE PROSPECTIVE 

ACTIVE POINTER WITH 
END-OF-RECORD POINTER 
OVERFLOW? 
YfcS 

NO, SAVE NE W ACTIVE POINTER 
RECORD EXACTLY FyLL? 
YES 
NO, FOLLOW ENTRY SPACE 

WITH EOR MARK 
STRING? 
NO 

yes 

compute and 
store string 
header word 
transfer 

STRING 
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0340 

0341 
0342 
0343 
0344 
0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368* 

0369* 

0370* 

037U 

372* 

0373* 

0374* 

0375* 

0376* 

0377 

0378 

0379 

0360 

0381 

3 8 2 
0383 
0384 
0385 
0386 
03s 7 

0388 
0389 
0390 
0391 



44431 
44432 
44433 
44434 
44435 
44436 
44437 
44440 
44441 
44442 
44443 

44444 
44445 
44446 
44447 
44450 
44451 
44452 
44453 
44454 
44455 
44456 
44457 
44460 
44461 
44462 
44463 
44464 
44465 
44466 



104200 
101574 
021771 
101100 
021771 
101100 
104400 
101654 
026375 
006004 
005000 
075272 
007004 
045406 
007004 
005100 
026406 
060350 
171654 
060350 
041655 
071655 
007400 
055352 

002001 
125006 

061234 
003000 
015510 
026355 



FILS5 DUO SBPTR,I 

XOR PMASK 

8WP 

XOR PMASK 

SWP 

DST DAUrr,! 



FIL36 



FIU30 



FILS1 



JMP 

I N 8 

BIS 

STB 

CMB 

A06 

CMB 

BRS 

JMP 

LOA 

3T* 
LDA 

AOA 
ST A 
CCB 
CPB 
RS8 
JMP 
IDA 
CMA 
J88 
JMP 



FILS7 



TEMP5 
,INB 

TNULL 
,IN8 

FILS3 
EOR 
OADRR, I 

.•2 

FILT 

FILT 

RCRD# 

FDT4A,1 
FILE* 



ROSTR 
#FILS*1 

* ** 
** GET NEXT FILE ITEM TYPE *** 

* ** 



TRANSFER 
MASK 
OAT A 
NUMBER 



compute 
destination 

ADDRESS 
COMPUTE 
RECORD 
SPACE 

REQUIRED 

INguRE EOK MARK 

ENU S PRE3ENT RECORD 
RESTORE 
REQUEST 

TYPE 

SERIAL WRITE? 

YES 

NO 

REQUEST 

record 

TO WRITE 



THE NEXT ITEM IN THE FILE, NUMBER* STRING, £ND»0F*FILE, OR 
END»OF,RECORO, IS IDENTIFIED AND UPON EXIT (A) *1,2,3, OR 4 
RESPECTIVELY, EORFL » -1 WILL IGNORE ENO»OF»RECQRD t S AND 
RETURN wlfH THE FIR 8T OF yHE OjHER ItEM 8 ENCOuN T ERED, 



44467 
44470 
44471 
44472 
44473 
44474 

44475 
44476 
44477 
44500 
44501 
44502 
44503 
44504 
44505 
44506 



061234 
015510 

045236 

104200 
100001 
050001 
026512 
160001 
006404 
050350 
026512 
050351 

026530 
010762 
050445 



GTTyl LDA FILE* 
JSB RQSTR 

#GjTY CCB 

ADB FBASE 

OLD 1,1 



CPA 

JMP 

LDA 

CLB, 

CpA 

JMP 

CPA 

JMP 

AND 

CPA 



1 
GTTY3 

if I 

I N B 

EqR 

GTTY3 

EOF 

GTTY4 

M256 

B1000 



REQUEST 

NEXT RECORD 
LOAD ACTIVE 

AND LIMIT 

rECqRD POINTERS 

PHYSICAL END OF RECORD? 

YES 

NO, LOAD WORD 

OF RECORD 
EnD*oF»REC0KD? 

YES 

NO, END»OF-FILE? 

YES 

NO 

STRING? 
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0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0406 

0409 

0410 

0411 

0412 

0413 

0414* 

0415* 

0416* 

0417* 

0418* 

0419* 

0420* 

0421* 

0422 

0423 

0424 

4 2 5 

0426 

0427 

0428 

0429 

0430 

0431 

0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 

0440 
0441 

0442 

0443 

0444 
0445 
0446 



44507 
44510 
44511 
44512 
44513 
44514 
44515 
44516 
44517 

4452 
44521 

44522 
44523 
44524 
44524 
44525 
44526 
44527 
44530 
44531 
44532 
44533 



006004 
060001 
125514 
065236 
044345 
160001 
051036 
026524 
044351 

160001 
044354 

150001 
026532 

007400 
055653 
026467 
064354 
044354 
026510 
060355 
125514 



GTTY2 



GTTY3 



GTTY6 



GTTY4 



6 TT Y5 



* 
** 

* 



WRITE BUFFER TO DISC 



INB 


YES, (B) » £ 


LDA 1 


SET (A) « CB) 


JMP GTTYP,I 




LDB fbase 


PHYSICAL 


AqB 9 mb 


NULL RECORD 


LOA B,I 




CPA BIT15 


IN CORE? 


JMP GTTY6 


YES, SKIP COMPARE 


ADB .-1 


NO, PHYSICAL 


LDA B,I 


END 


ADB , + 2 


OF 


CPA Q,i 


F iL E? 


JMP GTTY5 


YE8 


EQU * 




CCB 


NO 


CPB EQRFL 


E0R»3 WANTED? 


JMP GTTY1 


NO 


Ll)B . + 2 


YES, SET (B) ■ 4 


A08 ,*2 


CB) 11 (B) ♦ 2 


JMP GTTY2 




LDA ,4-3 


(A) - 3 


JMP GTTYP,I 




** 




ISC *** 




** 





THE BUf-FER OF THAT FILE CURRENTLY REFERENCED BY FBASE IS 
WRITTEN TO ITS PLACE On THE DISC, UNLESS NOTHING HAS BEEN 
WRITTEN INTO THE BUFFER, 



44534 
44535 
44536 

44537 
44540 

44541 
44542 
44543 
44544 
44545 
44546 
44547 
44550 
44551 
44552 
44553 
44554 
44555 
44556 
44557 
44560 
44561 
44562 
44563 
44564 



065236 
044346 
160001 
001600 
00 2 U1 

125516 
001500 
170001 
044355 
160001 
051036 
125516 
044364 
160001 
002003 
026615 
*7\77\ 
044344 

075236 
065647 
155236 
0266U 

160001 
050350 
026611 



*WkBu LDB 
ADB 

LDA 

ELA 

8EZ, 

JMP 

ERA 

STA 

ADB 

L0* 
CPA 
JMP 
ADB 
LDA 
SZA, 
JMP 
STA 
ADB 
STB 
LDB 
w RBu* CPB 
JMP 
U DA 
CPA 
JMP 



FBA5E 

,.4 

B,I 

CLE,RSS 
WRBUF,I 

B,I 
.+3 

B,I 

BIT15 

WRBUF,I 

,♦10 

B,I 

RSS 

WRBU7 

PMASK 

,-6 

FBASE 

RU3 

FBASE, I 

wRBg6 

lr I 

EOR 
WRBU6 



LOAD SECOND 
WURD f-ROM 

file Table 
entry (record length) 
has bit 15 been set? 

NO 

YES, CLEAR /T 
STORE IT BACK 
GET HIGH CURREnT 

ReCQRq AqoReSS 
NULL RECORD? 

YES, DON'T WRITE RECORD OUT 
GET 

PROTECT MASK 
IS IT ZERO? 

YES, SKIP STRING MASKING 
NO, SAVE MASK 
ADJUST FBASc TO 

BUFF-ER LIMIT POINTER 

DONE ? 
NO 

eur ? 
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0447 


44565 


050351 


CPA 


EOF 


EOF ? 


0448 


44566 


026611 


JMP 


WRBU6 




0449 


44567 


010762 


AND 


M256 




0450 


44570 


050445 


CPA 


Bj000 


STRING ? 


0451 


44571 


026574 


JMP 


• ♦3 




0452 


44572 


044354 


A08 


.♦2 


skip two words 


0453 


44573 


026560 


JMP 


WRBU4 




0454 


44574 


160001 


IDA 


WI 


YES 


0455 


44575 


010443 


AND 


B377 




0456 


44576 


040355 


ADA 


,♦3 




0457 


44577 


001100 


AWS 






045« 


44600 


040001 


ADA 


1 




0459 


44601 


071634 


STA 


ATMP 




0460 


44602 


006004 


WHBU5 IN8 






0461 


44603 


055634 


CPB 


ATMP 




0462 


44604 


026560 


JMP 


WRBU4 




0463 


44605 


160001 


LDA 


W I 




0464 


44606 


021771 


xOR 


PMASK 




0465 


44607 


170001 


STA 


1,1 




0466 


44610 


026602 


JMP 


WRBU5 




0467 


44611 


065236 


WRBU6 lob 


FBASE 




0466 


44612 


044347 


ADB 


,-3 




0469 


44613 


075236 


STB 


FBASE 




0470 


44614 


044363 


ADB 


.♦9 


■> RMASK WORD 


0471 


44615 


044335 


WRBU7 ADB 


.-13 


*> WORDS/RECORD WORD 


0472 


44616 


160001 


LDA 


B,I 




0473 


44617 


030222 


IOR 


BIT14 


SET FILE 


0474 


44620 


170001 


STA 


B,I 


DIRTY BIT 


0475 


44621 


001423 


ALR* 


■ RAR 


CLEAR DIRTY BITS AND 


0476 


44622 


003004 


CMA, 


>INA 


GET NEG. REC, LENGTH 


0477 


44623 


044355 


ADB 


,♦3 


GET HIGH CURRENT 


0478 


44624 


164001 


LOB 


B,I 


RECORD ADDRESS AGAIN 


0479 


44625 


103100 


CLF 







0480 


44626 


007002 


CmBi 


rSZB 


Drum or Disc address? 


0481 


44627 


026640 


Jmp 


WRBU1 


DiSC, Go TRANSFER 


0482 


44630 


070072 


STA 


WORD 


DRUMl 


0483 


44631 


161236 


LDA 


FBASE, I 




0484 


44632 


065647 


LDB 


RQ3 


WRITE 


0485 


44633 


114770 


JSB 


DRUM, I 


RECORD 


0486 


44634 


060261 


LDA 


ENDRM 


10 


0487 


44635 


002020 


SSA 




DRUM 


0488 


44636 


026634 


JMP 


*«2 




0489 


44637 


026652 


JMP 


NRBU2 




0490 


44640 


070215 


WR8U1 STA 


MWORD 


WRITE 


0491 


44641 


065647 


LDB 


RQ3 




0492 


44642 


003400 


CCA 




RECORD 


0493 


44643 


041236 


ADA 


FBASE 




0494 


44644 


114212 


JSB 


DISCA,I 


TO 


0495 


44645 


102030 


MLT 


30B 




0496 


44646 


102031 


HUT 


31B 


DISC 


0497 


44647 


060214 


LDA 


MBUSY 




0496 


44650 


002020 


SSA 






0499 


44651 


026647 


JMP 


*«-2 




0500 


44652 




WRBU2 EQU 


* 




0501 


44652 


002003 


SZA, 


,RSS 


ANY ERRORS? 
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0502 

0503 

0504 

0505 

0506* 

0507* 

050S* 

0509* 

0510* 

0511* 

0512* 

0513* 

0514* 

0515 

0516 

0517 

051s 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 
0533 



44653 125516 

44654 006400 

44655 074261 

44656 115164 
* 

** TRANSFER / 
* 



jmp wrbuf,! 

clb yes, clear drum driver 
stb endrm busy word 
jsb rerks+46,1 and go indicate goof 
** 

STRING *** 

** 



THE NUMBER OF CHARACTERS SPECIFIED BY TNULL (IN 1»S 
COMPLEMENT) IS TRANSFERRED FROM THE SOURCE STRING TO 
A DESTINATION STRING BEGINNING WITH THE CHARACTER 
ADDRESSED BY TEmP5, 

44657 071402 #TRST 8TA TRFCH SAVE SUBROUTINE CALL 

44660 035406 ISz TNyLL MORE TRANSFER STRING? 

44661 002001 RSS YES 

44662 125350 JMP TRSTR,I NO 

44663 115402 JSB TRFCH, I FETCH A SOURCE CHARACTER 

44664 060412 LDA ,*40B NONE LEFj. LOAD A BLANK 

44665 071404 STA TRS0 SAVE IT 

44666 065272 LOB TEMP5 LOAD 

44667 004065 CLE,ErB DEqtINAtION 

44670 160001 L°A i#I WORD 

44671 002041 SEZfRSS SAVE 

44672 001727 aLF,aLF OTHER 

44673 010762 AND M256 CHARACTER 

44674 031404 IQR TRS0 COMBINE WITH 

44675 002041 8EZ,RSS NE W CHARACTER 

44676 001727 ALF,ALF AND SJqhH 

44677 170001 3TA l,j WORD 

44700 035272 ISZ TEMP 5 INCREMENT DESTINATION ADDRESS 

44701 026660 JMP #TRST*1 
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0535** 








** 


0536*** UNPACK ARGUMENTS 


FOR ARITHMETIC OPERATIONS *** 


0537** 








** 


5 3 a 


44702 


071620 


#UNPK 


STA Al 


SAVE HIGH MANTISSA OF ARG 1 


0539 


44703 


002003 




SZA,RSS 


UNPACK 


0540 


44704 


006104 




CLE, INS 


SECOND 


0541 


44705 


015414 




J3b ,FLUN 


WORD 


0542 


44706 


075621 




STB Cl 


SAVE LOW MANTISSA OF aRG 1 


0543 


44707 


071322 




STA EXP 


SAVE EXPONENT 


0544 


44710 


161412 




LDA gNpAK,I 


COMpgjE ADDRESS 


0545 


44711 


035412 




191 UNPAK 


OF CALLING ROUTINE 


0546 


44712 


164000 




LDB 0,1 




0547 


44713 


134000 




ISZ 0,1 


SET CALLING ROUTINE'S RETURN 


0548 


44714 


164001 




LDB 1,1 


LOAD 


0549 


44715 
44716 


104200 
100001 




OLD 1,1 


ARG 2 


0550 


44717 


0716^2 




STA A2 


SAVE HIGH PART OF ARG 2 


055j 


44720 


002003 




SZA,RSS 


UNPACK 


0552 


44721 


006404 




CLB,INB 


LOW 


0553 


44722 


015414 




J3B ,FLUN 


PART 


0554 


44723 


075623 




STB C2 


SAVE LOW MANTISSA OF ARG 2 


0555 


44724 


071310 




STA EXP2 


SAVE EXPONENT 


0556 


44725 


125412 




JMP UNPAK, I 




0557** 








** 


055(j*** ADO TWO FLOATING 


POINT NUMBERS 


*** 


0559** 








** 


0560 


44726 


015412 


#FAD 


J3B UNPAK 


UNPACK THE ARGUMENTS 


0561 


44727 


001402 




DEF „FAD 




0562 


44730 


065402 




LOB ,FAD 


MOVE 


0563 


44731 


075404 




STB ,FSB 


RETURN ADDRESS 


0564 


44732 


026751 




jmp admui 


ADD THE ARGUMENTS 


0565** 








** 


0566*** SUBTRACT TWO FLOATING POINT NUMBERS *** 


0567** 








** 


0568 


44733 


015412 


#K8B 


J38 UNPAK 


UNPACK THE ARGUMENTS 


056g 


44734 


001404 




DEF .FSB 




0570 


44735 


061622 




LDA A2 




0571 


44736 


003000 




CMA 


NEGATE SECOND ARGUMENT 


0572 


44737 


007006 




CMB,INB,SzB 


OVERFLOW FROM LO W MANTISSA? 


0573 


44740 


026746 




JMP FSBi 


NO 


0574 


44741 


002025 




SSA,INA,R3S 


yes, original Number negative? 


0575 


44742 


002021 




SS A fRSS 


yes, complement negative? 


0576 


44743 


026746 




JMP t FSBl 


no 


0577 


44744 


001300 




RAR 


YES, SHIFT MANTISSA 


0578 


44745 


035310 




I3Z EXP2 


AND CORRECT EXPONENT 


0579 


44746 


075623 


.FSBt 


STB C2 


SAVE 


0580 


44747 


071622 




STA A2 


COMPLEMENT 


05el 


44750 


6 1310 




LDA EXP2 




0582* 








* 




0583** ADD 


UNPACKED ARGUMENTS ** 




0584* 








* 




0585 


447 5 1 


003004 


ADMU1 


CMA,INA 


EXP2 IN (A) 


0586 


44 75 2 


041322 




ADA EXP 


COMPUTE EXPONENT DIFFERENCE 


0587 


44753 


002021 




SSA,RSS 


ARG I LARGER? 


0588 


44754 


026772 




JMP ADMU2 


YES 



PAGE 0167 #15 ARITHMETIC SUBROUTINES 



0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0596 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 

06J4 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0001* 

0002* 

0003* 

0004 

0005 

0006 

0007 



44755 
44756 
44757 
44760 
44761 
44762 
44763 
44764 
44765 
44766 
44767 
44770 
44771 
44772 
44773 
44774 
44775 
44776 
44777 
45000 
45001 
45002 
45003 
45004 
45005 
45006 
45007 
45010 
45011 
45012 
45013 
45014 
45015 
45016 
45017 
45020 
45021 
45022 
45023 
45024 
45025 
45026 
45027 
45030 
45031 
45032 
45033 
45034 



061620 
065622 
071622 
075620 
061621 
065623 
071623 
075621 
061322 
065310 
071310 
075322 
026751 
040321 
065621 
003120 
027026 
040321 
071310 
061622 
065623 
035310 
027031 
045621 
103101 
002040 
002104 
102301 
0270J6 
041620 
002021 
027027 
027021 
041620 
102301 
027027 
001500 
005500 
035322 
027027 
002001 
061620 
015306 

125404 
000071 
002200 
005540 
027002 



ADMU2 



ADMU3 



AD M U4 



ADMU5 



LDA 
t DB 

STA 

STB 

LDA 

LOB 

STA 

STB 

LDA 

LDB 

STA 

STB 

JMP 

ADA 

LDB 

CMA, 

JMP 

ADA 

STA 

LDA 

LDB 

ISZ 

JMP 
ADB 

CLQ 

SEZ 

CLE, 

SOS 

JMP 

ADA 

SSA, 

JMP 

JMP 

ADA 

SOS 

JMP 

Era 

£HB 

ISZ 

JMP 

RSS 

LDA 

J SB 

JMP 

CLE, 

CME 

ErB, 

JMP 



Al 
A2 
A2 
Al 

Cl 

C2 

C2 

Cl 

EXP 

EXP2 

EXP2 

EXP 

ADMU1 

.-25 

Cl 

CLE, SSA 

ADMU4 

, *>25 

EXP2 

A2 

C2 

EXP2 

ADnU5 

Cl 



INA 

* + 5 
Al 

RSS 
ADMU4+1 

* + 4 
Al 

ADMU4+1 



EXP 
ADMg4*l 

Al 

.PACK 
,FSB,I 
SLA, ARS 

CLE 

ADMU3 



NO, 

SWAP 

ARGUMENTS 



SHIFT 
COUNT 
>• 25? 

YES, IGNORE SMALLER ARGUMENT 
NO, COMPUTE SHIFT COgNT IN 

1'S COMPLEMENT 
LOAD SMALLER 

MANTISSA 
MORE SHIFTS? 
YES 
NO, ADO 

LOWER MANTISSAS 
OVERFLOW? 
YES, BUMP (A) 
OVERFLOW? 
NO 

yes, add high mantissas 
overflow corrected by ai < ? 

YES 

no, correct overflow 
add high mantissas 
overflow? 

NO 

YES, SHIFT 
pOWN ANq 
BUMP 

exponent 



NORMALIZE AND PACK 



** 

* 



MULTIPLY TWO FLOATING POINT 



45035 040000 B40M OCT 40000 

45036 015412 #F M p JSB UNPAK 

45037 001406 DEF f FMP 
45040 041322 ADA EXp 



ARITHMETIC 
DOUBLE 
SHIFT 

** 

NUMBERS *** 

• * 

UNPACK THE ARGUMENTS 

ADD EXPONENTS 
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10008 
0009 
0010 
0011 
0012 

0013 
0014 
0015 
0016 
0017 

0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037** 

0038** 

0039** 

0040 

0041 

0042 

00 4 3 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
0054 

0055 
0056 
0057 
0058 



45041 
45042 
45043 
45044 
45045 
45046 

45047 
45050 
45051 
45052 
45053 
45054 
45055 
45056 

45057 
45g60 
45061 
45062 
45063 
45064 
45065 
45«66 
45^67 
45070 
45071 
45072 
45^73 
45074 
45075 
45076 
45077 
45100 



002004 
071322 
005300 
060001 
100200 
001620 
071623 
06J621 
001300 
075621 
100200 
001622 
045621 
000040 
041623 
002040 
006004 
075623 
061620 
100200 
001622 
000065 
041623 
000066 
002041 
027076 
102201 
006005 
044351 
101100 
015306 
125406 



INA 
STA 
RBR 
LDA 

MPY 

STA 

LDA 
RAR 
STB 

MPY 

AOB 
CU 
ADA 
SEZ 
INB 
STB 
LDA 
MPY 



EXP 
1 

Al 

C2 
Cl 

CI 
A2 

Cl 

C2 



C2 
Al 
A2 



CUE, ERA 
ADA C2 
CLE,ELA 
SEZ,RSS 
JMP **4 
SOC 

INB,R8S 
AOB ,.l 

Srtp 

JSB .PACK 
JMP ,FMP,I 



PLUS 1 FOR 

NORMALIZATION 
POSITION LOW MANTISSA OF ARG 2 
COMPUTE A 

CROSS PRODUCT 

SAVE RESULT 

POSITION LOW MANTISSA 

OF ArG 1 
SAVE REST Qf PRIOR RESULT 
COMPUTE SECOND CROSS PRODUCT 

ADD 
CROSS 

PRODUCTS 
CORRECT 

for carry 
save result 
compute product of 

high mantissas 

position low part of result 
add in cross products 
position result 

CARRY? 

NO 

YES, POSH IVE CARRY? 

YES 

NO 

EXCHANGE REGISTERS 

NORMALIZE 

ANO PACK RESULT 
** 



* DIVIDE TWO FLOATING POINT NUMBERS *** 



45101 
45102 
45103 

45104 
45105 

45106 
45107 
45H0 
45111 
45112 
45113 
45U4 
45H5 
45116 
45H7 
45120 
45121 
45122 
45123 
45124 



015412 
001410 
065622 
006003 
027161 
065620 
006003 
027156 
003004 
002004 
041322 
071322 
061621 
101022 
100400 
001622 
071310 
005100 
002400 
100400 



#FDV 



JSB UNPAK 
D£F ,FDv 

LDB AZ 
SZBrRSS 

JMP ,FDV2 

LDB Al 

SZB,RSS 

JMP ,FDV1 

CMA, INA 

INA 

ADA 

STA 

LDA 
ASR 
DIV 



EXP 

EXP 

Cl 
2 

A2 



STA EXP2 
BRs 
CLA 
DIV A2 



** 
UNPACK THE ARGUMENTS 

ZERO 

DIVISOR? 
YES 
NO, ZERO 

DIVIdENq? 
YE* 
NO, COMPgTE 

EXpONENr 

DiFFERE N CE 

plos 1 

LO A D DIVIDEND 

SHIFT TO PREVENT OVERFLOW 

SAVE 

QUOTIENT 
DIVIDE REMAINDER BY 2 TO 

PREVENT DIVISION OVERFLOW 
DIVIDE REMAINDER AND 
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0059 
0060 
0061 
0062 
0063 

0064 
0065 

0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 

007b 

0076 

M77 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088* 

0089* 

0090* 

0091* 

0092* 

0093* 
0094* 

0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 

0J03 
0104 
0105 
0106 
0107 
0108 
0109 
0110 



45125 
45126 

45u7 
45130 
45131 
45132 
45133 

45134 
45135 
45136 
46137 

45140 
45141 

45142 
45143 
45144 
45145 
45146 
45147 
45i50 
45151 
45152 
45153 
45154 
4515b 
45156 
45157 
45i60 

4516* 
45162 
45163 
45164 

* 
** 



001622 
071402 

065623 
101043 
002400 
100400 
001622 
003004 

1002010 

001310 
005066 
061402 
002020 
003401 
002400 
003040 
002004 
003100 
045402 

002040 
002004 
004066 
001600 
041310 
002001 
002400 
015306 

125410 
115212 

061620 
015310 
125410 



TAKE ARITHMETIC 



STA FD0 

LDB C2 

L3R 3 
CIA 

DlV A2 

CMA,INA 
MPY EXP2 

BLS,CLE,ELB 

LOA FD0 

SSA 

CCA,Rs$ 

CLA 

C*A,SEZ 

INA 

CMA,CLE 

AOB FD0 

SEZ 

INA 

CLE,ELB 

ADA EXP2 
RSS 
CLA 

JSB .PACK 

JMP ,FDV,I 

,FDV2 JSB WERRS+3,1 

LDA Ai 

JSB OVFL* 
JMP ,FDV,I 
** 
INVERSE *** 

** 



,FDV1 



SAVE LOW PART OF QUOTIENT 

SCALE TO PREVENT OVERFLOW 

OVERFLOW 
COMPUTE C2/A2 « 

COMPUTE 

„H1GH QUOTIENT*Q 

SHIFT SIGN TO (E) 
LOW QUOTIENT 
NEGATIVt? 

yEs* set (A) ■ -1 (Extend 

NOr SET (A) ■ SIGN) 
IF (E) ■ 1 SUBTRACT 

1 AS tXTfcNSiON 
Of- PRODUCT 
ADD IN LOW QUOTIENT 
CARRY 

INTO (A) 

POSITION 

REGtSTERS 
ADD HIGH QUOTIENT 

SET MA N Tl3SA To ZERo 
N0RMALI7.E AND PACK 

DIVIDE BY ZERO 

RETURN INTIMITY OF 
APPROPRIATE S IGN 



ENTER WITH A FLOATING POINT NUMBER IN (A) ABO (B), 
EXIT WITH ITS ARITHMETIC INVERSE IN (A) AND CB). 



45165 
45166 
45167 
45170 
45171 
45172 
45173 
45174 

45i75 
45176 
45177 
45200 
45201 
45202 
45203 
45204 



053035 
002001 
027172 
054353 
027220 
101100 
007100 
020762 
040444 
002041 
027216 
006004 
055036 
027206 
056000 
002001 



#ARIN 



ARJN2 



CPA 


B40M 


RSS 




JMP 


ARIN2 


CPB 


.♦* 


Jmp 


ARIn3 


SWP 




chb» 


-CLE 


XoR 


M256 


ADA 


B400 


SEZ, 


.RSS 


Jmp 


ARInI 


INB 




LPB 


FLGBT 


JMP 


* + 4 


CPB 


UNNRM 


RSS 





A«040000? 

NO, 

YES f B«000001? 

YES, 

NO, SWAP REGISTERS, 
COMPLEMENT «I6H PART 
COmPLE m EnT LOW PART 
FINISH LOW PART 
OVERFLOW? 
NO 

yes, increment high part 

overflow? 

yEs 

no, negative unnormallzed? 

YES 
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0111 


45205 


027216 




JMP ARINl 


NO 


0112 


45206 


046000 




AOB UNNRM 


FIX HIGH MANTISSA 


0113 


45207 


000033 




8LA,RAR 


posit jon exponent 


0114 


4 5 210 


032001 




IOR SMSN 


FILL IN LEADING BITS IF NEGATIVE 


0115 


45211 


006021 




SSB,RSS 


POSITIVE? 


0116 


45212 


002005 




INA,RSS 


YES, INCREMENT EXPONENT 


0117 


45213 


040351 




ADA f *l 


NO, DECREMENT EXPONENT 


0118 


45214 


001200 




RAL 


POSITION 


0119 


45215 


010443 




AND B377 


EXPONENT 


0i20 


45216 


101108 


ARINj 


SWP 


RESTORE USUAL 


0121 


45217 


125370 




JMP ARJNV,I 


Number order 


0122 


45220 


115215 


ARIN3 


JSB WERRS+6,1 


OUTPUT UNDERFLOW MESSAGE, 


0123 


45221 


002400 




CLA 


RETURN WITH A*0 


0124 


45222 


006400 




CcB 


AND B*0, 


0125 


45223 


125370 




JMP ARINV,I 




0126** 






** 




0127*** UNPACK LOW 


WORD I 


OF NUMBER *** 




0128** 






** 




0129* 












0130* 


ENTER WITH LOW WORD OF FLOATING 


POINT NUMBER IN (&). 


0131* 


EXIT 


WITH EXPONENT 


IN (A) AND MANTISSA IN (8), 


0132* 












0133 


45224 


002400 


• f-LUN 


CLA 


EXTRACT 


0134 


45225 


101050 




LSR 8 


EXPONENT 


0135 


45226 


001727 




ALP,ALF 


IN (A) AND 


0136 


45227 


005727 




BI.F,BlF 


MANTISSA IN (B) 


0137 


45230 


000033 




SLA,RAR 


NEGATIVE EXPONENT? 


0138 


45231 


032001 




IOR SMSK 


YES, FILL IN LEADING BITS 


0139 


45232 


1254U 




JMP ,FLUN,I 


NO 
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0141* 












0142* 


WHILE READING 


A PROGRAM IN 'TAPE 


' MODE, ERRONEOUS STATEMENTS 


0143* 


ARE REPLACED 


WITH ERROR PSUEDO.-STATEMENTS, fHESE ARE THREE 


0144* 


WOrD 


•STATEMENTS'! THE STATEMENT NuMBEr, THE LENGTH (ALWAYS 


0145* 


3), AND THE ERROR NUMBER, SInCE 


BITS 15*9 ARE Ci EAR In WORD 


0146* 


THREE* ERRORS 


HAVE A STATEMENT TYPE OF 0. ERRCT HOLDS A 


0147* 


COUNT OF THE 


EMBEDDED ERRORS AND 


THE USER'S BIT OF TERR IS 


0148* 


SET ) 


IF ANY EMBEDDED ERRORS EXIST 


, ADDITIONALLY, THE *OUT*OF- 


0149* 


STORAGE' ERROR SETS 8YMTB * 1 TO 


ASSI8T SYNTAX. ALL STATEMENTS 


0150* 


WITH 


A SEQUENCE NUMBER 


OF ZERO WILL BE COLLAPSED INTO A SINGLE 


0151* 


ERROR AND uNDER/OyERFLOwS IN NnMERICAL CONSTANTS ARE NUT 


0152* 


REPORTED, 








0153* 












0154** 






** 




0155*** OUTPUT TAPE 


MODE ERRORS *** 




0156** 






** 




0157* 












0156* 


UPON 


ENTRY ALL EMBEDDEt 


) ERRORS ARE STRIPPED FROM THE PROGRAM 


0159* 


AND STORED BELOW IT AS 


two.wqrd 1 


aUANTlTlES (THE LENGTh WORD 


0160* 


IS DROPPED), 


FOLLOWING THIS THE 


ERRORS ARE PRINTED ONE BY 


0161* 


ONE wITH LINE 


Numbers, 


AFTER PRINTING ALL ERRORS (OR, IP THE 


0162* 


USER 


ABqrTS THE Error PRINTING, , 


AFTER THE USER TYpES THE NEXT 


0163* 


line; 


1 EVERYTH 


tNG tS CLEANED UP AND A MES3AGE PRtNTED Tu SAY 


0164* 


THE LAST RECEIVEO INPUT HaS BEEN 


IGNORED. 


0165* 












01^6 


45233 


002400 


TAPER CLA 




FIRST 


0167 


45234 


051576 


CPA 


ERRCT 


ENTRY? 


0168 


45235 


027347 


JMP 


TAPES 


NO 


0169 


45236 


071575 


STA 


SYmTB 


YES, RESET 'OUT OF STORAGE' F^AG 


0170 


45237 


060056 


LDA 


PBPTR 


INITIALIZE 


0171 


45240 


071230 


ST* 


sPtr 




0172 


45241 


064702 


LDB 


PBUFF 


PROGRAM 


0173 


45242 


075514 


STB 


DEST 




0174 


45243 


075512 


STB 


SOURC 


POINTERS 


0175* 








* 




0176** STRIP OUT EMBEDDED ERRORS ** 




0177* 








* 




0178 


45244 


006004 


TAPEi I NB 




SET (B) 


0179 


45245 


060001 


LOA 


1 


TO FIRST WORD 


0180 


45246 


144001 


ADB 


til 


OF NEXT 


0181 


45247 


044351 


ADB 


,"1 


PROGRAM STATEMENT 


0182 


45250 


002004 


INa 




IS THE 


0183 


45251 


160000 


LDA 


0*1 


CURRENT STATEMENT 


0184 


45252 


010664 


AND 


OPMSK 


OF TYPE 


0185 


45253 


002002 


SZA 




'ERROR' ? 


0186 


45254 


027244 


JMP 


TAPE! 


NO 


0187 


45255 


06l5i2 


LUA 


SOURC 


YES, LOAD SOURCE ADDRESS 


0186 


45256 


075512 


STB 


SOgRC 


SET SOURCE TO NE* yALu£ 


0189 


45257 


044347 


ADB 


,•3 


JUXTAPOSED 


0190 


45260 


050001 


CPA 


1 


ERRORS? 


0191 


45261 


U27265 


JMP 


TAPE2 


YES, NO MOVE NEEDED 


0192 


45262 


051514 


CPA 


DEST 


NO, FIRST ERROR ENCOUNTERED? 


0193 


45263 


027360 


JMP 


TAPE6 


YES 


0194 


45264 


015500 


JSB 


MOVER 


NO, DELETE PRIOR ERROR(S) 


0195 


45265 


064056 


TAPE2 LDB 


PgPTR 


ENOUGH 
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Ml 96 


45266 


075500 


STB 


TAP0 




0197 


45267 


006004 


INB 




USER SPACE 


0198 


45270 


054462 


CPB 


lwaus 




0199 


45271 


027363 


JMP 


TAPE7 


70 TRANSFER 


0200 


45272 


006004 


INS 






0201 


45273 


054462 


CPB 


LWAUS 


ERROR? 


0202 


45274 


027363 


JMP 


TAPE7 


NO 


0203 


45275 


074056 


STB 


PBPTR 


YES, APPEND TWO WORDS 


0204 


45276 


164000 


LOB 


0,1 


TRANSFER 


0205 


45277 


175500 


STB 


TAP0,I 


LINE NUMBER 


0206 


45300 


035500 


ISZ 


TAP0 




0207 


45301 


040354 


ADA 


.♦2 


TRANSFER 


0206 


45302 


164000 


LOB 


0/1 


Error 


0209 


45303 


175500 


STB 


TAP0/I 


NUMBER 


0210 


45304 


065512 


LDB 


SOu«C 


RETRIEVE POIN T ER T StAtEMEN t 


0211 


45305 


003400 


CCA 




DECREMENT 


0212 


45306 


041576 


ADA 


ERRCT 


ERROR 


0213 


45307 


071S76 


STA 


ERRCT 


COUNTER 


0214 


45310 


002002 


SZA 




ALL ERRORS DELETED? 


0215 


45311 


027244 


JMP 


TAPfcl 


NO 


0216 


45312 


055230 


CPB 


SPTR 


YES, PROGRAM REMAINING? 


0217 


45313 


027317 


JMP 


TAPE3 


NO 


0218 


45314 


061512 


LDA 


SOURC 


Y ES, SLIDE UP 


0219 


45315 


065230 


LDB 


SPTR 


OVER LAST 


0220 


45316 


015500 


JSB 


MOVER 


ERROR(S) 


022U 








* 




0222** OUTPUT ERROR MESSAGES 


** 




0223* 








* 




0224 


45317 


063335 


TAPE3 LDA 


RETAD 


SET 


0225 


45320 


071474 


STA 


SErr 


RETURN ADOrEsS 


0226 


45321 


062005 


LDA 


WErrA 


FAKE 


0227 


45322 


042004 


ADA 


FERRA 




0228 


45323 


003004 


CMA, 


rINA 


•WARNING QNLY' 


0229 


45324 


071442 


ST A 


Lt5 


ErrOk mode 


0230 


45325 


007400 


TApE4 CCB 




force 


0231 


45326 


075444 


ST8 


LT6 


line number 


0232 


45327 


165230 


LDB 


SPTR, I 


MAKE LINE NUMBER OF 


0233 


45330 


075570 


STB 


.LNUM 


CURRENT ERROR ACCESSjBlE 


0234 


45331 


035230 


ISZ 


SPTR 


LOAD 


0235 


45332 


161230 


LDA 


SPTR, I 


ERROR NUMBER 


0236 


45333 


0064 B jj 


CLB 




EXIT TO 


02 3 7 


45334 


027450 


JMP 


SERR1+3 


ERROR PRINTER 


0238 


45335 


045336 


RETAD DEF 


♦♦1 




0239 


45336 


062004 


LOA 


FERRA 


RESTORE 


0240 


45337 


003004 


CMA, 


-INA 


'WARNING 


0241 


45340 


041442 


AqA 


LT5 


ONLY' 


0242 


45341 


071442 


STA 


LT5 


MODg 


0243 


45342 


035230 


ISZ 


SPTR 


MORE 


0244 


45343 


061230 


LDA 


SPTR 




0245 


45344 


050056 


CPA 


PBPtR 


ERRORS? 


0246 


45345 


002001 


RSS 




NO 


0247 


45346 


027325 


JMP 


TAPE4 


YES 


0246 


45347 


061514 


TAPE5 LDA 


DEST 


CORRECT POINTER TO 


0249 


45350 


070056 


STA 


PBPTR 


LAST WORD ♦! OF PROGRAM 


0250 


45351 


103100 


CLP 
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0251 
0252 
U253 
0254 
0255 
0256 

0257* 

0258 

0259 
0260 
0261 
0262 
0263 
0264 
0265 
to266 
0267 

026a 
0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279** 

0280** 

0281** 

0282* 

028.3* 

0284* 

0285* 

0286* 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 



45352 
45353 
45354 
45355 
45356 
45357 

45360 

4&361 
45362 
45363 

45364 
45365 
45366 
45367 
45370 
453/1 
45372 
45373 
45374 
453/5 
45376 
45377 
45400 
45401 
45402 
45403 
45404 



060353 

003000 

110257 
170257 
102100 
115147 

075514 

060001 
027265 
071474 

003004 
041514 
071500 
041230 
071230 
065512 
045500 
075512 
061474 
064056 
015500 
065514 
074056 
061512 
040347 
0/1514 
027266 



IDA TERR TURN 

CMA 

AND MAIN, J 

STA MAIN,! 

SIT 

J88 RERRS*33,I 



ERROR 
FLAG 
OFF 

EMU PARTING SHOT 



TaPE6 STb 
LDA 
JMP 

TAPE7 STA 
CMA 
ADA 
STA 
ADA 
STA 

LDB 
AOb 

STB 
LDA 

LDB 
JSB 

LDB 
ST8 
LDA 
ADA 
STA 
JMP 



* MOVE BLOCK TO LOWER 



DEST 

1 

TAPE2 

TAP1 
,INA 

DEST 

TAP0 

SPTR 

SPTR 

SOURC 

TAP0 

SOUKC 

TAPl 

PBPTR 

MOVER 

DEST 

PBPTR 

SOURC 

,»3 

DEST 

TAPE2*1 
** 
CORE *** 
** 



SET DESTINATION POINTER 

TO FIRST ERROR ENCOUNTERED 

SAVE SOURCE ADDRESS 
COMPUTE SIZE OF AREA 

TO BE RECLAIMED 
AND SAVE IT 
RESET POINTER TO 

LAST WORD *1 OF PROGRAM 
SET POINTER TO 

NEXT STATEMENT 
TO NEW VALUE 
RETRIEVE SOURCE ADDRESS 
RECLAIM 

SPACE 
SET NEW POINTER TO 

PROTECTED A «EA 
COMPUTE POINTER IU 

CorrENT ErrOr statement 
SET NEW DESTINATION POINTER 



UPON ENTRY (B 
(A) POINTS TO 
FIRST WORD OF 



) POINTS TO THE LAST WORD *1 FO BE MOVED AND 
THE FIRST WORD TO BE MOVED, DEST POINTS TO THE 
THE DESTINATION SPACE, 



45405 075474 #MQVE STB MVEND 

45406 164000 LDB 0,1 

45407 175514 STB DEST, I 

45410 035514 ISZ DEST 

45411 002004 INA 

45412 051474 CPA MVEND 

45413 125500 JMP MOVER, I 

45414 027406 JMP 0MOVE+1 



SAVE POINTER 
TRANSFER 

WORD 
BUMP 

POINTERS 
DONE? 
YES 
NO 



TO LAST WORD +1 
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0296** 
0297** 
0298** 
0299* 

0300* 
0301* 
0302* 
0303* 
0304* 
0305* 
0306* 

0307* 
0308* 

0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 

0323 
0324 

0325 

0326 

0327 

0328 

032j 

0330 

0331 

0332 

0333* 

0334** 

0335* 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 



** 



* OUTPUT AN ERROR MESSAGE *** 



** 



ERRORS ARE IDENTIFIED/ THE APP 
AND ThE MESSAGE PRINTED, IF A 
MODE, THE ERROR IS EMBEDDED IN 
STATEMENT AND THE ErrOr FLAGS 

syntax error and in 'key' mqoe 
requested, the error message 

TH A N a SIMPLE GARAGE RETURN, 
MESSAGE IS POSITIVE THE CURREN 



ROPRIATE SECTOR OF DRUM LOADED* 
SYNTAX ERROR AND IN 'TAPE' 
THE PROGRAM A3 A PSUEDO. 
ADJUSTED AS AppROpRlATE. IF A 
, 'ERROR' IS PRINTED AND INPUT 
IS PRINTED IF THE RePLY IS OTHER 

IF THE LENGTH WORD OF THE ERROR 
T LINE NUMBER IS APPENDED, 



45415 
45416 
45417 
45420 
45421 
45422 
45423 
45424 
45425 
45426 
45427 
45430 
45431 
45432 
45433 
45434 
45435 
45436 
45437 
45440 
45441 
45442 
45443 
45444 



003400 
041474 
160000 
042002 
010502 
071432 
042003 
071442 
002021 
027445 
060362 
110257 
002002 
027701 
006400 
075274 
063727 
071430 
060347 
015462 
060231 
114516 
015450 
027552 



#SERR 



PRINT THE MESSAGE 



45445 
45446 
45447 
45450 

45451 
45452 
45453 
45454 
45455 
45456 
45457 
45460 
45461 
45462 
45463 



061432 
006400 
075444 

1*1105 
075432 

042006 
164000 
061432 
001222 
001200 
010361 
040001 
064610 
103100 
074072 



SERR1 



CCA 


COMPUTE 


ADA SERR 




LDA 0,1 


AND SAVE 


AOA serra 




AND B777 


ERROR NUMBER 


STA LT3 




ADA RERRA 




STA LT5 


SYNTAX 


SS*f W 3S 


ERROR? 


JMP SERRl 


NO 


LDA TAPEF 


YES, TAPE 


AND MAIN, I 




SZA 


MODE? 


JMp SERR6 


YES 


CLB 


NO 


8TB LT2 


OUTPUT 


LDA ASCER 


'ERROR' 


STA LT1 


AND 


LDA ,„3 


WAIT 


JSB OUTST 


FOR 


LDA IWT 




JsB SCHlNfl 


Input, 


JSB GETCR 


CARRIAGE RETURN ONLY? 


JMp SERR4 

* 


YES 


** 




' * 




LOA LT3 


NO 


CLB 




STB LT6 


LOAD 


RRR 5 




STB LT3 


OCTANT 


AqA oSeRR 




LDB 0,1 


ADDRESS 


LDA LT3 


COMPUTE 


RAL/RAL 




RAL 




AND ,*7 


SECTOR 


ADA 1 




LDB D100 




CLF a 




STB WqrD 


READ 
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0351 


45464 


064544 


LOB ERSCA 




0352 


45465 


045036 


AOB FLGBT 


SECTOR 


0353 


45466 


114770 


JS8 DRUM,1 




10354 


45467 


060261 


LDA ENORM 




0355 


45470 


002020 


SSA 


DONE? 


0356 


45471 


027467 


JMP *«2 


NO 


0357 


45472 


002003 


SZA,RSS 


ANY ERRORS? 


0358 


45473 


027477 


JMp SERRB 


NO 


0359 


45474 


002400 


CUA 


YES, CLEAR DRUM DRjVER 


0360 


45475 


070261 


STA ENDRH 


BUSY WORD 


0361 


45476 


II6007 


JSB SICKUI 


AND GO DIE GRACEFULLY 


0362 


45477 


061442 


SfcRRB IDA LT5 




03 6 3 


4 55 00 


002021 


SSA,RSS 


EXECUTION ERROR? 


0364 


45501 


027625 


JMP SERR5 


YES 


0365 


45502 


002400 


CUA 


NO, OUTPUT 


0366 


45503 


015454 


JSB QUTCR 


A NULL. 


0367 


45504 


060343 


LDA ,-7 




0368 


45505 


071430 


STA LT1 


OUTPUT 


0369 


45506 


060412 


LDA ,440B 




0370 


45507 


015454 


JSB OUTCR 


7 


0371 


45510 


035430 


ISZ LT1 




0372 


45511 


027506 


JMp **3 


BLANKS, 


0373 


45512 


061432 


S t RR 2 LDA LT3 


COMPgrE 


0374 


45513 


001727 


ALF,ALF 




0375 


45514 


010402 


AND ,+308 


MESSAGE 


0376 


45515 


001200 


RAl 




0377 


45516 


040544 


ADA ERSCA 




0378 


45517 


071430 


STA LTl 


ADDRESS 


0379 


45520 


007400 


CC8 




0380 


45521 


160000 


LDA 0,1 




0^81 


45522 


002020 


SSA 


LINE NUMBER? 


U382 


45523 


027526 


JMP **3 


NO 


0383 


45524 


075444 


STB LT6 


YES, SET FLAG 


0384 


45525 


003004 


CMA,INA 




0385 


45526 


006400 


CLB 


OUTPUT 


0386 


45527 


075274 


STB LT2 


ERROR 


0387 


45530 


015462 


JSf> OUTST 


MESSAGE 


0388 


45531 


035444 


ISZ LT6 


LIN E NUMB E R FLAG S^T? 


0389 


45532 


027542 


JMP SERR3 


NO 


0390 


45533 


063733 


LDA LINEA 


yES 


0391 


45534 


071430 


STA LTl 


PRINT 


0392 


45535 


006400 


CLB 




0393 


45536 


060345 


LDA ,-5 


» JN LINE " 


0394 


45537 


015462 


JSB OUTST 




0395 


45540 


065570 


LDB ,LNUM 


OUTPUT 


0396 


45541 


015456 


JSB UUTIN 


LINE NUMBER 


3 97 


45542 


061442 


SERK3 LDA LT5 


'BAD 


0398 


45543 


042004 


ADA f-ERRA 




0399 


45544 


071442 


STA LT5 




0400 


46545 


042005 


AQA WfcRRA 


INPUT' 


0401 


45546 


002003 


SZa,RSS 


ERROR 


0402 


45547 


027563 


JMp SERR8 


YES 


0403 


45550 


060367 


LDA ,+15B 


OUTPUT 


0404 


45551 


015454 


JSB OUTCR 


CARRIAGE RETURN 


0405 


45552 


06^364 


SERR4 LDA +128 


OUTPUT 
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4406 
0407 
0406 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0416 
0419 
0420 

0421 
0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0446 

0449 

0450 

0451 

0452* 

0453 

0454 

0455 

0456 

0457 

0456 

0459 

0460 



45553 
45554 

45555 
45556 
45557 
45560 
45561 
45562 
45563 
45564 
45565 
45566 
45567 
45570 
45571 
45572 
45573 
45574 
45575 
45576 
45576 
45577 
45600 
45601 
45602 

45603 
45604 
45605 
45605 
45606 
45607 
45610 
45611 
45612 
45613 

45613 
45614 
45614 
45615 
45616 
45617 
45620 
45621 
45622 
45623 
45624 

45 6 25 
45626 
45627 
45630 
45631 
45632 
45633 
45634 



015454 
061442 
002020 
027614 
042005 
002020 
027565 
002400 
071572 
125474 
006400 
061761 
101101 
07U30 
061762 
003004 
071762 
006002 
027605 

161430 
001727 
010443 
015454 
035762 

002001 

027613 

161430 
010443 
015454 
035430 
035762 
027576 

015536 

103100 
160257 
030372 
170257 
102100 
06i502 
071552 
015560 
124514 

0$1442 
042004 
042005 
002021 
027645 
060257 
002004 
050255 



SEKR8 
3ERR9 



SER10 



SfcRll 



8ER12 
SER13 



JSB 
LDA 
SSA 
JMP 
ADA 

SSA 
JMP 
CLA 

STa 
JMp 
CLB 

LOA 

RRR 

STA 

LDA 

CMA, 

STA 

S2B 

JMP 

EQU 

LOA 

ALF, 

AND 

JS8 

ISZ 

RSS 

JMP 

EQU 

LDA 

AND 

JSB 

ISZ 

ISZ 

JMp 

EQU 
JSB 
EQU 
C L F 
LDA 
IOR 
ST A 
STF 
LDA 
STA 
JSB 
JMP 



OUTCR 
LT5 

SER13 
WERRA 

SERR9 

CHRCT 
SERR,I 

IFSTR 

1 

LT1 

NCH 
INA 
NCH 

8ER11 

* 

LT1,I 

ALF 

B377 

OUTCR 

NCH 

SER12 
* 

LU,I 
B377 

OUTCR 
LTl 

NCH 
SER10 

* 

OUTCL 

* 



MAIN, I 

UNABT 

MAIN, I 



FCNTR 

FRMAT 

LCDLP 

SCMEN,I 



SERR5 



LDA LT5 
ADA FERRA 
ADA wERRA 
SSA, RSS 
JMP SER5A 
LDA MAIN 
INA 
CPA PRJST 



LINE FEED 
RUN 

ERROR? 
YE8 
NO# WARNING 

ONLY? 
NO, FORMAT ERROR 
Y E8 



CONVERT 

CHARACTER 
SAVE POINTER 
SAVE 

NUMBER OF 
CHARACTERS 
START WITH RIGHT BYTE? 
YES 

FETCH 
LEFT 
CHAR 
OUTPUT IT 

FINISHED ALL CHARS? 
NO 
YES 

FETCH RIGHT 
CHARACTER 
OUTPUT IT 
BUMP POINTER 
FINISHED ALL CHARS? 
NO 

OUTPUT CR*LF 



DI3ALLOW 
ABORTS 

U PDATE LAST CHANGE DATE 



WARNING 
ERROR? 

YES 

NO, DOES USER 
HAVE LP? 
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OR NQUUNES 




0461 


45635 


002001 


RS8 




0462 


45636 


027645 


JMP 8ER5A 


NO 


0463 


45637 


060375 


LDA ,+230 


YES, 


0464 


45640 


015454 


JSB OUTCR 


RELEASE IT 


046b 


45641 


060376 


IDA ,+23B 




0466 


45642 


015454 


JSB OUTCR 




0467 


45643 


002400 


CLA 




0468 


45644 


070255 


STa prist 




0469 


45645 


060367 


SER5A LOA t *l5B 


OUTPUT 


0470 


45646 


015454 


JSB OUTCR 


CARRIAGE RETURN 


0471 


45647 


060364 


LOA ,4.126 


ANO 


0472 


45650 


015454 


JSB OUTCR 


LINE FEED 


0473 


45651 


002400 


CLA 


BLOCK 


0474 


45652 


170634 


STA OCLCifl 


CLOCK 


0475 


45653 


114534 


JSB ABCK,I 


CHECK For ABORTS 


0476 


45654 


160640 


L DA DC L C2,1 


UNBLOCK 


0477 


45655 


170634 


STA OCtCl,X 


Cj,ock 


0478 


45656 


061442 


LOA LT5 


warning 


0479 


45657 


042004 


ADA FERRA 




0480 


45660 


042005 


ADA wErrA 




0481 


45661 


002021 


S8A,RSS 


ERROR"? 


0482 


45662 


027512 


JMP SERR2 


YES 


0483 


45663 


060445 


LOA CH N FG 


NO 


0484 


45664 


003000 


CMA 




0485 


45665 


103100 


CLF 




0486 


45666 


110001 


AND 1,1 


CLEAR 


0487 


45667 


170001 


STA 1,1 


CHAIN FLAG 


0468 


45670 


102100 


S7F 




0489 


45671 


006004 


INB 




0490 


45672 


160001 


LOA l,i 


TELL 2114 


0491 


45673 


030230 


IOr UNr 


THAT USER Is 


0492 


45674 


114500 


JSB S14LP,I 


NO LONGER RUNNING 


0493 


45675 


060356 


LOA ,+4 


CLEAR pBFLG ANO CBFLG 


0494 


45676 


044351 


AOB ,.?TNUM 




0495 


45677 


015564 


JSB EDABR 


BITS, 


0496 


45700 


027512 


JMP 3ERR2 




0497 


45701 


064056 


SERR6 LOB PBPTR 




0496 


45702 


044354 


ADB ,42 


STORE 


0499 


45703 


0$1432 


LOA LT3 


ERROR 


0500 


457«4 


170001 


STA 1,1 


NUMBER 


0501 


45705 


006004 


INB 


SET PUINTER TO 


10502 


45706 


075574 


STB 8BPTR 


LAST WORD ♦! OF ERROR 


0503 


45707 


002003 


SZA,RSS 


•QUI OF STORAGE' ERROR? 


0504 


45710 


035575 


ISZ SYMTB 


YES 


05g5 


457n 


103100 


CLF 


NO 


0506 


45712 


160257 


LDA MAIN,! 


FIRST 


0507 


45713 


030353 


IOR TERR 




0506 


45714 


150257 


CPA MAIN, I 


ERROR? 


0509 


45715 


027721 


JMP **4 


NO 


0510 


45716 


170257 


STA MAjN,I 


yes—set flag 


0511 


45717 


002400 


CLA 


CLEAR 


0512 


45720 


071576 


STA ERRCT 


ERROR COUNTER 


0513 


45721 


102100 


STF 




0514 


45722 


035576 


ISZ ERRCT 


COUNT ERROR 


0515 


45723 


015452 


JSb bcksp 


SEEK 
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0516 
0517 
0518 
0519* 

0520 

0521 
0522 

0523 
0524 



0525 



45724 
45725 
45726 

45727 
45730 
45731 
45732 
45733 
45734 
45735 
45736 
45737 
45740 



015450 
124524 
027724 

045727 

005105 
051122 
047522 
045733 
020111 
047040 
0461H 
047105 
020000 



SfcRR7 



A3CER 
ERR 



LINEA 



J30 
JMP 
JMP 

UEF 
OCT 
A$C 

UEF 
ASC 



GETq« 
ACC3A, J 

*-2 

ERR-1 

5105 

2,RRQR 



CARRIAGE RETURN 



* 
4, 



IN LINE 



OCT 2^000 
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0002 
0003 
0004 
0005 
0006 

0087* 
0006* 

0009* 

0010* 

0011* 

0012 
0013 
0014 
0015 
0016 

m\7 

0016 
0019 

0020 
0021 

0022 
0023 

0024* 

0025 

0026 

002/ 

0026 

0029* 

0030* 

0031* 

0032 

0033 

0034 

0(335 

0036 

0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

\6V47 

0046 

0049* 

0050* 

0051* 

0052 

0053 



46000 
46000 
46001 
46002 
46003 



040512 
040450 
040375 
177713 



ENDIN 
MINP2 
MINPl 
D65 



ORG 
DEF 
DEF 
DEF 
OCT 



460006 

EIN12 

E1NP0*3 

EINPl 

•65 



** ** 

* EXECUTE <MAT STATEMENT ** 
** ** 



46004 

46005 

46006 

46007 

46010 

460U 
46012 

46013 
46014 
46015 
46016 
46017 
46020 
46021 
46022 



046323 
046325 
047212 
047215 
047227 
047220 
047232 
041433 

157733 

046016 

000000 
000000 
046021 
040000 
000002 



MLp2A 

MLP3A 

MADOA 

M3UBA 

SMULA 

IONA 

MCPYA 

TOLC 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEC 



MLQp2 

ML0P3 

MADD 

MSUB 

SMULT 

IDN 

mcpy 

♦ 1E-6 



46023 161613 

46024 010700 
4602b 002002 
46026 026206 



* IDENTIFY MATRIX 



F0 f 0A DEF F0„0 

F0,0 DEC 0,0 

F1.0A DEF Fl,0 

F1,0 DEC 1.0 



EMAT 



46027 

46030 
46031 
46032 
46033 
46034 
46035 
46036 
46037 
46040 
46041 
46042 
46043 
46044 
46045 
46046 
46047 



035613 
003400 
071472 

015554 
161613 
101111 
010734 
042003 
071314 
002026 
071312 
015506 

000000 

161613 

010700 
002003 
124556 



MIDI 



* PREPARE A MATRIX 

46050 001000 

46051 041575 



LDA TEMPI, I 


FIRST 


AND OPDMK 


OPERAND 


SZA 


NULL? 


JMP EMAT1 


NO 


w. 

** 

* 




I3Z TEMPI 




CCA 


CHECK 


8TA ELCNT 


FOR 


JSB EPRUS 


'MAT PRINT USING' 


LDA TEMPI, I 


COMPUTE AND SAVE 


RRR 9 


I/O TYPEJ 


AND 877 


Input » -2 


ADA D65 


READ ■ -1 


STA mTI 


PRINT » 


SSA,iNA,SZA 


SAVE FLAG 


STA M T0 


IF »INPUT' 


J3B V^Il 


PROCESS any 


NOP 


FILE REQUEST 


LDA TEMPI, I 


LOAD NEXT 


AND OPDMK 


IDENTIFIER 


SZA,RSS 


ZERO? 


JMP XEC1A,I 


YES 


OR I/O ** 




w 

ALS 


LOAD 


ADA SYMTB 


BASE ADDRESS 



PAGE 
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>17 MATRIX 


EXECUTION 




0054 


46052 


040351 


ADA ,»1 


Of- ARRAY 


0055 


46053 


164000 


LOB 0,j 




0056 


46054 


044350 


AD8 .«2 


SAVE POINTER TO 


0057 


46055 


075574 


STB SBPTR 


DYNAMIC DIMENSIONS 


0058 


46056 


061613 


LDA TEMPI 


LAST 


0059 


46057 


002004 


INA 


WORD OF 


0060 


46060 


051334 


CPA PRGCT 


STATEMENT? 


0061 


46061 


002400 


CLA 


YES 


0062 


46062 


160000 


LDA 0,1 


NO, LOAD (A) WITH 


0063 


46063 


010664 


AND OPMSK 


FOLLOWING OPERATOR 


0064 


46064 


065314 


LDB MT1 


MAT 


0065 


46065 


006003 


SZBrRSS 


Print? 


0066 


46066 


026121 


JMP MI02 


YES 


0067 


46067 


050622 


CPA L80P 


NO, • I* NExT OPERATOR? 


0066 


46070 


015470 


JSb redim 


YES, REDIMENSION aRRa* 


0069 


46071 


161574 


LDA SBpTRrl 


SET POINTER 


0070 


46072 


035574 


ISZ SBPTR 


TO FIRST ELEMENT 


0071 


46073 
46074 


100200 
101574 


MpY SBpTR, I 


OF ARRAY 


0072 


46075 


035574 


ISZ SBPTR 


WHILE COMPUTING 


0073 


46076 


003004 


CMA,INA 


NUMBER OF 


0074 


46077 


071509 


ST* mcnt 


ELEMENTS 


0075 


46100 


0034Q0 


CCA 


MAT 


0076 


46101 


051314 


CPA MT1 


READ? 


m77 


46102 


026110 


JMP MI09 


YES 


0076* 






* 




0079** INPUT VALUES FOR MATRIX ** 




0080* 






* 




0081 


46103 


035312 


ISZ MT0 


FIRST MATRIX TO BE INP 


0082 


46104 


002001 


R3S 


NO 


0083 


46105 


126002 


JMP MINP1,I 


YES 


0084 


46106 


041312 


ADA MT0 


RETRIEVE 


0085 


46107 


126001 


JMP MlNP2#I 


SAVED CHARACTER 


0086* 






* 




0087** READ VALUES FOR MATRIX ** 




0086* 






* 




0069 


46H0 


0064^4 MI09 CLB,INB 


FETCH 


0090 


46HI 


015362 


JSB FDAjA 


CONSTANT 


0091 


46112 
46113 


104400 
101574 


DST SBpTR,i 


STORE 


0092 


46114 


035574 


ISZ SBPTR 




0093 


46J15 


035574 


ISZ SBPTR 


IT 


0094 


46116 


035500 


ISZ MCNT 


DONE? 


0095 


46117 


026110 


JMP MI09 


NO 


0096 


46120 


026174 


JMP MI07 


YES 


0097* 










0098 


46121 


050614 MIU2 CPA B3000 


•/' FOLLOWING ARRAY? 


0099 


40122 


007400 


CCB 


YEs 


0100 


46123 


075500 


STB MCNT 


NO, TREAT AS COMMA 


0101 


46124 


065574 


LOB SBPTR 


VALIDATE 


0102 


46125 


015472 


JSB VCHK 


ARRAy ELEMENTS 


0103 


46126 


161574 


LDA SBPTR, I 


SAVE 


0104 


46127 


035574 


ISZ SBPTR 


COUNT 


0105 


46130 


003004 


CMA,INA 


OF 


0106 


46131 


071312 


STA HT0 


ROwS 
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0107 


46132 161574 




LPA 


S&PTRfl 




0106 


46133 035574 




ISZ 


S8PTR 




0109 


46134 065234 




LOB 


FILE* 


WRITE ON 


0110 


46135 006020 




SSB 




A FILE? 


0111 


46136 026151 




JMP 


MI03 


NO 


0112* 








* 




0113** WRITE MATRIX ON 


FILE 


** 




0114* 








* 




0115 


46137 100200 
46140 001312 




MPY 


MT0 


SET 


0116 


46141 071500 




STA 


MCNT 


ELEMENT CQONTER 


0117 


46142 064350 


MI04 


LOB 


,-2 


WRITE ELEMENT 


01ia 


46143 015512 




JSB 


FILST 


TO FILE 


0119 


46144 035574 




ISZ 


SBPTR 


MOVE TO 


0120 


46145 035574 




ISZ 


SBPTR 


NEXT ELEMENT 


0121 


46146 035500 




ISZ 


MCNT 


MATRIX OONE? 


0122 


46147 026142 




JMP 


MI04 


NO 


0123 


46150 026174 




JMP 


MI07 


YES 
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0125* 










* 




0126** WRITE MATRIX ON TELETYPE ** 




0127* 










* 




0126 


46151 


003004 


MI03 


CMA, 


-INA 


SAVE 


0129 


46152 


071625 




STA 


MT3 


COLUMN COUNT 


0130 


46153 


071624 


M1Q8 


STA 


MT2 


SET COLUMN COUNT 


0131 


46154 


026160 




JMP 


MJQ6 




0132 


46155 


002400 


MIQ5 


CIA 






0133 


46156 


051500 




CPA 


MCNT 




0134 


46157 


015430 




J$B 


EDELM 




0135 


46160 
46161 


104200 
101574 


MIQ6 


DLD 


SBPTR, I 


PRINT 


0136 


46162 


015420 




JS8 


ENQUT 


ELEMENT 


0137 


46163 


035574 




I3Z 


SBPTR 


MOVE TO 


0138 


46164 


035574 




137 


SBPTR 


NEXT ELEMENT 


0139 


46165 


035624 




ISZ 


MT2 


ROW UQNE? 


0140 


46166 


026155 




JMP 


MIQ5 


NO 


0141 


46167 


015426 




J88 


OUTLN 


YES, DOUBLE 


0142 


46170 


015426 




JSB 


OUTLN 


SPACE 


0143 


46171 


061625 




IDA 


MT3 




0144 


46172 


035312 




isz 


MT0 


MATRIX OONE? 


0145 


46173 


026153 




JMP 


MI08 


NO 


0146* 










* 




0147** CHECK FOR MORE MATRICES ** 




0148* 










* 




0149 


46174 


035613 


MI07 


ISZ 


TEMPI 




0150 


46175 


065613 




LOB 


TEMPI 


STATEMENT 


0151 


46176 


055334 




LPB 


PRGCT 


FINISHED? 


0152 


46 t 77 


02^202 




JMP 


**3 


YES 


0153 


46200 


071312 




STA 


MT0 


NO, SAVE (A) 


0154 


46201 


026044 




JMP 


MIOl 




0155 


46202 


064350 




LOB 


• "2 


MATRIX 


0156 


46203 


055314 




CPB 


MT1 


INPUT? 


0157 


46204 


126000 




Jmp 


ENDING 


YES 


0158 


46205 


124556 




JMp 


XEClA,I 


NO 


0159* 










* 




0160** PREPARE MATRIX ASSIGNMENT ** 




0161* 










* 




0162 


46206 


064556 


EMAT1 


LOB 


XEClA 


SET MAIN LOOP TO 


0163 


46207 


075364 




STB 


MEXjT 


STATEMENT EXjT MODE 


0164 


46210 


001000 




ALS 






0165 


4 6 211 


041 5 7 5 




ADA 


SYMTB 


COMPUTE 


0166 


46212 


040351 




AOA 


."1 


POINTER 


0167 


46213 


164000 




LOB 


0,1 


TO 


0168 


46214 


044350 




AOB 


,•2 


DESTINATION 


0169 


46215 


075574 




STB 


bsi 


MATRIX 


0170 


46216 


035613 




ISZ 


TEMPI 




0171 


46217 


161613 




LOA 


TEMPI, I 


MATRIX 


0172 


46220 


002020 




SSA 




Function? 


0173 


46221 


026455 




JMP 


EMAT6 


YES 


0174 


46222 


066004 




LOB 


MLP2A 


NO, SET OPERATION 


0175 


46223 


075340 


EMAT2 


STB 


MOP 


JUMP TO ^REPLACE' MODE 


0176 


46224 


035614 




ISZ 


TEMPI 




0177 


46225 


010700 




AND 


OPDMK 


SCALAR 


0176 


46226 


002003 




SZA, 


RSS 


MULTIPLICATION? 
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0179 

0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 

019b 
0196 
0197 

0198 
0199 

0200 
0201 
0202 
0203 
0204* 

0205* 

0206* 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

2 29 
0230 
0231 
0232 



46227 
46230 
46231 
46232 
46233 
46234 
46235 
46236 
46237 
46240 
46241 
46242 
46243 
46244 
46245 
46246 

462 4 7 
46250 
46251 
46252 
46253 
46254 
46255 
46256 
46257 



026445 
001000 
04157b 
040351 

164000 
044350 

075350 
015472 
061613 
051334 
026277 
161613 
010700 
001000 
041575 
040351 

164000 
044350 
075352 
0154 7 2 
161613 
010664 

050632 
026334 
100106 



JMP 
AlS 
ADA 
ADA 
LOB 
AD8 
STB 
JSB 

LDA 
CPA 
JMP 
LOA 
AND 
ALS 
ADA 
ADA 
LOB 
AOB 
STB 
JSB 
LDA 

AND 
CPA 
JMP 
RRL 



EMAT5 

SYMTB 

.-1 

0,1 

t " 

Bs2 

VCHK 

TEMPI 

PRGCT 

EMAT3 

TEMPI, I 

OPDMK 

SYMTB 

,-1 

0,1 
,■•2 
BS3 

VCHK 
TEMPI, I 

QPMSK 
MULOP 
EMAT4 
6 



* SET UP MATRIX ADD, SUBTRACT, OR 



46260 
46261 
46262 
46263 
46264 
46265 
46266 
46267 
46270 
46 2 71 
46272 
46273 
46274 
46275 
46276 
46277 
4g300 
46301 
46302 
46303 
46304 
46305 
46306 
46307 
46310 
46311 
46312 



066006 
002020 
066007 
075340 
065574 
160001 
151352 
006005 
115121 

035362 
164001 
155352 

002001 
115121 

035352 
161350 
151574 
002001 
115121 
035350 
035574 
100200 
101350 
165350 
155574 
003005 
115121 



EMaT3 



LDb 
SSA 
LDB 
STB 
LDB 
LOA 
CPA 

INBr 

JSB 

ISZ 

LDB 

CPB 

RSS 
JSB 

ISZ 

LDA 
CPA 
RSS 
JSB 
ISZ 
ISZ 
MPY 



madda 



MSUBA 

MOP 

BS1 

1,1 
BS3,I 

RSS 

RERRS+11,1 

BS3 

1,1 
B S 3,I 

RERRS+11,1 
BS3 
BS2,I 
BS1,I 

RERRS+11,1 

BS2 

BS1 

682,1 



YES 
NO 
COMPUTE 
POINTER 
TO FIRST 
SOURCE 
MATRIX 
VALIDATE ITS ELEMENTS 
END OF 

STATEMENT? 
YES 
NO 
COMPUTE 

POINTER TO 

SECOND 

SOURcfc MATRIX 
VALIDATE ITS ELEMENTS 

MATRIX 

MULTIPLICATION? 
YES 
NO 

* 
REPLACE ** 

* 

RECORD 

'MATRIX ADD' 

OR 'MATRIX SUBTRACT" 
OPERATION JUMP 



ROW 

COMPATIBILITY? 
YES 

NO 

COLUMN 

COMPATIBILITY? 
YES 

NO 

ROW 

COMPATIBILITY? 
YES 

NO 

compute number 
of matrix elements 



LDB BS 2 ,I COLUMN 

CPB BSi,I compatibility? 
cma,ina,rss yes 
jsb rerrs+11,1 no 
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0233 46313 071500 3Ta MQNT SaVE 2'3 COMPLEMENT OF SIZE 

0234 463I4 035350 ISZ BS2 

0235 46315 035574 ISZ BSl 
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% 



0237* 

0236** ASSIGN MATRIX VALUE 

0239* 
0240* 
0241* 
0242* 
0243* 
0244* 
0245 



* 
** 

* 



MOP HOLDS A POINTER TO CODE WH 
DESTINATION MATRIX AND RETURNS 
HOLDS THE EXIT ADDRESS SET BY 



0246 
0247 
0248 
W249 
0250 
0251 

02 5 2 

0253 

0254 

0255 

0256 

0257* 

0258* 

0259* 

0260 

0261 

0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0276 

0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0265 
0286 

0287 
0288 



46316 
46317 
46320 
46321 

46322 
46323 
46324 
46325 
46326 
46327 

4633<3 
46331 
46332 
46333 



104200 
101350 
125340 
035352 

035352 
035350 
035350 
104400 
101574 
035574 

035574 
035500 
026316 
125364 



MLOOP DLD BS2»I 

JMP MOP, I 
MLOP1 ISZ BS3 

ISZ bSj 
MLUP2 ISZ BS2 

IS/ BS2 
ML0P3 DST Bsl,I 



ISZ 
ISZ 
ISZ 

JMP 
JMP 



* COMPUTE MATRIX PRODUC 



46334 
46335 
46336 
46337 
46340 
46341 
46342 

46343 
46344 
46345 
46346 

46347 
46350 
46351 
46352 
46353 
46354 
46355 
46356 
46357 
46360 
46361 
46362 
46363 
46364 
46365 
46366 
46367 
46370 
46371 



16J5 7 4 

151350 
003005 

115121 
071634 
035574 
035350 
161350 
151352 
003005 
115121 

071635 
071636 

001000 
071632 
100200 
101574 
040354 
071633 
035352 
161574 
151352 
003005 
115121 
071637 
071640 
003004 

001000 

07 1541 
035574 



EMAT4 



LDA 
CPA 
CMA 
JSB 
S T A 

ISZ 
ISZ 
LDA 
CPA 
CMA 
JSB 
STA 
StA 
ALS 
STA 
MpY 



BS1 

BS1 

MCNT 

MLOOP 

MEXIT,I 
* 
T ** 
* 

B81,I 

BS2,I 
,INA,RSS 

RERRS+1 

MMj0 

BS1 

BS2 

BS 2 ,I 

B33,I 
,INA,RSS 

RERRS+i 

MMT1 

MMj2 

MMT6 
BSlrl 



ADA 

STA 

ISZ 

LDA 

CPA 

CMA, 

JSB 

STA 

STA 

CMA, 

ALS 

STA 

ISZ 



.♦2 

MMT7 

BS3 

BS1,I 

B83,I 

INa*RSS 

RERR3*1 

MMT3 

MMT4 
INA 

MMT5 
BS1 



ICH COMPUTES ONE ELEMENT OF THE 

IT IN (A) AND (B), MEXIT 
THE CALLER. 

LOAD ELEMENT OF SOURCE MATRIX 

JUMP TO OPERATION 

MOVE TO NEXT ELEMENT 

OF SECOND SOURCE MATRIX 

MOVE TO NEXI ELEMENT 

OF FIRST SOURCE MATRIX 

rECOrD element 

OF DESTINATION MATRIX 

AND MOVE TO NEXT ELEMENT 
DONE? 
NO 
YES 



DESTINATION MATRIX 

ROW COMPATIBILITY? 
YES 
1,1 NO 

SAyE ROW COyNTER 



INNtR PRODUCT 

COMPATIBILITY? 
YES 
1,1 NO 

SAVE INNER PRODUCT 

COuNyERS 
SAVE R W 

back up amount 
save Column 

BACK UP 

AMOUNT 

DESTINATION MATRIX 

COLUMN COnPATlBlLlTY? 

YES 
1,1 NO 

SAVE COLUMN 
COUNTERS 

SAVE COLUMN 
ADVANCE 
AMOUNT 

MOVE TO 
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0289 


46372 


035350 


ISZ 


BS2 


first element 


0290 


46373 


035352 


ISZ 


BS3 


OF MATRICES 


0291 


46374 


065352 


LDB 


BS3 


save first-element aooress 


0292 


46375 


075376 


STB 


MMT8 


OF SECONQ SOURCE MATRIX 


0293 


46376 
46377 


104200 
046016 


MPR1 OLD 


P0.0 


INITIALIZE DESTINATION 


0294 


46400 
46401 


104400 
101574 


DST 


BS1,I 


ELEMENT TO ZERO 


0295 


46402 
46403 


104200 
101350 


MPR2 DLD 


BS2fI 


COMPUTE 


0296 


46404 


035350 


ISZ 


bS2 


TERM 


K5297 


46405 


035350 


ISZ 


BS2 


OF 


0298 


46406 


015406 


JSB 


,FMP 


INNER 


0299 


46407 


101352 


UEF 


BS3,I 


PRODUCT 


0300 


46410 


015402 


JSB 


,FAt> 


add in PRfcVious 


0301 


46411 


101574 


DEF 


BSlfl 


RUNNING SUM 


0302 


464J2 
46413 


104400 
101574 


DST 


B5i,I 


SAVE RUNNING SUM 


0303 


464*4 


06535? 


LOS 


B33 


ADVANCE TO 


0304 


46415 


045641 


A 08 


MMT5 


NEXT ROW OF 


0305 


46416 


075352 


STB 


883 


SECOND SOURCE MATRIX 


0306 


46417 


035636 


ISZ 


MMT2 


INNER PRODUCT COMPLETE? 


0307 


46420 


026402 


JMP 


MPR2 


NO 


030a 


46421 


03S574 


ISZ 


BS1 


YES, MOVE TO NEXT 


0309 


46422 


035574 


ISZ 


BS1 


DESTINATION ELEMENT 


0310 


46423 


068635 


LOB 


MMfi 


reset inner product 


0311 


46424 


075636 


ST8 


MMT2 


TERM COUNTER 


0312 


46425 


035640 


is* 


MMy4 


rOW complete? 


0313 


46426 


026434 


JMP 


MPR3 


NO 


0314 


46427 


065637 


LDB 


MMJ3 


YES, RESET 


0315 


46430 


075640 


STB 


MMT4 


COLUMN COUNTER 


031e 


46431 


03 5 63 4 


ISZ 


MMT0 


DONE? 


0317 


46432 


026442 


JMP 


MPR4 


NO 


0318 


46433 


124556 


JMP 


XECIA,I 


YES 


0319 


46434 


065350 


MPR3 LO 8 


BS2 


BAcK UP 


0320 


46435 


045632 


AOB 


MMT6 


TO BEGINNING OF ROW OF 


0321 


46436 


075350 


STB 


BS2 


FIRST SOURCE MATRIx 


0322 


46437 


065352 


LOB 


8 8 3 


BACK gP tO BEGINNING 


0323 


46440 


045633 


AOB 


MMT7 


OF NEXT COLUMN 


0324 


46441 


002001 


RSS 




OF SECOND SOURCE MATRIX 


0325 


46442 


065376 


MPR4 LOB 


MMT8 


BACK UP TO FIRST ELEMENT 


0326 


46443 


075352 


STB 


6S3 




0327 


46444 


026376 


JMP 


MPRi 




0328* 










* 


0329** SET 


UP SCALAR MULTIPLICATION 


** 


0330* 










* 


0331 


46445 


015356 


EMAT5 JgB 


FE^CH 


COMPUTE AND 


0332 


46446 
46447 


104400 
001624 


D8T 


sca^r 


SAVE SCALAR 


0333 


46450 


035613 


ISZ 


TEMPI 


LOAD OPERATION JUMP 


0334 


46451 


035613 


ISZ 


TEMPI 


PROCESS 


0335 


46452 


I6I6I3 


LOA 


TEMPI, I 


FOLLOWING 


0336 


46453 


066010 


LOB 


SMULA 


MATRIX 


0337 


46454 


026223 


JMP 


EMAT2 




0338* 
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0339 


46455 


101104 


EMAT6 KKH 4 


COMPUTE 


0340 


46456 


010411 


AND ,*37B 


MATRIX 


0341 


46457 


040323 


Ada v *27b 


FUNCTION 


0342 


46460 


071516 


STA 100 


TYPE 


0343 


46461 


002021 


SSArRSS 


MATRIX INITIALIZATION? 


0344 


46462 


026521 


JMP EMAT8 


NO 


0345* 








* 


0346** SET 


up matrix initialization 


** 


0347* 








* 


0348 


46463 


065613 


LOB TEMPI 




0349 


46464 


006004 


INB 




0350 


46465 


055334 


cPb prggt 


REDIMENSIONINC? 


0351 


46466 


002001 


RSS 


NO 


0352 


46467 


015470 


J3B REOIM 


YES 


0353 


46470 


161574 


INVL LDA BS1,I 


COMPUTE 


0354 


46471 


071362 


STA ID1 


NUMBER 


0355 


46472 


035574 


ISZ Bgl 


OF ELEMEN TS 


0356 


46473 
46474 


100200 
101574 


MPY 8S1,I 


IN 2«S 


0357 


4^475 


003004 


CMA,INA 


COMPLEMENT 


035B 


46476 


071500 


STA MCNT 


SAVE IT 


0359 


46477 


035516 


isz 100 


'IDN' ? 


0360 


46500 


026512 


JMP EMAT7 


NO 


0361 


46501 


161574 


LDA B 8 1,I 


YES 


0362 


46502 


051362 


CpA ID1 


SQUARE MATRIX? 


0363 


46503 


003001 


Cma,rss 


YES 


0364 


46504 


115136 


J3B KERRS+24 


,1 NU 


0365 


46505 


071516 


STA 1D0 


SET 


0366 


46506 


003400 


CCA 


DIAGONAL 


0367 


46507 


071362 


STA ID1 


COUNTER 


0366 


46510 


0620H 


LDA IONA 


LOAD OPERATION JUMP 


0369 


46511 


026515 


JMp **4 




0370 


46512 


062005 


EMAT7 LDA MLP3A 


RECORO 


0371 


46513 


06602® 


LDB F1.0A 


CORRECT CONSTANT: 


0372 


465I4 


035516 


ISZ ID0 


0,0 FOR 'ZER» 


0373 


46515 


066015 


LDB F0.0A 


1,0 FOR «CON» 


0374 


46516 


075350 


STB B32 


0,0 Fqr «ID N ' 


0375 


46517 


071340 


STA MOp 


record operation jum p 


0376 


46520 


026315 


JMP MLOOP-1 




0377* 










0376 


46521 


035613 


EMAT8 ISZ TEMPI 


COMPUTE 


0379 


46522 


161613 


LDA TEMPI, I 




0300 


46523 


010700 


AND OFDMK 


POINTER 


0381 


46524 


001000 


ALS 




0382 


46525 


041575 


ADA SYMTB 


TO 


0383 


4652* 


040351 


ADA ,- t 




0384 


46527 


164000 


LDB 0,1 


SOURCE 


0385 


46530 


044350 


AOB ,.2 




0386 


46531 


075350 


STB B32 


MATRIX 


0387 


46532 


015472 


JSB VqHK 


VALIDATE IT 


0388 


46533 


165574 


LOB BSl'I 


LOAD DESTINATION ROW DIMENSION 


0389 


46534 


005000 


BLS 


SAVE COLUMN 


0390 


46535 


075637 


STB MMT3 


ADVANCE AMOUNT 


0391 


46536 


005100 


BRS 




0392 


46537 


035574 


ISZ BS1 
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k)393 
0394 
0395 
0396 
*J397 
0396 
0399 
0400 
0401 
0402 
0403 
0404 

0405 
0406 
0407 
0406 
0409 
04J0 
0411 
0412 
0413 
0414 
0415 
0416 
0417 

0001* 
0002* 
0003* 
0004 

0005 

0006 
0007 
0006 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016* 

0017* 

0018* 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 



46540 
46541 
46542 
46543 
46544 
46545 
46546 
46547 
46550 
46551 
46552 
46553 
46554 
46555 
46556 
46557 
46560 
46561 

46562 
46563 
46564 

46565 
46566 
46567 
46570 
46571 



161574 
151350 
003005 
115121 
071635 
071636 
035350 
155350 
007005 
115121 
075634 
100200 
001637 

035350 
065516 

006003 
026610 
040354 

071640 
035574 

026572 
065635 
075636 
065350 
045640 
075350 



IDA 

CPA 

CMA, 

J3B 

3TA 

STA 

132 

CPB 

CMB, 

J8B 

STB 

MPY 

I3Z 

LOB 

SZB, 

JMP 

ADA 

STA 

I3Z 

JMP 
TRN1 COB 
StB 
LOB 
AOB 
STB 
* 
* TRANSPOSE A MATRIX ** 



BSl f I 

BS2,I 

INA,HSS 

rErrs+11 

MMTj 

MMJ2 

B32 

BS2,I 

INB,RSS 

RERRS+11 

MMT0 

MMT3 

BS2 
100 
RSS 

INV 

.♦2 

MMT4 

Bsi 

TRN 

MMT1 

MMt2 

B32 

MMT4 

B$2 



46572 
46573 
46574 
46575 
46576 
46577 
46600 
46 6 01 
46602 
46603 
46604 

46605 
46606 
46607 



104200 
101350 
104400 
101574 
035574 
035574 
065350 
045 6 37 

07535"* 

035636 

026572 

035634 
026565 
124556 



TRN DLD BS2,I 

OST BSj,I 

I3Z BS1 

I3Z BSl 

LDB B32 

ADB MMT3 

STB BS2 

ISZ MM T 2 

JMP TRN 

ISZ MMT0 

JMP TRN1 

JMP XEC1A,I 



* INVERT A MATRIX ** 



46610 
466U 
46612 
46613 
46614 
46615 
46616 
46617 
46620 



064000 
001100 
071500 
061574 
071352 
061330 
040354 
071574 
003004 



INV 



* 

LOB 

ARS 

STA MCNT 

LOA BSl 

STA BS3 

lda tmpst 

AOA ,+2 
STA BSl 
CMAf INa 



ARE COLUMNS OP DESTINATION 
AND ROWS OF SOyRCE EQuAL? 

YES 
,1 NO 

SAVE DESTINATION MATRIX 
COLUMN COUNTERS 

ARE ROWS Of DESTINATION AnO 
COLUMNS Qf SOURCE EQUAL? 

YES 
,1 NO 

SAVE ROW COUNTER 

SAVE COLUMN BACK UP 



'TRN' ? 
NO 

YES# save column 

BACK UP AMOUNT 

FOR SOURCE MATRIX 

RESET 

COyN T ER 
BACK up TO 

FIRST ELEMENT 
OF NEXT COLUMN 



TRANSFER 
ELEMENT 



ADVANCE TO 
NEXT ELEMENT 
OF COLUMN 
COLUMN TRANSFERRED? 
NO 

YES, DONE? 
NO 
Y ES 



SAVE 2'S COMPLEMENT 
OF NUMBER OF 

ELEMENTS IN MATRIX 
SAyE AODRESS OF 

DESTINATION MATRIX 
SET AODRESS 
OF FREE CORE 

As BASE ADDRESS 
SUFFICIENT 
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002b 


46621 


040462 


ADA 


LWAUS 


FREE CORE 


0029. 


46622 


040001 


ADA 


1 


TO COpY 


0030 


46623 


003021 


CMA, 


>SSA,«S8 


SOURCE MATRIX? 


0031 


46624 


115120 


J S B 


RERRs*10, 


,1 NO 


0032 


46625 


040462 


ADA 


LWAUS 


YES, INCLUDE IT 


0033 


46626 


070056 


STA 


PBPTR 


IN SWAP AREA 


0034 


46627 


006400 


CL8 




SET 'MAXIMUM ELEMENT' 


0035 


46630 


075626 


STB 


MAXE 


VALUE TO 


0036 


46631 


075627 


STB 


MAXE+1 


ZERO 


0037 


46632 


062012 


IDA 


MCPYA 


SET UP TO 


0036 


46633 


071340 


STA 


MOP 


COPY MATRIX, 


0039 


46634 


062637 


IDA 


INVl 


FIND MAXIMgM (ABSOLUTE 


0040 


46635 


071364 


STA 


MEXIT 


VALUE} ELEMENT, 


0041 


46636 


026316 


JMP 


MLOUP 


AND RETURN 


0042 


46637 


046640 


INVl DEF 


*♦! 




0043 


46640 
46641 


104200 
001626 


DID 


MAXE 


COMPUTE 


0044 


46642 


015406 


J38 


,FMp 


RELATIVE 


0045 


46643 


046013 


DEF 


TOLC 


TOLERANCE 


0046 


46644 
4$$45 


104400 
001630 


DST 


TOL 




0047 


4664a 


003400 


CCA 






004(} 


4 66 4 7 


07l5l6 


STA 


ID0 


RESTORE 


0049 


46650 


041352 


ADA 


BS3 


DESTINATION 


0050 


46651 


071574 


STA 


BSl 


BASE ADDRESS 


0051 


46652 


003004 


CMA, 


,INA 


COMPUTE DIFFERENCE 


0052 


46653 


041330 


ADA 


TMPST 


BETWEEN BASE ADDRESSES 


0053 


46654 


003004 


CMA, 


rlNA 


OF SOURCE (COPIED) 


0054 


46655 


071352 


STA 


BS3 


AND DESTINATION 


0055 


46656 


062661 


LDA 


INV2 


MATRICES 


0056 


46657 


071364 


STA 


MEXIT 


SET DESTINATION MATRJX 


0057 


46660 


026470 


JMP 


INvL 


TO IDEN T I T Y AND RE-|uRN 


0058 


46661 


046662 


INV2 DEF 


♦ ♦1 




005 9 


46662 


065330 


LOB 


TMPST 


SAVE 


0060 


46663 


044354 


ADB 


.♦2 


BASE ADDRESS 


0061 


46664 


060001 


LDA 


1 


OF SOURCE 


0062 


46665 


075350 


STB 


Bs2 


MATRIX 


0063 


46666 


045352 


ADB 


BS3 


SAVE BASE A'JDrEss qF 


0064 


46667 


075574 


STB 


BSl 


Destination matrix 


0065 


46670 


006400 


CLb 




SET PIVOT ELEMENT 


0066 


46671 


075516 


ST8 


ID0 


BIAS TO ZERO 


0067 


46672 


026703 


JMP 


INV4 




0068 


46673 


061516 


INV3 LDA 


ID0 


SET BIAS 


0069 


46674 


040350 


ADA 


.-2 


FOR NEXT 


0070 


46675 


071516 


STA 


ID0 


PIVOT ELEMENT 


007 1 


46676 


061634 


LDA 


MMT0 


INITIALIZE COUNTER TO 


0072 


46677 


071636 


STA 


MM|2 


2'S COMPLEMENT OF COLuMN s 


0073 


46700 


061344 


LDA 


PIVEL 


UPDATE PIVOT 


0074 


46701 


041637 


ADA 


MMT3 


ADDRESS 


0075 


46702 


040354 


ADA 


.♦2 


TO NEXT 


0076 


467^3 


07i3 4 4 


INV4 STA 


PIVEL 


DIAGONAL ELEMENT 


^77 


46704 


071640 


STA 


MMj4 


INITIALIZE 


0078 


46705 


006400 


CLB 




pIVQT ELEME N T 


0079 


46706 


07.5626 


STB 


MAXE 


AS MAXIMUM 


0080 


46707 


075627 


STB 


MAXE+1 


IN COLUMN 
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0081 


46710 


065635 


LOB 


MMT1 


SET COUNTER TO sEArCH 


0082 


46711 


075641 


STB 


MMT5 


REMAINDER OF COLUMN 


0083 


46712 


071632 


INV5 STA 


MMT6 


LOAD 


0084 


46713 
46714 


104200 
101632 


D^D 


MMT6,j 


Element 


0085 


46715 


002020 


SSA 




GET 


0066 


46716 


015370 


J 3 B 


ARXNV 


ab s qlut£ 


0087 


46717 
46720 


104400 
001624 


DST 


SCAI.R 


VA^UE 


0086 


46721 


015404 


JSB 


.FSB 


SUBTRACT 


0089 


46722 


001626 


DEF 


MAXE 


PREVIOUS MAXIMUM 


0090 


46723 


002002 


SZA 




RESULT 


0091 


46724 


002020 


SSA 




POSITIVE? 


0092 


46725 


026734 


JMP 


1NV6 


NO 


0093 


46726 
46727 


104200 
001624 


OLD 


SCALP 


YES, RECORD 


0094 


46730 
46731 


104400 
001626 


DST 


MAXE 


NEW MAXIMUM 


0095 


46732 


061632 


LOA 


MMT6 


AND ITS 


0096 


46733 


07lg40 


STA 


MMT4 


LOCATION 


0097 


46734 


061632 


INy6 LDA 


MMT6 


MOyE TO NEXT 


0098 


46735 


04H37 


ADA 


MMT3 


ELEMENT OP COLUMN 


0099 


46736 


035641 


I3Z 


MMy5 


COLuMN OONE? 


0100 


46737 


026712 


Jmp 


INV5 


NO 


0101 


46740 


065344 


LOB 


PIVEL 


YES 


0102 


467^1 


04551^ 


AOB 


ID0 


SET POINTERS 


0103 


46742 


075633 


STB 


MMT7 


TO OLD 


0104 


46743 


045352 


AOB 


Bs3 


PIVOT rows of 


0105 


46744 


075641 


STB 


MMT5 


BOTH MATRICES 


0}06 


46745 


075362 


STB 


IDj 




0107 


46746 


061640 


LOA 


MMJ4 


NEED TO 


0106 


46747 


051344 


CPA 


PIVEL 


SWAP ROWS? 


0109 


46750 


027017 


JMP 


INV8 


NO 


0110 


46751 


041516 


ADA 


ID0 


Y ES, SET POINTERS 


0111 


4 6752 


071376 


STA 


MMT8 


TO NEW 


112 


46753 


041352 


ADA 


BS3 


PIVOT ROWS OF 


0113 


46754 


071632 


ST* 


MMx6 


BOTH MAtrICEs 


0114 


46755 
46756 


104200 
101641 


INV7 DtO 


MMT5,j 


SWAP 


0115 


46757 
46760 


104400 
001624 


DST 


SCALR 




0116 


46761 
46762 


104200 
101632 


OLD 


MMT6,I 


ROW 


0117 


46763 
46764 


104400 
101641 


DST 


MMT5»I 




0118 


46765 
46766 


104200 
001624 


OLD 


SCALR 


ELEMENT 


0119 


46767 
46770 


104400 
101632 


DST 


MMT6f I 




012« 


4677J 
46772 


104200 
101633 


OLD 


MMT7,I 


OF 


0121 


46773 
46774 


104400 
001624 


DST 


SCALR 




0122 


46775 
46776 


104200 
101376 


OLD 


MMTSrl 


EACH 
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0123 


46777 

47000 


104400 
101633 


DST 


MMT7,J 




0124 


47001 
47002 


104200 
001624 


DUO 


SCAUR 


MATRIX 


0125 


47003 
47004 


104400 
101376 


DST 


MMT8,I 




0126 


47005 


035641 


I3Z 


MMT5 


BUMP 


0127 


47006 


03&641 


ISZ 


MMT5 




0128 


470W7 


035632 


isz 


MMy6 


ALU 


0129 


47010 


035632 


ISZ 


MMT6 




0130 


47011 


035633 


I3Z 


MMT7 


FOUR 


0131 


47012 


035633 


ISZ 


MMT7 




0132 


47013 


03§376 


ISZ 


MMT8 


POINTERS 


0133 


47014 


035376 


ISZ 


MMf8 




kJl 3 4 


47015 


035636 


ISZ 


MMT2 


row swapped? 


0135 


47016 


026755 


JMP 


INV7 


NO 


0136 


47017 

47020 


104200 
001626 


INV8 DUD 


MAXt 


YES 


0137 


47021 


015404 


JSB 


,FSB 


pJVQT EUEmEnT 


0138 


47022 


001630 


DEF 


TOU 


SMAUUER THAN 


0139 


47023 


002020 


SSA 




touerance? 


0140 


47024 


115140 


J3B 


RERRs+26, 


1 YE S 


0141 


47025 
47026 


104200 
046021 


DUD 


Pl,0 


NO 


0142 


47027 


015410 


JSB 


.F'UV 


Compute 


0143 


47030 


101344 


DEF 


PIVEUrl 


INVERSE Of- 


0144 


47031 
47032 


104400 
001626 


DST 


MAXE 


PIVOT EUEMENT 


0145 


47033 


061635 


UDA 


MMTl 


UA8T 


0146 


47034 


002007 


INA, 


,SZA,RSS 


PIVOT? 


0147 


47035 


027053 


Jmp 


INV10 


YES 


k)148 


47036 


071641 


STA 


MMT5 


NO, PREPARE 


0149 


47037 


061344 


UDA 


PIVEU 


TO SCAUE 


0150 


47040 


071632 


STA 


MMT6 


PIVOT ROW 


0151 


47041 


035632 


INVg ISZ 


MMT6 


MOVE TO NEXT 


0152 


47042 


035632 


isz 


MMT6 


EUEMENT OP ROW 


0153 


47043 
47044 


104200 
101632 


DUD 


MMjO, I 


MuUTlpUY 


0154 


47045 


015406 


JS8 


,FMP 


«Y 1/PIVOT 


0155 


47046 


001626 


DEF 


MAXE 


ANO STORE 


0156 


47047 
47050 


104400 
101632 


DST 


MMt6,I 


NEW VAUUE 


0157 


47051 


035641 


isz 


MMT5 


RO W DONE? 


0158 


47052 


027041 


Jmp 


INV9 


NO 


0159 


47053 


061362 


INV10 LDA 


IDi 


YES 


0160 


47054 


071632 


STA 


MMT6 




0161 


47055 


061634 


UDA 


MMT0 


SET 


0162 


47056 


071636 


STA 


MMT2 




0163 


47057 


071641 


STA 


MMT5 


COUNTERS 


0164 


47060 
47061 


104200 
101632 


INV11 DUD 


MMT6,I 


gCAUE ELEMENTS OF 


0165 


47062 


002003 


SZA. 


rRSS 




0166 


47063 


027070 


JMP 


INVJ2 


PIVOT ROW 


0167 


47064 


015406 


JSb 


,FMP 




0168 


47065 


001626 


DEF 


MAXE 


OF DESTINATION 
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0169 


47066 
47067 


104400 
101632 


DST 


MMT6,I 




0170 


47070 


035632 


INV12 ISZ 


MMT6 


MATRIX 


0171 


47071 


035632 


I8Z 


MMT6 




0172 


47072 


035641 


ISZ 


MMT5 


ROW DONE? 


0173 


47073 


027060 


JMP 


INVU 


NO 


0174 


47074 


065574 


LOB 


BS1 


YES, SET POINTER tO 


0175 


47075 


075400 


8TB 


VT0 


DESTINATION ARRAY 


0176 


47076 


061350 


LOA 


BS2 


SET PUINTER 


0177 


47077 


003004 


CMA, 


rlNA 


TO pivot column 


0178 


47100 


041516 


ADA 


ID0 


IN FIRST ROW 


0179 


47101 


003004 


CmA ( 


-ina 


OF SOURCE 


0160 


47102 


071376 


INV13 STA 


MMT8 


MATRIX 


0181 


47103 


051344 


CPA 


pivel 


PIVOT ROW? 


0182 


47104 


027206 


JMP 


INV19 


YES 


0183 


47105 


071633 


STA 


MMT7 


NO 


0184 


47106 
47107 


104200 
101633 


DUD 


MMT7,I 


LOAD MULTIPLIER FOR plVOT ROW 


0185 


47110 


002003 


SZAj 


.R3S 


ZERO? 


0186 


47111 


027206 


JMP 


INV19 


YES 


0187 


47112 
47113 


104400 
001624 


DST 


SCAUK 


no, save multiplier 


0188 


47114 


061635 


IDA 


MMTl 


last 


0189 


47115 


002007 


INA, 


-SZA,RSS 


ROw? 


0190 


47116 


027144 


JMP 


INV15 


YES 


0191 


47117 


071641 


STA 


MMT5 


NO. SET POINTER TO 
PIVOT ELEMENT IN 


0192 


47120 


061344 


lda 


PIV£U 


0193 


47121 


071632 


STA 


MMT6 


SOURCE MATRIX 


0194 


47122 


035632 


INV14 I8Z 


MMT6 


MOVE 


0195 


47123 


035632 


I3Z 


MMT6 


TO 


0196 


47124 


03ge33 


ISZ 


MMT7 


NEXT 


0197 


47125 


035633 


isz 


MMT7 


COLUMN 


0198 


47126 
47127 


104200 
001624 


DUD 


SCALR 


Cq m PUTE 


0199 


47130 


015406 


J3B 


t^MP 




0200 


47!31 


101632 


DEF 


MMT6,I 




0201 


47132 
47133 


104400 
001626 


DST 


MAXE 


TRA n sFqrMED 


0202 


47134 
47135 


104200 
101633 


DUD 


MMT7,I 




0203 


47136 


015404 


J8B 


,F8B 




0204 


47137 


001626 


DEF 


MAXE 


ELEMENT 


0205 


47140 
47141 


104400 
101633 


DST 


MMT7,I 




0206 


47142 


035641 


isz 


MMT5 


RO w DONE? 


0207 


47143 


027122 


JMP 


INV14 


NO 


0208 


47144 


061362 


INV15 LDA 


ID! 


YES, SET POINTER TO PlVoT 


0209 


47l45 


071632 


STA 


MMT6 


ROW OF DESTINATION MATRIX 


0210 


4 7 146 


061634 


LDA 


MMT0 


SET 


0211 


47147 


071640 


STA 


MMT4 


COUNTER 


0212 


47150 
47151 


104200 
101632 


INyl6 DUD 


MMT6, I 


Compute 


0213 


47152 


002003 


SZA, 


>RSS 




0214 


47153 


027166 


JMP 


INV17 




0215 


47154 


015406 


J38 


# FMP 
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0216 
0217 

0218 

0219 
0220 
0221 

0222 
0223 
H224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242* 

0243** 

0244* 

0245 

0246 

0247 

0248* 

0249 

0250 

0251 

0252* 

0253 

0254 

0255 

0256 

0257 

0256 

0259* 

0260 

0261 

0262 

0263* 

0264 
0265 
id266 



47155 
47156 
47157 
47l6tf 
47161 
47162 
47163 
47164 
47165 
47166 
47167 
47170 

47171 
47172 
47173 
47174 
47175 
47176 
47177 
47200 
47201 
47202 
47203 
472tf4 
47205 
47206 
47207 
47210 
47211 



001624 
104400 
001626 
104200 
101400 
015404 
001626 
104400 
101400 
035400 
035400 
035632 
035632 
035640 
027150 
061376 
041637 
035636 
027102 
035635 
026673 
061330 
040401 
070056 
124556 
061400 
041 6 37 
071400 
027174 



DEF SCAlK 
D8T MAXE 

DID VT0#I 

JSB .FSB 
DEF MAXt 
DST VT0,I 



TRANSFORMED 



INV17 



INV18 



INV19 



ISZ 
ISZ 
ISZ 
ISZ 
ISZ 

Jmp 

IDA 
ADA 

I»2 
JMp 

ISZ 

JMP 
LDA 

ADA 
STA 
JMP 
LDA 
ADA 

STA 
JMP 



VT0 
VT0 
MMT6 

MMT6 

MMj4 

INV16 

MMT6 

MMT3 

MMT2 
INV13 

MMTj 

INV3 

TMPST 

.♦23 

PBPTR 

X«1A,I 

VT0 

MMT3 

VT0 

INVjS 



CODE TO COMPUTE AN ELEMENT 



* 

** 

* 



47212 
47213 
47214 



015402 
101352 
026321 



47215 015404 

47216 101352 

47217 026321 



4 7 220 
47221 
47222 
47223 
47224 
47225 
47226 



035362 
026325 
061516 
071362 

104200 
046021 
026325 



MADD 



MguB 



ION 



JSB ,FAD 
DEF BS3,I 
JMP MLOPl 

J 8 b ,FSB 
DEF BS3,I 
JMP MLOPl 



ISZ 

JMP 
LDA 
STA 
DLD 



ID1 

ML0P3 
ID0 
ID1 
F1.0 



47227 015406 

47230 001624 

47231 026323 



smuLt 



JMP MLOP3 

JS8 ,FMP 

DEF SCALR 

JMP ML0P2 



47232 *>02 20 MtPY SSA 

47233 015370 J3B ArINV 

47234 104400 DST SCA^R 



Element 



move 

TO 

next 
column 

ROW DONE? 

NO 

YES, MOVE TO NEXT 

ROW IN SOURCE MATRIX 
ALL ROWS TRANSFORMED? 

NO 

YES, MATRIX INVERTED? 

NO 
YES 

RELEASE EXTKa 
CORE 

ADVANCE TO 
NEXT ROW OF 
DESTINATION 
MATRIX 



ADD 

SOURCE 
ELEMENTS 

SUBTRACT 
SOURCE 
ELEMENTS 

DIAGONAL ELEMENT? 

NO 

yEs, kEsEt 

diagonal Counter 

LOAD 

1.0 

MULTIPLY 

SOURCE ELEMENT 
BY SCALAR 

GET 

ABSOLUTE 

VALUE 
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0267 
0268 
ld269 
0270 
0271 
0272 

0273 
0274 



47235 
47236 

47237 
47240 
47241 
47242 
47243 
47244 
47245 
47246 
47247 
47250 
47251 



001624 
015404 
001626 
002002 
002020 
027247 
104200 
001624 
104400 
001625 
104200 
101350 
126004 



SUBTRACT 
PREVIOUS 
MAXIMUM 
POSITIVE RESULT? 
NO 

YES, record 

NEW MAXIMUM 
RELOAD VALUE 



0275 
0276** 

0277*** CHECK VALI 

0278** 

0279* 

0200* 

0281* 

0282* 

0263* 

0284 

0285 

0286 

M287 



ENTER WITH ( 
COMPUTE THE 
TO ERROR IF 



0288 
0269 
0290 
0291 
0292 
0293 

0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 

0302 
0303 
0304 
0305 
0306 
0307 



47252 
47253 
47254 
47255 
47256 
47257 

47260 
47261 
47262 
47263 
47264 
47265 
47266 
47267 
47270 
47271 
47272 
47273 
47274 
47275 
47276 
47277 
47300 
47301 
47302 



160001 
006004 
075400 
100200 

101^00 
065400 

003000 
071400 
035400 
006005 
125472 
160001 
001222 
002004 
001310 
027301 
051036 
000005 
115135 
1&000J 
002002 
115135 
027262 
006004 
027262 



JSB ,F3B 

OEF MAxE 

SZA 

S3 A 

JMP MCPY1 

OlO SCAlR 

DST MAXE 

MCPYj OLD 832*1 

JMP MLP2A,l 
** 
DITY OF MATRIX *** 

** 



0) POINTING TO THE DYNAMIC ARRAY DIMENSIONS, 
NUMBER OF ELEMENTS AND CHECK EACH ONE, EXIT 
ANY ELEMENT HAS VALUE 'UNDEFINED', 



#VCHK 



VCHK1 



VCHK2 



LDA 1,1 


LOAD ROW DIMENSION 


INB 




STB VT0 




HpY VT0fI 


MULTIPLY BY 


LDB VT0 


COLUMN DIMENSION 


CMA 


SAVE l'S COMPLEMENT 


STA VT0 


OF MATRIX SIZE 


ISZ VT0 


DONE? 


INB>R3S 


NO, MOVE TO NEXT ELEMENT 


JMP VCHK,I 


YES 


LDA 1,1 




RAL,RAL 


13 


INA 


OPERAND 


RAR,SLA 


NORMALIZED? 


JMp VCHK2 


YES 


CPA BIT15 


MAYBE, WAS FIRST WORD Zfc 


INBfR38 


YES 


JSB RERRS+23, 


I NO*»*ERR0H 


LDA i,I 


SECOND 


SZA 


WQRD ZERO? 


JSB RERRS+23, 


,1 NQ*«ERROR 


JMP VCHK1 




INB 




JMp VCHK1 
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0309** 

6)310** 

0311** 

0312* 

0313* 

0314* 

0315* 

0316* 

0317* 

0318* 

0319* 

0320* 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 
0333 
0334 

0335 
0336 
0337 
0338 

0339 
0340 
0341 
0342 
0343 
0344 

0345 
0346 
0347 
0348 

0349 

0350 
0351 
0352 
0353 
0354 



** 



* REDIMEN3I0N A MATRIX *** 



** 



UPON ENTRY (TEMPi)*i POINTS TO THE REDIMENSIQN SUBSCRIPT IN 
THE PROGRAM AND SBPTR POINTS TO THE CURRENT DYNAMIC DIMENSIONS 



of the array, 
a n d recorded, 
physical array 
word following 
exit to error. 



THE SUBSCRIPT BOyNDS ARE EVALUATED, ROuNDtD, 
IF THE nUmBER QF ELEMENTS IS WITHIN THE 
ALLOWANCE, EXIT WITH TEMPI POINTING TO ThE 
THE SUBSCRIPT a*D SflPTR a S UPON ENTRY, ELSE 



47303 
47304 
47305 
47306 
47307 
47310 
47311 
47312 
47313 
47314 
47315 
47316 
47317 
47320 

47 3 21 
47322 
47323 
47324 
47325 

4 7 32 6 
47327 
47330 
47331 
47332 
47333 

47334 
47335 
47336 
47337 
47340 
47341 
47342 
47343 
4 7 344 
47345 
47346 



035613 
015356 
015342 
115127 
006004 
175574 
075472 
035574 
165613 
006003 
027321 
015356 
015342 
115127 

006004 
175574 
061472 
100200 
101574 
00$003 
003025 
115137 
071472 
065574 
044347 
160001 
006004 
075574 
100200 
101574 
035574 
041472 
002020 
115137 
035613 
125470 



#RDIM ISZ TEMPI COMPUTE NEW 

JSB FETCH ROW DIMENSION 

JSB SBplX 15 BIT INTEGER > 0? 

JSB RERRS*l7,i NO 

INB YES, SAVE 

STB SBPTR,I TRUE VALUE 

STB RD0 In ARRAY 

ISz SBPTR ENTRy 

LDB TEMPI,! EXPLICIT NEW 

SZB,RSS COLUMN 0IMENS10N? 

JMP RDIMl NO 

JSB FETCH YES, 

JSB SBFIX COMPUTE 

JSB RERRS*17,I IT 

RDIMl INB SAVE TRUE VALUE 

STB SBPTR, I IN ARRAY fcNTRY 

LUA RD0 COMPUTE 

MPY SBPTR,I NUMBER OF 

SZB,RSS ELEMENTS 

CMA,SSA,INA,RSS SPECIFIED 
JSB RERRS*25,I TOO MANY 
STA RD0 

RESET 

ARRAY POINTER 
AND COMPUTE 
NUMBER OF 
ELEMENTS 
AVAILABLE 



t.DB SBpTR 

ADB «"3 

LDA 1,1 

INB 

STB SBPTR 

MpY SBpTR,! 



ISZ SBPTR FOR ARRAY 

ADA RD0 SUFFICIENT 

SSA PHYSICAL SPAQfc? 

JSB RERRS+25,1 NO 

ISZ TEMPI YES 

JMP REDIM,! 
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0002 
0003 
0004 
0005 
0006 
0007 

0008 

0009 

0010 

0011** 

0012** 

0013** 

0014* 

0015* 

0016* 

0017* 

0013* 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029* 

0030 

0031 

0032** 
0033** 
0034** 
0035* 

0036* 

0037* 

0038* 

0039* 

0040* 

0041* 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 



50000 
50000 
50001 
50002 
50003 
50004 
50005 
50006 
50007 



174000 
052467 
001616 
000112 
000113 
177670 
177666 
176030 



HMA8K 

lcau 

NMBFA 

,74 

,75 

MM72 
MM74 
M1000 



PRINT A NUMBER 



ORG 
OCT 
OEF 
DEP 
DEC 
DEC 
DEC 
DEC 
DEC 
** 
*** 
** 



50000B 
174000 

LlS10»l 
NUMBF 

74 
75 
-72 
.74 

»1000 



ENTER WITH A FLOATING POINT NUMBER IN (A) AN0 (B), PRINT THE 
NUMBER AND APPEND BLANKS TO REACH THE PRINT POSITION SPECIFIED 
BY -EuPF ON RETURN FROM NUfiOT, 



50010 
50011 
50012 

50013 
50014 

50015 
50016 
50017 

50020 
50021 



002300 
015422 
026015 

0604J2 
015454 

065460 

045572 

006002 

026013 
125420 



#ENOT 



CCE 


ENABUE SIGN 


j$B NUMOT 


OUTPUT NUMBER 


JMP **3 




IDA .+40B 


OUTPUT 


JSB OUTCR 


A BLANK 


LOB EOPF 


FIELD 


ADB CHRCT 




SZB 


FULL? 


JMP *«5 


NO 


JMP fcNOUT,! 


YES 



MINFX QE C ^0,099999959 
MAXFX DEC »999999t5 



50022 114631 

50023 116373 

50024 102756 

50025 002050 

** 
r OUTPUT A NUMBER *** 

** 

ENTER WITH A FLOATING POINT NUMBER IN (A) AND (B) AND CE) » 

IF A SIGN IS WANTED, DETERMINE THE FORM OF THE NUMBER AND 

SE T £OPF ACCORDINGLY, NON-IN T EGERS ARE ROuNDED AFtER CONVERSION 

Tu DECIMAL, TRAILI N G ZFRoS ARE SUPPRESSED ON NUMBERS *ITH UT 

EXPONENTS (AND ON NUMBERS W X TH EXPONENTS iF CALICO FROM 'LlST'J, 



1 



50026 
50027 
50030 
50031 

50032 
50033 

50034 
50035 

50036 
50037 
50040 
50041 
50042 



071616 

002041 
026042 
002021 
026037 
015370 
071616 
060427 
002001 
060412 
071266 
061616 
075617 



#NMOT 



NUMOl 



STA NUMBF 


SAVE HIGH MANTISSA 


sEz# R ss 


glSN? 


JMP NUMOl 


NO 


SSAfRSS 


YES, NEGATIVE NUMBER? 


JMP **5 


NO 


JSB ARI N V 


YES, N EGATE NUMBER 


STA NUMBF 


SAVE HIGH MANTISSA 


LDA ,*55B 


LOAD '„' 


RSS 




LDA ,*40B 


Lo*D »♦• 


STA SIGN 


SAVE SIGN 


LOA NUMBF 


RETRIEVE HIGH MANTISSA 


STB NUMBF*! 


SAVE LOW MANTISSA 
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0055 


50043 


015416 


JSB IFIX 


INTEGER? 


0056 


50044 


026070 


JMP NUM02 


NO 


0057 


$0045 


102201 


80C 


YES, 16*BIT INTEGER? 


005ti 


50046 


026070 


JMP NUM02 


NO 


0059* 






* 




14060** OUTPUT AN INTEGER 


** 




0061* 






* 




0062 


50047 


075616 


STB NUMBF 


SAVfc INTEGER 


0063 


50050 


046007 


ADS M1000 




0064 


50051 


060360 


LOA ,*6 




0065 


50052 


006021 


SS8 r RSS 


3 DIGIT INTEGER? 


0066 


50053 


040355 


ADA ,+3 


NO 


0067 


50054 


041572 


ADA CHRCT 


COMPUTE END-OF,FIELD 


0068 


50055 


003004 


CMA,INA 


SAVE 


0069 


50056 


071460 


8TA EOPF 


IT 


0070 


50057 


042003 


AOA ,74 


ENOUGH 


0071 


50060 


002020 


S8A 


ROOM? 


0072 


50061 


015426 


JSB OUTLN 


NO 


0073 


50062 


061266 


IDA SIGN 


YES 


0074 


50063 


002002 


SZA 


SIGN? 


0075 


50064 


015454 


JSB OUTcR 


YES, OUTPUT IT 


0076 


50065 


065616 


LDB NUMBF 


NO 


\d&77 


50066 


015456 


JSB OUTIN 


OUTPUT THE INTEGER 


0078 


50067 


125422 


JMP NUMOT,I 




0079* 








• 


0080** OUTPUT A FLOATING 


POINT NUMBER 


** 


0081* 








* 


0082 


50070 


060350 NUM02 


LOA ,„2 


SET iPIXEDi 


00g3 


50071 


071336 


STA FFLAG 


FLAG FALSE 


0084 


50072 
50073 


104200 
001616 


OLO NUMBF 


LOAD NUMBER 


0085 


50074 


015402 


JSB ,FAO 


IS NUMBER 


0066 


50075 


050024 


OEF MAXFX 


LESS THAN 


0087 


50076 


002021 


SSA,RSS 


999999,5 ? 


0088 


50077 


026106 


JMP NUM03 


NO 


0089 


50100 
50101 


104200 
001616 


OLO NUMBF 


YES, IS 


0090 


50102 


015402 


JSB ,FAD 


NUMBER 


0091 


50103 


050022 


DEF MINFX 


LESS THAN 


0092 


50104 


002021 


SSA,RSS 


0,09999995 ? 


0093 


50105 


035336 


ISZ FFLAG 


NO, SET 'FIXED' FLAG TRUE 


0094 


50106 
50107 


104200 NUM03 
001616 


OLD NUMBF 


LOAD NUMBER 


0095 


50U0 


071316 


STA MANT1 


UNPACK 


0096 


50111 


015414 


JSB t FLUN 




0097 


50U2 


075320 


STB MANT2 


NUMBER 


0098 


50113 


071322 


SjA EXP 




0099 


50114 


002400 


CLA 


INITIALIZE 


0}00 


50115 


071324 


STA EXPQN 


DECIMAL EXPONENT 


0101 


50116 


051322 


CPA EXP 


ZERO EXPONENT? 


0102 


50117 


026141 


JMP NUM05 


YES 


0103 


50120 


015300 NUMO0 


JSB MBY10 


NO 


0104 


50121 


061322 


LOA EXP 


MULTIPLY 


0105 


50122 


003026 


CMA, SSA,INA, 


SZA NUMBER BY 10 


0106 


50123 


026126 


JMP *+3 


UNTIL IT IS 
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0107 
0108 
0109 
0110 
0111 

0112 
0113 
0114 
0115 
0116 
0117 

0118 
0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126* 

0127* 

0128* 

0129 

0130 

0131 
0132 
0133 
0134 
0135 
0136 

0137 

0138 

0139* 

0140* 

0141* 

0142 

0143 

0144 
0145 
0146 
0147 
0148 
0M9 
0150 
0151 
0152 
0153 
0154 

0155 
0156 
0157 
0158 
015g 
0160 
0161 



50124 
50125 
50126 
50127 
50130 
60131 
50132 
50133 
50134 
50135 
50136 
50J37 
50140 
50141 
50142 
50143 
50144 
50145 
50146 



035324 

026120 
015302 
061324 
065322 
007004 
006021 
026141 
071324 
015302 
003400 
041324 
026130 
003000 
071324 
064344 
075356 
066002 
075362 



ISZ 

JMP 

jsb 

IDA 

NUM04 ldb 

CMB, 
S3B, 
JMP 
8TA 
JSB 
CCA 
ADA 
JMP 
NUM05 CMA 
STA 
LDB 
STB 
LOB 
STB 



EXPON 

NUMO0 

DBY10 

EXPON 

EXP 

INB 

RSS 

NUMQ5 

EXPON 

DBY10 

EXPON 
NgMQ4 

EXPON 
,*6 

DIGCT 
NMBFA 
NMPTR 



* CONVERT MANTISSA TO ASCII 



* 
** 



50147 015424 N0M06 JSB GETOG 

50150 040432 AOA ,*60B 

50151 171362 STA NMPTR, I 

50152 035362 ISZ NMPTR 

50153 035356 IsZ DICCT 

50154 02&147 JMP NUM06 

50155 015424 J8B GEToG 

50156 040345 AOA .*S 

50157 00£020 SSA 

50160 026201 JMP NUM09-U 



* ROUND ASCII MANTISSA ** 



50161 
50162 

50163 
5«Jl64 
50165 
50166 
50167 
50170 
50171 
50172 
50173 
50174 
50175 
50176 
50177 
50200 
50201 
50202 
50203 
50204 



065362 
044351 
160001 
002004 
050436 
002001 
026200 
056002 
026175 
060432 
.170001 

026162 
035324 
000000 
060433 
170001 
061324 
002021 
026221 
071360 



LDB 
NUMQ7 AU8 
LOA 
INA 
CpA 
RSS 
JMP 
CPB 
JMP 
LOA 
STA 
JMP 
NUM08 ISZ 
NOP 
LOA 
NUM09 STA 
LOA 
SSA, 
JMP 
STA 



* 
NMPTR 
t«l 
1,1 

.58 

NUM09 
NMBFA 
NUM08 
.♦60b 

1,1 

NUM07 
EXPON 

.♦6tB 

1,1 

EXPON 

RSS 
NMOll 

NMTMP 



GREATER 
THAN \ 
DIVIDE BY 10 

DIVIDE 
NUMBER 
BY 10 
UNTIL 
IT IS 
LESS 
THAN 

1 

SET EXPONENT 

TO TRUE VALUE-1 
SET OIGlT 

COUNTER 
SET BUFFER 

POINTER 



STORE A 
DECIMAL 
DIGIT 

SIXTH DIGIT? 

NO 

YES, 

NEXT DIGIT 
>* 5 ? 
NO 



LOAD LAST 

DIGIT 
INCREMENT IT 
WA8 IT A 9? 
YES 
NO 

LEADING DIGIT? 
YES 

no, Overlay 

A 

BUMP DECIMAL 
EXPONENT AND 
OVERLAY A l 

IS NUMBER 

LESS THAN 1 ? 
NO 
YES 
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0162 


50205 


060432 


LOA 


,♦606 






4)163 


50206 


065362 


LU6 


NMPTR 






tie a 


50207 


0353^0 


NMO10 ISZ 


NMTMP 


COUNI ZEROS 




0165 


50210 


000000 


NOP 




PLUS 1 




0166 


50211 


044351 


AOB 


.-1 


LAS1 




0167 


50212 


150001 


CPA 


1,1 


OlGIT 0? 




0166 


50213 


026207 


JMP 


NMO10 


YES 




0169 


50214 


061360 


LOA 


NMTMP 


NO, ALL SIGNIFICANCE 




01/0 


50215 


002020 


SSA 




IN SIX DIGITS? 




0171 


50216 


026221 


JMP 


NMOll 


NO 




0172 


50217 


003400 


CCA 




YES, SET 




0173 


50220 


071336 


STA 


FFLAG 


iFIXEOi FUG TRUE 




0174 


50221 


064366 


NMOll LOB 


.♦12 


COMPUTE 




0175 


50222 


035336 


ISZ 


FFLAG 


FIELD 




0176 


50223 


044355 


AOB 


,♦3 


WIDTH 




0177 


50224 


045572 


AOB 


ChRCT 


SAVE 




0178 


50225 


007004 


CMq, 


•inb 


ENu-OF<"FIELD 




0179 


50226 


075460 


stb 


EOPF 


MARKER 




0180 


50227 


046004 


AOB 


,75 


Enough 




0181 


50230 


006020 


SSB 




ROOM? 




0182 


50231 


015426 


J3B 


OUTLN 


NO 




0183 


50232 


061266 


LOA 


SIGN 


YES 




0184 


50233 


002002 


SZA 




SIGN? 




0185 


50234 


015454 


JSb 


OUTgR 


YES, OUTPUT I? 




0186 


502 3 5 


"64343 


LOB 


t"7 


SET OUTPUT 




0187 


50236 


075356 


STB 


DIGCT 


DIGIT COUNTER 




0186 


50237 


065362 


LOB 


NMPTR 






0189 


50240 


003400 


CCA 




FIXED 




0190 


50241 


051336 


CPA 


FFLAG 


FORMAT? 




0191 


50242 


026247 


JMp 


* + 5 


NO 




0192 


50243 


061324 


LOA 


EXPON 


YES, SET 




0193 


50244 


003000 


CMA 




INDICATOR TO 




0194 


50245 


071360 


STA 


NMTMP 


DECIMAL POINT 




0195 


50246 


026261 


JMP 


NM016 






0196 


b 0247 


07l3 6 


STA 


NMTMP 


SET INDICATOR FOR DECIMAL 


POINT 


0197 


50250 


062001 


LOA 


LCALL 


CALLEO 




0198 


50251 


051422 


CPA 


NUMOT 


FROM 'LIST' ? 




0199 


50252 


026261 


JMP 


NM016 


YES 




0200 


50253 


026303 


JMP 


NM014 


NO 




0201* 








* 






0202** DELETE TRAILING ZEROS 


** 






0203* 








* 






0204 


50254 


061356 


NM012 LOA 


DIGCT 


AT RIGHT OF 




0205 


50255 


002004 


INA 




DECIMAL 




0206 


50256 


051360 


CPA 


NMTMP 


POINT? 




0207 


50257 


026265 


JMP 


* + 6 


NO 




0208 


50260 


071356 


ST A 


DIGCT 


YES, DELETE ZERO 




0209 


50261 


044351 


NM016 ADB 


,*»1 


LAST 




0210 


50262 


160001 


LOA 


i,x 


DIGIT 




0211 


50263 


050432 


CpA 


,♦608 


0? 




0212 


50264 


026254 


JMP 


NM012 


YES 




0213 


50265 


003400 


CCA 




NO, FIXED 




0214 


50266 


051336 


CPA 


FFLAG 


FORMAT? 




0215 


50267 


026303 


JMP 


NM014 


NO 




0216 


50270 


061324 


LDA 


EXPON 


yES, LEADING 
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0217 
0218 

0219 

0220* 

0221* 

0222* 

0223 

0224 

0225 

0226 

0227 

0228 
0229 
0230 
0231 

0232 
0233 
0234 

02 3 5 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244* 

0245* 

0246* 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266* 

0267* 

0268* 

0269* 

0270* 



50271 
50272 
50273 



002021 
026303 
0713&0 



* OUTPUT MANTISSA 



S3A,RSS 

JMP NM0I4 
STA NMTMP 

* 
** 



50274 
50275 
50276 
50277 

50300 
50301 
50302 

50303 
50304 

50305 
50306 
50307 
50310 
50311 
50312 
50313 
50314 
50315 
50316 
50317 
50320 



060430 
002001 
060432 
015454 
035360 

026275 
035356 

066002 

075362 

026312 
035360 

026312 

060430 
026314 
161362 
036362 
015454 
035356 
026306 
035336 
125422 



IDA 
R33 

NMq13 LDA 

jss 

in 

JMP 
ISZ 

NHUJ4 U08 

sTe 

JMP 
NMQ15 ISZ 

JMP 
LDA 
JMP 
LOA 
I3Z 
JSB 
ISZ 
JMP 
I3Z 
JMP 



,♦568 

,♦608 

OUTQR 

NMTMP 

NM013 

OIGCT 

NMBFA 

NMPTR 

**5 

NMTMP 

**3 

.♦S6B 

*+3 

NMPTR, I 

NMPTR 

OUTCR 

OIGCT 

NM0J5 

FFLAG 

NUMOT,I 

* 



* OUTPUT THE EXPONENT ** 



50321 
50322 

503 2 3 
50324 

50325 
50326 
50327 
50330 
50331 
50332 
50333 
50334 
50335 
50336 
50337 
50340 
50341 
50342 
50343 
50344 



060720 
015454 
060427 
065324 
006020 
007005 
060425 
075324 
015454 
061324 
006400 
100400 
000364 
040432 
044432 
075324 
015454 
061324 
015454 
125422 



LOA 
JSB 
LOA 
LOB 
S38 
CMS, 

LDA 
STB 
J3B 
LOA 
CLB 

oxv 



* 
E 

OUTCR 
.♦55B 
ExPON 

INB,RSS 

,*53b 

EXPON 

OUTCR 

EXPON 

.♦10 



** GET DIGIT 



ADA .♦60B 

ADB ,+60B 

STB EXPON 

JSB OutCR 

LOA EXPON 

JSB OyTCR 

JMP NUMOT,! 
** 

TO OUTPUT *** 

** 



OfcCIMAL POINT? 
NO 
YES, SET LEADING ZEROS COUNTER 



OUTPUT A 

DECIMAL POINT 
OUTPUT 

A ZERO 
MORE LEADING ^EROS? 
YES 

NO, COUNT DECIMAL POINT 
SET 

DIGIT POINTER 

DECIMAL POINT nEXT? 

NU 

YES, LOAD U 

LOAU NEXT 
DIGIT 

output Character 

MORE DIGITS? 

YES 

NO, EXPONENT? 

NO 



OUTPUT AN 'E' 
OUTPUT 

an 
exponent 

SIGN 
COMPUTE 

EXPONENT'S 

10«S DIGIT 

OUTPUT IT 
OUTPUT 

1»S DIGIT 



COMPUTE NEXT DECIMAL DIGIT AND RETURN WITH IT IN (A). 
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0271* 


SU B THAqT it 


OUT OF THE NUMBER, 




0272* 










0273 


50345 


015300 


*GTDG JSB MBY10 


MULTIPLY BY l« 


0274 


50346 


065322 


LOB EXP 


GET EXPONENT IN (B) 


0275 


5^347 


007004 


CM8,INB 


AS NEGATIVE 


0276 


50350 


012000 


AND HMASK 


RETAIN HIGH 5 BITS 


0277 


50351 


001200 


RAL 


NORMALIZE TO BIT 15 


0278 


50352 


006024 


838, InB 


rotate Integer 


0279 


50353 


026351 


JMP *«.2 


INTO (A) 


0280 


50354 


010443 


AND B377 


EXTRACT 


0281 


50355 


071402 


8TA FD0 


DIGIT 


0282 


50356 


065322 


LOB EXP 


ROTATE 


0283 


50357 


007004 


CMB, INB 




0284 


50360 


001300 


RAK 


BACK 


0285 


50361 


006024 


8SB,INB 




0286 


50362 


026360 


JMP *»2 




0287 


50363 


021316 


XOR MANT1 


remove 


0288 


50364 


065320 


LOB MA N T2 


DIGIT 


0289 


50365 


015304 


JSB NORML 


NORMALIZE REMAINDER 


0290 


50366 


061402 
125424 


LDA FO0 


LOAD (A) WITH DIGIT 


0291 


50367 


JMP GETDG,I 
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0293** 






** 




0294*** OUTPUT AN 


INTEGER *** 




0295** 






i 


It* 




0296* 














0297* 


ENTEK WITH A 


POSITIVE : 


INTEGER I* 


J (B), OUTPUT IT WITHOUT 


0298* 


LEADING ZEROS, 








0299* 














0300 


50370 


060346 


#OTIN 


LDA 


.•4 


SET DIGIT 


0301 


50371 


071374 




STA 


OGCNT 


COUNTER 


0302 


50372 


061024 




LOA 


LOVSR 


SET DIVISOR 


0303 


50373 


071446 




STA 


0T1 


ADDRESS 


0304 


50374 


002400 




CLA 




SUPPRESS 


0305 


50375 


0714/0 




STA 


0T4 


ZEROS 


0306 


50376 


101040 


0UTI1 


L3R 


16 


DIVIDE INTEGER BY 


0307 


50377 
50400 


100400 
101446 




OIV 


OTl,I 


CURRENT DIVISOR 


0300 


50401 


075452 




STB 


0T3 


SAVE THE REMAINDER 


0309 


50402 


051470 




CPA 


0T4 


LEADING ZERO? 


0310 


50403 


026407 




JMP 


0UTI2 


YES 


0311 


50404 


040432 




ADA 


,♦608 


NO, ygRN OFF 


0312 


50405 


071470 




STA 


0T4 


ZERO SUPPRESS 


0313 


50406 


015454 




JSB 


OUTCR 


OUTPUT DIGIT 


0314 


50407 


065452 


0UTI2 


LOB 


0T3 


RETRIEVE REMAINDER 


0315 


50410 


035446 




ISZ 


0T1 


SET FOR NEXT DIVISOR 


0316 


50411 


035374 




ISZ 


OCgNT 


ALL DIVISORS USED? 


0317 


50412 


026376 




JMP 


0UTI1 


NO 


0318 


50413 


060001 




LOA 


1 


YES 


0319 


50414 


040432 




ADA 


,♦608 


OUTPUT 


0320 


50415 


015454 




JSB 


OUTCR 


LAST DIGIT 


0321 


50416 


125456 




JMP 


OUTIN,I 




0322** 






** 




0323*** SPACE FQR 


A COMMA *** 




0324** 






** 




0325* 














0326* 


MOVE 


TO THE 


NEXT FIELO 


OF 15 ON 


THE PRINT LINE OR TO THE 


0327* 


NEXT 


LINE IF 


THE CURRENT ONE IS 


EXHAUSTED, 


0320* 














0329 


50417 


065572 


#EDLM 


LDB 


CHRCT 


LOAD CURRENT CHARACTER 


0330 


50420 


006003 




SZB, 


,RS3 


ZERO? 


0331 


50421 


125430 




JMP 


EDELM,I 


YES, AT START OF ZONE 


0332 


50422 


044333 




AOB 


,-15 


NO, SUBTRACT ZONE WIDTH 


0333 


50423 


006021 




SSB, 


,RSS 


NQN.NEGATlVE RESuLT? 


0334 


50424 


026420 




JMP 


#E0LM*1 


YES 


0335 


50425 


075472 




STB 


EOL 


NO, SAVE COUNT 


0336 


50426 


060412 




LOA 


.♦40B 


OUTPUT 


0337 


50427 


015454 




JSB 


OUTCR 


A BLANK 


0338 


50430 


035472 




ISZ 


EOL 


ZONE FULL? 


0339 


60431 


026426 




JMP 


♦•3 


NO 


0340 


50432 


065572 




LOB 


CHRCT 


YES, 


0341 


50433 


046006 




AOB 


MM74 


PAST THE 


0342 


50434 


006021 




SS8, 


,R3S 


END OF LINE? 


0343 


50435 


015426 




JSB 


OUTLN 


YES 


0344 


50436 


125430 




JMP 


eDelm,i 


NO 



COUNT 
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03464 

0347* 

0348* 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359* 

0360* 

0361* 

0362* 

0363* 

0364* 

0365* 

0366* 

0367* 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

8377 

0378 

0379 

0380 

038J 

0382 

0383* 

0384* 

0385* 

0386* 

0387* 

0388* 

0389 

0390 

0391 

0392 

0393 

0394 



* 

** 

* 
50437 
50440 
50441 
50442 
50443 
50444 
50445 
50446 
50447 
50450 

* 

** OU 

* 



OUTPUT AN 



065460 
045572 
075460 
060375 
015454 
060367 
015454 
060364 
015454 
125426 

TPUT A C 



** 

ENU w OF»LINE *** 

** 

#otln lob eopf 

AqB CHRCT 
STB EOPF 
LOA .*23B 
JSB OUTCR 
LOA t 4.j5B 
JSB OUTCR 
LOA ,*12B 
JSB OUTCR 
JMP OUTLN,! 

** 
HARACTER *** 

** 



reset 

ENp-OF-FlEt-0 
MARKER 
OUTPUT 

AN X-QFF 
OUTPUT A 

CARRIAGE RETURN 
AND A 

LINE FEED 



OUTPUT THE CHARACTER IN (A). N 
COUNT AGAINST THE 72 CHARACTERS 
(iCONTROL Oi IN A STRING OK AN 
RESETS THE PRINT PQSITIqN Tq 0. 



50451 
50452 
50453 
50454 
50455 
50456 

50457 
50457 

50460 
50461 
50462 
50463 
50464 
50465 
50466 



071310 
050441 
026457 
010730 
002002 
035572 

006400 
061310 
050367 
075572 
064273 
044335 
114576 
125454 



#OTCR STA 
CPA 
JMP 
AND 
SZA 
1SZ 

OTCRA EOU 
CLB 
LOA 
CPA 
STB 
LOB 
AqB 
JSB 
JMP 



** BACKSPACE IN BUFFER 

* 

BACKSPACE IN BUFFER 



OCTMP 
B177 
OTCRA 
,140 

CHRCT 



OCTMP 

.♦15B 

CHRCT 

MLINK+l 

,-?LlNK 

DUTCH, I 

OUTCR,! 

** 
*** 

** 



ON-PRINTING CHARACTtRS 00 NOT 
PER LINE, A CARRIAGE RETURN 
ENQ-OF-LINE, FOR EXAMPLE) 



SAVE CHARACTER 
CHECK FOR 

RU80UT 
NONPRINTING 

CHArACTEf? 
NO, COUNT IT 



RETRIEVE CHARACTER 

CARRIAGE RETURN? 

YES, ZERO CHARACTER COUNT 



50467 060257 

50470 002004 

50471 160000 

50472 0302-51 

50473 114500 

50474 125452 



#BkSP LOA MAIN 
INA 

LOA 0,1 

IOR BKS 

JSB S14LP,I 

JMP BCKSP,I 



TEU 2114 

TO BACKSPACE 
IN BUFFER 



PAGE 0204 #19 OUTPUT ROUTiNtS 



0396** 
0397** 
0399** 
0399* 

0400* 

0401* 

0402* 

0403 

0404 

0405 

0406 

0407 

040 d 

0409 

0410 

0411 
0412 
0413 
0414 
0415 
0416 
0417 

0416 
0419 
0420 
0421 
0422 
0423 
0424 
0425 



* FETCH NEXT BUFFER CHARACTER 



** 

*** 

** 



THE NEXT CMARAC 
EXIT IS TO CP+2 



IF 16LANK1 ■ 

50475 060222 

50476 064257 

50477 006004 

50500 130001 

50501 006400 

50502 174634 

50503 114500 

50504 102311 
505g5 026504 

50506 102511 

50507 164640 

50510 174634 

50511 051573 

50512 026475 

50513 050367 

50514 125450 

50515 064000 

50516 040766 

50517 002021 

50520 040317 

50521 040730 

50522 035450 

50523 125450 



40 
#G 



TER FROM 
) WITH T 
OCTAL, A 
TCR LDA 
LOB 
INB 
IOR 
CLB 
STB 
JSB 
SF8 
JMP 
HA 
LOB 
STB 
CPA 
JMP 
CPA 
JMP 
LOB 
AOA 
SSA, 
AOA 
ADA 
ISZ 
JMP 



THE INPUT BUFFER IS FETCHED. NORMAL 
HE CHARACTER XN (A), BLANKS ARE SKlPPEO 
tCARRIAGE RETURNf EXITS TO (P*lj 



GTC 

MAIN 

DCLClrl 

3MSOI 

CH2 
*• j 

CHg 

DCLC2,I 

DCLCl,I 

BLANK 

*GTCR 

.♦15B 

GETCR,I 



M96 

R38 

M32 

,140 

GETCR 

GETCR,I 



LOAD OPCODE 

FOR GET CHARACTER 
*> TTY * 

tty # in bits i2*s 

BLOCK 

CLOCK 
CALL 2114 DRIVER 
WAIT FOR 

RESPONSE 
LOAD CHARACTER 
UNBLOCK 

CLOCK 
BLANK? 
YES»»lGNORE IT 

no, carriage Return? 

YES 

COPY CHAR TO B 



LOWER CASE 
MAKE INTO UPPER 

N0»*EXIT 
TO (P*2) 



CASE 
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0427* 


* 




• 






0428** EXECUTE TAB(X) * 






0429* 


* 




* 






0430 


50524 


015442 


EjAB 


J38 ,IEN T 


INjEGERIZE ARGUMENT 


0431 


50525 


060274 




LOA INF 


ARG > 32767 


0432 


50526 


006400 




CL8 


SET FLAG TO 


0433 


50527 


075472 




STB EOL 


'TAB OCCURRED' 


0434 


50530 


065756 




LOB FFLG 


GET FORMAT FLAG 


0435 


50531 


006002 




SZB 


in Formatter ? 


0436 


50532 


026537 




JMP ETAB2 


YES 


0437 


50533 


066005 




LOB MM72 




0438 


50534 


044000 




AOB A 




0439 


50535 


006021 




SSB,RSS 




0440 


50536 


026551 




JMP ETAB4*1 


YES, GO TO NEXT LINE 


0441 


50537 


003004 


ETAB2 


CMA,INA 


NO 


0442 


50540 


041572 




AOA ChRCT 


ANY BLANKS 


0443 


50541 


002021 




SSA, RSS 


REQUIRED? 


0444 


50542 


026552 




JMP ETAB4 


NO 


0445 


50543 


071436 




STA LByMP 


YE S 


0446 


50544 


060412 


ETAB1 


L OA ,+40B 


OUTPUT 


0447 


5B545 


015454 




J3B OUTCR 


A BLANK 


0448 


50546 


035436 




I3Z LBTMP 


DONE? 


0449 


50547 


026544 




JMP ETABl 


NO 


0450 


50550 


002001 




RSS 


YES 


0451 


50551 


015426 




J3B OUTLN 




0452 


50552 


061036 


gTAB4 


LD* BIT15 


SO OPCHK DOESN'T BAR 


0453 


50553 


124560 




JMP FRET,! 




0454* 






* 






0455** EXECUTE SPACX) * 






0456 


50554 


015442 


ESPA 


JSB ,IENT 


INTfcGERUE ARGUMENT 


0457 


50555 


060274 




LO A INF 


ARG > 32767 


0458 


50556 


006400 




CLB 


SET FUNCTION FLAG 


0459 


50557 


075472 




3TB EOL 


TO EXECUTED 


0460 


50560 


002003 




SZA,RSS 


IS IT ZERO ? 


0461 


50561 


026607 




JMP EgPA4 


YEs 


0462 


50562 


002020 




SSA 


MQr NEGATIVE? 


0463 


50563 


026607 




JMP ESPA4 


YES 


0464 


50564 


003004 




CMA, JNA 


NO 


0465 


50565 


071776 




STA REpCT 


OUTpUl 


0466 


50566 


065756 




LOB FFLG 




0467 


50567 


006002 




3ZB 




0468 


50570 


026577 




JMP E3PA1 


NO 


0469 


50571 


040440 




AOA ,72 




0470 


50572 


065572 




LOB CHRCT 


SPACING PAST 


0471 


50573 


007004 




CMB,INB 


END OF LINE 1 


0472 


50574 


040001 




AOA 1 




0473 


50575 


002020 




SSA 




0474 


50576 


026606 




JMP ESPA4-1 




0475 


50577 


061573 


espaI 


LDA BLANK 




0476 


50600 


015454 




JSB OUTCR 




0477 


50601 


035776 




ISZ REPCj 




0478 


50602 


026577 




JMP ESPAj 




0479 


50603 


003400 




CCA 


RESET 


0480 


50604 


071776 




STA REPCT 


REPCT 


0481 


50605 


002001 




RSS 





PACE 0206 #19 LIBRARY FUNCTIONS 



0482 

0483 

0484 

0485* 

0486* 

0487* 

0488* 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

05ia 

0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
05?7 
0528 



50606 015426 

50607 061036 
50610 124560 



JSB OUTLN 
ESPA4 LpA 8IT15 
JMP FRET,! 



SO OPqHK DOESN'T BARp 



* EXECUTE 



50611 
50612 
50613 
50614 
50615 
50616 
50617 
50620 
50621 
50622 
50623 
50624 
50625 
50626 
50627 
50630 
50631 
50632 
50633 
50634 
50635 
50636 
50637 
50640 
50641 
50642 
50643 
50644 
50645 
50646 
50647 
50650 
50651 
50652 
50653 
50654 
50655 
50656 
50657 
50660 



015442 
060444 
006400 
075472 
002021 
026633 
040444 
002020 
002400 
040762 
071776 
060364 
015454 
035776 
026624 
003400 
071776 
026657 
040762 
002021 
002400 
040444 
002002 
026650 
060367 
015454 
002400 
015454 
002400 
071572 
026657 
003004 
071776 

015536 
035776 
026652 
003400 
071776 

061036 
124560 



LIN(X) * 

* 
ELIN 



EUXN1 



EHN3 



EUN2 



JgB 

IDA 

CLB 

STB 

SSA, 

JMP 

ADA 

SSA 

cu 

ADA 
STA 
LDA 
JSB 
I3Z 
JMP 
CCA 
STA 
JMP 
ADA 
SSA, 

cla 

ADA 
SZA 
JMP 
lOA 
JSB 
CIA 

JSB 

CIA 

STA 

JMP 

CMA, 

STA 

JSB 

JSZ 

JMP 

CCA 

STA 

LDA 

JMP 



,IENt 
B400 

EOL 
RS3 
ELJN1 

B400 



M256 

REPCT 

.♦12B 

OUTCR 

REPCT 

♦ •3 

REPCT 
ELIN2 
M256 
RS3 

B400 

ELIN3 
.♦iSB 

OUTCR 

OUTCR 

CHRCT 

EUN2 

INA 

REpCT 

OUTCL 

REPCT 

*«2 

REPCT 
BITI5 

FRET, I 



INjEGERlZE ARGUMENT 

set function flag 

to executed 
no, negative ? 

NO 



REPCT LINEFEEDS 



REINITIALIZE REPCT 
YES 

ARGUMENT > 2 56 ? 



YES 



OUTPUT 
CR-LF'S 



RESET 

REPCT 
SO QPCHK DOESN'T BARF 
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0002* 


* 




* 








0003** COMPUTE ABS 


(X) * 








0004* 


* 




* 








0005 


50661 


002020 


EA6S 


SSA 




ARGUMENT NEGATIVE? 


0006 


50662 


015370 




JSB 


ARINV 


YES, NEGATE IT 


0007 


50663 


124560 




JMP 


FRET, I 


NO 


0008* 


* 




* 








0009** COMPUTE JNT(X) * 








0010* 














0011* 


ENTER WITH NUMBER 


IN (A) ANO CB) 


t EXIT WITH FLOATING 


0012* 


POINT 


r FORM OF ENTIER IN (A) ANO 


(B). 


0013* 














0014 


50664 


075436 


EINT 


STB 


LBTMP 


SAVE (B) 


0015 


50665 


015416 




JSB 


IFIX 


TAKE ENTIER 


0016 


50666 


026675 




JMP 


EINTt 


ALL SIGNIFICANCE IN M 


0017 


50667 


075436 




STB 


LB 7 MP 


SAVE (B) 


0016 


50670 


0644U 




LOB 


,♦31 


CORRECT FOR 


0019 


50671 


075322 




STB 


EXP 


BINARY POINT BIAS 


0020 


50672 


065436 




LOB 


LBTMP 


RETRIEVE (B) 


0021 


50673 


015306 




JSB 


.PACK 


NORMALIZE ANO PACK 


0022 


50674 


124560 




JMP 


FRET, I 




0023 


50675 


061260 


EINT1 


LOA 


TEMP6 


RETRIEVE 


0024 


5^676 


065 4 36 




LOB 


LBTMP 


NUMBER 


0025 


50677 


124560 




JMP 


FRET,! 




0026* 


* 




* 






• 


0027** EXECUTE TIM(X) 


* 






0028* 


* 




* 








0029 


50700 


015416 


ETIM 


JSB 


IFIX 


INTEGER1ZE ARGUMENT 


0030 


50701 


115161 




JSB 


RERR3*43, 


I ILLEGAL ARGUMENT 


0031 


50702 


002002 




SZA 






0032 


50703 


115161 




JSB 


RERRS+4J, 


I ILLEGAL ARGUMENT 


0033 


50704 


060001 




LOA 


1 


18 ARGUMENT 


0034 


50705 


010355 




AND 


,♦3 


<»3 AnD 


0035 


50706 


050001 




CPA 


1 


>»0 ? 


0036 


50707 


002001 




RSS 




YES 


0037 


50710 


115161 




JSB 


RERRS+43, 


I NO„ILLEGAL ARGUMENT 


0036 


50711 


042737 




AOA 


OTMTB 


BRANCH to 


0039 


50712 


124000 




JMp 


0,1 


appropriate hOutine 


0040 


50713 


060202 


ETIM0 


LOA 


DATIM+1 


* OF 100 Ms 


0041 


50714 


040704 




AUA 


036 K 


UNITS 


0042 


50715 


006400 




cue 




CONVERT 


0043 


50716 
50717 


100400 
000456 




oiv 


0600 


TO MINUTES 


0044 


50720 


026735 




JMP 


ETIM3*J 




0045 


50721 


060201 


ETIM1 


LOA 


OATIM 


HOgRS OF YEAR 


0046 


50722 


006400 




CLB 




Convert 


0047 


50723 
50724 


100400 
000402 




OIV 


,♦24 


TU OAYS 


0048 


50725 


060001 




LOA 


1 


REMAINDER IS HOUR OF 


0049 


50726 


026735 




JMP 


EyIM3*i 




0050 


50727 


060201 


ETIM2 


LOA 


OATIM 


HOURS Of- YEAR 


0051 


50730 


006400 




Clb 




CONVERT 


0052 


50731 
50732 


100400 
000402 




oiv 


.♦24 


TO DAYS 


0053 


50733 


002001 




RSS 







MANTISSA 
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W208 #20 LIBRARY FUNCTIONS 




0054 


50734 


060200 


EyIM3 


LDA YEAR 


GET YEAR 


0G>55 


50735 


015346 




JSB FLOAT 


CONVERT TO FLOATING POINT 


0056 


50736 


124560 




JMP FRET, I 


EXIT WITH RESULT IN (A) AND (B 


0057 


50737 


150740 


DTMTB 


DEF **1,I 




0058 


50740 


050713 




DEF ETXM0 




0059 


50741 


050721 




DEF EjlMl 




0060 


50742 


050727 




DEF ETJM2 




0061 


50743 


050734 




DEF ETIM3 




0062* 


* 




* 






0063** COMPUTE RND(X) * 






0064* 


* 




* 






0065* 












0066* 


THE RANDOM NUMBER FUNCTION COMPUTES A RANDOM NUMBER FROM THE 


0067* 


FORMULAS? 








006a* 












0069* 


XCN)*A*X(N»1)*CCMQD 2t30) 


CA»5tl!,C*2T30*(l/2«»l/SQK(12))) 


0070* 


RND HX/2T30 MIN 


(i-2t-23) 




0071* 












0072 


50744 




ERNO 


EOU * 




0073 


50744 


002021 




88A,R3S 


POSITIVE ARGUMENT? 


0074 


50745 


026752 




JMP ERNDl 


YES, USE PREVIOUS VALUE 


0075 


50746 


005265 




RBL,CLE,ERB 


NO, MAKE A 


0076 


50747 


001600 




ELA 




dd77 


50750 


071566 




STA RNDX1 


A NEW SEEO 


0078 


50751 


075567 




8TB RNDX2 




0079 


50752 




ERNDl 


EOU * 




0080 


50752 


061566 




LOA RNDXi 


COMPUTE FIRST 


0081 


50753 
50754 


100200 
051014 




MPY RNDA2 


CROSS PRODUCT, 


0082 


50755 


071566 




STA RNDXI 


save conly need low order part 


0083 


50756 


061567 




LDA RNDX2 


COMPUTE 2ND 


0084 


50757 
50760 


100200 
051013 




MPY RNDAl 


CROSS PRODUCT, 


0085 


50761 


041566 




ADA RNDXI 


ADD IN FIRST, 


0086 


50762 


043015 




ADA RNOCl 


ADD IN HIGH PaRT OF C, 


0087 


50763 


071566 




STA RN0X1 


SAVfc TOTAL. (THIS is high part 


0088 


50764 


002500 




CLArCLE 


SET EXP P 0. 


0089 


50766 


071322 




STA EXP 




0090 


50766 


061557 




LOA RNDX2 


COMPUTE LOW ORDER PRODUCT, 


0091 


50767 
50770 


100 2 00 
051014 




MPY RNDA2 




0092 


50771 


043016 




ADA RNDC2 


ADD IN LOW PART OF C, 


0093 


50772 


002040 




SEZ 


ADD ANY CARRY INTO 


0094 


50773 


006004 




INB 


B. 


0095 


50774 


001265 




RALrCLEfERA 


E*A(15),A115)*0, 


0096 


50775 


071567 




STA RNDX2 


SAVfc LOW ORDER RESULT, 


0097 


50776 


005600 




ELB 


SHIFT HIGH ORDER PART & ADD IN 


0098 


50777 


045566 




ADB RNDXI 


PREVIOUS TOTAL, 


0099 


51000 


005665 




Ei,B,C|„E,ER8 


CL,fcAR BiT 15 AND STORE, 


0100 


51001 


075566 




STB RnDXI 




0101 


51002 


001200 




RaL 


SHIFT A ADJACENT TO B, 


010 2 


51003 


101100 




3WP 


EXCHANGE REGISTERS AND 


0103 


51004 


H15306 




JSB .PACK 


PACK. 


0104 


51005 


054354 




CPB ,*2 


TEST f-OR RE8ULT«1,0 


0105 


51006 


002001 




RSS 
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0106 
0107 
010« 
0109 

0110* 

Bill* 

0112 

0113 

0114 

0115 

0116* 

0117** 

0118* 

0119* 

0120* 

0121* 

0122* 

0129* 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133* 

0134** 

0135* 

0136* 

0137* 

0138* 

0139* 

0140* 

0141* 

0142* 

0143* 

0144* 

01 45 

0146 

0147 

014fl 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 



51007 124560 

51010 060274 

51011 064762 

51012 124560 



51013 002722 RNDAl 

51014 007335 RNDA2 

51015 016441 RNDC1 

51016 007701 RNuC2 
* * 

COMPUTE 86NCXJ * 



JMP FRETfi 
LOA INF 
LOB M256 
JMP FRET, I 



DEC 1490 

DEC 3605 

OCT 16441 

OCT 7701 



EXIT IF NOT. 
SET RESULT TO 



Wt*23 



A DIV 2T15 

A MOO 2T15 

C OIV 2tl5 

C MOO 2tl5 



ENTER WITH ARGUMENT IN (A) AND C8), IF ARGUMENT IS 
NEGATIVE RETURN .1,0, IF ZERO RETURN 0, IF POSITIVE 

RETURN 1,0 , 



51017 
51020 
51021 
51022 
51023 
51024 
51025 
51026 
51027 
* 

COMPUTE 
* 



006400 
002003 
124560 
002021 
064354 
061036 
006002 
001300 
124560 



E3GN 



CLB 

S*A,RSS 

JMP FRET#I 

SSA,RSS 

LOB t*2 

LOA FLGBT 

SZB 

RAH 

JMP FRET, I 



CLEAR LOW PART Of NUMBER 

ZERO? 

YES, RETURN 

POSITIVE? 

yes, load exponent for *1 
no, load high part of *1 
was Argument positive? 

YESf SET RESULT TO *i 
NO 



TYP(X) * 



UPON ENTRY (A) AND CB) MOLD A FILE NUMBER IN FLOATING POINT 
FORM, FILE REFERS TO THE <DATA STATEMENTS, IF THE ULE 
NUMBER IS NEGATIVE RETURN 1,0, 2,0, 3,0, OR 4,0 IF THE NEXT 
IjEM IN jHE FILE I3 A N(jMBER, STRING, EMD-UF-F JLE, OR END» 
OF-RECORO RESPECTIVELY, IF THE FILE N UMBER XS PqSITIvE rETUHn 

with the value corresponding tu t h e first item found of one 
of the first three types, 



^1030 
51031 
51032 
51033 
51034 
51035 
51036 
51037 
51040 
51041 
51042 
51043 
51044 
51045 
51046 
51047 



0754^6 
065234 

075645 
002003 
027064 
007400 
002020 
006400 
075653 
065436 
002020 
015370 
015342 
115151 
07S234 
061234 



ETYP 



STB LBTMP 


SAVE (B) 


LDB FILE* 


SAVE VALUE 


STB PINTG 


OF FILE* 


SZArRSS 


'DATA* FILE? 


JMP ETYP3 


YES 


CCB 


NO# IGNORE 


SSA 


end»of»Records 


CLB 


UNLESS ARGUMENT 


3TB EORFL 


I3 NEGATIVE 


LOB LBtMP 


rEtkUve (be- 


SSA 


take ABSOLUTE VALUE 


JSB ARINV 


OF ARGUMENT 


J38 SBFIX 


15-SlT INTEGER? 


JSB RERRS*35, 


,1 NO 


STB FILE* 


YES 


LOA FILE* 


VALIDATE 
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0161 
0162 
0163 

0164 

0165 

0166 
0167 
0166 

0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
01&0 



&1050 
51051 
51052 

51053 
51054 

51055 
51056 
51057 
51060 
51061 
51062 
51063 
51064 
51065 
51066 
51067 
51070 
51071 
51072 
51073 



064350 
015510 
015514 

065645 
075234 
015346 
124560 
060355 
065244 
055575 
027053 
015360 
003400 
051262 
027057 
165244 
002404 

006021 
060354 

027053 



LOB 
JSB 
JSB 

ETYP1 LOB 
3TB 
JSB 
J MP 

ETYP2 LOA 
LOB 
CPB 
JMP 
JSB 

ETYP3 CCA 
CPA 
JMP 
LOB 
CIA, 
S3B, 
LOA 
JMP 



,*2 

RQSTR 
GTTYP 
PJNTG 
PILE* 
FLOAT 
FRET, I 

.♦3 

NXTOT 
SYMTB 
ETYP1 
SEjOP 

OCCNT 

ETYP2 

NXTpT,! 

INa 

RSS 

.♦2 

ETYPj 



FILE 
GET TYPE 
RESTORE 

FILE* 
RETURN TYPE IN 

FLOATING POINT FORM 

OUT*OF»OATA 

CONDITION? 
YES, (A) * 3 
NO, SEEK NEXT <OAtA StAtEMENt> 

more data i n 
current statement? 

NO 

yes, load type word 
set number 

NUMBER? 

NO, SET FOR STRING 
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idles* 

0183* 

14164* 

0185 

0186 

0187 

0180 
0189 
0190 

01*1 

0192 
0193 
0194 
0195 
0196 
0197 
0198 

0199 
0200 

0201 
0202 

0203 

0204 
0205 
0206 
0207 
0208 
0209 
0210 

0211 
0212 

0213 
0214 
0215 
0216 
0217 
0218 



* 

** COMPUTE CHEBYSHEVCX) 

* 

51074 015406 #CHEB JSB 

51075 051374 DEF 

51076 104400 OST 

51077 



51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 

5l 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 

61 
51 
51 
51 
51 
51 
51 



00 
01 
02 
03 
04 
05 
06 
07 
10 
11 
12 
13 
14 

15 
18 
17 

20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 

35 
36 
37 

40 
41 
42 
43 
44 
45 
46 



015406 
051374 
104400 

001632 
165440 
075376 
104200 
100001 
104400 
001640 
002400 
071636 
071637 
035376 
035376 
1613/6 
002003 
027137 
104200 
001636 
10440k) 
001634 
104200 
001640 
104400 
001636 
015406 
001632 
015404 
001634 
015402 
101376 
104400 

001640 
027111 
104200 
001640 
015404 
001634 
015406 
001040 
035440 
125440 



CmEBI 



C H E82 



LDB 
STB 



** 
**# 

** 
.FMp 

K2 
X2TMP 

,CHEB,I 
CtMP 

1,1 



OST DTMP 



CLA 

STA 

STA 

ISZ 

ISZ 

LOA 

SZA, 

JMP 

DUD 

D3T 

DUD 

DST 

J8B 
DEF 
JSB 

DEF 
JSB 
DEF 
DST 

JMP 
D U D 

JSB 
DEF 
JSB 
DEF 
ISZ 
JMP 



BTMP 

BTMP+1 

CTMP 

CTMP 

CT*P,I 

RS3 

CHEB2 

BTMP 

ATMP 

DTMP 

BTMP 

.FmP 

X2TMP 

,FSB 

ATMP 

,FAD 

CTMp,I 

DTMP 

CHEB1 
DTMP 

.FSB 
ATMP 

,FMP 

half 

.CHEB 
,CHEB,I 



X2TMP ■ X*2 

POINTER TO COEFFICIENT TABLE 

DTMP f COEFF(N) 

B • 
N * N-l 

C(N) * 0? 

YES 

NO 

A ■ B 

B ■ D 



D ■ C0EFF(N>-A*B*X2 



ANS <■ (D-AJ/2 



0221** 

0222*** 

0223** 

0224* 

0225* 

0226* 

0227* 



LIBRARY ENTIER 



** 

*#* 

** 



ENTER WITH NUMBER IN CA) AND (B) IF EXPONENT * 14 
THEN EXIT TO (P+l), ELSE EXIT TO (P+2) WITH THE 

Entier qF the argument In (A), 
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0228* 














0229 


51147 


071436 


#IENT 


STA 


LBTMP 


SAVE (A) 


0230 


b U 50 


060001 




LDA 


1 


EXTRACT 


0231 


51151 


010443 




AND 


B377 


Exponent 


0232 


51152 


000033 




SLA, 


rRAR 


NEGATIVE? 


0233 


51153 


027157 




JMP 


IENT1 


YES 


0234 


51154 


040333 




ADA 


.-15 


NO, LESS THAN 


0235 


bi J55 


002021 




SSA, 


.RSS 


OR EQUAL TO 147 


0236 


51156 


125442 




JMP 


.IENT,I 


NO 


W237 


51157 


035442 


IENT1 


I3Z 


,IENT 


YES 


0238 


51160 


061436 




LDA 


LBTMP 


RESTORE (A) 


0239 


51161 


015416 




J3b 


ifix 


take entur 


0240 


51162 


000000 




NOP 






0241 


51163 


060001 




l da 


1 


LOAD INTEGER 


0242 


51164 


125442 




JMP 


,IENT,I 


INTO (A) 


0243** 






** 


1 




0244*** FLOAT AN INTEGER 


**« 


1 




0245** 






*i 


> 




0246* 














0247* 


ENTER WITH INTEGER 


IN 1 


;a), exit 


WITH FLOATING POINT 


0248* 


EQUIVALENT IN (A) 


AND | 


;8), 




0249* 














02g0 


51165 


064371 


#f-LOT 


LOB 


.♦I5 


CORRECT BIAS 


0251 


5H66 


075322 




STB 


EXP 


OF BINARY POINT 


0252 


51167 


006400 




CLB 




ZERO LOW MANTISSA 


0253 


bH70 


015306 




JSB 


.PACK 


NORMALIZE AND PACK 


0254 


51171 


125346 




JMP 


FLOAT, I 




0256** 








** 




0257*** MULTIPLY BY A POWER OF 2 *** 




0258** 








** 




0259* 














0260* 


ENTER WITH NUMBER 


IN (A) AND (B) 


, AUGMENT EXPONENT 


0261* 


BY THE VALUE 


POINTED TO BY (P + l) 


AND EXIT TO (P*2). 


0262* 


NO CHECK ON 


exponent underflow or overflow. 


0263* 














02a4 


bH72 


002003 


#PWR2 


SZA, 


RSS 


ARGUMENT ZERO? 


0265 


51173 


027206 




JMP 


PWR 2 A 


YES, RETURN 


02 66 


511 7 4 


07l6 32 




sta 


X2TMP 


NO, SAVE HIGH PART Of- MANTJSSA 


0267 


51175 


015414 




JS8 


t FLUN 


UNpACK LoW pART of NUMBER 


0268 


51176 


075633 




STB 


X2tMP*1 


3 AVE LOW MANTlssA 


0269 


51177 


165444 




LDB 


,PWR2,I 


COMPUTE NEW 


0270 


51200 


140001 




ADA 


1,1 


EXPONENT 


0271 


51201 


001200 




RA L 




POSITION 


0272 


51202 


010443 




AND 


B377 


AND MASK IT 


0273 


51203 


070001 




STA 


l 


cqMpute ne* Low 


0274 


51204 


045633 




ADB 


X2TMP+1 


part of number 


0275 


51205 


061632 




LDA 


X2TMP 


REtRIEvE HIGH MAN T ISSA 


0276 


51206 


035444 


PWR2A 


ISZ 


f PWR2 




0277 


51207 


125444 




JMP 


.PWR2,I 




0278* 


* 




* 








0279** COMPUTE CQ8CX) * 








0280* 


* ■ 




* 








0281 


51210 


015402 


EC03 


J 3 B 


,FAD 


COMPUTE 
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0282 


51211 


051476 




DEF 


PIBY2 SlN(X*PI/2) 


0283* 


* 




* 






0284** COMPUTE SIN(X) * 






0285* 


* 




* 






0286 


51212 


015406 


ESIN 


J38 


,FMp 


0287 


51213 


M51262 




DEF 


TOPI 


0288 


51214 
51215 


104400 
001624 




D3T 


XTEMP X ■ 2*X/PI 


0289 


51216 


015402 




JSB 


,FAD 


0290 


51217 


051372 




DEF 


Kl 


0291 


51220 


015444 




JSB 


,PWR2 


0292 


51221 


000350 




OEF 


,»2 


0293 


51222 


015442 




JSB 


,IENT 


0294 


51223 


115145 




JSB 


RERRS+31,1 EXPONENT EXCEEDS 14 


0295 


51224 


015346 




JSB 


FLOAT 


0296 


51225 


015406 




JSB 


.FMp 


0297 


51226 


051264 


,, 


OEF 


MM4 


0298 


51227 


015402 




JSB 


,FAD 


0299 


51230 


001624 




DEF 


XTEMP 


0300 


51231 
51232 


104400 
001624 




OST 


XTEMp X » X«4*EN T IE R ((x*i)/4) 


0301 


51233 


015404 




JSB 


.FSB 


0302 


51234 


051372 




DEF 


Kl 


0303 


51235 


002020 




SSA 


XM? 


0304 


51236 


027245 




JMP 


ESINJ YES 


0305 


51237 
51240 


104200 
051374 




OLD 


K2 NO 


0306 


51241 


015404 




JSB 


.FSB 


0307 


51242 


001624 




DEF 


XTEmP 


0308 


51243 
51244 


104400 
001624 




DST 


XTEMP X ■ 2»X 


0309 


51245 
5124 6 


104200 
001624 


ESJNi 


DUD 


XTEMP 


0310 


51247 


015406 




JSB 


.^MP 


0311 


51250 


001624 




DEF 


XTEMp 


0312 


51251 


015444 




JSB 


,PWR2 


0313 


51252 


000353 




DEF 


.♦1 


0314 


51253 


015404 




JSB 


.FSB 


0315 


51254 


051372 




DEF 


Kl 


0316 


51255 


015440 




JSB 


,CHEB 


0317 


51256 


051266 




DEF 


CQEF2 


0318 


51257 


015406 




JSB 


t FMP 


0319 


51260 


001624 




DEF 


XTEMP 


0320 


51261 


124560 




JMP 


FRET,! ANS ■ X*Ch£BY(2*Xt2 -1) 


0321* 












0322 


51262 
51263 


050574 
141000 


TOPI 


DEC 


,636619772 2/PI 


0323 


51264 
51265 


100000 
000004 


MM4 


DEC 


<*4t 


0324 


51266 
51267 


047605 
072733 


C0EF2 


OEC 


1.18496E.6 


0325 


51270 
51271 


134143 
104751 




DEC 


»i t 365875E«4 


0326 


51272 
51273 


045261 
157365 




DEC 


9.118016E-3 
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0327 


51274 


133371 


DEC 


••2852615692 




51275 


014777 








0328 


51276 


050656 


DEC 


2,5525579248 




51277 


107004 








0329 


5^300 


000000 


OCT 







0330* 


* 


* 








0331** COMPUTE TAN(X) * 








0332* 


* 


* 








0333 


51301 


015406 ETAN 


J3S 


.FMP 




0334 


51302 


051370 


OEF 


FOPI 


4/PI 


1^335 


51303 
51304 


104400 
001624 


DST 


XTEMP 




0336 


51305 


015402 


JSB 


,FAD 




0337 


51306 


051372 


DEF 


Kl 




0338 


51307 


015444 


JSB 


,PWR2 




0339 


51310 


000350 


DEF 


.•2 




0340 


51311 


015442 


JSB 


,IENT 




0341 


51312 


115145 


JSB 


RERRS+31, 


rl 


0342 


51313 


015346 


JSB 


FLOAT 




0343 


51314 


015370 


JSB 


ARINV 




0344 


51315 


015444 


JSB 


t PWR2 




0345 


51316 


000354 


DEF 


.♦2 




0346 


51317 


015402 


JSB 


,FAD 




0347 


51320 


001624 


DEF 


XTEMP 




0348 


51321 
51322 


104400 
001624 


DST 


XTEMp 


X • x«4*EN T IEr(U*U/4) 


0349 


51323 


015404 


JSB 


• FSB 




0350 


51324 


051372 


DEF 


Kl 




0351 


51325 


071436 


STA 


LBTMP 




0352 


51326 


002020 


SSA 




X<1? 


0353 


51327 


027362 


JMP 


ETAN2 


YES 


0354 


51330 
51331 


104200 
051374 


DUD 


K2 


NO 


0355 


51332 


015404 


J3B 


,FSB 




0356 


51333 


001624 


DEF 


XTEmP 




0357 


51334 
51335 


104400 ETaNI 
001626 


DST 


YTEMP 


Y « 2»X 


0358 


51336 


015406 


JSB 


.FMP 




0359 


51337 


001626 


DEF 


YTEmP 




0360 


51340 


015406 


JSB 


,FMP 




0361 


51341 


051374 


DEF 


K2 




0362 


51342 


015404 


JSB 


t FSB 




0363 


51343 


051372 


DEF 


Kl 




0364 


51344 


015440 


JSB 


.CHEB 




0365 


51345 


051376 


DEF 


COEF0 




0366 


51346 


015406 


JSB 


.FMp 




0367 


51347 


001626 


DEF 


YTEMp 




0368 


51350 
51351 


104400 
001626 


DST 


ytEmp 


Y » Y*CnEBYC2*Yt2 *l) 


0369 


51352 


061436 


LDA 


LBTMP 




0370 


51353 


002020 


SSA 




X<1? 


0371 


51354 


027365 


JMP 


ETAN3 


YES 


0372 


51355 
51356 


104200 
051372 


DID 


Kl 


NO 


0373 


51357 


015410 


JSB 


,FDV 





PAGE 0215 #20 LIBRARY FUNCTIONS 



0374 


51360 


001626 




OEF 


YTEMP 






0375 


51361 


124560 




JmP 


FRET, I 


ANS ■ 1/Y 




0376 


51362 
51363 


104200 
001624 


ETAN2 


DID 


XTEMP 






0377 


51364 


027334 




JMP 


ETAN1 


Y • X 




0378 


51365 
51366 


104200 
001626 


ETA N 3 


D U D 


YTE M P 






0379 


51367 


124560 




JMP 


FRET, I 


ANS « Y 




0380* 






> 










0381 


51370 


050574 


FUPI 


DEC 


1,273239545 






51371 


141002 












0382 


51372 
51373 


040000 
000002 


K l 


DEC 


1. 






0383 


51374 
51375 


040000 
000004 


*2 


DEC 


2. 






0384 


51376 
51377 


076061 
075315 


COEF0 


DEC 


1.4458E-8 






0385 


51400 
51401 


066034 
176725 




D£C 


2,013766 E , 


-7 




0386 


51402 
51403 


057035 
03033b 




DfcC 


2,804816e> 


.6 




0387 


51404 
51405 


050755 
114745 




DEC 


3.906637E. 


•5 




0388 


51406 


043523 




DEC 


5.4417038E-4 






51407 


052355 












0389 


51410 


076U2 




DEC 


7.586101578E-3 






51411 


065763 












0390 


51412 


066520 




DEC 


,10675392857 






51413 


163773 












0391 


51414 


070512 




DEC 


1,7701474227 






51415 


014002 












0392 


51416 


000000 




OCT 









0393* 


* 




* 










0394** COMPUTE ATN(X) * 










0395* 


* 




* 










03^6 


51417 
51420 


104400 
001624 


EATN 


DST 


XTEMP 






0397 


51421 


060001 




LDA 


1 






0398 


51422 


010443 




AND 


B377 






0399 


51423 


071436 




STA 


lbtmp 






0400 


51424 


002002 




SZA 








0401 


51425 


000010 




SUA 




ABS(X) » 


1? 


0402 


51426 


027463 




JMP 


EATN2 


NO 




0403 


51427 
51430 


104200 
051372 




DUD 


Kl 


YES 




0404 


51431 


015410 




JSB 


.FPV 






0405 


51432 


001624 




DEF 


XTEMP 


U » 1/X 




0406 


51433 
51434 


104400 
001630 


EATNl 


DST 


UTEMP 






0407 


51435 


015406 




JSB 


,FMP 






0408 


51436 


001630 




DEF 


UTEMP 






0409 


51437 


015406 




JS& 


,FM P 






0410 


51440 


051374 




DEF 


K2 






0411 


51441 


015404 




JSB 


,FSB 






0412 


51442 


051372 




DEF 


Kl 
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0413 
0414 
0415 
0416 
0417 

04*8 
0419 

0420 
0421 
0422 

0423 
0424 

0425 

0426 
0427 

0428 
0429 

0430 
0431 

0432 
0433 
0434 

0435* 
0436 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449* 

0450* 



51443 
51444 
51445 
51446 
51447 
51450 

5l45l 
51452 

51453 
51454 
51455 
51456 
51457 
5146^ 
51461 
51462 
51463 
51464 
51465 
51466 
51467 
51470 
51471 
51472 
51473 
51474 
51475 

51476 
51477 
51500 
51501 
51502 
51503 
51504 
51505 
51506 
51507 
51510 
51511 
51512 
51513 
51514 
51515 
51516 
51517 
51520 

51521 
51522 
51523 
51524 
51525 
51526 
* 
* COM 



015440 
051502 
015406 

001630 
104400 
001626 
06U36 
0020.02 

000010 
027466 

061624 

002020 
027471 

104200 
051476 
027473 
104200 
001624 
027433 
104200 
001626 
124560 
104200 
051500 
015404 
001626 
124560 

062207 
166402 
115570 
011402 
106671 
102315 
056335 
156323 
131601 
137731 
040033 
035737 
111013 
123343 
060542 
000351 
122573 
062757 
055471 
107365 
111620 
147373 
070320 
155002 
000000 



EATN2 



EATN3 



EATN4 



JSB ,CHEB 




DEF COEF1 




JS8 ,FMP 




OEF UTEMP 




E>8T YTfcMp 


Y » U*CMEBY 


LOA L8TMP 




92A 




SUA 


ABSCX) > x'i 


JMP EATN3 


NO 


LOA XTEMP 


yes 


SSA 


X<0? 


JMP EATN4 


YES 


DLO PIBY2 


NO 


JMP E*TN4+2 




DLO XTEMP 




JMP E A TNl 


u » X 


DLO YTEMP 




JMP FRET,! 


ANS i Y 


OLD MP2 




JSB .F3B 




DEF YTEMP 




JMP FRET,! 


AN3 « -PI/2 



PIBY2 DEC 1,5707963268 PI/2 
MP2 oEC wl, 5707963268 -PI/2 
COEF1 DEC -1,33034 E *8 

DEC 8.64888E.8 

D E C „56,99l86 E -8 

DEC 3.82l037g w 6 

DEC -2.6215196E.5 

DEC 1.6574297E-4 

OEC -1.36U95K04E-3 

DEC ,01113584206 

DEC -.1068929245 

DEC 1.762747174 

OCT 



PUTE EXPCXJ * 
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0451* 

0452 

0453 

0454 

0455 

0456 

0457 
0456 
0459 
0460 
046i 

0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 

0470 
0471 
0472 

0473 
0474 
0475 

0476 
0477 
0476 

0479 

0460 
0481 
0482 

0483 

0464 
0485 
0466 
0487 
0488 
0489 
0490 
0491 
0492 

0493 

0494 



* 

51527 

51530 

51531 

51532 

51533 

51534 
51535 
51536 
51537 
51540 
51541 
51542 
51543 
51544 

515*5 
51546 

51547 

51550 

51551 

51552 

51553 

51554 

51555 

51556 

51557 

51560 

51561 

51562 

51563 

51564 

51565 

51566 

51567 

51570 

51571 

51572 

51573 

51574 

51575 

51576 

51577 

51600 

5166)1 

51602 

51603 

51604 

51605 

51606 

51607 

51610 

51611 

51612 
51&13 
51614 



015434 
124560 
015406 
051651 
104400 
001624 
015442 
027630 
071436 
015346 
104400 
001626 
061436 
043637 
002021 
027630 
043640 
002020 
027625 
104200 
001624 
015404 
001626 
104400 
001624 
015406 
001624 
104400 
001630 
015402 
051641 
104400 
001626 
104200 
051643 
015410 
001626 
104400 
001626 
104200 
051645 
015406 
001630 
015402 
051647 
015404 
001624 
015404 
001626 
104400 
001626 
104200 
00U24 
015410 



EtXP JSB ,EXP 

JMP FRET, I 

#EXP JSB ,F M P 
DEF L2E 
OST XTEMP 

JSB ,IENT 
JMP # EXP2 
STA LBTMP 
J3B FLOAT 
OST YTEMP 

IDA LBTMP 
ADA M124 
3SA,RSS 
JMP .EXP2 
ADA ,244 
S3A 

JMP f EXPl 
OLD XTEMP 

JSB ,FSB 
OEF YTEMP 
D3T XTEMP 

JSB ,FMp 
DEF XTEMP 
DST UTEMP 

J8B ,FAD 
DEF AAAA 
D3T YTEMP 

DLD BBBB 

JSB ,FDV 
DEF YTEmP 
DST YTEMP 

DLD CCCC 

JSB ,FMp 

DEF UTEMP 

JSB f FAD 

DEF DDDD 

JSB ,FSB 

DEF xTEMP 

JSB ,FSB 

DEF YTEMP 

DST YTEMp 

DLD XTEMP 

JSB .FQV 



X * ARG*L0G2CE) 



Y p ENTIERiX) 



X >» 124? 
YES 

NO 

X < »120? 

Y E3 

NO 



X * X»ENTIE«(X) 



U * Xt2 



Y ■ XT2+AAAA 



Y ■ BBBb/Y 



Y P »X*DDDD*CCCC*Xt2f Y 



PAGE 


0218 #20 LIB 


KAHY FUNCTIONS 






0495 


516J5 


001626 




DEF 


VTEMP 






0496 


51616 


015402 




JSB 


,FAD 






0497 


51617 


001040 




DEF 


HALF 






0496 


51620 


035436 




isz 


LBTMP 






0499 


51621 


000000 




NOP 








0500 


51622 


015444 




J3B 


.PWR2 






0501 


51623 


001436 




DEF 


LBTMP 






0502 


51624 


125434 




JMP 


,EXP,I 


ANS 9 


(0,5*X/Y)#2tENTJE 


0503 


51625 


002400 


,EXP1 


CIA 








0504 


51626 


006400 




cue 








0505 


51627 


125434 




JMP 


.EXP,I 


ANS ¥ 





0506 


51630 


061436 


.txP2 


IDA 


LBTMP 


LARGE 


ARGUMENT 


0507 


51631 


002020 




SSA 




NEGATIVE? 


0506 


51632 


027625 




JMP 


.EXPl 


YES 




0509 


51633 


115213 




J86 


WERRS+4,1 


NO 




0510 


51634 


060274 




LDA 


INF 






0511 


51635 


064350 




LOB 


»"2 


ANS ■ 


POSITIVE INFINITY 


0512 


51636 


125434 




JMP 


,EXP,1 






0513* 
















0514 


51637 


177604 


M124 


DEC 


»124 






0515 


51640 


000364 


,244 


DEC 


244 






0516 


51641 


053552 


AAAA 


DEC 


87,417497202 






51642 


160416 












0517 


51643 


046477 


BBBB 


DEC 


617,9722695 






51644 


016424 












0518 


51645 


043372 


cccc 


DEC 


,03465735903 






51646 


070371 












0519 


51647 


047643 


ODDD 


DEC 


9,9545957821 






51650 


001410 












0520 


51651 


056125 


L2E 


DEC 


1,4426950409 






51652 


017002 
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0002* 

0003* 

0004* 

0005 

0006 

0007 

000a 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 
0018 
0019 

0020 

0021 
0022 
0023 
0024 
0025 

0026 
0027 

0028 
0029 

0030 

0031 

0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049* 



* COMPUTE 
* 

51653 
51654 
5*655 
51656 
51657 
51660 
51661 
51662 
51663 
51664 
51665 
51666 
51667 

51670 
51671 
51672 
51673 
51674 
51675 

51676 
51677 
51700 
51701 
51702 
51703 
51704 
51705 
51706 
51707 
51710 
5l7 U 
51712 
51713 
51714 
51715 
51716 
51717 
51720 
51721 
51722 
51723 
51724 
51725 
51726 
51727 
51730 
51731 

51732 
51733 
5*734 
51735 



015436 
124560 
002003 
027732 
002020 
115141 
071624 
015414 
075625 
015346 
104400 
001626 
104200 
001624 
015402 
051737 
104400 
001630 
104200 
001624 
015404 
051737 
015410 
001630 
104400 
001630 
015406 
001630 
015404 
051747 
104400 
001624 
104200 
051745 
015410 
001624 
015402 
051743 
015406 
001630 
015404 
001040 
015402 
001626 
015406 
051741 
125436 

115210 
061036 

067736 
125436 



LOG(X) * 
E L 0G 



#LQG 



U ■ X«-SQR(0,5) 



U * (X*SQR(0,5))/U 



,LOGi 



JSB ,LOG 

JMP FRET, I 

SZA,RSS NQN-ZERO ARGUMENT? 

JMP ,tOGl NO 

SSA YES, POSITIVE ARGUMENT? 

JSB RERRS+27,1 NO 

STA XTEMP YES, 

JSB f FLUN SAVE MANTISSA 

STB XTEMP+1 AND FLOATED 

JSB FLOAT EXPONENT 

DST YTEMP SEPARATELY 



DUD XTEMP 

JSB .FAD 
DEF R22 
D3T UTEMP 

OLD XTEMP 

JSB ,FSB 
DEF R22 
JSB ,FDV 
DEF UTEMP 
DST UTEMp 

JSB ,FMp 
DEF UTEMP 
JSB ,FSB 
DEF CCC 
DST XTEMP 

OLD MB 

JSB ,FDv 
DEF XTEMp 
JSB .FAD 
DEF AAA 
JSB ,FMP 
DEF UTEMP 
JSB t FSB 
DEF MALF 
JSB ,FAD 
DEF YTEMP 
JSB ,FMP 
DEF LE2 
JMP .LOG, I 
JSB WERRS+!,I 
LDA MNEG 
LDB B776 
JMP tt.O<»,I 



ANS « C0G(2)* 

<MANTI38A«0,5*U*CAAA+MB/X)) 



ANS » NEGATIVE INFINITY 
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0050 
0051 

0052 

0053 

0054 

0055 



51736 
51737 
51740 
51741 

51742 
51743 

51744 
51745 
51746 
51747 
51750 



000776 
055202 
075000 
054271 
006000 
051260 

037402 
125606 
044404 
065010 
063002 



B776 

R22 

LE2 
AAA 

MB 

ccc 



OCT 
DEC 

DEC 
DEC 
DEC 
DEC 



776 
.707106781 

,6931471806 

1,2920070987 

«2, 6398577035 

1,6567626301 



8QR(0,5) 

LOG BASE E (2) 
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0057* 

0058* 

0059* 

0060* 

0061* 

0062* 

0063* 

0064* 

0065* 

0066* 

0067* 

0066* 

0069* 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

dtd77 

007 8 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086* 

0087* 



ENTER WITMl 

CA)»l IF PBFLG HAS TO BE SET, 

CA)»2 IF PBf-LG HAS TO BE CLEARED, 

(A)«4 IF PBFLG AND CBFLG HAVE TO BE CLEARED, 

(B)« POINTER TO ?FLAG 

EXIT WITH ORIGINAL CONTENTS IN B, 



51751 «EDAB EQU * 

51751 103100 CLF 

51752 002011 SlA,RSS 

51753 027757 JMP **4 

51754 060616 LDA PBFLG 

51755 130001 IOr 8,1 

51756 027764 JMP #EDBl 

51757 001310 RAR,8LA 

51760 060616 LDA PBFLG 

51761 060447 LDA B30M 

51762 003000 CMA 

51763 110001 AND B,I 

51764 #EDBl EQU * 
Jjl764 170001 STA B,I 

51765 102100 STF to 

51766 125564 JMP EtfABR,! 



BIT#0 SET? 
YES, SET PBFLG, 



NO, BIT#1 SET? 

YES, CLEAR PBFLG, 

NO, CLEAR PBFLG AND CBFLG. 



STORE ?FLAG WORD BACK, 
EXIT, 
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0089 52000 ORG 52000b 

0090 52000 063146 TENTH OCT 63146 

0091 52001 000063 863 OCT 63 

0092 52002 000120 B120 OCT 120 

0093 52003 177716 062 OCT ,,62 

0094 52004 1777H7 m71B OCT »71 

0095 52005 000776 BB776 OCT 776 

0096 52006 000106 f- OCT 106 

0097 52007 000U6 N OCT 116 
0098* * * 

0099** COMPUTE SQR(X) * 

0100* * * 

0101 52010 002003 ESQR SZA, 

0102 52011 124560 JMP 

0103 52012 002020 SSA 

0104 52013 115142 JSB 

0105 52014 071624 8TA 

0106 52015 015414 JSB 

0107 52016 000031 Sl»A, 

0108 52017 026055 JMP 

0109 52020 040351 ADA 

0110 52021 071436 STA 

0111 52022 075625 STB 

0112 52023 061624 LDA 

0113 52024 015406 JSB 

0114 52025 052070 DEF 

0115 52026 015402 JSB 

0116 52027 052074 DEF 

0117 52030 104400 ESQRl DsT 
52031 001626 

0118 52032 104200 OLD XTEMP 
52033 001*24 

0119 52034 015410 JgS ,FDV 

0120 52035 001626 DEF YTEmP 

0121 52036 015402 JSB ,FAO 

0122 52037 001626 DEF yTEMP 

0123 52040 015444 JSB ,PWR2 

0124 52041 000351 DEF ,«t 

0125 52042 104400 DST YTEMP 
52043 001626 

0126 52044 104200 DLO XTEMP 
52045 001*24 

0127 52046 015410 JsB ,FDV 

0128 52047 001626 DEF YTE M P 

0129 52050 015402 JSB ,FAD 

0130 52051 001626 DEF yTEMP 

0131 52052 015444 JSB ,PWR2 

0132 52053 001436 DEF LByMP 

0133 52054 124560 JMP FReT,I 

0134 52055 071436 ES0R2 STA LBTMP 

0135 52056 044443 AOB B377 

0136 52057 075625 stB XTEmP*1 

0137 52060 061624 L DA XTEMP 

0138 52061 015406 JSB ,FMP 

0139 52062 052066 DEF SA1 



up* 



RSS Xt 0? 

FRET, I YES, ANS « 

NO, X < 0? 
RERRS+28,1 YES 



XTEMP 
,FLUN 

AR8 

ESUR2 

»«1 

LBTMp 

XTEMP+1 

XTEMP 

,FMP 

SA2 

t FAO 

3B2 

YTEMP 



NO 

EXPONENT ODD? 
YES 
NO 

EXPQNENT/2 -1 
MANTISSA SAyED 



Y * 3B2+SA2*X 



Y » CY*X/Y)/2 



ANS » (P*F/P)*2tESQ0 
EXPONENT/2 

MANTlSSA/2 SAVED 
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0140 


52063 


015402 




JSB ,pAD 




0141 


52064 


052072 




DEF SB1 




0142 


52065 


026030 




JMP ESQR1 


Y * SB1+SA1*X 


0143* 












*>U4 


52066 

52067 


070000 
000000 


SA1 


DEC ,875 




0145 


52070 
52071 


045000 

000000 


SA2 


DEC ,578125 




0146 


52072 
52073 


043524 
046377 


SB1 


DEC ,27863 




0147 


62074 
52075 


066000 
000377 


SB2 


DEC ,421875 




0148* 


* 




* 






0149** COMPUTE BRK(X) * 






0150* 


* 




* 






0151* 












0152* 


ENTER WITH ARGUMENT IN A AND B, 




0153* 


IF X*0, DISABLE ABORT CAPABILITY 


• 


0154* 


IF X>0, ENABLE AB RT CApABlLlTY, 




0155* 


if x<0, uo nut disable or enable 


BUT JUST 


0156* 


RETURN A VALUE, 






0157* 












0156* 


RETURN WITHt 








0159* 












0l6»* 


1. 1 


8 If ABORT CAPABILITY WAS DISABLEO PREVIOUS 


0161* 


' 


ro EVALUATION, 






0162* 












0163* 


2. ■ 


►l If ABORT CAPABILITY WAS ENABLED PREVIOUS 


0164* 


' 


rO EVALUATION, 






0165* 












0166 


52076 


071624 


EBRK 


8T A xtemp 


STORE HIGH PART OF ARGUMENT, 


0167 


52077 


160257 




LuA MAIN, I 


A" ?FLAG 


0166 


52100 


010616 




AND PBFLG 




0169 


52101 


006400 




CLB 




0170 


52102 


002003 




SZA,RSS 


PBFlG BIT SET? 


0171 


52103 


064354 




LDB ,+2 


NO, SET (B)"EXPONENT Op *1, 


0172 


52104 


061036 




LDA FLGBT 


YES, SET tA)*l00000B t 


0173 


52105 


006003 




SZ6,RSS 


WAS PBFLG SET? 


0174 


52106 


002400 




CLA 


YES, SET RETyRN yALyE TO 0, 


0175 


52107 


001300 




rAr 


NO, 3ET RETURN VALUE TO *1, 


0176 


52110 
521U 


104400 
001626 




DST YTEMP 


SAVE, 


0177* 












0178 


52U2 


064257 




LD* MAIN 


(B)»> ? FLAG 


0179 


52113 


061624 




LDA XTEMP 


RETRIEVE HIGH PART OF ARGUMENT, 


0180 


52114 


002002 




SZA 


ARGUMENTS? 


0181 


52115 


026130 




JMp EBRK1 




0182 


52116 


002404 




ClA,InA 


YES, SET PB r *|.G TO 1 ("DISABLE 


0183 


52117 


015564 




JSB EDABR 


ABORT), 


0164 


52120 


103100 




C L F 




0185 


52121 


044366 




ADB ,+?STAT 


B«> ?STAT 


0186 


52122 


164001 




LDB B,I 


B« ?STAT 


0187 


52123 


003400 




CCA 




0188 


52124 


050001 




CPA B 




0189 


52125 


126137 




JMP SUSPN I 


QUIT IF ABORT REQUEST, 
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0190 


52126 


102100 




8TF 





0191 


52127 


026134 




JMP 


EBRK2 


0192 


52130 




EBRKl 


EQU 


* 


0193 


52130 


002020 




S3A 




0194 


52131 


026134 




JMP 


E6rK2 


0195 


52132 


060354 




LOA 


.♦2 


0196 


52133 


015564 




JSB 


EDABR 


0197 


52134 




EbR K 2 


EQU 


* 


0198 


52134 
52135 


104200 
001626 




OLD 


YTEMP 


0199 


52136 


124560 




JMP 


FRET, I 


0200* 












0201* 












0202 


52137 


071651 


SUSPN 


DEF 


SUSP 


0203* 












0204* 












0205* 













NO. ARGUMENT >0 OR <0? 
<0, 00 NOTHING, 
<0 SET PBFlG TO 0(iENABLE 
ABORT), 

RETURN WITH VALUE OF CONDITION 

PREVIOUS TO EVALUATION, 
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0207* 

0208** 

0209** 

0210** 

02U* 

0212* 

0213* 

0214* 

0215* 

KJ216* 

0217* 

0216* 

0219* 

0220* 

0221* 

0222* 

0223 

0224 

0225 

0226 

0227 

0220 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0230 

0239 

0240 

0241 

0242* 

0243** 

0244* 

0245 

0246 

0247 

0240 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 



********************** 
** *** 

* LIST THE PROGRAM *** 
** *** 

********************** 



'list' converts the current user program to a stanoaro ascii 
format and prints it on the teletype one line per program 
Statement, 'Punch* ados a leader and trailer to the ascii 

PROGRAM DUMp, LISTING BEGINS WITH THE FIRST PRqGRAM STATEMENT 

unless Directed otherwise by the 'list» or 'punch* command, 
ltl is the program position pointer. lt2 is the statement 
length counter. 



52l4fc) 
52141 
52142 
52143 
52144 
52145 
52146 
52147 
52150 
52151 
52152 
52153 
52154 
52155 
52156 
52157 
52160 
52161 
52162 



002404 
026144 
003401 
002400 
071400 
002400 
071552 
064702 
054056 
026574 
006404 
075432 
015464 
064056 
103100 
060354 
110257 
071442 
102100 



XPNCH cla, 

JMP 
PUNCH CCA, 
LIST CLA 
STA 
CLA 
STA 
LD8 
CPB 
JMP 
CL8, 

STB 
JSB 
LDB 
CLF 
LDA 
AND 
STA 
STF 



INA 

LIST+1 

RSS 

LT0 

L T 8 

PBUFF 

PBPTR 

LIS16 

INB 

LT3 

3INIT 

PBPTR 



CFLAG 

MAIN, I 

LT5 





SET TO 'XPUNCH' MODE 

SET TO 'PUNCH' MODE 
SET TO iLISTi MODE 
SAVE MODE 
SET FOR 

NO PAGINATION 

NULL 

PROGRAM? 
yES 
NO, SET FIRST STATEMENT NUMBER 

PREPARE PROGRAM FOR LISTING 



SAVE 

PROGRAM 
MODE 



DETERMINE FIRST STATEMENT TO BE LISTED 



* 
** 



52163 
52164 

52165 
52166 
52167 
52170 
52171 
52172 
52173 
52174 
52175 
52176 
52177 
52200 
52201 
52202 
52203 



002002 
065575 
075444 
065036 
075434 
015450 
026233 
006400 
050426 
026206 
052002 
026226 
015452 
015466 
050367 
026234 
050426 



S2A SAVE POINTER TO 

LDB SYMTB LAST WqRD +t 

STB LT6 OF PrQGrAM 

LDB BIT15 GET LARGE SEQUENCE NUMBER 

STB LT7 SET ENDING SEQUENCE NUMBER 

JSB GETCR STARTING LINE NUMBER? 

JMP LISCQ NO 

CLB 

CPA t *54B ChECK FOR COMMA 

J M P LISCm FIRST STATE m EnT nU M BER QmITTED, 

CPA B120 PAGINATION? 

JMP LISCP YES 

JSB BCKSP BACK UP FOR FIRST STATEMENT NUMB 

JSB BLDIN FETCH INTEGER 

CPA ,*15B CHECK FOR CARRIAGE RETURN 

JMP LISCR YES, END OF COMMAND 

CpA ,*54B CqMMA FqLLqWS? 
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0262 


52204 


002001 




R38 






YES 


0263 


52205 


115122 




JSB 


RERRS* 


12, 


rl 


0264 


52206 




LlSCM 


EGU 


* 






0265 


52206 


075432 




STB 


LT3 




SAVE STARTING SEQUENCE N UMBER 


0266 


52207 


015450 




JSB 


GETCR 




GET THE NEXT CHARACTER 


0267 


52210 


115122 




JSB 


RERRS* 


12, 


-I 


0266 


62211 


052002 




CPA 


B120 




CHECK FOR P 


0269 


52212 


026226 




JMP 


LISCP 




PAGINATION 


0270 


52213 


015452 




JSB 


BCKSP 




BACK UP FOR SECOND STATEMENT # 


0271 


52214 


015466 




JSB 


BLOIN 




GET INTEGER 


0272 


52215 


007000 




CMB 








0273 


52216 


075434 




8TB 


LT7 




SAVE ENDING SEQUENCE NUMBER 


0274 


52217 


050367 




CpA 


,♦158 




EnD qF RECORD? 


0275 


52220 


026233 




JMP 


L.ISCQ 




YES 


0276 


52221 


015450 




JSB 


GETCR 




NO, GET NfcXT CHARACTER 


0277 


52222 


115122 




JSB 


RERRS* 


12, 


-I 


0276 


52223 


052002 




CPA 


B120 




PAGINATION? 


0279 


52224 


002001 




RSS 






fES 


0280 


52225 


115122 




JSB 


RfeRRS* 


12, 


. I NO 


0261 


52226 




LISCP 


EQU 


* 






0262 


52226 


062004 




LQA 


M71B 




SET LINE COUNTER 


0283 


62227 


071552 




3TA 


LT8 






0284 


52230 


015450 




JSB 


GETCR 




TE8T FOR ENO OF LINE 


0285 


52231 


002001 




RSS 








0286 


52232 


115122 




JSB 


RERRS+12, 


,1 


0287 


52233 




L.XSCQ 


EQU 


* 






0286 


52233 


065432 




LOB 


LT3 




GET BACK STARTS SEQUE N CE NUMBER 


0289 


52234 




LISCR 


EQU 


* 






0290 


52234 


061444 




l oa 


LT6 




seek 


0291 


3223s 


015314 




JSB 


FNDP3 




STATEMENT 


0292 


52236 


026574 




JMP 


LIS16 




ALL LINE NUMBERS < GIVEN INTEGER 


0293 


Jj2237 


000000 




NOP 






SAVE DESIRED 


0294 


52240 


075432 




STB 


LT3 




STARTING POINT 


0295 


52241 


060364 




LOA 


.♦128 




OUTPUT A 


0296 


52242 


015454 




JSB 


OUTCR 




LINE FEED 


0297* 










* 






0298** OUTPUT PROGRAM NAME ** 






0299* 










* 






0300 


52243 


061571 




LOA 


LNAME 






0301 


52244 


071430 




STA 


LT1 






0302 


52245 


002004 




INA 






NULL 


0303 


52246 


160000 




LOA 


<M 






0304 


52247 


002003 




SZA, 


.RSS 




NAME? 


0305 


52250 


026257 




JMP 


LISCU 




YES 


0306 


52251 


006400 




ClB 






NO 


0307 


52252 


075274 




STB 


LT2 




OUTPUT 


0306 


52253 


060347 




LDA 


t '<*3 




PrOGrAM 


0309 


52254 


015462 




JSB 


0UT8T 




NAME 


0310 


522 5 5 


060367 




LOA 


.♦I5B 




OUTPUT 


0311 


52256 


015454 




JSB 


OUTCR 




CARRIAGE RETURN 


0312 


52257 




LJSCU 


EQU 


* 






0313 


52257 


060364 




LO A 


,♦128 




ANQ 


0314 


52260 


015454 




JSB 


OUTCR 




DOUBLE 


0315 


52261 


060364 




LOA 


.♦12B 




LINE 


0316 


52262 


015454 




JSB 


OUTCR 




FEED 
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0317* 

0318* 

0319* 

0320 

0321 

0322 

0323 

0324 

0325 

i)326 

0327 

0326 

0329 

0330 

0331* 

0332* 

0333* 

0334 

0335 

0336 

0337 

0338 

033g 

0340 

034U 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354* 

0355 

0356 

0357 

0356 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

037 1 



* OUTPUT LEADER IF 



52263 
52264 
52265 
52266 
52267 
52270 
52271 
52272 
52273 
52274 
52275 



002400 
051400 
026274 
060316 
071356 
002400 
015454 
035356 
026270 
065432 
075430 



'PUNCH' ** 
* 
CLA 

CPA LT0 

JMP HST2-2 

LOA M72B 

STA OIGCT 
CLA 

JSB OUTCR 

ISZ OIGCT 

JMP *.3 

LOB LT3 

ST8 LTl 



* MAIN LIST LOOP ** 



52276 065430 

52277 055444 

52300 026562 

52301 165430 

52302 045434 

52303 006021 

52304 026562 



UIST2 



52305 
52306 
52307 

52310 
52311 
52311 
52312 
52313 
52314 
52315 
52316 
52317 

52317 
52320 
52321 
52322 
52323 
52324 
52325 
52326 
52327 
52330 
52331 
52332 
52333 
52334 
52335 
52336 
52337 



035552 
026317 

060342 
071552 

060364 
015454 
035552 
026311 
060316 
071552 



165430 
015456 
060412 
015454 
035430 
161430 
015556 
161430 
003004 
002004 
071274 
026335 
165430 
015456 

035430 
035274 

026353 



LOB LTl 
CPB LT6 
JMP LIS15 
LDB LTl, I 
AOB LT7 
SSB,RSS 
JMP LXS15 



ISZ 

JMP 

LOA 

STA 

LISPF EQU 

LO A 
JSB 

ISZ 

JMP 

LOA 

STA 

I.ISPM EQU 



LOB 
JSB 
LOA 
JSB 
ISZ 
LOA 
JSB 
LOA 
CMA 
INA 
STA 
JMP 
LOB 
JSB 
ISZ 
ISZ 
JMP 



LIST3 



LT8 

LI8PM 

t <»8 

LT8 

* 

.♦12B 

OUTCR 

LT8 

LISPF 

M72B 

LT8 

* 

LTl, I 
OUTIN 
,+4tiB 
OUTCR 
LTl 
LTl, I 
STLCK 
LTl, I 
.INA 

LT2 
LIST3 

LTl, I 

OUTIN 

LTl 
LT2 
LIST4 



'LIST' 

MOOE? 
YES 
NO, 

OUTPUT 

FEED 
FRAMES 

FOR 

LEADER 
SET POINTER TO 
STARTING POINT 



PROGRAM 

EXHAUSTED? 

YES 
GET LINE NUMBER 
CHECK FOR END OF LISTING 
SKIP IF NOT DONE YET 
STOP LISTING HERE 

CHECK FOR NEW PAGE 
NOT YET 



OUTPUT A 
BUNCH OF 

LINE FEEDS 

RESET LINE COUNTER 



NO, OUTPUT 
LINE NUMBER 

OUTPUT 

BLANK 
CHECK 

STATEMENT 

LENGTH 
LENGTH 
COUNTER 

for 
statement 

Output 
bound 

MORE OF 

STATEMENT? 
YES 
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0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 

0380 

0381 

0382 

0383* 

0384* 

0385* 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 
0397 

0390 

0399 

0400 

0401 

0402 

0403 

0404 

0406 

0406* 

0407* 

0408* 

0409 

0410 

04H 

0412 

0413 

0414 

0415 

0416 

0417 

0416 

0419 

0420 

0421 

0422 

0423 

0424* 

0425* 

0426* 



52340 
52341 
52342 

52343 
52344 

52345 
52346 
52347 

52350 
52351 
52352 



002404 
051400 
002001 
026346 
060375 
015454 
060367 
015454 
060364 
015454 
026276 



* IDENTIFY OPERATOR 



52353 
52354 
52355 
52356 
52357 
52360 
52361 
52362 
52363 
52364 

52365 
52366 
52367 
52370 
52371 
52372 
52373 
52374 

52375 
52376 



161430 
010664 
002003 
026377 
050726 
026375 
001727 
042003 
002021 
026531 
042001 
040564 
160000 
001727 
010441 
050414 
026577 
002001 
060412 
015454 



LIST4 



* IDENTIFY OPERAND 



52377 

52400 
52401 
52402 
52403 
52404 
52405 
52406 
52407 
52410 
52411 
52412 
52413 
52414 
52415 



161430 
010700 
071432 
002020 
026451 
006400 
055432 
026335 
055442 
026416 
040351 
001000 
041575 
160000 
071432 



LISTS 



* LIST SYMBOLIC OPERAND 



CLA,INA 




CpA LT0 


XPUNCH? 


RSS 


YES 


JMP **3 


NO 


LDA ,*23B 


OUTPUT 


JS8 OUTCR 


X«OFF 


LDA ,*158 


NO, 


J8B OUTCR 


OUTPUT A 


LDA , + 12B 


CARRIAGE RETURN 


J3B OUTCR 


AND LINE FEED 


JMP LI3T2 




** 

• 




LDA LT1,I 


EXTRACT 


AND OPM9K 


OPERATOR 


SZA f RSS 


NULL OPERATOR? 


JMP LISTS 


YES 


CPA LETOP 


NO, UMPLIEDt LET? 


JMP LIST5*2 


YES, OUTPUT A BLANK 


ALF,ALF 


NO, 


ADA D62 


SXnSLE-CHARACTER 


SSA,RSS 


OPERATOR? 


JMP LI812 


NO 


ADA B63 


YES, 


ADA FOPBS 


EXTRACT 


LDA 0,1 


AgCII 


ALP»Al,F 


CODE 


AND B177 




CPA ,+428 


» ? 


JMP LI814 


YES 


RSS 


NO 


LDA ,*408 


LOAD A BLANK 


J8B OUTCR 




* 
** 

* 




LDA LT1,I 


EXTRACT 


AND OPDMK 


OPERAND 


S T A Lj3 




8SA 


FLAG BIT SET? 


JMP LIST* 


YES 


clb 


NO, NULL 


CP8 LT3 


OPtKAND? 


JMP L*ST3 


YES 


CpB LT5 


NO, 'COMPILED' ? 


JMP LIST0 


NO 


ADA ,-1 


YES 


ALS 


LOAD 


ADA SYMT8 


ACTUAL 


LDA 0,1 


SYMBOL 


STA LT3 


save symbol 


AND ** 

* 





PAGE 6)229 #21 Li8T ROUTINES 



0427 
0428 

0429 

0430 

0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 

0439 

0440 
0441 
0442 
0443 
0444 

0445 
044g 

0447 

0448 
0449 

0450 

0451 

0452 

0453 

0454* 

0455** 

0456* 

«457 
0456 
0459 
0460 
0461 
0462 
0463 
0464 

0465 
0466 
0467 
0466 
0469 
0470 
0471 
0472 
KJ473 
0474 
0475 
0476 
0477 
0476 
0479 
0480 



52416 
52417 
52420 
52421 

52422 
52423 
52424 
52425 
52426 
52427 
52430 
52431 
52432 
52433 
52434 
52435 
52436 
52437 

52440 
52441 

52442 
52443 
52444 

52445 
52446 
52447 
52450 



010672 

050371 
026444 
061432 
101104 
010411 

«40772 
015454 
061432 
010371 
060371 
026335 
002003 
026442 
040345 
002020 
026335 
040432 
015454 
026335 
060416 
026440 
062006 

015454 
062007 

015454 
026421 



.18T0 AND 
CPA 
JMP 

.18T6 LDA 
RRR 
AND 
ADA 
JSB 
LDA 
AnU 
CPA 
JMP 
S2A 
JMP 
ADA 
SSA 
JMp 
ADA 
JSB 
JMP 

.IST7 LDA 
JMP 
1ST8 lDA 
J38 
LDA 
J3B 
JMP 



PDFFL 
. + 17B 

LI8T8 
LT3 

4 
,♦378 

B100 
OUTCR 
LT3 
,♦178 
,♦178 
LI8T3 
,RSS 
LI8T7 
,•5 

LI3T3 
,♦608 
OUTCR 
L1ST3 
• ♦44B 

*a>3 

F 

OUTCR 

N 

outcr 

LIST6 



ISOLATE TYPE PaRT 

FUNCTION? 

YES 

NO, 

COMPUTE 
ASCII FOR 
LETTER 
OUTPUT LETTER 



FUNCTION-/ 

YES 

NO, STRING VARIABLE? 

YES 

NO 

DIGIT? 

NO 

YES, 

OUTPUT IT 

LOAD ASCII 'S' 

OUTPUT 

•FN' 



LI8T CONSTANT OPERAND OR PARAMETER ** 

* 
CLE, ERA CLEAR FLAG PIT 
CONSTANT? 
NO 
YES, SET 

FOR NO SIGN 
LOAD 



52451 
52452 
52453 
52454 
52455 
52456 
52457 
52460 
52461 
52462 
52463 

52464 
52465 
52466 
52467 

52470 
52471 
52472 
52473 
52474 
52475 
52476 
52477 
52500 
52501 



001665 
002002 
026470 
071672 
071266 
035430 
035274 
104200 
101430 
035430 
0352 7 4 
002120 
002300 
015422 
026335 

010371 
050355 

026503 
050371 
002001 
026421 
061432 
001722 
064510 
015460 



,IST9 ELA, 
SZA 
JMP 
8TA 
STA 
ISZ 

isz 

OLD 



LI810 

Cmrct 

SIGN 
LT1 
LT2 
LT1,I 



ISZ 
ISZ 
CLE, 
CCE 

JSB 
JMP 
IS10 AND 
CPA 
JMP 
CPA 

RSS 

JMp 

LDA 

ALF, 

LOB 

JSB 



LT1 

LT2 
SSA 

NUMOT 
LIST3 
.♦17B 

.♦3 

HSU 

.♦17B 

LIST6 

LT3 

RAL 

ATAB 

MCOUT 



CONSTANT 



NEGATIVE NUMBER? 
YES ENABLE 3IGN 
OUTPUT THE CONSTANT 

ISOLATE TYPE PART 

PROGRAM INTEGER? 

YES 

NO, PRE-DEFINED FUNCTION? 

YES 

NO' MUST BE A PARAMETER SYMBqL 

OUTPUT 

FUNCTION 
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0481 


52502 


026335 




JMP 


LI3T3 


SYMBOL 


0482 


52503 


035430 


LIS11 


ISZ 


LT1 




0483 


52504 


035274 




I8Z 


LT2 




0484 


52505 


061440 




LOA 


LT4 


RESTORE OPERATOR 


0465 


52506 


050636 




CPA 


DIMOP 


<OIM STATEMENT* ? 


0486 


52507 


026333 




JMP 


HST3.2 


YE3 


0487 


52510 


050742 




CPA 


COMOP 


NO, «COM»? 


0486 


52511 


026333 




JMP 


LIST3-2 


y£S 


0489 


52512 


061442 




LOA 


LT5 


NO 


0490 


52513 


165430 




LOB 


LT1,I 


LOAO PROSPECTIVE INTEGER 


0491 


52514 


002002 




SZ* 




PROGRAM • COMPILED t. ? 


0492 


52515 


164001 




lob 


1,1 


YES 


04g3 


52516 


015456 




J SB 


OUTIN 


OUTPUT INTE6ER 


04g4 


52517 


035430 




ISZ 


LT1 


MORE 


0495 


52520 


035274 




ISZ 


LT2 


STATEMENT'/ 


0496 


52521 


002001 




RS3 




YES 


0497 


52522 


026340 




JMP 


LI3T3+3 


NO 


0498 


52523 


061440 




LOA 


LT4 


LISTING 


0499 


52524 


050776 




CPA 


USEOP 


•USING' 1 


0500 


52525 


026353 




JMP 


LIST4 


YES 


0501 


52526 


060426 




LOA 


,♦548 


EMIj 


0502 


52527 


015454 




JSB 


OUTCR 


A COMMA 


0503 


52530 


026612 




JMP 


LI811+7 




0504* 












* 


0505** LIST MULTICHARACTER OPERATOR 


** 


0506* 












* 


0507 


52531 


060412 


LIS12 


LDA 


,*40B 


OUTPUT 


0508 


52532 


015454 




JSB 


OUTCR 


A BLANK 


0509 


52533 


161430 




LOA 


LTl,I 


OUTPUT 


0510 


52534 


064470 




LOB 


MCBOP 


MULTICHARACTER 


0511 


52535 


015460 




JSB 


MCOUT 


OPERATOR 


0512 


52536 


060412 




LOA 


,♦408 




0513 


52537 


065440 




LOB 


LT4 


WAS IT 


0514 


52540 


054642 




CpB 


REMOP 


A »REM« ? 


0515 


52541 


026556 




JMP 


HS13 


YES 


0516 


52542 


054660 




CPB 


FILOP 


NO, !FILES» 1 


0517 


52543 


026555 




JMP 


HS13-1 


yES 


0518 


52544 


054746 




CPB 


IMGOP 


NO, 'jMAGE'? 


0519 


52545 


026550 




JMP 


LIS18 


YES 


0520 


52546 


015454 




JSB 


OUTCR 


NO, OUTPUT A BLANK 


0521 


52547 


026377 




JMP 


LIST5 




0522 


52550 


006400 


LIS18 


CLB 






0523 


52551 


061274 




LOA 


LT2 




0524 


52552 


002006 




INA, 


-SZA 




0525 


52553 


015462 




JSB 


OUTST 


OUTPUT IMAGE STRING 


0526 


52554 


026335 




JMP 


LI8T3 




0527 


52555 


015454 




jSe 


OUTCR 


OUTPUT A BLANK 


0528 


52556 


007400 


L1S13 


CCB 




OUTPUT 


0529 


52557 


061274 




LOA 


LT2 


THE 


0530 


52560 


015462 




JSB 


OUTST 


REMARK 


0531 


52561 


026335 




JMP 


LIST3 




0532* 










* 




0533** OUTPUT TRAILER IF 


•PUNCH! ** 




0534* 










* 




0535 


52562 




LISJ5 


EGU 


* 
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10536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 

0544 
0545 

0546* 

0547 

0548 

0549 

0550* 

0551* 

0552* 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565* 

0566* 

0567* 

0568* 

0569* 

0570* 

0571* 

0572* 

0573 

0574 

0575 

0576 

0577 

0578 

fc>579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

05 8 9 

0590 



52562 
52563 
52564 
52565 
52566 
52567 
52570 
52571 
52572 
52573 

52574 
52575 
52576 



002400 
051400 
124514 
060316 
071356 
002400 
015454 
035356 

026567 
124514 

060364 
015454 
124514 



IIS16 



CLA 
CPA 
JMP 
LOA 
8TA 
CIA 
438 
ISZ 
JMP 
JMP 

LOA 
J88 
JMP 



LT0 

SCHEN,I 
M72B 
OIGCT 

OUTCR 
OIGCT 
*«»3 
3CHfcN,I 

.♦129 
OUTCR 
SCHEN,I 

* 



♦LIST' 

MODE? 
YES 
NO, 

OUTPUT 
FEED 
FRAMES 
FOR 

TRAILER 



ECHO 
LINE 
FEED 



* LIST A STRING CON8TANT ** 



52577 

52600 
52601 
52602 
52603 
52604 
52605 
52606 
52607 
52610 
52611 
52612 

* 

** 



015454 
161430 
010443 
002003 
026610 
003004 
001100 
006400 
015462 
060414 
015454 
026335 



LI814 



LIS17 



* 
J3B OUTCR 
LOA LT1,I 
AND 8377 
SZA#RS3 
JMP LIS17 
CMA,INA 
ARS 
CLB 

JSB OUTST 
LOA ,*423 
J8B OUTCR 
JMP LISTS 



LIST A MULTICHARACTER SYMBOL 



OUTPUT « 
COMPUTE 
WORDS 



OF 

STRING 

OUTPUT 
STRING 

YES, OUTPUT IT 

** 
*** 

** 



UPON ENTRY (A) HOLDS A WORD CONTAINING A SYMBOL CODE AND <B) 
HOLDS A POINTER TO THE PRINT NAME TABLE, THE SYMBOL IS POUND 
IN THE TABLE AND ITS ASCII FORM OUTPUT, 



52613 
52614 
52615 
52616 
52617 
52620 
52621 
52622 
52623 
52624 
52625 
52626 
52627 
52630 
52631 

52632 
52633 

52634 



010664 
071440 
160001 
010664 
051440 
026627 
160001 
010361 
040355 
001100 
044000 
026615 
160001 
010361 
003004 
001100 
071432 
075462 



#MCOT 
MLOjl 



MC T2 



AND 0PM3K 


SAVE 


STA LT4 


SYMBOL 


LOA 1,1 


DESIRED 


AND 0PM8K 


TABLE 


CPA LT4 


ENTRY? 


JMP MCOT2 


YES 


LOA 1,1 


NO, 


AND ,*7 


COMPUTE 


ADA .*3 


ADDRESS 


ARS 


OF NEXT 


ADB 


ENTRY 


JMP MCOT1 




LDA 1,1 


Compute 


AND ,*7 


COUNT 


CMAflNA 


OF 


ARS 


ASCII 


STA LT3 


WORDS 


STB OUTST 


SAVE ASCII SYMBOL ADDRESS 
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0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602* 

0603* 

0604* 

0605* 

0606* 

0607* 

0608* 

0609* 

0610* 

0611 

06l 2 

0613 

0614 

0615 

0616 

0617 

0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 



52635 
52636 
52637 
52640 
52641 
52642 
52643 
52644 
52645 
52646 
52647 



035462 
161462 
001727 
015454 
161462 
010443 
002002 
015454 
035432 
026635 
125460 



MLO 



** LIST A 3TRING 



T3 1S2 
LDA 
ALF, 

jse 

LO* 
AND 

SZ* 

JSB 
I3Z 

JMP 
JMP 

** 
• ** 

** 



OUTST MOVE TO NEXT WORD OF SYMBOL 

OUTST,l OUTPUT 

ALF HIGH 

OUTCR 

OUTST, I OUTPUT 

8377 LOW CHARACTER 

IF NOT 

OUTCR NULL 

LT3 MORE SYMBOL? 

MC0T3 YES 

MCOUT,I NO 



UPON 
(8) 
(8; 
CL T 1 

52650 
52651 
52652 
52653 
52654 
52655 
52656 
52657 
52660 
52661 
52662 
52663 
52664 
52665 
52666 



ENTRY (A) HOLDS A NEGATIVE WORD COUNT OF THE STRING, IF 
# THE STRING BEGINS WITH THE LOW HALF OF (LTD, I ; IF 
9 IT BEGINS WITH THE HIGH HALF OF THE WORD FOLLOWING 

),i , a trailing null character will not be PrIn t ed, 



071440 
006002 
026660 
035430 
035274 
161430 
001727 
015454 
161430 
010443 
002002 
015454 
035440 
026653 
125462 



#OTST 



0T3T1 



0TST2 



STA LT4 


SAVE STRING WORD COUNT 


SZB 


•REM« ? 


JMP 0T8T2 


YES 


ISZ LT1 


NO, MOVE TO 


ISZ LT2 


NEXT PROGRAM WORD 


LDA LT1,I 


OUTPUT 


ALF, ALF 


HIGH 


JSB OUTCR 




LDA LTlfl 


OUTPUT 


AND B377 


LOW CHARACTER 


SZA 


IF NOT 


JSB OUTCR 


NULL 


ISZ LT4 


MORE STRING? 


JMP OTSTl 


YES 


JMP OUTST, I 


NO 
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0002** 




** 




0003*** HANDLE OVERFLOW *** 




0004** 




** 




0005* 










0006* 


(A) CONTAINS 


1 THE HIGH MANTISSA 


UPON ENTRY, CA) AND 


0007* 


(6) < 


CONTAIN 


THE LARGEST REPRESENTABLE NUMBER OF 


0008* 


APPROPRIATE 


SIGN, PACKED, UPON 


EXIT, 


0009* 










0010 


52667 


064350 


#OVFL LOB ,»2 




0011 


S2670 


002020 


S8A 




0012 


62671 


066005 


LDB BB776 




0013 


52672 


030274 


IOR INF 




0014 


52673 


002020 


8SA 




0015 


52674 


061036 


LDA MNEG 




0016 


52675 


125310 


JMP OVFLW,! 




0017** 




** 




0018*** CHECK 0VER/UNDERFL0W8 *** 




0019** 




** 




0020* 










0021* 


EXIT 


TO (P*l) IF STATUS IS NOT 


SYNTAX. ELSE EXIT TO (P+2), 


0022* 


SETTING 3YMTB ■ 4 IF IN KEYBOARD MOPE, THESE ERRORS ARE NOT 


0023* 


REPORTED IF 


i N tape mqde. 




0024* 










0025 


52676 


061571 


#CHOU LDA LNAME 


COMPUTE 


0026 


52677 


040362 


AOA ,*?3tAt-.?ID 


0027 


52700 


164000 


LDB 0,1 


STATUS 


0026 


52701 


054356 


CPB ,*4 


SYNTAX? 


00g9 


52702 


002001 


RSS 


YES 


0030 


52703 


026712 


JMP CHOUl 


NO 


0031 


52704 


060362 


LDA TAPEF 


TAPE 


0032 


52705 


110257 


AND MAIN, I 




0033 


52706 


002003 


SZA,RSS 


MODE? 


0034 


52707 


075575 


STB SyMTB 


NO 


0035 


52710 


035476 


ISZ ChOUF 




0036 


527U 


125476 


JMP CHOUF , I 




0037 


52712 


035611 


CHOUl ISZ ENOuF 


ARE WE EXECUTING EN T £R stAtE? 


0036 


52713 


002001 


RSS 


NO 


0039 


52714 


035476 


ISZ CHOUF 


YES«"*8UPPRESS ERROR 


0040 


52715 


125476 


JMP CHOUF,! 




0041** 




** 




0042*** LOOK FOR » 


, NUMBER *** 




0043** 




** 




0044* 










0045* 


NUMCK LOOKS 


FOR AN UN8IGNED NUMBER, SIGN MUST BE SET 


0046* 


BY THE CALLER (SIGN • • } FOR NEGATIVE, ELSE POSITIVE), 


0047* 


(A) ( 


:on t ain s 


1 A CHARACTER UPON EN T RY; IF Iy Is NEIjHEH 


0048* 


A DIGIT NOR 


A DECImAi PQlNT, EXIT IS TO (P+U wITH 


0049* 


(A) ( 


JNrHANGED AND (B) » 0, EXIT IS TO ERROR ON FINDING 


0050* 


AN EXPONENT 


part of incorrec? format, zero replaces an 


0051* 


UNDERFLOW) THE LARGEST REPRESENTABLE NUMbER OF THE 


0052* 


APPROPRIATE 


SIGN REPLACES AN OVERFLOW, AFTER STORING A 


0053* 


FLOATING POINT NUMBER IN M AND 


M*l (WHErE SBPTK/I ■ M) 


0054* 


EXIT 


IS TO (P*2) WITH THE NEXT 


Input string character 


0055* 


IN (A) AND TEMP+1. 




0056* 




» 







PAGE 


0234 i 


*22 ASCII TU l 


BINARY NUMBER 


CONVERSION 




0057 


52716 


006400 


3NMCK 


cue 




ZERO 




0058 


52717 


075322 




8TB 


EXP 


AUU 




0059 


52720 


075316 




STB 


MANT1 


COMPONENTS 




0060 


52721 


075320 




STB 


MANT2 


OF THE 




0061 


52722 


075324 




STB 


EXPON 


NUMBER 




0062 


52723 


075614 




STB 


TEMP+l 


SET iNUMBER FUAGi FAUSE 




0063 


52724 


007400 




CCB 




SET 'DECIMAU pOINT' 




0064 


52725 


075752 




STB 


DPFUC 


FUAG FALSE 




0065 


52726 


050430 


NUMC1 


CpA 


,♦568 


DECIMAL POINT? 




0066 


52727 


035752 




ISZ 


DPFUG 


YES 




0067 


52730 


026734 




JMP 


NUMQ2 


NO 




0066 


52731 


002400 




CIA 




ZERO POST-DECIMAL 




0069 


52732 


071324 




STA 


ExPON 


DIGIT 




0070 


52733 


026771 




JMP 


NUMC4+1 


COUNTER 




0071 


52734 


015264 


NUMC2 


JSB 


DIGCK 


DIGIT? 




0072 


52735 


027005 




JMP 


NUMC7 


NO 




0073 


52736 


035324 




ISZ 


EXPON 


YES, COUNT OIGJT 




0074 


52737 


100033 




ASL 


11 


LEFT-JUSTIFY DIGIT 




0075 


52740 


071615 




STA 


TEMP+2 


AND SAVE IT 




0076 


52741 


015300 




JSB 


M8Y10 


MULTIPLY PREVIOUS NUMBER BY 


10 


m77 


52742 


065322 




LDB 


EXP 


ZERO 




0078 


52743 


006003 




sze, 


RSS 


EXPONENT? 




0079 


52744 


027000 




JMP 


NUMC6 


YES 




0080 


52745 


044346 




ADB 


t »4 


NO, 




0081 


52746 


007000 




CMB 




SAVE 




0082 


52747 


061615 




IDA 


TEMP*2 


SHIFT 




0083 


52750 


075615 




STB 


TEMP+2 


COUNT 




0084 


52751 


006400 




CUB 




CLEAR LoWER MANTISSA 




0085 


52752 


035615 


NUMC3 


ISZ 


TEMP*2 


ALL SHIFTS DONE? 




0086 


52753 


026775 




JMP 


NUMC5 


NO 




0087 


52754 


000040 




CLE 




yes, add in 




0086 


52755 


045320 




ADB 


MANT2 


LOW PART 




0089 


52756 


103101 




CUQ 




OF NUMBER 




0090 


52757 


002040 




SEZ 




OVERFLOW FROM (B)? 




0091 


52760 


002004 




INA 




YES 




0092 


52761 


041316 




ADA 


MANT1 


ADD IN HIGH PART Of MAnTiSSA 




0093 


52762 


102301 




SOS 




OVERFLOW? 




0094 


52763 


026770 




JMP 


NUMQ4 


NO 




0095 


52764 


000065 




CUE, 


ErA 


YE$, CORRECT 




0096 


52765 


005500 




ER8 




MANTI83A 




0097 


52766 


035322 




ISZ 


EXP 


AND BUMP 




0098 


52767 


000000 




NOP 




EXPONENT 




0099 


527743 


015304 


NUMC4 


JSB 


NORMU 


NORMALIZE THE NUMBER 




0100 


52771 


035614 




ISZ 


TEMP*1 


SET 'NUMBER FLAG' TRUE 




0101 


52 77 2 


015450 




JSB 


GETCR 


FETCH CHARACTER 




0102 


52773 


027054 




JMP 


NUM12,1 


NONE FOUND 




0103 


52774 


026726 




JMP 


NUMC1 






0104 


52775 


000065 


NUMCg 


CUE, 


-ERA 


SHIFT 




0105 


52776 


005500 




ERB 




DIGIT 




0106 


52777 


026752 




JMP 


NUMC3 


RIGHT 




0107 


53000 


060356 


NUMC6 


LDA 


,♦4 


SET 




0100 


536)01 


071322 




STA 


E X P 


Exponent 




0109 


53002 


061615 




LDA 


TEMP+2 


load 




0110 


53003 


006400 




CLB 




NUMBER 




0111 


53004 


026770 




JMP 


NnMC4 







p a ge 


0235 #22 a$C 


II TO BINARY NUMafcK 


CONVERSION 


0112 


53005 


006400 


NUMC7 CUB 




SET EXPONENT 


0113 


53006 


075615 


STB 


TEMP*2 


SIGN TO »♦' 


01U 


53007 


055614 


CPB 


TEMP+1 


DIGIT OR DECIMAL POINT 


0115 


53010 


125276 


JMP 


NUMCK,I 


NO 


0116 


53011 


050720 


CpA 


E 


tE' ? 


0117 


53012 


002001 


R3S 




YES 


0118 


53013 


027055 


JMP 


NUM12 


NO 


0119 


53014 


015450 


JSB 


getcr 


FETCH CHARACTER 


0120 


53015 


.027114 


JMP 


NUM16 


NONE FOUND 


0121 


53016 


050425 


CpA 


,+53B 


i + i 1 


0122 


53017 


027024 


JMP 


NUMC8 


YES 


0123 


53020 


050427 


CPA 


, + 55B 


NO, i*i ? 


0124 


53021 


003401 


CCA, 


-RSS 


YES 


0125 


53022 


027026 


JMP 


NUMC9 


NO 


0126 


53023 


071615 


STA 


TEMP4.2 


SET EXPONENT SIGN TO ' 


l2 7 


53024 


015450 


NUMC8 JS8 


GETCR 


FETCH CHARACTER 


0128 


53025 


027114 


JMP 


NgMl6 


NONE FOuND 


0129 


53026 


015264 


NUMC9 JS8 


DIGCK 


DIGIT? 


0130 


53027 


027114 


JMP 


NUM16 


NO 


0131 


53030 


071614 


3TA 


TEMP+1 


YES, SAVE IT 


0132 


53031 


015450 


J3B 


GETCR 




0133 


53032 


027050 


JMP 


NUMU 




0134 


53033 


015264 


JSB 


DIGCK 


DIGIT? 


0135 


53034 


027050 


JMP 


NUMU 


NO 


0136 


53035 


061614 


IDA 


TEMP+i 


YES, MULTIPLY 


0137 


53036 


075614 


STB 


TEMP+1 


previous digit 


0138 


53037 
53040 


100200 
000364 


MPY 


,♦10 


BY 10 


0139 


53041 


041614 


ADA 


TEMP*i 


ADD IN NEW DIGIT 


0140 


53042 


071614 


STA 


TEMP+1 


SAVE EXPONENT 


0141 


53043 


015450 


JSB 


GETCR 




0142 


53044 


027050 


JMP 


NUMU 




0143 


53045 


015264 


JSB 


DIGCK 


THIRU DlilT? 


0144 


53046 


002001 


RSS 




NO 


0145 


53047 


027114 


JMP 


NUM16 


YES 


0146 


53050 


0656;4 


NUM11 LOB 


TEMP+1 


LOAD EXPONENT 


0147 


53051 


035615 


isz 


TeMP+2 


POSITIVE* 


0148 


53052 


007004 


CM8l 


>INB 


YES, COMPLEMENT IT 


0U9 


53053 


002001 


RSS 




NO 


0150 


53054 


005400 


CLB 






0151 


53055 


071614 


NUM12 STA 


TEMP+1 


SAVE CHARACTER 


0152 


53056 


035752 


ISZ 


DPFtG 


DECIMAL POINT FOUND? 


0153 


53057 


045324 


AOB 


EXPON 


YES, CORRECT tXPONENT 


0154 


53060 


006003 


SZB, 


-RSS 


NO, ZERO EXPONENT? 


0155 


53061 


027076 


JMP 


NUM14 


yES 


0156 


53062 


006020 


SSB 




NO, POSITIVE EXPONENT? 


0157 


53063 


027072 


JMP 


NUMI3 


YES 


0158 


53064 


007004 


CMS, 


.INB 


NO, SET 


0159 


53065 


075324 


8TB 


EXPON 


COUNTER 


01669 


53066 


015302 


J3B 


DBY10 


DIVIDE NUMBER BY 10 


0161 


53067 


035324 


ISZ 


EXPON 


DONE? 


0162 


53070 


027066 


JMP 


♦•2 


NO 


0163 


53071 


027076 


JMP 


NUM14 


YES 


0164 


53072 


075324 


NUM13 STB 


EXPON 


SET COUNTER 


0165 


53073 


015300 


JSB 


MBY10 


MULTIPLY NUMBER BY 10 



FOUND? 
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0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184* 

0185* 

0166* 

0187* 

0188* 

0169* 

0190* 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0206 

0209 

0210 

0211 

0212 

0213 

0214 



53074 
53075 
53076 
53077 
53100 
53101 

53102 
53103 
53104 
53105 
53106 
53107 
53110 
53111 
53112 
53H3 
53114 
53115 

* 

** 



035324 
027073 
061316 
065320 
035266 
027105 
003000 
M7M7 
002004 
015306 
171574 
015270 
175574 
015270 
061614 
035276 
035276 
125276 



NUM14 



NUMJ5 



NUM16 



I8Z 

JMP 

LDA 

LOB 

ISZ 

JMP 

CMA 

CMB, 

INA 

JSB 

STA 
JSB 
STB 
JSB 
LDA 
ISZ 
I8Z 
JMP 



EXPQN 

*«2 

MANT1 

MANT2 

SIGN 

NUM15 

INBrSZB, 

.PACK 

SBPTR,I 

SBPUD 

SBPTR,! 

SBPUD 

TEHP+1 

NUMCK 

NUMCK 

NUMCK, 1 



DONE? 

NO 

LOAD 

MANTISSA 
POSITIVE? 
YES 

NO, COMPLEMENT 
RSS THE 

NUMBER 
NORMALIZE AND PACK 

STORE 

NUMBER IN 
DESTINATION 
ADDRESS 
RETRIEVE CHARACTER 



** 
MULTIPLY UNPACKED NUMBER BY 10 *** 

** 



THE FLOATING POINT NUMBER IN MANTl, MANT2, AND EXP 
IS MULTIPLIED BY 10, 



53116 
53117 
53120 
53121 
53122 
53123 
53124 
53125 
53126 
53127 
53130 
53131 

53132 
53133 
53134 
53135 
53136 
53137 
53140 
53141 
53142 
53143 
53144 
53145 



061316 
002003 
125300 
065322 
044356 
075322 
065320 
000065 
005500 
000065 
005540 
045320 
002040 
002004 
041316 
002021 
027143 
000065 
005500 
035322 
000000 
071316 
075320 
125300 



WMB10 



MBY01 



LOA 

SZA, 

JMP 

LDB 

AOB 

STB 

LDB 

CLE, 

ERB 

CLE, 

ERBf 

ADB 

SEZ 

INA 

ADA 

SSA, 

JMP 

CLE, 

ERB 

isz 

NOP 
STA 
STB 
JMP 



MANT1 

RSS 

MBY10/I 

EXP 

,♦3 

EXP 

MANT2 

ERA 

ERA 
CLE 

MaNT2 



MANTl 

RSS 

MBY01 

ERA 

EXP 

MANTl 
MANT2 
MBY10,! 



LOAD HIGH MANTISSA 

ZERO NUMBER? 

YES 

NO* 

MULTIPLY 
BY 8 
LOAD LOW MANTISSA 
DIVIDE 

BY 
4 

ADD INTO 

BOTH REGISTERS 
PRODUCING 

1,25 * MANTISSA 
COrhECt 

ON 



overflow 

STOKE 

MANTISSA 
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0216** 






** 




0217*** NORMALIZE 


UNPACKED NUMBER *** 




0218** 






** 




0219* 












0220* 


ENTER WITH NUMBER 


IN U)# (B), ANU EXP, EXIT WITH 


0221* 


NORMALIZED NUMBER 


IN MANTl, MANT2, ANU EXP (MANTISSA 


0222* 


IS LEFT IN (A) AND 


(8) A3 WELL). 




0223* 












0224 


53146 


071300 


#NRML 


3TA NT0 


3ET 


022S 


53147 


002400 




CLA 


LEF1*3HIFT 


0226 


53150 


071615 




8TA TEMP+2 


COUNTER 


0227 


53151 


061300 




LDA NT0 


TO ZERO 


0228 


53152 


002003 




SZA f RSS 


IF NUMBER 


0229 


53153 


006002 




SZB 


18 ZERO, 


0230 


53154 


027162 




JMP NQRM2+1 


CLEAR 


0231 


53155 


071322 




8TA EXP 


EVERYTHING 


0232 


53156 


071316 




3TA MANTl 


STORE 


0233 


53157 


075320 


NORM! 


8T8 MANT2 


MANTISSA 


0234 


531 6 


125304 




JMP NQRMLfl 




0235 


53161 


035615 


NORM2 


I8Z TEMP+2 


COUNT A LEF1 SHIFT 


0236 


53162 


004066 




cle,elb 


ROTATE (A) 


0237 


53163 


001600 




ELA 


ANU (b) left 


023 8 


53164 


002061 




SEZ,33a,K3S 


TWO HIGHEST BITS 0? 


0239 


53165 


027161 




JMP NORM2 


YES, POSITIVE UNNORMALIzED 


0240 


53166 


002060 




3Ez,S8A 


NO, TWO HIGHEST BITS 1? 


0241 


53167 


027161 




JMP N0RM2 


YES, NEGATIVE UNNORMaLIZED 


0242 


53170 


00^500 




ERA 


NO, NORMALIZE 


0243 


53171 


005540 




ERB,CLE 


MANTISSA 


0244 


53172 


071316 




8TA MANTl 


COMPUTE 


0245 


53173 


061615 




LDA TEMP+2 




0246 


53*74 


003004 




CMA,INA 


CORRECTED 


0247 


53175 


041322 




ADA EXP 




0248 


53176 


071322 




8TA E X P 


E X PONEN"l 


0249 


53177 


061316 




LOA MANTl 




025^ 


53200 


027157 




JMP NORMl 


- 


025W* 






** 




0252*** NORMALIZE 


AND PACK NUMBER *** 




0253** 






** 




0254* 












0255* 


NUMBER IN (A>» (8) 


, AND EXP ON ENTRY, ON EXJT (A) 


0256* 


ANU 1 


rB) CONTAIN THt NORMALIZED. 


ROUNDED, AND PACKED 


0257* 


number, underflow 


BECOMES A ZERO, QyERFLOw BEC0ME S 


0258* 


THE L ARGEST 


REPRE8 N TAB L E nU H 8ER , 


OF APPROPRIATE SIGn, 


0259* 












0260 


53201 


015304 


#PACK 


J8B NORML 


NORMALIZE NUMBER 


0261 


53202 


002103 




CLE,SzA,RSS 


ZERO? 


0262 


5326)3 


125306 




JMP PACK, I 
ADB §177 


YES 


0263 


53204 


044441 




Nuf RQUND 


0264 


53205 


002021 




SSA,RSS 


POSITIVE? 


0265 


53206 


006004 




INB 


Y£Sr FINI8H ROUND 


0266 


53207 


103101 




CLO 




0267 


53210 


002040 




SEZ 


ON OVERFLOW FROM (B) 


0268 


53211 


002104 




CLE,INA 


CORRECT (A) 


0269 


53212 


102301 




SOS 


OVERFLOW? ( (AW00000, (B 


0270 


53213 


001200 




RAL 


TWO HIGH BITS 
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0271 
43272 
0273 
0274 
0276 
0276 
0277 
0278 
0279 
0280 
0281 
0202 
0283 
0284 
0285 
0266 
0287 
0268 
0289 
0290 
0291 
0292 
0293 
0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311* 

0312* 

0313* 

0314* 

0315* 

0316* 

0317 

0318 

031 9 

0320 

0321 

0322 

0323 

0324 

0325 



53214 
53215 
53216 
53217 
53220 
53221 
53222 
53223 
53224 
53225 
53226 
53227 
53230 
53231 
53232 
53233 
53234 
53235 
53236 
53237 
53240 
53241 
53242 
53243 
53244 
53245 
53246 
53247 
53250 
53251 
53252 
53253 
53254 
53255 
53256 
53257 
53260 
53261 
53262 
53263 
* 

** 01 

• 



002031 
027220 
002300 
001130 
001300 
071615 
101050 
005727 
061322 
002040 
040351 
102201 
002004 

040442 
002020 
027252 
040762 
002021 
027257 
040442 
001200 
010443 
044000 
061615 
051036 
002001 
125306 
055037 
027257 
125306 
015476 
115215 
002400 
00M00 
125306 
015476 
115214 
061615 
015310 
125306 



SSA 

J MP 

cce 

ARS 

PACKl RAR 

STA 

LSR 
B U F 
LOA 

sez 

ADA 
SOC 
INA 
ADA 
SSA 
JMP 
ADA 
SSA 
JMP 
ADA 
RAL 
AND 
AOB 
LOA 
CPA 

RSS 

JMP 
CP8 
JMP 
JMP 

PACK3 JSB 
JSB 
CLA 
CIS 
JMP 

PACK4 JSB 
JSB 
UA 
JSB 
JMP 



,SLA»RSS 
PACKl 

fSLA,AL8 

TtMP+2 
8 

,B L F 
EXP 

."1 



8200 

PACK3 

M256 

,R33 
PACK4 
8200 

B377 


TEMP+2 

MNEG 

.PACK, I 

MNEG+1 

PACK4 

.PACK, I 

CHOUF 

WERRS+6, 



.PACK,! 

CHOUF 

rt ERR8«-5, 

TEMP+2 

OVFUW 

.PACK, I 



VIOE UNPACKED NUMBER BY 10 



INVERSE OF MBY10 

53264 061316 # O B10 LD* MANTl 

53265 002003 SZa,RSS 

53266 125302 JMP D8Y10,I 

53267 064350 LOB »"2 
5327a 045322 AOB EXP 

53271 075322 SF8 EXP 

53272 061320 LOA MANT2 

53273 000065 CLE, ERA 

53274 100200 Mpy TENjM 



BOTH IT ( IF (A) WAS 140000 ) 
NO 
YES 

SET (A) » 100000 AND SKIP 
UNDOES RAL ABOVE 
SAVE (A) 
DELETE 8 LOW BITS 

OF MANTISSA 
DECREMENT 

EXPONENT 
ON (E) * 
INCREMENT 

EXPONENT ON OVERFLOW 
EXPONENT 

UNDERFLOW? 
YES 
NO, EXPONENT 

OVERFLOW? 
YES 

no, restore exponent 
position 
Exponent and 

ADD LOW MANTISSA 
RETRIEVE HIGH MANTISSA 

NEGATIVE 

OVERFLOW? 
YES 
NO 
CHECK STATUS 

ZERO RESULT 
ON UNDERFLOW 

CHECK STATUS 

RETRIEVE HIGH MANTISSA 



** 

*•* 
** 



RETURN 
ON 
ZERO 
ADD EXPONENT 
OF 1/10 TO 

THAT OF NUMBER 
JUSTIFY 

LOwER MANTISSA 

MULTIPLY BY 1/10 
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0326 
0327 
0320 
0329 
0330 
0331 
0332 
0333 

0334 
0335 
0336 
0337 
0338 
0339 
0340 



53275 
53276 
53277 

53300 
53301 
53302 
53303 
53304 
53305 
53306 
53307 
53310 
533U 
53312 
53313 
53314 
53315 



052000 
000066 
005640 
040001 
002040 
006104 
075320 
061316 
100200 
052000 
040001 
041320 
002040 
006004 
101100 
015304 
125302 



CLE,ELA 


SHIFT 


ELB,CLE 


SACK 


ADA 1 


AOD IN EQUIVALENT OF 


SEZ 


LOWER MANTISSA* 


CLE,INB 


TENTH*2t(*16) 


STB MANT2 


AND ROUND TO 16 


LDA MANT1 


DO 


MPY TENTH 


SAME TO 


ADA 1 


HIGH MANTISSA 


ADA MANT2 


PERFORM EFFECTIVE 


SEZ 


SUM OF DOUBLE-LENGTH 


inb 


PRODUCTS 


3WP 


8HAP (A) ANO (B) 


JSB NORML 


NORMALIZE 


JMP 1)BY10,I 


RESULT 



BITS 
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13342** 

0343** 

0344** 

0346* 

k)346* 

0347* 

0343* 

0349* 

0350* 

0351* 

0352** 

0353* 

0354 

0355 

0356 

10357 

0350 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0366 

0369 

0370 

0371* 

0372** 

0373* 

0374 

0375 

0376 

0377* 

0370** 

0379* 

0380 
0381 



0382 
0383 

KJ384 
0385 
0386 

0387 
0388 
0389 
0390 
0391 
0392 



* PRINT NAME TABLE FOR MULTICHARACTER SYMBOLS 



** 

*** 

** 



BITS 15»9 OF THE 'OCT' WORD ARE THE BASIC OPERATOR 
COOES OF THE SYMBOLS, BITS 2*0 ARE THE LENGTH IN 
CHARACTERS OF THE SYMBOLS. THE AsCII VERSION (PRINT 
NAME) FOLLOWS, 



MULTICHARACTER BINARY OPERATORS 



53316 
53317 
53320 
53321 
53322 
53323 
53324 
53325 
53326 
53327 
53330 

53331 
53332 
53333 
53334 
53335 
53336 



032003 
040516 
042000 
033002 
047522 
034003 

0465U 
047000 

035003 
046501 
054000 
«3600g 
036076 
037002 
037075 
040002 
036075 



MCBOS 



MRELS 



OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 



32003 
1,AN 
42000 
33002 

l#OR 
34003 

i#MI 

47000 

35003 

1,MA 

54000 

36002 

1,«» 

37002 

l f >» 
40002 



* 

**■■ 
* 
ANO 



OR 



MIN 



MAX 



UNEQUAL 

GREATER THAN r EqUAL 

LESS THAN OR EQUAL 



MULTICHARACTER UNARY OPERATOR 



* 
** 



53337 041003 

53340 047117 

53341 052000 



NUT 



OCT 
ASC 

OCT 

* 



STATEMENT TYPES 



533<2 
53343 
53344 
53345 
53346 
53347 
53350 
53351 
53352 
53353 
53354 
53355 
53356 
53357 
53360 
&3361 
53362 



4 2006 
040523 
051511 
043516 
043005 
052523 
044516 
043400 
044005 
044515 
040607 
042400 
045003 
041517 
046400 
046003 
046105 



** 
* 
STYPS OCT 
ASC 



USTMT OCT 
ASC 



41003 
l,NO 

52000 



4 2006 ASSIGN 
3, ASSIGN 



OCT 
OCT 
ASC 

OCT 
OCT 
ASC 
OCT 
OCT 
ASC 



43005 
2,USlN 

43400 
44005 
2,IMAG 

42400 

45003 

lfCO 

46400 

46003 

1,L& 



USING 

IMAGE 

COM 
LET 
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0393 
0394 
0395 
0396 

0397 

0396 
0399 
0400 

0401 
0402 
0403 
0404 

0405 
0406 
0407 
0400 
04^9 
0410 
04U 

4 l2 

0413 

0414 
0415 
0416 



0417 
0418 
0419 
0420 
0421 

0422 
0423 

0424 
0425 

0426 
0427 
0420 

0429 
0430 

0431 
0432 
0433 



0434 
0435 



53363 
53364 
53365 
53366 

S3367 
53370 
53371 
63372 
53373 
53374 
53375 
53376 
53377 
53400 
53401 
53402 
53403 

53404 
53405 

53406 

53407 

53410 
53411 

53412 
53413 
53414 
53415 

53416 
53417 
53420 
53421 
53422 
53423 
53424 
53425 
53426 
53427 
53430 
53431 
53432 
53433 
53434 
53435 
53436 
53437 

53440 
53441 
53442 
53443 
53444 
53445 
53446 
53447 
53450 
53451 



052000 
047003 
042111 
046400 
050003 
042105 
043000 
051003 
051105 
046400 
052004 
043517 
052117 

053002 
044506 
054003 
043117 
06 1000 
055004 
047106 
054124 

056005 
0435J7 
051525 
041000 
057006 
051105 

052125 
051116 

060003 
042516 
042000 
061004 
051524 
047520 
062*904 
042101 
052101 
063005 
0445J6 
050125 
052000 
064004 
061105 
040504 
065005 
050122 
044516 

0^2000 
066007 
051105 
051524 
047522 
042400 
067003 



OCT 62000 

OCT 47003 DIM 

ASC 1,01 

OCT 46400 

OCT 50003 DEF 

ASC 1,0E 

OCT 43000 

OCT 51003 REM 

ASC l,RE 

OCT 46400 

oCt 52004 goto 

ASC 2, GOTO 

OCT 53002 IP 

ASC 1,IF 

OCT 54003 FoR 

ASC IfFO 

OCT 51000 

OCT 55004 NEXT 

A3C 2, NEXT 

OCT 56005 GOSUB 
ASC 2,G0SU 

OCT 41000 

OCT 57006 RETURN 

ASC 3 r RETURN 



EOFOP OCT 60003 END 
ASC 1,EN 
OCT 42000 

OCT 61004 STOP 
A8C 2, STOP 

OCT 62004 DATA 
ASC 2, DATA 

IOSTS OCT 63005 INPUT 
A$C 2,InPU 

OCT 52000 

OCT 64004 READ 

A8C 2, READ 

OCT 65005 PRINT 
ASC 2,PRIN 

OCT 52000 

CT 66007 RESTqRE 

ASC 3,REST0R 



OCT 42400 
OCT 67003 



MAT 
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0436 
0437 

0438 
0439 

0440 
0441 
0442 

0443 
0444 

0445 

0446 
0447 
0440 

0449* 

0450*' 

0451* 

0452 

0453 

0454 

0455 

0456 
0457 
0458 

0459 

0460* 

046Ui 

0462*' 

0463* 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

04/5 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0465 



53452 
53453 
53454 
53455 
53456 
53457 
53460 
53461 
53462 
53463 
53464 
53465 
53466 
53467 
53470 
53471 



046501 
052000 
070005 
043111 
046105 
051400 
071005 
041510 
040511 
047000 
072006 
042516 
052105 
051000 
073001 
000000 



MISCELLANEOUS 



53472 074002 

53473 047506 

53474 075004 THEN 

53475 052H0 

53476 042516 

53477 076002 

53500 052117 

53501 077004 ST 

53502 051524 

53503 042520 



ASC 1,MA 

OCT 52000 

OCT 70005 

A3C 2, FILE 

OCT 51400 
OCT 71005 
ASC 2,CHAl 

OCT 47000 
OCT 72005 
ASC 2,ENTE 

OCT 51000 
OCT 73001 

OCT 

* 
OPERATORS ** 

* 
OCT 74002 
ASC 1,QF 
OCT 75004 
ASC 2, THEN 



FILES 



CHAIN 



ENTER 



UMf»HEP« LIT 



OF 



OCT 76002 
ASC l,TO 
EP OCT 77004 
ASC 2, STEP 



TO 



predefined functions, bits 13*9 are used 
for Internal identification 



* 

** 
** 

* 



53504 
53505 
53506 
53507 
53510 
53511 
53512 
53513 
53514 
53515 
53516 
53517 
53520 
53521 

53522 
53523 
53524 
53525 
53526 
53527 
53530 
53531 



001004 
052101 

041000 

002003 
046111 
047000 
003003 
051520 
040400 
004003 
052101 
047000 
005003 
040524 
047000 
006003 
042530 
050000 
007003 
046H7 
043400 
010003 



TAB 



PROFS 



OCT 
A3C 
OCT 
OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
OCT 
ASC 
OCT 
OCT 
AsC 
OCT 
OCT 
ASC 
OCT 
OCT 



1003 
1,TA 
41000 

2003 

1,L* 
47000 

3003 

1,SP 

40400 

4003 

WTA 

47000 

5003 

i,AT 

47000 

6003 

1,EX 

50000 

7003 

1,LQ 

43400 

10003 



TAB 



LIN 



SPA 



TAN 



ATN 



EXP 



LOG 



ABS 
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0466 


53532 


040502 


ASC 


IrAb 




0487 


53533 


051400 


OCT 


51400 




0488 


53534 


011003 


OCT 


11003 


3QR 


0489 


53535 


051521 


ASC 


1,SQ 




0490 


53536 


051000 


OCT 


51000 




0491 


53537 


012003 


OCT 


12003 


INT 


0492 


53540 


044516 


ASC 


1,IN 




0493 


53541 


052000 


OCT 


52000 




0494 


53542 


013003 


OCT 


13003 


RNO 


0495 


53543 


05in6 


ASC 


lrkN 




0496 


53544 


042000 


OCT 


42000 




fc)497 


53545 


014003 


OCT 


14003 


SGN 


0496 


53546 


051507 


ASC 


lfSG 




0499 


53547 


047000 


OCT 


47000 




0500 


53550 


015003 


OCT 


15003 


lEN 


0501 


53551 


046105 


ASC 


l,Lfc 




0502 


53552 


047000 


OCT 


47m% 




0503 


53553 


016003 


OCT 


16003 


TYP 


0504 


53554 


052131 


ASC 


1#TY 




0505 


53555 


050000 


OCT 


50000 




0506 


53556 


017003 


OCT 


17003 


TIM 


0507 


53557 


052U1 


ASC 


lfTI 




0508 


53560 


046400 


OCT 


46400 




0509 


53561 


020003 


OCT 


20003 


SIN 


0510 


53562 


051511 


ASC 


1,SI 




0511 


53563 


047000 


OCT 


472UV 




0512 


53564 


021003 


OCT 


21003 


COS 


^513 


53565 


041517 


ASC 


l#CO 




0514 


53566 


051400 


OCT 


51400 




0515 


53567 


022003 


oCt 


22003 


bRK 


0516 


53570 


041122 


ASC 


IfBK 




0517 


53571 


045400 


OCT 


45400 




0518* 






* 






0519** MATRIX FUNCTIONS 


• * 






0520* 






* 






0521 


53572 


024 00 3 MATFS 


OCT 


24003 


ZEK 


0522 


53573 


055105 


A3C 


1,1*. 




0523 


53574 


051000 


OCT 


51000 




0524 


53575 


025003 


OCT 


25003 


CON 


0525 


53576 


041517 


ASC 


l,CO 




0526 


53577 


047000 


OCf 


47000 




0527 


53600 


026003 


OCT 


26003 


ION 


0528 


53601 


044504 


ASC 


1,ID 




0529 


53602 


047000 


OCT 


47000 




0530 


53603 


027003 


OCT 


27003 


INV 


0531 


53604 


044516 


ASC 


lrlN 




0532 


53605 


053000 


OCT 


53000 




0533 


53606 


030003 


OCT 


30003 


TRN 


0534 


53607 


052122 


ASC 


lr TR 




0535 


53610 


047000 


OCT 


47000 





page 


0244 »23 FORMATTED 


OUTPUT ROUTINE 


0002 


54000 






ORG 


54000b 




0003 


54000 


000130 


• X 


OCT 


130 




0004 


54001 


000123 


s 


OCT 


123 




0005 


54002 


000104 


D 


OCT 


104 




0006 


54003 


000101 


.A 


OCT 


101 




0007 


54004 


177722 


M46 


DEC 


-46 




0006 


54005 


000111 


..'3 


DEC 


73 




0009* 














0010* 


THE t 


ADDRESS I 


OF THE 


FIRST WORD 


OF THE FORMAT 


0011* 


STRING Is IN 


(5) UpON ENTRY, 


THE FORMATTER 


0012* 


EXTRACTS ThE 


NUh9ER OF 


Characters in The string 


0013* 


AND " 


(HEN EXTRACTS 


THE FORMAT SPECIFICATIONS 


0014* 


UNE i 


3Y ONE. 


AS tACH SPECIFICATION IS EXTRACTED, 


0015* 


IT IS LOADED 


INTO 


A STACK. ONE 


CHARACTER PER 


0016* 


WORD 


and checked For syntax Errors, the 


0017* 


TYPE 


OF SPECIFICATION J 


[3 DETERMINED AT THIS 


0018* 


TIME 


AND THE 


SPECIFICATION IS 


THEN EXECUTED 


0019* 


PROM 


THE STACK, 








0020* 














0021 


54006 


075645 


#FRMT 


STB 


EC 


SAVE POINTER TO STRING 


0022 


54007 


006004 




INS 




MAKE INTO 


0023 


54010 


004066 




CLE, 


-ELB 


cha k aCtEr pointer 


0024 


540H 


044000 




ADB 


A 


ADD I N STARTING CHARACTER 


0025 


54012 


003004 




CMA, 


-INA 


SAVE STARTING 


0026 


54013 


071745 




STa 


cc 


CHARACTER 


0027 


54014 


075761 




STB 


IFSTR 


SAVE IN FORMAT STRING ADDRESS 


0026 


54015 


075751 




STB 


DP 


AND DELIMITER POINTER 


0029 


54016 


065762 




LDB 


NCH 


MAyBE 


0030 


54017 


006002 




SZB 






0031 


54020 


026027 




JMP 


FM0 


YES 


0032 


54021 


l6l6<45 




LDA 


EC, I 


NO, COMPUTE # 


0033 


54022 


010443 




AND 


B377 


OF CHARACTERS 


0034 


54023 


041745 




ADA 


CC 


IN FORMAT 


0035 


54024 


071762 




S T A 


NCH 


String 


0036 


54025 


002003 




SZA, 


>RSS 


NULL STRING? 


003 7 


54026 


027674 




JMP 


FMEND+1 


YES, IGNORE IT 


0036 


54027 


002400 


FMg 


CLA 




INITIALIZE 


0039 


54030 


071745 




STA 


CC 


CHARACTER COUNTER 


0040 


54031 


071750 




S T A 


CON T R 


CON T ROL CHARACTER 


0041 


54032 


071645 




S T A 


EC 


Expression colter 


0042 


54033 


071746 




STA 


CC1 


start OF PARENtHE S Is level 1 


0043 


54034 


071747 




STA 


CC2 


STArt OP PA R ENTH£sIS LEVEL 2 


0044 


54035 


071765 




STA 


PCI 


REPETITION COUNT FOR LEVEL 1 


0045 


54035 


071766 




STA 


PC2 


REPETITION COUNT FOR LEVEL 2 


0046 


54037 


07i650 




STA 


SFLG 


STRING FLAG 


0047 


54040 


015540 


FMT2 


J3B 


ySRCH 


DELIMITER SEARCH 


0046 


54041 


102101 




STO 




IGNORE BLANKS 


0049 


54042 


061646 




LDA 


FST 


GET THE 


0050 


54043 


015542 




JSB 


MCrAR 


first character 


0051 


54044 


051751 




CPA 


DP 


delimiter found ? 


0052 


54045 


027673 




JMP 


FMEND 


YES 


0053 


54046 


050425 




CPA 


.♦53B 


IS CHARACTER A PLyS ? 


0054 


54047 


026055 




JMP 


FMT1 


YES 


0055 


5405*3 


050427 




CPA 


• ♦55B 


IS IT A MINUS ? 


0056 


54051 


026055 




JMP 


FMTl 


Y ES 
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0057 


54052 


050415 


CPA 


.♦43B 


NO, IS IT A NUMBER SIGN 


005a 


54053 


002001 


KS8 




YES 


0059 


54054 


026105 


J MP 


FMT3 


NO 


006^ 


54055 


065745 


FMT1 LD8 


CC 


END OF 


0051 


54056 


055762 


CPB 


NCH 


STRING ? 


0062 


54097 


115170 


jsb 


FERR8,I 


yes, error 


0063 


54060 


071750 


STA 


CONTR 


SAVE CARR, CONTROL CHARACTER 


0064 


54061 


035646 


X8Z 


f-st 


increment String pointer 


0065 


54062 


061646 


LDA 


FST 




0066 


54063 


102101 


8T0 




IGNORE BLANKS 


0067 


54064 


015542 


JSB 


MCHAR 


GET NEXT CHARACTER 


006» 


54065 


051751 


CPA 


OP 


DELIMITER FOUND i 


0069 


54066 


002001 


R8S 




YES 


0070 


54067 


026073 


JMP 


FMT01 


NO, CHARACTER FOUND ? 


0071 


54070 


103101 


CIO 




GET 


0072 


54071 


061751 


IDA 


OP 


THE 


0073 


54072 


015542 


JSB 


MCHAR 


DELIMITER 


0074 


54073 


050426 


FMT01 CpA 


.♦54B 


IS IT A COMMA ? 


0075 


54074 


002001 


R3S 




YES 


0076 


54075 


115171 


JSB 


FERRS+l, ; 


I NO, ERROR 


QV77 


54076 


035751 


XSz 


DP 


INCREMENT DELIMITER PUIN T ER 


0078 


54077 


035745 


I8Z 


CC 


AND CHARACTER COUNTER 


0079 


54100 


065745 


L OB 


CC 




0060 


54101 


055762 


CpB 


NCH 


ALL CHARACTERS USED ? 


0061 


54102 


115170 


jse 


FERRS,I 


YES, ERROR 


0082 


54103 


061751 


LOA 


OP 


NO 


0083 


54104 


015540 


JSB 


DSRCH 


FIND NEXT DELIMITING CHARACTER 


0084 


54105 


003400 


FMj3 CCA 




INITIALIZE 


0085 


54106 


071752 


STA 


DPFLG 


FIXED FLAG 


0086 


54107 


071754 


STA 


EFLAG 


FLOATING FLAG 


0087 


54H0 


002004 


INA 






0088 


54111 


071763 


STA 


NUM1 


PHEwDECIMAL POINT D COUNTER 


0089 


54H2 


071764 


STA 


NUM2 


P03T»0ECIMAL POINT U COUNTER 


0090 


54113 


071770 


STA 


SBO 


S BEFORE COUNTER 


0091 


54114 


071767 


STA 


SAO 


S AFTER D COUNTER 


0092 


54115 


071742 


STA 


SNFLG 


SIGN FLAG 


0093 


54116 


071732 


STA 


NAD 


POST*OECIMAL ZERO COUNTER 


0094 


54117 


071733 


8T A 


NBO 


PRE-OECIMaL POINT DIGIT COUN 


0095 


54120 


002004 


INA 






0096 


54121 


071776 


STA 


REPCT 


REPETITION COUNT 


0097 


54122 


061760 


LOA 


IFSS 


FORMAT STACK 


0098 


54123 


071757 


STA 


FSP 


POINTER 


0099 


54124 


061646 


LOA 


FST 


GET NON-DELIMITING 


0100 


54125 


102101 


STO 




CHARACTER 


0101 


54126 


015542 


JSB 


MCHAR 


IGNORING BLANKS 


0102 


54127 


051751 


CPA 


OP 


IS It A DELIMITER ? 


0103 


54130 


U5170 


JSB 


FERRS,I 


YES 


0104 


54131 


050414 


FMT4 CPA 


.♦42B 


IS IT A QUOTE ? 


0105 


54132 


002001 


RSS 




YES 


0106 


54133 


026177 


JMP 


FMT0 


NO 


0107 


54134 


065751 


LOB 


OP 




0108 


54135 


007004 


CmB, 


.ZnB 


RESET 


0109 


54136 


045646 


AOB 


FST 


Character 


0110 


54137 


045745 


ADB 


CC 


COUNTER 


0111 


54140 


075745 


STB 


CC 
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0112 


54141 


035646 


FM T 16 I3Z 


PST 


INCREMENT STRING POINTER 


0113 


54142 


061745 


UOA 


CC 


A LL 


0114 


54143 


051762 


CPA 


NCH 


CHARACTERS USED ? 


0115 


54144 


115172 


JSB 


FERR3+2,I 


YES, ERROR 


0116 


54145 


035745 


ISz 


CC 


INCREMENT CHARACTER COUNTER 


0117 


54146 


061646 


LDA 


FSy 




0118 


54147 


103101 


cto 




DON'T IGNORE BLAnKS 


0119 


54150 


015542 


JSB 


MCHAR 


GET NEXT CHARACTER 


0120 


54151 


171757 


3TA 


FSP,1 


LOAD CHARACTER ONTO STACK 


0121 


54152 


035757 


ISZ 


FSP 


INCREMENT STACK POINTER 


0122 


54153 


050414 


CpA 


.♦42B 


IS IT a » ? 


0123 


54154 


002001 


RSS 




YES 


0124 


54155 


026141 


JMP 


FMT16 


NO 


0125 


54156 


035646 


ISZ 


FST 


INCREMENT STRING POINTER 


0126 


54157 


035745 


I$Z 


CC 


AND CHARACTER COUNTER 


0127 


54160 


061745 


LDA 


CC 


ALL 


0128 


54161 


051762 


CPA 


N C H 


CHARACTERS USED ? 


0129 


54162 


026435 


JMP 


FMT46 


YES 


0130 


54163 


061646 


LDA 


FST 


RESET 


0131 


54164 


071751 


SjA 


DP 


DELIMITER 


0132 


54165 


015540 


J3B 


DSRCH 


POINTER 


0133 


54166 


061646 


LOA 


FS T 


NEXT CHARACTER 


0134 


54167 


051751 


CPA 


OP 


A DELIMITER ? 


0135 


54170 


026435 


JMP 


FMT46 


YES 


0I36 


54171 


102101 


STO 




IGNORE BLANKS 


0137 


54172 


015542 


JSB 


MCHAR 


FETCH A FORMAT STRINlJ CHARACTER 


0138 


54173 


061646 


LpA 


PST 


WOULu IT bfc 


0139 


54174 


055751 


CPB 


DP 


A DELIMITER ? 


0140 


54175 


026435 


JMP 


FMT46 


YES 


0141 


54176 


115171 


JSB 


FERRS+1, 1 


NO, ERROR 


0j42 


54i77 


0520<*1 


FMT0 CPA 


S 


IS IT AN S ? 


0143 


54200 


026330 


JMP 


FMT14 


Y ES 


0144 


54201 


050430 


CpA 


.♦56B 


IS in, ? 


0145 


54202 


026316 


JMP 


FMT9 


YES 


0146 


54203 


05072" 


CPA 


E 


IS IT AN E? 


0147 


54204 


026325 


JMP 


FMT13 


Y ES 


014b 


54205 


015264 


JSB 


OIGCK 


IS IT A DIGIT ? 


0149 


54206 


026255 


JMP 


FMT6 


NO 


0150 


54207 


071776 


STA 


REPCT 


YE8, STORE IN REPCT 


0151 


54210 


035646 


ISZ 


FST 


INCREMENT STRING POINTER 


0152 


54211 


06*6 4 6 


LDA 


FST 


NEXT CHARACTER 


0153 


54212 


051751 


CPA 


DP 


A DELIMITER i 


0154 


54213 


115173 


J3B 


FERKs-t.3,1 


YEs, ERROR 


0155 


54214 


102101 


STO 




IGNORE BLAnKS 


0156 


54215 


015542 


JSB 


MCHAR 


GET NEXT CHARACTER 


0157 


54216 


051751 


CPA 


DP 


IS IT A DELIMITER ? 


0I5B 


b 4 2l7 


115173 


JSB 


FERRS+3,1 




0159 


54220 


tfl5264 


JSB 


DIGCK 


IS I? A DIGIT 7 


0160 


54221 


026243 


JMP 


FMT5 


NO 


0161 


54222 


061776 


LDA 


REPCT 


Y ES, 


0162 


54223 


075776 


STB 


REPCT 


MULTIPLY PREVIOUS 


1(3163 


54224 
54225 


100200 
000364 


MPy 


.♦12B 


DIGIT BY 10 


01 6 4 


5422 6 


04l77 6 


ADA 


REPCT 


ADD IN ONES DIGIT 


0165 


5^227 


07*776 


STA 


REPCT 
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0166 
0167 
016a 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0160 
0181 
0182 
0183 

0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
01 98 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 

0209 
W 2 lk) 

0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 



54230 
54231 
54232 
54233 
54234 
54235 
54236 
54237 
54240 
54241 
54242 
54243 
54244 
54245 
54246 
54247 
54250 
54251 
54252 
54253 
542 5 4 
54255 
54256 
54257 
54260 

54261 
54262 
54263 
54264 
54265 
54266 
54267 
54270 
54271 
54272 
54273 
54274 
54275 

54276 
54277 

54300 

54301 
5 4302 
54303 
54304 
b4305 
54306 
54307 
64310 
54311 
54312 
54313 
54314 
54315 
54316 



035646 
061646 
051751 
115173 
102101 
015542 
051751 
113173 
015264 
002001 
115174 
065776 
006003 
115175 
044752 
006021 
115174 
046005 
007004 
175757 
U35757 
052000 
026276 
052003 
026321 
052002 
002001 
026340 
065752 
006002 

026273 
065764 
045776 
075764 
026276 
065763 
045776 
075763 
006404 
075776 
171757 
035646 
03 5 7 5 7 
061646 
051751 
026313 
102101 
015542 
051751 
002001 
026177 
065757 
0?5755 
026343 
035752 



ISZ 
LDA 
CPA 
JSB 
8T0 
JSB 
CPA 
JSB 
JSB 
RSS 
JSB 
FM T 5 LOB 
SZB, 
JSB 
AOB 

SSB* 

JSB 

AOB 

C*B, 

STB 

ISZ 

FMT6 CPA 
JMP 
CPA 
JMP 
CPA 
RSS 
JMP 
LOB 
SZB 
JMP 
LDB 
AOB 
STB 
JMP 

FMT7 LOB 
AOB 
STB 

FMT8 CLB, 
3T8 
STA 
ISZ 
ISZ 
LOA 
CPA 
JMP 

STo 
JSB 
CPA 

RSS 
JMP 

PM T 08 LOB 
STB 
JMP 

FMT9 ISZ 



FST 

P3T 

OP 

FERRS+3,1 

MCMAR 
OP 

FERRS+3, I 
OIGCK 

FERRS-t-4, I 

REPCT 

RSS 

FERRS+5,1 

M73 

Rss 

FERRS*4'I 

..73 

INB 

FSP, I 

FSP 

.X 

FM78 

.A 

FMT10 

D 

FMT15 

drflg 

FMT7 

NUM2 

REPCT 

NUM2 

FMT8 

NUM1 

REPCT 

NUM1 

INB 

REPCT 

FSP, I 

FST 

FSP 

FST 

OP 

FMT08 

MCHAR 
DP 

FMT0 

F S P 

tST 

FMTla 

0PFL6 



INCREMENT STRING POINTER 

NEXT CHARACTER 

A DELIMITER ? 

YES, ERROR 

IGNORE BLANKS 

GET NEXT CMARACTER 

IS IT A DELIMITER ? 

THIRD DIGIT ? 

yES, ERROR 

REpCT ZERO 1 
YES 

NO, GREATER 

THAN 72? 
YES 

RESTORE REPCT 
SET NUMBER FLAG 
LOAD ONTO FORMAT STACK 
INCREMENT STACK POINTER 
IS NEXT CHARACTER AN X ? 
YES 

IS IT AN A ? 
YE S 

IS IT A ? 
YES 
NO 
OPFcG ■ mil 

YES 

ADD REPCT TO 
POST»DECJMAL 
DIGIT COUNTER 

ADD REPCT TO 

PRE«pDECIMAL 

DIGIT COUNTER 
REINITIALIZE 

REPCT 
LOAD CHARACTER ONTO STACK 
INCREMENT STRING POINTER 
AND STACK POINTER 
NEXT CHARACTER 

A DELIMITER ? 
yES 

IGNqrE BLANKS 
GET NEXT CHARACTER 
IS IT A DELIMITER ? 
YES 



SET END OF STACK MArK 
OPpLG « -1 ? 
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0221 
0222 
^223 
0224 
0225 
0226 
0227 

0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 

0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
02$5 
0266 
0267 
0266 
0269 
0270 
0271 
0272 
0273 
0274 
0275 



54317 
54320 
54321 
54322 
54323 
54324 
54325 
54326 
54327 
54330 
54331 
54332 
54333 
54334 
54335 
54336 
54337 
54340 
54341 
54342 
54343 
54344 
54345 
54346 
54347 
54350 
54351 
54352 
54353 
54354 
54355 
54356 
54357 
54360 
54361 
54362 
54363 
54364 
54365 
54366 
54367 
54370 
54371 
54372 
54373 
54374 
54375 
54376 
54377 
54400 

5440* 
54402 
54403 
54404 

544 5 



115176 

026300 

8165650 
006903 

035650 
026276 
035754 
115177 
026300 
065763 
045764 
006003 
035770 
065770 
006003 
035767 
026300 
050422 
027433 
115200 
061760 
071757 
003400 
07J776 
041660 
002003 
026500 
040350 
002021 
026502 
061763 
041764 
002003 
026457 
015544 
027673 
115201 
071316 
071740 
015414 
071322 
061316 
002021 
026414 

060427 
071266 
007104 
061316 
003000 
002041 

0264H 
002004 
102301 
0264U 
000065 



J3B 
JMP 

FMT10 LDB 
SZB, 

PMTll IgZ 
JMP 

FMT13 I8Z 
J3B 
JMP 

FMT14 LDB 
ADB 
SZB, 
ISZ 
LDB 
SZB, 
Z8Z 
JMP 

FMT15 CpA 
JMP 
J3B 

FMT18 LDA 
STA 
CCA 
STA 
ADA 
SZA, 
JMP 
ADA 
3SA, 
JMP 
LDA 
ADA 
SZA, 
JMP 
JSB 
JMP 
JSB 
STA 

ST A 
J S B 

STA 
LDA 
SSA, 

JMP 
LDA 
STA 

C M B, 

LDA 

CMA 

SfcZ, 

JMP 

INA 

SOS 

JMP 

CLE, 



FERRS+6,1 

FMT8+2 

SFLG 

RSS 

3FLG 

FMT8 

eflak 

FERRS+7,1 

FMT8+2 

NUM1 

NUM2 

RSS 

SBD 

SBD 

RSS 

sad 

FMT8+2 

, + 50B 

FMT95 

FERRS*8,I 

IFSS 

FSP 

REPCT 

sflg 

RSS 
FMT24 

,-2 

RSS 
FMT25 

NUM1 
NUM2 

R 8 $ 

FMT20 

EVEXP 

FMEND 

FERRS+9,1 

MANTl 

NUMW1 

,FLuN 

EXP 

MANTl 

RSS 

FMT31 

.♦55B 
SIGN 
CLE,I N B 
MANTl 

RSS 
FMT3U3 



FMT31-3 
ERA 



NO 
YES 

IS SFl.G 

YES, INCREMENT IT 

NO 

EFlAG« ml'i 

NO 

YES 

ANY U'S FOUND ? 

NO, INCREMENT BEFORE COUNTER 
ANY S'S BEFORE AD? 

NO, INCREMENT AFTER COUNTER 

13 CHARACTER A ( ? 
YES 

NO, ILLEGAL CHARACTER 
REINITIALIZE 
STACK POINTER 
AND 

REPCT 
SFLG * 1 1 

YES 

3FLG » 3 i 

YES 

NO, ANY 
D'S 

FO|jND ? 
NO 

evaluate expression 
none founq 
sting—error 
if number 
Save hign mantissa 

gNPACK NuMBEk 

AND sAVE THE EXPONENT 
IS THE NUMBER NEGATIVE ? 

NO 

YES, SET SIGN TO MINUS 
AND 

Complement 

OVERFLOW f-RQM 

I.OW MANTISSA 7 
NO 
YES, OVERFLOW FROM 

HIGH MANTISSA 1 
NO 
YES, SHIFT RIGHT 



PAGE 0249 #23 FORMATTED OUTPUT ROUTINE 



0276 


54406 


005500 




ERB 




AND 


0277 


54407 


035322 




I3Z 


EXP 


BUMP EXPONENT 


0278 


54410 


000000 




NOP 






0279 


54411 


071316 




STA 


MANT1 




0280 


54412 


071740 




STA 


NUMW1 


SAVE HIGH MANTISSA 


0281 


54413 


026416 




JMP 


♦ ♦3 




0282 


54414 


060425 


FMT31 


I'D A 


,+53B 


SET SIGN 


0283 


54415 


071266 




STA 


SIGN 


TO PLUS 


0284 


54416 


075320 




STB 


MANT2 




0285 


54417 


075741 




STB 


NUMW2 


SAVE LOW MANTISSA 


0288 


54420 


061322 




LDA 


EXP 




0287 


54421 


071651 




STA 


EXPW 


AND EXPONENT 


028b 


54422 


006404 




CLB, 


rINB 


set expression 


0289 


54423 


075645 




STB 


EC 


FUUND FLAG 


0290 


54424 


060760 




LDA 


IHB 


hulding buffer 


0291 


54425 


071730 




STA 


HBp 


POINTER 


0292 


54426 


061754 




LDA 


EFLAG 


EFLAG 


0293 


54427 


002003 




SZA, 


rRSS 


SET ? 


0294 


5443 


027210 




JMP 


FMT62 


YES 


0295 


54431 


061752 




LDA 


DPPLG 


dpflg 


02g6 


54432 


002003 




SZA, 


-RSS 


SET 


0297 


54433 


027047 




JMP 


FMT45 


YES 


0298 


54434 


026551 




JMP 


FMT30 


NO 


0299** 








** 




0300*** OUTPUT A LITERAL 


STRING *** 




0301** 








** 




0302 


54435 


061760 


FMT46 


LDA 


IFSS 


RESET 


0303 


54436 


071757 




STA 


FSP 


STACK POINTER 


0304 


54437 


161757 




LDA 


FSP, I 


TOP OF STACK 


0305 


54440 


050414 




CpA 


,+42B 


A » ? 


0306 


s 4441 


027332 




JMP 


FMT90 


YES, DONE WITH THIS SPEC 


0307 


54442 


050370 




CPA 


t*l6B 


IS IT A PSEUDO«LINEFEED 7 


0308 


54443 


060364 




LDA 


,♦128 


YES, MAKE IT A LINEFEED 


0309 


54444 


050371 




CPA 


.♦17B 


IS IT A PSEUDO CARRIAGE RETURN ( 


0310 


54445 


002001 




R3S 




YE S 


0311 


54446 


026454 




JMP 


FMT47 


NO 


0312 


54447 


060375 




LDA 


+ 23B 
OOTCR 


OUTPUT AN X.QFF 


0313 


54450 


015454 




JSB 




0314 


54451 


060367 




LDA 


f + l5B 


output a 


0315 


54452 


015454 




JSB 


OUTQR 


CARRIAGE RETURN 


0316 


54453 


002400 




CLA 




AND A NULL, 


0317 


54454 




FMT47 


EUU 


* 




0318 


54454 


015454 




JSB 


0UT C R 


NO, OUTPUT THE CHARA C T&R 


0319 


54455 


035757 




ISZ 


FSP 


INqReMeNT STA C K POINTER 


0320 


54456 


026437 




JMP 


FMT46+2 


NO 


0321** 










** 


0322*** OUTPUT A BLANK SPECIFICATION 


*** 


14323** 










** 


0324 


5 4 *57 


16*757 


FMT20 


LDA 


FSP, I 


LOAD TOP OF STACK 


0325 


54460 


002021 




S8A, 


,R3S 


IS IT A NUMBER ? 


0326 


54461 


026465 




JMP 


FMT21 


NO 


0327 


54462 


071776 




STA 


REPCT 


yES, STORE NUMBER IN REPCT 


0328 


54463 


035757 




IS* 


FSP 


INCREMENT STACK POIN1ER 


0329 


54464 


161757 




LDA 


FSP, I 


LOAD NEW TOP OF STACK 


0330 


54465 


052000 


FMi21 


CpA 


.X 


IS IT AN X ? 
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0331 


54466 


002001 




RSS 




YES 




0332 


54467 


115200 




JSB 


FERRS+8,1 


NO, ERROR 




0333 


54470 


015534 




JSB 


OUTBL 






0334 


54471 


003400 




CCA 




REINITIALIZE 




0335 


54472 


071776 




STA 


REpCT 


REpCT 




0336 


54473 


061757 




LOA 


FSP 


END 




0337 


54474 


051755 




CP* 


EST 


OF STACK 




0338 


54475 


027332 




JMP 


FMT90 


YES 




0339 


54476 


161757 




LOA 


FSP, 1 


LOAD NEW TOP OF STACK 




0340 


54477 


026457 




JMP 


FMT20 






0341** 






** 








0342*** OUTPUT A STRING 


*** 








0343** 






** 








0344 


54500 




FHT24 


teu 


* 






0345 


54500 


015544 




JSB 


EVEXp 


EVALUATE NEXT EXPRESSION 




0346 


54501 


027673 




JMP 


FMEND 


NONE FOUND 




0347 


54502 




FMT25 


EQU 


* 






0348 


54502 


006405 




CLB, 


,INB,RSS 


SET THE EXPRESSION 




0349 


54503 


115206 




JSB 


FERRS+14, 


I 




0350 


54504 


075645 




STB 


EC 


FOUND FLAG 




0351 


54505 


16*757 




LOA 


FSP, I 


LOAD IOP OF STACK 




0352 


54506 


002021 




SSA( 


,RSS 


IS IT A NUMBER ? 




0353 


54507 


026513 




JMP 


FMT26 


NO 




0354 


54510 


071776 




STA 


REPCT 


YES 




0355 


54511 


035757 




IS Z 


FSP 


INCREMENT STACK POINTER 




0356 


54512 


161757 




LOA 


FSP, I 


LOAD NEw TOP OF STACK 




0357 


54513 


052000 


FMT26 


CpA 


.x 


IS IT AN X ? 




0350 


54514 


002001 




RS9 




YES 




0359 


54515 


026520 




JMP 


FMT27 


NO 




0360 


54516 


015534 




JSB 


OUTBL 






0361 


54517 


026543 




JMP 


FMT26 






0362 


54520 


052003 


FMT27 


CpA 


.A 


IS IT AN A 't 




0363 


54521 


002001 




RSS 




YES 




0364 


54522 


115201 




J8B 


FERRS*9,I 


NO, ERROR 




0365 


54523 


035757 




isz 


FSP 


INCREMEN T S T ACK POINjER 




0366 


54524 




FHT05 


EQU 


* 






0367 


54524 


015364 




JSB 


FSCH 


FETCH STRING CHARACTER 




0368 


54525 


061573 




LOA 


BLANK 


NO, FETCH A BLANK 




0369 


54526 


050370 




CPA 


,*16B 


IS IT A PsEuOO^LINEFEEO ? 




di7e 


54527 


060364 




LOA 


.♦12B 


YES, M A * E IT A LInE^ED 




0371 


54530 


050371 




CPA 


.♦17B 


IS IT A PSEUOQ CARRIAGE RETURN 


? 


0372 


54531 


002001 




RSS 




YES 




0373 


54532 


026540 




JMP 


FMT29 


NO 




0374 


54533 


060375 




LOA 


.♦23B 


OUTPUT AN X-OFF 




0375 


54534 


015454 




JSB 


OUTCK 






0J76 


54535 


060367 




LOA 


, + l5B 


OUTPUT A 




0377 


54536 


015454 




JSB 


OUTCR 


CARRIAGE RETURN 




0378 


54537 


002400 




CLA 




AND A NULL, 




0379 


54540 




FMT29 


tou 


* 






0380 


54540 


015454 




J8B 


OUTCR 


OUTPUT CHARACTER 




0381 


54541 


035776 




isz 


REPCT 


REPCT USED UP ? 




0382 


54542 


026524 




JMP 


FMT05 


NO 




0383 


54543 


003400 


FMT28 


CCA 




REINITIALIZE 




0384 


54544 


071776 




STA 


REPCT 


REPCT 




0385 


54545 


061757 




LOA 


FSP 


END UF 
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0386 


54546 


051755 




CPA 


EST 


STACK ? 


0387 


54547 


027332 




JMP 


FMT90 




0388 


54550 


026502 




JMP 


FMT25 


NO 


0389** 










** 


0390*** PREPARE AN 


INTEGER FOR OUTPUT 


*** 


0391** 










** 


0392 


54551 


002480 


FMT30 


CLA 




INITIALIZE PRE^OfcCIMAL POINT 


0393 


54552 


071324 




STA 


EXPON 


DIGIT COUNTER 


0394 


54553 


003400 




CCA 






0395 


54554 


041322 




Al)A 


EXP 


EXPONENT ZERO OR NEGATIVE V 


0395 


54555 


002021 




SSA, 


.RSS 




0397 


54556 


026565 




JMP 


FMT32 


NO 


0398 


54557 


060432 




LDA 


,♦608 


YES, LOAU A 


0399 


54560 


171730 




STA 


MBp,I 


ZERO 


0400 


54561 


035730 




isz 


HBP 


INCREMENT BUFFER POINTER 


0401 


54562 


003400 




CCA 




NUMBER OF BUFFER WORDS 


0402 


54563 


071735 




STA 


NHBW 


IS ONE 


0403 


54564 


026576 




JMP 


FMT33 




0404 


54565 


015530 


FMT32 


JSB 


OTL1 




0405 


54566 


071324 




STA 


EXPON 


SAVE NUMBER 


0406 


54567 


071735 




STA 


NHBW 


OF DIGITS 


0407 


54570 


015424 




JSB 


GETOG 


GET DIGIT 


0408 


54571 


040432 




ADA 


,*60B 


CqNvErt Tq ASCII 


0409 


54572 


171730 




STA 


HBp,I 


STOrE IN MOLD BUFFER 


0410 


54573 


035730 




ISZ 


HBp 


ALL DIGITS 


*>411 


54574 


«35324 




ISZ 


EXPON 


FOUND ? 


0412 


54575 


026570 




JMP 


FMT32+3 


NO 


0413 


54576 


061763 


FMT33 


LUA 


NUM1 


COMPUTE NUMBER OF 


0414 


54577 


041735 




ADA 


NHB W 


LEADING BLANKS 


0415 


54600 


065770 




LD6 


3B0 


ANY S»S 


0416 


54601 


045767 




AOB 


SAD 


FOUND ? 


0417 


54602 


006002 




SzB 






0418 


54603 


026612 




JMP 


FMT43 


YES 


0419 


54604 


065266 




LOB 


SIGN 


no, number positi v e ? 


0420 


54605 


054425 




CPB 


,*53B 




0421 


546 6 


026612 




JMP 


FMT43 


YES 


0422 


54607 


040351 




AOA 


• »1 


NO, SAyE ROOM 


0423 


54610 


006404 




CLB, 


rINB 


Fqr 


0424 


546U 


075742 




STB 


SNFL6 


printing sign 


0425 


54612 


002020 


FM T 43 


SSA 




NuMBEk of blanks negative ? 


0426 


54613 


027570 




JMP 


FMT80 


YES 


0427 


54614 


071734 




STA 


NBLK 


NO 


0428 


54615 


015532 




JSB 


ROONO 


ROUND NUMbEH IN bUFf-ER 


0429 


54616 


002001 




RSS 






0430 


54617 


027570 




JMP 


FMT80 


NO ROOM FOR CARRY FROM ROUND 


0431 


54620 


064760 




LOB 


IHB 


REINITIALIZE 


0432 


54621 


075730 




STB 


HBP 


HOLD BUFFER POINTER 


0433** 










** 


0434*** OUTPUT NUMBER FROM H0LOING BUFFER *** 


0435** 










** 


0436 


54622 


I6I757 


FMT34 


LDA 


FSP,I 


LOAD TOP OF FORMAT STACK 


0437 


54623 


052001 




CPA 


S 


IS IT AN 3 ? 


0438 


54624 


002001 




RSS 




YE8 


0439 


54625 


026645 




JMP 


FMT36 


NO 


0440 


54626 


035757 




ISZ 


FSP 


INCREMENT STACK POINTER 
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044t 


54627 


061742 




LOA 


SNFLG 




0442 


54630 


002002 




SZA 




SNFLG * ? 


0443 


54631 


026777 




JMP 


FMT59 


NO, JGNORE THE S 


(0444 


54632 


065770 




LDB 


SBO 


yes, ANY S'S before AD? 


0445 


54633 


006002 




SZB 






0446 


54634 


026642 




JMP 


FMT35 


YES 


0447 


54 6 35 


061266 




LOA 


SIGN 


NO, OUTPUT SIGN 


14448 


54636 


015454 




JSB 


OUTCR 


IMMEDIATELY 


0449 


54637 


060354 




LOA 


.♦2 


SET SNFLG T U 2 


0450 


54640 


071742 




STA 


SNFLG 




0451 


54641 


026777 




JMP 


FMT59 




0001 


54642 


007400 


FMT35 


CCB 






0002 


54643 


075742 




STB 


SNFLG 


SET SNFLG TO -1 


0003 


54644 


026622 




JMP 


FMT34 




0004 


54645 


002021 


FMT3fe 


S3A, 


RSS 


TOP OF STACK A NUMBER ? 


0005 


54646 


026652 




JMP 


FMT06 


NO 


0006 


54647 


071776 




STA 


REPCT 


yES, STORE IN REPCT 


0007 


54650 


035757 




isz 


FSP 


INCRtMENT STACK POINTER 


0008 


54651 


161757 




LOA 


F8P,I 


LOAD NEw TOP OF STACK 


0009 


54652 


052000 


FM706 


CpA 


.X 


IS TOp AN X ? 


0010 


54653 


002001 




R3S 




YES 


0011 


54654 


026661 




JMP 


FMT37 


NO 


0012 


54655 


015534 




JSB 


OUTBL 




0013 


54656 


003400 




CCA 




REINITIALIZE 


0014 


54657 


071776 




STA 


REpCT 


REpCT 


0015 


54660 


026777 




JMP 


FMT59 




0016 


54661 


052002 


FMT37 


CPA 





TOP OF STACK AD? 


0017 


54662 


002001 




RSS 




YES 


0018 


64663 


026753 




JMP 


FMT57 


NO 


0019 


54664 


035757 




ISZ 


FSP 


INCREMENT STACK POINTER 


0020 


54665 


003400 




CCA 






0021 


54666 


041734 




ADA 


NBLK 


number f blanks > ? 


0022 


54667 


002020 




SfiA 






0023 


54670 


026677 




JMP 


F-MT07 


NO 


0024 


54671 


061573 




LOA 


BLANK 


YES, OUTPUT A 


0025 


54672 


015454 




JSB 


OUTCR 


BLANK 


0026 


54673 


007400 




CCB 




DECREMENT 


0027 


54674 


k}45734 




AOB 


NBLK 


BLANK 


0028 


54675 


075734 




STB 


NBLK 


COUNT 


0029 


54676 


026746 




JMP 


FMT40 




0030 


54677 


061734 


FMT07 


LOA 


NBLK 


NUMBER OF BLANKS 


0031 


54700 


002020 




SSA 




LE 8 S THAN ZErO ? 


0032 


54701 


026713 




JMP 


FMT56 


YES 


0033 


5470 2 


003400 




CCA 




NO, DECREMENT 


0034 


54703 


071734 




STA 


NBLK 


BLANK COUNT 


0035 


54704 


B27A0\S 




CCB 






0036 


54705 


055742 




CPB 


SNFLG 


SNFLG » • 1 ? 


klfS57 


54706 


026717 




JMP 


FMT02 


YES 


0038 


54707 


045742 




AOB 


SNFLG 


SNFLG « 1 ? 


0039 


54710 


006003 




SZB, 


RSS 




0040 


547U 


026746 




JMP 


FMT40 


YES 


0041 


54712 


026723 




JMP 


FMT58 


NO 


0042 


54713 


007400 


FMT56 


CCB 






0043 


54714 


045742 




AOB 


SNFLG 


SNFLG - 1 ? 


0044 


54715 


006002 




SZB 
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0045 


54716 


026723 




JMP 


FMT58 


NO 




0046 


547i7 


061266 


FMT02 


LOA 


SIGN 


YES, OUTPUT 




0047 


54720 


015454 




JSB 


OUTCR 


SIGN AND 




0048 


54721 


060354 




LOA 


.♦2 


SET SNFLG 




0049 


54722 


071742 




STA 


SNFLG 


TO 2 




0050 


54723 


060760 


FMT58 


IDA 


1MB 


END 




0051 


54724 


040430 




ADA 


,446 


OF 




0052 


54725 


051730 




CPA 


HBP 


BUFFER 1 




0053 


54726 


026777 




JMP 


FMT59 






0054 


54727 


161730 




LDA 


HBP, I 


OUTPUT A 




0055 


54730 


015454 




JSB 


OUTCR 


DIGIT 




0056 


54731 


035730 




isz 


HOP 


INCREMENT PCLD BUFFER POINTER 




0057 


54732 


061754 




IDA 


EFLAG 


IS THIS A 




0058 


54733 


002002 




SZA 




FLOATING POINT SPECIFICATION 


? 


0059 


54734 


026746 




JMP 


FMT40 


NO 




00£0 


54 7 35 


002404 




CIA, 


rlNA 


YES, HAS THE DECIMAL POINT 




0061 


54736 


051752 




CPA 


dpflg 


been found yet ? 




0062 


54737 


026746 




JMP 


FMT40 


YES 




0063 


54740 


003400 




CCA 




no, decrement 




0064 


5^741 


041324 




ADA 


EXPON 


DECIMAL 




0065 


54742 


i6«76* 




LDB 


IHB,I 


IS THE 




0066 


54743 


054432 




CP8 


.♦60B 


NUMBER ZERO? 




0067 


54744 


002400 




CM 




YES, ZERO EXPONENT 




0066 


54745 


071324 




st a 


EXPON 


EXPONENT 




006 9 


54746 


035776 


FMT40 


132 


REPCT 


REPCT * ? 




0070 


54747 


026665 




JMP 


FMT37+4 


NO 




0071 


54750 


003400 




CCA 




YES, REINITIALIZE 




0072 


54751 


071776 




STA 


RkpCT 


REpCT 




0073 


54752 


026777 




JMP 


FMT59 






0074 


54753 


065752 


FMT57 


LDB 


DPFLS 


FIXED POINT 




0075 


54754 


006002 




SZB 




SPECIFICATION 7 




0076 


54755 


027003 




JMP 


FMT42 


NO 




m77 


54756 


050430 




CPA 


,♦568 


TOP OF STACK A DECIMAL POINj ? 




0078 


54757 


002001 




RSS 




YES 




0079 


54760 


027003 




JMP 


FMT42 


NO 




0080 


54761 


035757 




182 


FSP 


INCREMENT STACK POINTER 




0081 


54762 


065742 




LDB 


SNFLG 






0082 


54763 


006020 




SSB 




SNFlG ■ <•! ? 




0083 


54764 


026770 




JMP 


FM00 


YES 




0084 


54765 


044351 




ADB 


t»l 


NO, 9 \ ? 




0085 


54766 


006002 




SZB 








0086 


54767 


026774 




JMP 


FM01 


NO 




0087 


54770 


061266 


FM00 


LDA 


SIGN 


YES, OUTPUT 




0088 


54771 


015454 




JSB 


OUTCR 


SIGN 




0089 


54772 


060354 




LDA 


.♦2 


SET SNFLG 




0&90 


54773 


071742 




STA 


SNFLG 


TO 2 




0091 


54774 


060430 


FM01 


LOA 


.♦56B 


OUTPUT 




0092 


54775 


015454 




JSB 


OUTCR 


DECIMAL POINT 




0093 


54776 


035752 




ISZ 


DPF|,G 


Increment flag to show d,p, fou 


N 


0094 


54777 


061757 


FMT59 


L DA 


FSP 


end of 




0095 


55000 


051/55 




CPA 


EST 


STACK 




0096 


55001 


027332 




JMP 


FMT90 


YES 




0097 


55002 


026622 




JMP 


FMT34 


NO 




0098 


55003 


035757 


FMT42 


ISZ 


FSP 


INCREMENT STACK POINTER 




0099 


55004 


015454 




JSB 


OUTCR 


OUTPUT AN E 
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0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0106 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 

0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133** 

0134** 
0135** 

0136 
0137 
0138 
0139 
0140 
0141 

0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 



55005 
55006 
55007 

55010 
55011 

55012 
55013 
55014 

55015 
55016 

55017 
55020 
55021 
55022 
55023 
55024 
55025 
55026 
55027 
55030 
55031 
55032 
55033 
55034 
55035 
55036 
55037 
55040 
55041 
55042 
55043 

55044 
55045 
55046 



06I757 
051755 
027025 
161757 
002021 
027016 
035757 
«7l776 
161757 
052000 
002001 
115177 
015534 
003400 
071776 
027005 
060427 
065324 
006020 
007005 
060425 
075324 
015454 
061324 
006400 
100400 
000364 

040432 
044432 
075324 
015454 
001324 
015454 
027332 



PMT76 



FM02 



FMT78 



LOA 
CPA 
JMP 
LOA 

S3* 
JMP 
I3Z 
STA 
LOA 
CPA 

R3S 
J8S 

J88 
CCA 
STA 
JMP 
LOA 
LOB 
S38 
CMB 

LOA 
STB 
J8B 
LOA 
CLB 
DIV 

ADA 
AOB 
SfB 
J3B 
LOA 
J8B 
JMP 



FSP 
EST 
FMT78 
F6P,I 

rRSS 
FM02 
FSP 
REPCT 
FSP, I 
.X 

FERRS+7,1 
OUTBL 



REPCT 
FMT76 
.♦55B 
EXPON 

#INB,RS8 
,♦538 
EXPON 
OUTCR 
EXPON 

.♦128 

.♦608 
,♦608 
EXPON 

OutC* 
EXPON 
OUTCR 
FMT90 



END OF 

STACK ? 
YES 
NO, TOP OF 

STACK A NUMBER ? 
NO 

YES, INCREMENT STACK POINTER 
STORE NUMBER 
GET NEW TOP Of- STACK 
IS IT AN X ? 

YES 

NO, ERROR 

RESET 
REPCT 

OUTPUT 

AN 

EXPONENT 

SIGN 

COMPUTE 

EXPONENT'S 

10'8 DIGIT 
OUTPUT IT 

OUTPUT I'S DIGIT 



* PREPARE FIXED POINT NUMBER 



** 

*** 
** 



55047 
55050 
55051 
55052 
55053 
55054 
55055 
55056 
55057 
55060 
55061 
55062 
55063 
55064 
55065 
55066 
55067 
55070 



002400 
071324 
071732 
051322 
027161 
065322 
006020 
027156 
015530 
071324 
071733 
015424 
040432 
171730 
035730 
035324 
027062 
065764 



FMT45 CLA 
STA 
STA 
CPA 
JMP 
LDB 
SSB 
JMP 
JSB 
STA 
STA 

FM0J JSB 
ADA 
STA 
1SZ 
ISZ 
JMP 

FMT50 LDB 



EXPON 

NAD 

EXP 

FMT61+3 

EXP 

FMT61 

DTL1 

EXPON 

NBD 
GETDG 
,♦608 
H8P,I 

HBP 
EXPON 

FM03 
NUM2 



SET PRE-DECIMAL POINT 

DIGIT COUNTER 

ZERO COUNTER 
ZERO EXPONENT ? 
YES 
NO 

EXPONENT NEGATIVE 
YES 

LOAD 

PRE-DECIMAL POINT 
DIGITS 

INTO 

HOLD 

BUFFER 

ANY D»S AFTER 
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0154 


55071 


006003 


SZB,HSS 


DECIMAL POINT 1 




0155 


55072 


027126 


JMP FMT51 


NO 




0156 


55073 


060760 


LOA 1Mb 


END 




0157 


55074 


040430 


ADA ,*46 


OF 




015g 


55075 


051730 


CPA HBP 


BUFFER ? 




0159 


55076 


027U6 


JMP FM04 


YES 




0160 


55077 


065732 


LOB NAD 


LEADING 




0161 


55100 


002400 


CLA 


ZEROES 




0162 


55101 


006003 


SZ8,KS3 


AFTER 




0163 


55102 


027106 


JMP *+4 


DECIMAL 




0164 


55J03 


044351 


ADB ,-1 


POINT 




0165 


55104 


075732 


STB NAD 






0166 


55105 


002001 


RSS 


YES 




0167 


55106 


015424 


JSB g^TDg 






016b 


55107 


040432 


ADA .+608 


LOAD 




0169 


55110 


171730 


STA HBP, I 


POST-DECIMAL POINT 




0170 


55111 


007400 


CCB 


DIGITS 




0171 


55112 


045764 


ADB NuM2 


INjO 




0172 


55113 


075764 


STB NUM2 


HOLD 




0173 


S51U 


035730 


ISZ HBP 


BUFFER 




0174 


55115 


027071 


JMP FMT50+1 






0175 


55116 


061764 


FM04 LDA NUM2 


OUTPUT BLANKS 




0176 


55U7 


003004 


CMA,INA 


TO 




0177 


65*20 


071776 


STA REPCT 


FILL FIELD 




0178 


55121 


015534 


JSB OUTBL 






0179 


55122 


003400 


CCA * 


REINITIALIZE 




0180 


55123 


071776 


STA REPCT 


REPCT 




0181 


55124 


841757 


ADA FSP 


CORRECT 




0182 


55125 


071757 


STA FSP 


STACK POINTER 




0183 


55126 


061 7 33 


FMT51 LDA NBD 


COMPUT NUMBER 




0164 


55127 


041763 


ADA NUM1 


OF LEADING BLANKS 




0185 


55130 


065770 


LDB SBD 


ANY S>S 




0186 


55131 


045767 


ADB SAD 


FOUND 1 




0187 


55132 


006002 


SZB 






0188 


55133 


027142 


JMP FMT54 


YES 




0189 


55134 


065266 


LDB SIGN 


NO, NUMBER 




0190 


55135 


054425 


CpB .4-53B 


POSITIVE ? 




0191 


55l3g 


027142 


JMP FMT54 


YES 




01^2 


55137 


040351 


ADA ,«i 


NO, LEAVE ROOM FOR 




0193 


55140 


0fc6404 


CLB,INB 


SIGN TO BE PRINTED AND 




0194 


55141 


0767 4 2 


STB SNFLG 


SET SNFLG TO I 




0j95 


55j42 


002020 


FMT54 SSA 


NUMBER OF BLANKS NEGATIVE 


1 


0196 


55143 


027570 


JMP FMT80 


YES 




0197 


55144 


071734 


STA NBLK 


NU, 




0198 


55145 


007400 


CCB 


NEXT DIGIT A 




0199 


55146 


045732 


ADB NAD 


LEADING ZERO ? 




0200 


55147 


006020 


SSB 






0201 


55150 


015532 


JSB ROUND 


NO, ROUND NUMBER 




0202 


55151 


002001 


RSS 






0203 


55152 


027570 


JMP FMT80 


NO ROOM FOR CARRY FROM ROl 


JN 


0204 


55153 


060760 


LDA IHB 


RESET HOLD 




0205 


55154 


071730 


STA HBP 


BUFFER POINTER 




0206 


55155 


026622 


JMP FMT34 


GO OUTPUT THE NUMBER 




0207 


55156 


015526 


FMT61 JSB MTGi 






0208 


55157 


061324 


LDA EXPON 
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0209 


55160 


071732 


3TA 


NAO 




0210 


55i6i 


065763 


LOB 


NUMi 


ANY 0«8 FOUND 


0211 


55162 


006003 


SZB, 


,RSS 


BEFORE THE DECIMAL POINT ? 


0212 


55163 


027070 


JMP 


FMT60 


NO 


0213 


55164 


061764 


LOA 


NUM2 


YE8, ANY D»S FOUND 


0214 


55165 


002003 


SZA, 


,RSS 


AFTER THE DECIMAL POINT ? 


0215 


55166 


027201 


JMP 


FMT55 


NO 


0216 


55167 


054353 


CPB 


.♦1 


YES, ONLY ONE OF THEM ? 


0217 


55170 


002001 


R33 






021a 


55171 


027201 


JMP 


FMT55 


NO 


0219 


55172 


061707 


LOA 


SAO 


YES, ANY SiS fOUND ? 


0220 


55173 


041770 


ADA 


SBO 




0221 


b5l74 


002002 


SzA 






0222 


55175 


027201 


JMP 


FMT55 


YE8 


0223 


55176 


061266 


LOA 


SIGN 


no, number 


0224 


55177 


050427 


CpA 


,♦558 


NEGATIVE ? 


0225 


S5208 


027070 


JMP 


FMT5B 


YES 


0226 


55201 


060432 


FMT55 LOA 


.♦60B 


NO, LOAD PRE-OECIMAL POINT 


0227 


55202 


171730 


STA 


HBP, I 


ZERO INTO BUFFER 


0220 


55203 


035730 


ISZ 


HBP 




0229 


55204 


003400 


CCA 




DECREASE NyMBER OF 


0230 


55205 


04l7 6 3 


AOA 


NUMI 


D'S AVAILABLE FOR SIGN 


0231 


55206 


071763 


STA 


NUMI 


AND BLANKS BEFORE DECIMAL PT 


0232 


55207 


027070 


JMP 


FMTB0 




0233** 








** 


0234*** PREPARE FLOATING POINT NUMBER 


*** 


0235** 








** 


0236 


55210 


002400 


FMT62 CLA 




INITIALIZE DECIMAL 


0237 


55211 


071324 


STA 


EXPON 


EXPONENT 


023s 


55212 


051322 


CPA 


EXP 


ZERO EXPONENT ? 


0239 


55213 


4527216 


JMP 


♦ ♦3 


YES 


0240 


55214 


015526 


J8B 


MTGt 




0241 


55215 


015530 


J8B 


DTL1 




0242 


55216 


003004 


CMA, 


,INA 


3AVE DECIMAL EXPONENT 


0243 


55217 


071324 


STA 


EXPON 




0244 


55220 


061763 


LOA 


NyMl 


GEt 


0245 


55221 


041764 


AOA 


NUM2 


TOTAL NUMBEK 


0246 


55222 


071743 


STA 


TOTOG 


Of DIGITS 


0247 


55223 


061770 


LDA 


SBO 




0240 


55224 


041767 


AOA 


SAO 


ANY 8«8 FOUND ? 


0249 


55225 


002002 


SZA 






0250 


55226 


027246 


JMP 


FMT67 


YE8 


02S 1 


55227 


061266 


LOA 


SIGN 


NO, NUMBER 


0252 


55230 


050425 


CpA 


,*53B 


POSITIVE i 


0253 


55231 


027246 


JMP 


FMT67 


YE8 


0254 


55232 


007400 


CCB 




NO, LEAVE ROOM 


0255 


55233 


045763 


ADB 


NuMl 


FOr sIGN 


0256 


55234 


006020 


SSB 




NONE ? 


0257 


55235 


027570 


JMP 


FMT80 


YES 


0256 


55236 


075763 


STB 


NUMI 


NO, DECREMENT 


0259 


55237 


003400 


CCA 




TOTAL NUMBER OF D ' S 


0260 


55240 


041743 


AOA 


TOTDG 


AVAILABLE frQR SIGN 


0261 


55241 


M71743 


STA 


TOTOG 


AND BLANKS BEFORE DEC, PT, 


0262 


55242 


002003 


SZA, 


,RSS 




0263 


55243 


027570 


JMP 


FMT80 
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0264 


55244 


006404 


CLB, 


rINB 


SET snflg 


0265 


55245 


075742 


STB 


SNFLG 


TO 1 


0266 


55246 


061764 


FMT67 LOA 


NUM2 


NUM2 


0267 


55247 


00 3 00 4 


CMA, 


,INA 


> 7 ? 


0268 


55250 


064360 


LOB 


,♦6 




0269 


55251 


044000 


A U B 







0270 


55252 


006020 


SSb 






0271 


55253 


027273 


JMP 


FMT70 


YES 


0272 


55254 


061743 


l oa 


TQTDG 


YES, TOTAi. NUMBER OF 0«S 


0273 


55255 


040342 


ADA 


• •10B 


> 7 1 


0274 


55256 


002020 


S8A 






0275 


55257 


027265 


JMP 


FMT68 


NO 


0276 


55260 


064343 


LDB 


t«»7 


PREPARE TO GET 


0277 


55261 


075744 


8TB 


DCTR 


SEVEN DIGITS 


0278 


55262 


002004 


INA 




NUMBER OF BLANKS 


0279 


55263 


071734 


STA 


NBLK 


BECOMES TOTOG m 7 


0280 


55264 


027314 


JMP 


FMT72 




0281 


55265 


061743 


FMT68 LOA 


TOTOG 


PREPARE TO GET 


0282 


55266 


003004 


CMA, 


,INA 




0283 


55267 


071744 


8TA 


DCTR 


TOTDG DIGITS 


0284 


55270 


006400 


C L B 




SET NUMBER of BLANKS 


0285 


55271 


075734 


STB 


NBLK 


TO ZERO 


0286 


55272 


027314 


JMP 


FMT72 




0287 


55273 


065763 


FMT70 LOB 


NUMi 


ANY O'S BEFORE 


0288 


55274 


006002 


8ZB 




DECIMAL POINT ? 


0289 


55275 


040351 


ADA 


,-l 


YES, INCREMENT NUMBER OF DIGITS 


0290 


55276 


071744 


STA 


DC1R 


PREPARE TO GET NUM2 DIGITS 


0291 


55277 


006002 


SZB 




SET 


0292 


55300 


044351 


ADB 


.-i 


BLANK 


0293 


55301 


075734 


STB 


NBLK 


COUNT 


0294 


55302 


061744 


LDA 


DCTR 


MORE THAN 


0295 


55303 


040430 


ADA 


,♦46 


FoURTY«SlX 


0296 


55304 


002021 


SSA, 


.RSS 


Digits needed ? 


0297 


55305 


027314 


JMP 


FMT72 


NO 


0298 


55306 


071776 


8TA 


REPCT 


YES, OUTPUT NECESSARY BLANKS 


0299 


55307 


015534 


JSB 


OUTBL 




0300 


55310 


041757 


ADA 


FSP 


CORRECT 


0301 


55311 


071757 


St a 


FSP 


Stack pointer 


0302 


55312 


062004 


LDA 


M46 


SET OCTR 


0303 


55313 


071744 


STA 


DCTR 


TO 46 


0304 


55314 




FMT72 EQU 


* 




0305 


55314 


003400 


CCA 




REINITIALIZE 


0306 


55315 


07l77o 


STA 


REPCT 


REPCT 


0307 


55316 


015424 


JSB 


GETDG 




0308 


55317 


040432 


ADA 


,♦608 


Convert to ascii 


0309 


55320 


171730 


STA 


HBp,I 


STOrE IN HOLD BUFFER 


0310 


55321 


035730 


isz 


HBP 


INCREMENT BUFFER POINTER 


0311 


55322 


035744 


I3Z 


DCTR 


ALL DIGITS GOT 1 


0312 


55323 


027314 


JMP 


FMT72 


NO 


0313 


55324 


015532 


jsb 


ROUND 


YES, ROUND THE NUMBER IN BUFFER 


0314 


55325 


002001 


RSS 






0315 


55326 


027570 


JMP 


FMT80 


NO ROOM FOR CARRY FROM ROUND 


0316 


55327 


060760 


LDA 


IHB 


RESET 


0317 


55330 


071730 


STA 


HBP 


Buffer pointer 


0318 


55331 


026622 


JMP 


FMT34 
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0319** 

4)320*** HANDLE END 

0321** 

0322 55332 002400 

0323 55333 071650 

0324 55334 061745 

0325 55335 051762 

0326 55336 002001 

0327 55337 027357 
0326 55340 061746 

0329 55341 002002 

0330 55342 115202 

0331 55343 065645 

0332 55344 006003 

0333 55345 027673 

0334 55346 065753 

0335 55347 006003 

0336 55350 027673 

0337 55351 002400 
0336 55352 071645 

0339 55353 071745 

0340 55354 061761 

0341 55355 071751 

0342 55356 026040 

0001 55357 061751 

0002 553e« 103101 

0003 55361 015542 

0004 55362 050423 

0005 55363 027470 

0006 55364 071731 

0007 55365 050426 
0006 55366 027373 

0009 55^67 050431 

0010 55370 002001 

0011 55371 115171 

0012 55372 015536 

0013 55373 035745 

0014 55374 061745 

0015 55375 051762 

0016 55376 027424 

0017 55377 035751 
0016 55400 M15540 

0019 55401 102101 

0020 55402 061646 

0021 55403 015542 

0022 55404 051751 

0023 55405 002001 

0024 55406 027415 

0025 55407 061745 

0026 55410 051762 

0027 55411 027424 
0020 55412 061751 

0029 55413 103101 

0030 55414 015542 

0031 55415 050440 



Of- SPECIFICATION 



FMT90 CUA 
STA 
LDA 
CPA 
RSS 
JMP 

FM T 09 LDA 
SZA 
JSB 

FMT91 LOB 

3ZB# 
JMP 
LDB 
SZB, 
JMP 
CLA 
STA 
STA 
LDA 
STA 
JMP 
FMT92 LDA 
CLO 
JSB 

CPA 
JMP 
STA 
CPA 
JMP 
CPA 
RSS 

JSB 
FMT93 JSB 

isz 

LDA 
CpA 
JMP 
ISZ 
JSB 
STO 

LDA 
JSB 

CPA 
RSS 
JMP 
LDA 
CpA 
JMP 
LDA 
CLO 
JSB 
FM U CPA 



SFLC 
CC 

NCH 

FMT92 
CC1 

FERRS+1 

EC 

RSS 

FMEND 

ED3TA 

RSS 
FMEND 

EC 

CC 

iFSTR 

DP 

FMT2 

DP 

MCHAR 

.♦SlB 

FMT97 

LCH 

,♦546 

FMT93+1 

• ♦57B 

FERRS+1 

OUTCL 

CC 

CC 

NCH 

FMT94 

DP 

DSRCH 

FST 

MChAR 

DP 

FMU 
CC 

NCH 

FMT94 

DP 

mchaR 

• ♦54 



** 
*** 

** 



8TRINC FLAG 
ENF OF 

Format string ? 

YES 
NO 

YE8/ PArENjHEsIs 
BALANCED ? 
0,1 NO, ERROR 

ANY EXPRESSIONS 

USED T 
NO 
END OF 

STATEMENT ? 
YES 

YES, CLEAR EC 

RESET 

DELIMITER POINTER 

GET THE 

DELIMITING CHARACTER 
NOT IGNORING BLANKS 

is if a Right p a renthesis 

YES 

NO, SAVE THE CHARACTER 
13 IT A COMMA ? 
YES 

IS IT A SLASH ? 
YES 
,1 NO, ERROR EXIT 

INCREMENT CHARACTER COgN T ER 
ALL CHARACTERS 

USED ? 
YES 

INCREMENT DELIMITER POINTER 
FIND NEXT DELIMITER 
IGNORfc BLANKS 

next Character 

IS IT A fcLlMITER 

YES 

NO 

ALL CHARACTERS 

USED ? 
YES 
NO, GET DELIMITING 

CHARACTER 

IGNORING BLANKS 
IS IT A COMMA 
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0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 

0043 

0044 

0045* 

0046* 

0047* 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 
0073 
0074 
0075 
0076 
Q&77 
0078 
0079 
0080 
0061 
0082 
0083 
0084 
0085 
0086 



55416 115J70 

55417 050431 

55420 027424 

55421 050423 

55422 027470 

55423 026105 

55424 061731 FMT94 

55425 05^426 

55426 115170 

55427 061745 

55430 051752 

55431 02 7 340 

55432 027372 
* 

** HANDLE GROUPS OF SPECIFICATIONS 



JSB FERRS,; 
CPA ,+576 

JMP FMT94 
CPA ,*51B 
JMP FM797 
JMP FMT3 
IDA LCH 
CPA ,+ 94 B 
JSB FErrs, 
L.DA CC 
CPA NCH 
JMP FMT09 
JMP FMT93 



YES, ERROR 

NO, A SLASH 

YES 

NO, A RIGHT PARENTHESIS 1 

YES 

LAST CHARACTER 
A COMMA ? 

no, all. Characters 
useo ? 

YES 

NO 

** 

*** 



55433 
55434 
55435 
55436 
55437 
55440 
55441 
55442 
55443 
55444 
55445 
55446 
55447 
55450 
55451 
55452 

55453 
55454 
55455 
55456 
55457 
55460 
55461 
55462 
55463 
55464 
55465 
554gg 
55467 
55470 
554/1 
55472 
55473 
55474 
55478 
55476 
55477 
55500 
55501 



003400 
041757 
051760 

002001 

115203 
061746 
002002 
027454 
035646 
003400 
041761 
003000 
041646 
071746 
065776 
075765 
026105 
061747 
002002 
U5204 
035646 
003400 
041/61 
003000 
041646 
071747 
065776 

075766 
026105 
061766 
002003 
027530 
040351 
07I766 
002003 
027505 
065747 
075745 
045761 



FMT95 



FMf96 



FMT97 



CCA 
ADA 
CPA 
RSS 
JSB 
LOA 
SZA 
JMP 
ISZ 
CCA 
ADA 
CMA 
ADA 
STA 

LDB 
3TB 

JMP 

LDA 

SZA 

JSB 

ISZ 

CCA 

ADA 

CMA 

ADA 

STA 

LOB 

STB 

JMP 

LOA 

SZA, 

JMP 

ADA 

STA 

SZA, 

JMP 

LOB 

3TB 

AOB 



F S P 
IF88 

FERRS+ 
CC1 

FMT96 
FST 

IFSTR 

FST 

CCl 

REPCT 

PCI 

FMT3 

CC2 

FERRS+ 
FST 

IFSTR 

FST 

CC2 
REPCT 

PC2 

FMT3 

PC2 

RSS 

FMT98 

t»l 

PC2 

RSS 

FMT99 

CC2 

CC 

IFSTR 



** 
SECOND 

CHARACTER 
IN STACK ? 

11,1 NO, ERKOR 

ye s , first level 
of parenthesis ? 

NO 

INCREMENT STRING POINTER 

FIND CHARACTER COUNT 

UP TO AND INCLUDING 

LEFT 

PARENTHESIS 

STORE REPETITION 

COUNT 
PROCESS STRING 
S ECOND LEVEL 

OF PARENTHESIS 
12,1 NO, ERROR 

FIN D CHARACTER COUNT 
UP TO AND 

INCLUDING 
LEFT 

PARENTHESIS 
STORE REPETITION 
COUNT 

SECOND LEVEL OF 
PARENTHESIS ? 
NO 
YES, REPEAT IT 



rEsET 

CHARACTER COUNTER 
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0087 
0088 
0089 
0090 
009} 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 

0106 
0109 

0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 

12t 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
013 6 
0137 
013b 
0139 
0140 
0141*i 



55502 
55503 
55504 

55505 
55506 
55507 
55510 
55511 
55512 
55513 
55514 
55515 
55516 
55517 
55520 
55521 
55522 
55523 
55524 
55525 
55526 
55527 
55530 
55531 
55532 
55533 
55534 
55535 
55536 
55537 
55540 
55541 

555 42 
55543 

55544 
55545 
55546 
55547 
55550 
55551 
55552 
55553 
55554 
55555 
55556 
55557 
55560 
55561 
55562 
555 6 3 
55564 
555 6 5 
55566 
55567 



075751 

015540 
026105 

002400 
071747 
071650 
035745 
061745 
051762 
115171 
035751 
015540 
102101 
061646 
015542 
051751 
002001 
027362 
065745 
055762 
115202 
027357 
061765 
002003 
115205 
040351 
071765 
002003 
027545 
065746 
075745 
045761 

075751 

015540 

026J05 
002400 
071746 
071650 
035745 
035751 
061745 
051762 
027343 
015540 
102101 
061646 
015542 
051751 
002001 
0273e2 
065745 
055762 
027343 
027357 



STB 
JSB 
JMP 
FMT99 CLA 
STA 
STA 
X3Z 
LDA 
CPA 
JSB 

isz 

JSB 
StO 
LDA 
JSB 
CPA 
kS8 
JMP 
LDB 
CPB 
JSB 
JMP 
FMT98 LDA 
SZA, 
JSB 
ADA 
STA 
SZA, 
JMP 
LDB 
STB 

ADB 
STB 
JSB 
JMP 
FMT00 CLA 

ST A 
STA 

13Z 
I 3 Z 

LDA 
CPA 
JMP 
JSB 
STO 
LDA 
JSB 
CPA 
RSS 
JMP 
LDB 
CPB 
JMP 
JMP 



DP 

DSRCH 

FMT3 

CC 2 

SF L G 

CC 

CC 

NCH 

FERRS+1,1 

DP 

DSRCH 

FST 

MCHAR 

DP 

FMT92+3 

CC 

NCH 

FERRS+10, 

FMT92 

PCI 

RSS 

FERRS+13, 

.-1 

PCI 

RSS 

FMT00 

CCi 

CC 

IFSTR 

DP 

DSRCh 

FMT3 

CCI 

SFLG 

CC 

OP 
CC 

NCH 

FMT91 

DSRCH 

FST 

MCHAR 

DP 

FMT92+3 
CC 

NCH 

FMT91 

FMT92 



AND sTRiNG POINTER 

reprocess parenthesized string 
clear second 

level puinter 

and string f^ag 
increment Character counter 
all characters 

USED ? 
YES, ERROR 

NO, POINT TO DELIMITER 
FIND NEXT DELIMITER 

GET NEXT 
NON-BLANK 
CHARACTER 
IS IT A DELIMITER 7 
YES 
MAYBE 
ALL 

CHARACTERS USED ? 
I YES, ERROR 
NO, INVESTIGATE THE CHARACTER 
FIRST LEVEL 

OF PARENTHESIS ? 
I NO, ERROR 
YES, REPEAT IT 



RESET 

character cqunter 



REPROCESS PARENTHESIZED STRING 
CLEAR FIRST 

LEVEL POINTER 

AND STRING FLAG 
INCREMENT CHARACTER CU^tER 
POINT TO DELIMITER 
ALL 

CHARACTERS USED ? 
YES 

NO* FI N D N EXT DELIMITER 
GET NEXT 

NON-BLANK 
CHARACTER 

IS IT a delimiter ? 

YES 

NO 

ALL 

CHARACTERS USED ? 
YES 

no, Investigate the found charac 
*# 
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0142*** OUTPUT NUMBER IN 


DEFAULT FORMAT *** 


0143** 








** 


0144 


65570 


061740 PMT80 


LDA 


NUMW1 




0145 


55571 


071316 


8TA 


MANTl 


LOAD 


0146 


55572 


065741 


LOB 


NUMW2 




0147 


55573 


075320 


STB 


MANT2 


SAVED 


0148 


55574 


061651 


LOA 


EXPW 




0149 


55575 


071322 


8TA 


ExP 


NUMBER 


0150 


55576 


002400 


CLA 




CLEAR 


0151 


55577 


071324 


STA 


EXPON 


DECIMAL EXPONENT 


0152 


55600 


071754 


STA 


EFLAG 


SET FLOATING POINT FLAG 


0153 


55601 


051322 


cpa 


EXP 


ZERO EXPONENT ? 


0154 


55602 


027605 


JMP 


• ♦3 


YES 


0155 


55603 


015526 


JSB 


MTttl 




0156 


55604 


015530 


JSB 


OTLl 




0157 


55605 


003000 


CMA 






0158 


55606 


071324 


STA 


EXPON 




0159 


55607 


015536 


JSB 


OUTCL 




0160 


55610 


060760 


LOA 


IHB 


RESET HOLD 


0161 


55611 


071730 


STA 


HBP 


Buffer pointer 


0162 


55612 


060344 


LOA 


.-6 


pREpARE to set 


0163 


55613 


071743 


ST A 


TOTDG 


SIX DIGITS 


0164 


55614 


015424 


JSB 


GETDG 


GET 


0165 


55615 


040432 


ADA 


,♦608 




0166 


55616 


171730 


STA 


hbp,i 


SIX 


0167 


55617 


035730 


ISZ 


HBP 




0168 


55620 


035743 


ISZ 


TOTDG 


0I6ITS 


0169 


55621 


027614 


JMP 


♦ •5 




0170 


55622 


060354 


L DA 


.♦2 


SET N B LK TO 


0171 


55623 


071734 


STA 


NBLK 


WHERE IT WONT CAUSE TROUBLE 


0172 


55624 


015532 


JSB 


ROUND 


ROUND NUMBER IN HOLD BUFFER 


0173 


55625 


000000 


NOP 






0174 


55626 


061266 


LOA 


SIGN 


OUTPUT 


0175 


55627 


015454 


JSB 


OUTCR 


SIGN 


0176 


55630 


060760 


LOA 


IHB 


INITIALIZE 


0177 


55631 


071730 


STA 


HBP 


HOLD BUFFER POINTER 


0178 


55632 


161 7 30 


LOA 


HBPfl 


OUTPUT 


0179 


55633 


015454 


JSB 


OUTCR 


DIGIT 


0180 


55634 


035730 


IS Z 


HBP 


INCREMENT HOLO BUFFER POINT 


0181 


55635 


060430 


LOA 


,♦568 


OUTPUT 


0182 


55636 


015454 


JSB 


OUTCR 


DECIMAL POINT 


0183 


5563/ 


0603 4 g 


LOA 


."5 


PREPARE TO OUTPUT 


0184 


55640 


071743 


STA 


TOTOG 


FIVE DIGITS 


0185 


55641 


161730 


LOA 


HBP, I 


OUTPUT 


0186 


55642 


015454 


JSB 


OUTcR 


FIVE 


0187 


55643 


035730 


ISZ 


HBP 


DIGITS 


0180 


55644 


035743 


ISZ 


TOTDG 




0189 


55645 


027641 


JMP 


♦ •4 




0190 


55646 


060720 


L OA 


E 


OUTPUT 


"1*1 


55647 


015454 


JSB 


OUTCR 


AN E 


0192 


55650 


060427 


LOA 


.♦55B 




01^3 


55651 


065324 


LOB 


EXPON 


OUTPUT 


0194 


55652 


006020 


SSB 






0195 


55653 


007005 


CMB, 


.INB,RSS 


Exponent 


0196 


55654 


060425 


1.UA 


.♦53B 
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0197 
k)l98 

0199 
2 00 

0201 

0202 
0203 
0204 

0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
22 7 
0228 
0229 
0230 
0231 
0232 



55655 
55656 
55657 
55660 
55661 
55662 

55663 
55664 
55665 
55666 
55667 
55670 
55671 
55672 
55673 
55674 
55675 
55676 
55677 
55700 
55701 
55702 
55703 
55704 
55705 
55706 
55707 
55710 
55711 
55712 
55713 
55714 
55715 
55716 
55717 
55720 
55721 



075324 
015454 
061324 

006400 
100400 
000364 

040432 
044432 
075324 

015454 
061324 
015454 
015536 
027332 
061750 
002002 
027700 
015536 
124556 
050425 
002001 
0277J4 
060375 

015454 
060367 
015454 
002400 
015454 
002400 
071572 
124556 

050427 
002001 
124556 
060364 
015454 
124556 



FMEND 



FM1W 



STB EXPON 


SIGN 


JSB OUTCR 




IDA EXPON 




CUB 


GET BOTH EXPONENT 


DIV ,*12B 




ADA ,*60B 


CONVERT BOTH 


ADB ,+60B 


TO ASCII 


STB EXPON 




JSB OUTCR 


OUTPUT 10«S DIGIT 


LDA EXPON 




JSB OUTCR 


OUTPUT pS DIGIT 


JSB OUTCt 




JMP FMT90 




LUA CONTR 


YES# CONTROL 


SZA 


CHARACTER FOUND 'I 


JMP #+3 


YES 


JSB OUTCL 


NO 


JMP X EC1A,1 




CPA f +53B 


IS CARRIAGE 


RSS 


CONTROL A ♦ 


JMP FM10 


NO 


tOA ,*236 


YES 


JSB OUTCR 


OUTPUT AN X»0FF 


LDA ,*15B 


AND A 


JSB OUTCR 


CARRIAGE RETURN 


CLA 


AnD A 


JSB OUTCR 


NULL, 


CLA 




STa chrct 




JMP XEC1A,I 




CPA .+55B 


IS IT A MINUS ? 


RSS 


YES 


JMP XEClA,I 




LOA ,+12B 


°UT P UT A 


JSB OUTCR 


LINEFEED 


JMP XEClA/I 
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0234 

0235* 

0236* 

0237* 

0238* 

0239* 

0240* 

0241* 

0242* 

0243 

0244 

0245 

0246 

0247 

0248 

024g 

0250 

0251* 

0252* 

0253* 

0254* 

0255* 

B256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 
0264 

0265 



56000 
* 
** MAKE 

* 



OHG 560008 
A NUM8EK LESS THAN 1 



** 

*** 

** 



MULTIPLY AN UNPACKED FLOATING POINT 
NUMBER IN MANT1, MANT2 AND EXP BY 10 UNTIL 

it la greater than t, then divide by 10 



56000 
5g001 
56002 

56003 
56004 
56005 
56006 
56007 



015300 
061322 
003026 
026006 
035324 
025527 
015302 
125526 



#MTG1 



J3B 


MbY10 






LDA 


EXP 




MULTIPLY 


CMA, 


rSSAf INAi 


-SZA 


NUM8EH BY 10 


JMP 


**3 




UNTIL IT IS 


ISZ 


ExPUN 




GREATER 


JMP 


MTttl+1 




THAN 1 


JS8 


DBY10 


DIVIDE BY 10 


JMP 


MTGl,I 







DIVIDE AN UNPACKED FLOATING POINT NUMBER 
IN MANTl, MANT2 AND EXP 8Y 10 UNTIL II IS 
LESS THAN 1 



56010 
56011 
56012 
66013 
56014 
66015 
56016 
66017 
56020 
56021 



061324 
065322 
007004 
006021 
125530 
071324 
015302 
003400 
041324 
026011 



#DTL1 
DTL10 



LDA 
LDB 

Cmb, 

S8B, 

JMP 

STA 

J3B 

CCA 

ADA 

JMP 



ExPON 
EXP 

Inb 

RSS 

OTLl,I 
EXPON 
D6Y10 

E X PON 
DTL10 



DIVIDE 
NUMBER 
BY 10 
UNTIL 
IT IS 
LESS 
THAN 
1 
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0267** 








** 




0268*** ROUND ASCII 


NUMBER *** 




0269** 








** 




0270* 














0271* 


NUMBER STORED 


ONE 


ASCII DIGIT PER WORD IN 


0272* 


HOLDING BUFFER, ROUTINE GETS NEXT DIGIT 


0273* 


A N D f 


BOUNDS IF 


IT IS >i 


5. 




0274* 


IF THERE IS A 


CARRY TO 


AN EXTRA 


DIGIT AND NO 


0275* 


ROOM 


EXISTS, 


EXIT 


IS TO (P*U, 


OTHERWISE RETURN 


0276* 


TO (P*2), 










0277* 














0276 


56022 


015424 


#RUND 


JSB 


GETOG 


GET NEXT DIGIT 


0279 


56023 


040345 




ADA 


.-5 


IS IT >• 5 '/ 


0280 


56024 


002020 




SSA 






0281 


56025 


125532 




JMP 


ROUND, I 




0282 


56026 


003400 




CCA 




DECREMENT HOLD 


0283 


56027 


041730 




ADA 


HBP 


buffer pointer 


0284 


56030 


164000 


RONOl 


LOB 


0/1 


LOAD NEXT DIGIT 


0285 


56031 


006004 




INB 




INCREMENT IT 


0266 


56032 


054435 




CP8 


• 59 


WAS IT A 9 ? 


0287 


56033 


026035 




JMP 


**3 


YES 


0288 


56034 


174000 




STB 


0,1 


NO, SAVE IT 


0289 


56035 


125532 




JMP 


ROUND, I 


AND RETURN 


0290 


56036 


064432 




LDB 


,+60B 


OVERLAY 


0291 


56037 


174000 




STB 


0,1 


A 


0292 


56040 


050760 




CpA 


1MB 


LEADING DIGIT ? 


0293 


56041 


026044 




JMP 


**3 


YES 


0294 


56042 


4 03 5 1 




ADA 


• ••1 


NO, DECREMENT POINTER 


0295 


56043 


026030 




JMP 


ROND1 




0296 


56044 


064433 




LDB 


.♦6lB 


OVERLAY A 


0297 


56045 


17400Q 




STB 


0,1 


ONE 


0298 


56046 


064432 




LDB 


.♦608 


LqAO 


0299 


56047 


175730 




STB 


HBp,I 


EXTRA ZERO 


0300 


56050 


065754 




LOB 


EFLAG 


FLOATING POINT 


0301 


56051 


006002 




SZ8 




SPECIFICATION ? 


0302 


56052 


026056 




JMP 


R0ND2 


NO 


0303 


56053 


035324 




ISZ 


EXPON 


INCREMENT EXPONENT 


0304 


56054 


000000 




NOP 






0305 


56055 


125532 




JMP 


ROUND, I 




0306 


56056 


007400 


R0ND2 


CCB 




IS NBLK 


0307 


56 57 


045734 




ADB 


NBLK 


LESS 


0306 


56060 


006020 




SSB 




THAN 1 ? 


0309 


56061 


035532 




ISZ 


ROUND 


NO, RETURN TO (P*2) 


0310 


5 6 6 2 


076734 




STB 


NBLK 


YES, KEEP DECREMENTED VALUE 


0311 


56063 


125532 




JMP 


ROUND, I 
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0313** 

0314** 

0315** 

0316* 

0317* 

0316* 

0319* 

0320* 

0321* 

0322 

0323 

0324 

0325 

0326 

0327 

0328* 

0329* 

0330* 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

033e 

0339 

0340 



** 
r OUTPUT BLANKS *** 

** 

outputs the number of blanks specified 

by the negative of repct, the stack pointer 

IS INCREMENTED AND rEPCT HAS THE VALUE ZERO 
UPON EXIT, 



56064 
56065 
56066 
66067 
66070 
56071 



035767 
061573 
015454 
035776 
026065 
125534 



*OTBL 



I3Z 
LDA 

JSB 
I3Z 

JMP 
JMP 



FSP 
BLANK 

OUTCR 
REPCT 
**3 
0UT6L#I 



INCREMENT SUCK POINTER 
OUTPUT A 

BLANK 
REPCT USED UP ? 



OUTPUT X.QFf, CARRIAGE RETURNr UNfc FEED 



66072 
66072 
66073 
56074 
56075 
56076 
56077 
56100 
56101 
56102 



#UTCL 



060375 
015454 
060367 
015454 
060364 
015454 
002400 
071572 
125536 



EOU 
LDA 

JSB 
LDA 

JSB 
LDA 
JSB 
CLA 
STA 

JMP 



,*23B 

OUTCR 
.♦15B 
OUTCR 

,♦126 

OUTCR 

CHRCT 
OUTCL#I 



PAGE 0266 #25 FORMATTER UTILITY ROUTINES 



0343** 

0344** 

0345* 

0346* 

0347* 

0348* 

0349* 

0350* 

0351* 

03g2 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0366 

0369** 

0370** 

0371** 

0372* 

0373* 

0374* 

0375* 

0376* 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 



* SEARCH FOR A DELIMITING CHARACTER 



** 

*** 

*»> 



BEGINS SEARCH AT CHARACTER DP WHEN A COMMA 
OR SLASH IS FOUND, DP IS SET TO POINT TO THAT 
CHARACTER, CHARACTERS ARE COUNTED AnD IF THE 
END OF THE STRING IS ENCOUNTERED BEFORE A 
DELIMITER IS FOUND, A FLAG IS SET 



56103 
56104 
56*05 
56106 
56107 
56110 
56111 
56112 
66113 
56114 
56115 
56116 
56117 
56120 
56121 
66122 
66123 



06i75l 
071646 
103101 
015542 
050426 
125540 

05043* 
125540 
050423 
125540 
035751 
035745 
061751 
065745 
055762 
125540 
026106 



SER1 



#DSCH LDA 
STA 
CLO 
JSB 
CPA 
JMP 
CPA 
JMP 

CPA 

JMP 

isz 

ISZ 

LDA 

LDB 
CPB 
JMP 
JMP 



* MASK OUT A CHARACTER 



DP 
FST 

MCHAR 
,+54B 

dsrch,i 

.♦57B 

OSRCH/I 

.♦51B 
D3RCH,I 

DP 

CC 

DP 

CC 

NCH 

D8RCH,I 

SER1 

** 
*** 

** 



SET 

FI 
DON' 
GET 
IS I 
YES 
NQ, 
YES 
NO, 
YE8 
NO, I 

AM> 



STRING POINTER TO 
RST CHARACTER 
T IGNORE BLANKS 
STRING CHARACTER 
T A COMMA ? 

IS IT A SLASH ? 

is it a right parenthesis ? 

NCrEMENT delimiter pointer 
character Counter 



ALL CHARACTERS USED ? 
YES 

NO 



GET NEXT CHARACTER FROM FORMAT 
ADDRESS OF CHARACTER IS IN (A), 
RETURNED jN (A) 



56124 
56125 
56126 
56127 
56130 
56131 
56132 
56133 
56134 
56135 
56136 
56137 
56140 
56141 
56142 
56143 
56143 
56144 
56145 
56146 



000065 
164000 
002041 
005727 
060001 
010443 
102301 
125542 
051573 
026143 
040766 
002021 
040317 
040730 
125542 

035646 
061646 
051751 
125542 



#MCHR 



MCHR1 



CLE, 

LDB 

SEZ, 

BLF, 

LDA 

AND 

SOS 

JMP 

CPA 

JMp 

ADA 

SSA, 

ADA 

ADA 

JMP 

EQU 

ISZ 

LDA 

CPA 

JMP 



ERA 

0,1 

RSS 

BLF 

1 

B377 

MCHAR, I 

BLANK 

MCHRl 

M96 

RSS 

M32 

,140 

MCHAR,! 

* 

FST 

FST 

DP 

MCHAR, I 



STRING 

CHARACTER IS 



SHIFT ADDRESS RIGHT 

LOAD WORD FilOM STRING 

HIGH CHARACTER ? 

YESf SWITCH POSITIONS 

NO 

MASK OUT LOW CHARACTER 

SHOULD BLANKS BE IGNORED ? 

YES, IS CHARACTER a BLANK ? 

YES 

No 

t OWER CASE? 

YES 

NO 



INCREMENT STRING POINTER 
NEXT CHARACTER 

A DELIMITER ? 
YES, RETyRN 
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0397 

0398* 

0399* 

0400* 

0401* 

0402* 

0403* 

0404* 

0405* 

0406* 

0407* 

0406 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 
0430 

0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0440 
0449 
0450 



JMR MCHAR+1 
** 
EVALUATE EXPRESSION *** 

** 



56147 025543 

** 

* 



IGNORE THE BLANK 



EXTRACT THE NEXT VARIABLE TO BE OUTPUT BY THE FORMATTER, IF 
NONE FOUND, EXIT TO (P+l), IF A STRING IS FOUND, EXIT TO 
(P+2) AFTER PREPARING THE STRING FOR OUTPUT, IF A NUMERIC 

Quantity is found,- exit to (p*3) with the number if (aj and cbk 

EDSTA IS SET To IF THIS IS THE LAST VARIABLE I N THE STATE M EnT, 



56150 
56150 
56151 
56152 
56153 
56154 
56155 
56156 
56157 
56160 
56161 
56162 
56163 
56164 

5>6l65 
56166 
56167 
56170 
56171 
56172 
56173 
56174 
56175 
56176 
56177 
56200 
56201 
56202 
56203 
56204 
56205 
56206 
56207 
56210 
56210 
56211 
56212 

56213 
56214 
56215 
56216 
56217 
56220 
56221 



061756 
002020 
026212 
065613 
055334 
125544 
003400 
071472 
015336 

165332 
006020 
026177 
015376 
035472 
026153 
061613 
051334 
002400 
071753 
104200 
100001 
035544 
026210 

060350 
015344 
071256 
075410 
065613 
055334 
006400 
075753 
065410 

035544 
125544 
035472 
026244 
065613 
055334 
125544 
161613 
010700 
002003 



#EVEP EUU 
LDA 
SSA 
JMP 

EVEX0 LOB 
CP8 
JMP 
CCA 
STA 
JSB 
LDB 
SSB 
JMP 

JSb 
ISZ 
JMP 

LDA 
CPA 
CLA 
STA 
OLD 

I3 Z 

JMP 

EVEX3 LDA 

JSB 

ST A 
STB 

LDB 
CPB 
CLB 
STB 
LOB 

EVEX4 EQU 
IS Z 
JMP 

EVEX5 ISZ 
JMP 

EV E X6 lob 
CPB 
JMP 
LDA 
AND 
S*A 



* 

fflg 

EVEX5 
TEMPI 
PRGCT 
EVEXP,I 

EOL 
FORMX 

OPOSTfl 

EVEX3 
OPCMK 
EOL 

EyEx0 
TEMPI 
PRGCT 

EDSTA 
1,1 

EVEXP 
EVEX4 

• *2 

PSTR 

TEMP4 
TPRME 
TEMPI 
PRGCT 

EDSTA 

TPRME 

* 

EVEXP 
EVEXP, I 
ELC N T 
EVEX7 

tempi 

PRGCT 
EVEXP, I 
TEMPI, I 
OPDMK 
,RSS 



MAT 

PRINT? 
YES 

END OF STATEMENT? 

yES 

TURN OFF 

Function flag 

EVALUATE FORMULA 

is It a 

STRjNG VARIABLE ? 
YES 

no, unstack v a lue address 
a function ? 

LAST VARIABLE? 

YES 

NO 

N , Lqad number 

RETURN TO (P+3) 

PREPARE 
PRINT 
STRING 

END OF 

STATEMENT? 
YES 
NO 



RETURN TO 

(P*2) 
FINISHED CURRE N T MATRIX? 
NO 
YES 

END OF STATEMENT? 
YES 
gET NEXT OPERAND 

NULL 



PACE 
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0451 


56222 


125544 




JMP 


EVEXP,I 


YES 




0452 


56223 


002020 




ss A 




NO, FUNCTION7 




0453 


56224 


026262 




JMP 


EVEX8 


YES 




0454 


56225 


001000 




AI3 




NO, LOAD 




0455 


56226 


041575 




A0A 


SYMT8 


BASE A00RE3S 




0456 


56227 


040351 




AOA 


• "l 


OF ARRAY 




0457 


56230 


164000 




LOB 


A, I 






0458 


56231 


044350 




ADB 


,-2 


SAVE POINTER TO 




0459 


56232 


075574 




STB 


SBPTR 


DYNAMIC DIMENSIONS 




0460 


56233 


015472 




JSB 


VCHK 


VALIDATE ARRAY ELEMENTS 




0461 


56234 


161574 




IDA 


SBPTR, I 


SET POINTER 




0462 


56235 


035574 




ISZ 


SBPTR 


TO FIRST ELEMENT 




0463 


56236 
56237 


100200 
101574 




MPy 


sBPTKrl 


UF ARRAY 




0464 


56240 


035574 




ISZ 


SBPTR 


WHILE COMPUTING 




0465 


56241 


003004 




CMA, 


>INA 


NUMB£R Of 




0466 


56242 


071472 




STA 


ELCNT 


EuEMENTS 




0467 


56243 


035613 




ISZ 


TEMPI 


bUMP TO NEXT OPERANO 




0466 


56244 


003400 


EVEX7 


CCA 




LAST 




0469 


56245 


051472 




CpA 


ELCnT 


ELEMENT? 




0470 


56246 


002001 




RSS 




YES 




0471 


56247 


026253 




JMP 


EVEX9 


NO 




0472 


56250 


061613 




LDA 


TEMPI 


END OF 




0473 


56251 


051334 




CPA 


PRGCT 


STATEMENT? 




0474 


56252 


002400 




CLA 




YES 




0475 


56253 




EVEX9 


EqU 


* 






0476 


56253 


071753 




S T A 


edsta 


NO 




0477 


56254 
56255 


104200 
101574 




DUD 


SBpTRr I 


GET NUMBER 




0478 


56256 


035574 




ISZ 


SBPTR 


BUMP TO 




0479 


56257 


035574 




isz 


SBPTR 


NEXT ELEMENT 




0480 


56260 


035544 




ISZ 


EVEXP 






0481 


56261 


026210 




JMP 


EVEX4 


EXIT 




0482 


56262 


003400 


EVEX8 


CCA 




TURN Off 




0483 


56263 


071472 




STA 


EQL 


FUNCTION FLA(j 




04g4 


56264 


015336 




JSB 


FORMX 


EVALUATE FUNCTION 




0485 


56265 


015376 




JSB 


OPCHK 


REMOVE ARGUMENT FROM TEMP 


STACK 


0486 


56266 


026214 




JMP 


EVEX6 


GET NEXT OPERAND 




0487* 
















0488* 


MESSAGE BUFFER 










0489* 
















0490 


56267 


000000 


MSQHO 


BSS 


ME3&N 






0491 


56641 






BSS 
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0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014* 

0015* 

0016* 

0017* 

0018* 

0019* 

0020* 

0021* 

0022* 

0023* 

0024* 

002b* 

0026* 

0027* 

0028* 

0029* 

0030* 
0031* 

0032* 
0033* 
0034* 
0035* 
0036* 
0037* 
0038* 
0039* 
0040* 



60000 

6000i4 
60001 
60002 
60003 
00226 
60004 
60005 
60006 
60007 
60010 
60011 



020134 
160000 
120000 
130000 

000137 
000000 
000000 
000000 
0000019 
000000 



RVRSt 

TBITS 

B120K 

B130K 

B160K 

BKSPC 

TTA 

TTB 

TTE 

TUG 

TADR 



ORG 600000 
ASC 1, \ 

OCT 160000 
OCT 12000k) 
OCT 130000 
EOU INI 
OCT 137 
BS3 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 



THE TSB DRUM DRIVER IS RESPONSIBLE FOR All TRANSFERS TO AND FROM 
THE SYSTEM DRUM(S), THE CALLING SEQUENCE TO THE DRIVER IS AS 
FOLLOWS: 

JSB DRUM f I 
A»REG*D*UM Aqp*ESS, in THe STANqARq SYSTEM FORMAT, NAMtLY: 
A(15;14)«DRUM NO. 
A(13I8) »TRACK NO, 
A(7) «0 
A($*0) -SECTOR NO, 

B-REG.CORE ADDRESS (BITS j4»i*) AND DIRECTION (BIT i5), 
b(15)*l FOR A DRUM READ, FOR A DRUM WRITE, 

WQR0««# OF WORDS TO BE TRANSFERRED. IF WORD»0# NO TRANSFER IS 
DONE IF THE TRANSFER IS A WRITE, THE ACTUAL # OF WORDS 
TRANSFERRED 13 *64*INT (WORD/64) , 

THE DRIVER MAINTAINS A FLAG CALLED ENORM, IT IS SET TO - t WHEN A 
TRANSFER IS INITIATED, AND CLEARED UPON SUCCESSFUL COMPLETION OF 
THE TRANSFER, 

WHEN AN ATTEMPTED TRANSFER FAILS, IT IS REPEATED 95 ADDITIONAL 
TIMES, IF IT CONTINUES TO FAIL, ENDRM IS SET TO 1 BEFORE THE 
ORIVER RETURNS TO ITS CALLER, 



0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053* 

0054 

0055 



60012 
60013 
60014 
60015 
60016 
60017 
60020 
60021 
60022 
60023 
60024 



000000 
103100 
072140 
076141 
066012 
076052 
006400 
054072 
026072 
007400 
074261 



LDRUM NOP 

CLF 



sta DADDR 

STB CORE 

LDB LDRyM 

STB DINT 

CLB 

CpB WqrD 

JMP DEND 

CCB 

STB ENDrM 



60025 00$400 

60026 100042 



DSCST CLB 

LSL 2 



ENTRY POINT 
INTERRUPT OFF, 
5AVE DRUM AND 

CORE ADDRESSES, 
SET uP RETyRN 

ADDRESS, 
TEST FOR *ERQ LENGTH TRANSFER, 

NO TRANSFER, 
SET DRIVER 
BUSY FLAG 



GET SELECT CODE FROM DRUM TABLE 
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0056 
0057 
005a 
0059 
0060 
0061 
0062 
0063 
0064 
0065 

0066 
0067 
0068 
0069 

0tf70« 
0071 

0072 

0073 

0074 

0075 

0076* 

dfd77* 

0078* 

0079 

0080 

0061 

0082 
0083 
0084 

0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 

0096 
0097 

0090* 

0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 



60027 
60030 
60031 
60032 
60033 
60034 
60035 
60036 
60037 
60040 
60041 
60042 
60043 
60044 

60045 
60046 
60047 
60050 
60051 



044676 
160001 
072146 
010734 
040552 
072077 
072062 
072132 
040772 
072126 
040734 
072130 
022142 
102607 

060766 
072143 
002400 
072147 
026077 



INTERRUPT SECTION * 



60052 

60053 
60054 

60055 

60056 
60057 
60060 

60061 
60062 
60063 
60064 
60065 

60066 
60067 
60070 
60071 
60072 
60073 
60074 

60075 
60076 

60077 
60100 
60101 
60102 
60103 
60104 
60105 
60106 
60107 
60110 



000000 
103100 
104400 
060144 
064362 
062141 
002020 

06 4 36< 
102500 

010001 
002002 
026132 
0702&1 
062147 
002002 
016150 
107707 
104200 
060144 
102100 
126052 

102500 
000010 
026077 
001727 
002021 
026077 
066141 
106703 
106603 
060072 



DINT 



ADB ?ATBL 
IDA 1,1 
STA DTEMP 
A N B77 
ADA LjAl 
STA DRIyE 
STA DINT1 
STA DRMER 
ADA B100 
STA 0INT2 
ADA B77 
STA DINT3 
XOR DCHAN 
OTA DMA 

LOA M96 

STA DFAIL 

CLA 

STA DRATS 

JMP DRIVE 



NOP 
CLF 
DST DSAVE 



LUB 
LDA 
SSA 
LOB 

DINTi LIA 
AND 
SZA 
JMP 

DEND2 STA 

LD A 
SZA 
jSB 

DEnO cue 
OEND1 DUD 

STF 
JMP 



DRIVE 



LIA 
SLA 
JMP 

AUF, 
SSA, 

JMp 

LDB 

cue 

OTB 
LOA 



.♦10B 
CORE 

,*12B 


1 

DRMER 
ENDRM 
pRATS 

DRAIu 
DMA,C 
DSaVE 


DINTfl 



DRIVE 

alf 

RSS 

ORIVE 

COrE 

DMA.4 

DmA«4 

WORD 



CONSTRUCT "UIA COMMAND ChANNEl" 

CONSTRUCT "OTA COMMAND CHANNEL" 

CONSTRUCT "STC DATA CHANNEL" 

CONSTRUCT "20000B+SC" AS DMA 
CONTROU WORD, 

INITIALIZE FAIL COUNT 



CLEAR ERROR STATUS SAVE WORD 
GO INITIATE TRANSFER, 



INHIBIT INTERRUPT, 
SAVE A AND B REGISTERS, 

COMPUTE MASK FOR ERROR TEST, 
TEST BIT 3 ONUY IF OUTPUT. 

TEST BITS 1 AND 3 IF INPUT 

REAO DRUM STATUS 

MASK aEUEVANT BITS. 

IF ERROR BITS ?ET, G TO 

DROM RETRY 
FUAG OPERATION COMPLETE 
G&T fcRROR STATUS 

retries or fails? 

yes, go Inform operator 

CuEAR DMA, 
RESTORE REGISTERS, 

FORCE INTERRUPT ON. 
EXIT. 

START TRANSFER. 

TEST IF CONTROLLER Bus*t 



OUTPUT COrE ADDrEss 
TO OMA, 

IF OUTPUT, SET WORD COUNT TO AN 
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0109 


60111 


007020 




CMB,S8B 


EVEN # OF SECTORS, 


01 1 Id 


60U2 


010610 




AND M64 




0111 


60113 


102703 




STL DMA-4 


OUTPUT WOKD 


0112 


60114 


102603 




OTA DmA»4 


Count, 


0U3* 












0114 


60115 


062146 




LDA DTEMP 


get drum info. 


0115 


60116 


001727 




ALF,aLF 


A (15;14)*-TRaCK PREFIX, 


011<, 


60H7 


005200 




RBI 


BC0J«-DIRECTION, 


U 7 


60j20 


100042 




LSL 2 


B(2:0)«»DADDR PREFIX, 


011» 


60121 


062140 




LDA DADDR 


GET DRUM ADDRESS, 


011V 


60122 


001222 




RAURAL 


REMOVE DRUM NUMBER, 


0120 


60123 


100046 




LSL 6 


EXTRACT IRACK, 


0121 


60124 


001200 




RAL 


REMOVE BI] 7, 


0122 


60125 


101051 




LSR 9 


GET FINAL D«UM ADDRESS, 


0123 


60126 


102600 


D1nT2 


OTA 


SEND DRUM ADDRESS TO DRUM 


0124 


60127 


103707 




3TC D M A,C 


Initiate dma, 


0125 


60130 


102700 


DINT3 


8TC 


INITIATE oRUM, 


0126 


60131 


026073 




JMP DEND1 




0127* 












012b 


60J32 


102500 


DRMER 


LIA 


GET STATUS 


0129 


60133 


072147 




STA DRATS 


AND SAVE IT 


0130 


60134 


036143 




ISZ DFAIL 


TEST FOR DEATH 


0131 


60135 


026077 




JMP DRIVE 


TRY AGAIN, 


0132 


60136 


002404 




CLA,INA 




0133 


60137 


026066 




JMP DEND2 




0134 


60140 




08CED 


tyu * 




0135* 












0136* 












0137 


60140 


000000 


DAODR 


BSS 1 


ORUM ADDRESS 


0138 


60141 


000000 


C0Rt 


BBS 1 


COR* ADDRESS, 


0139 


60142 


122700 


OCHAN 


OCT 122700 




0140 


60143 


000000 


DFAIL 


BSS 1 


FAIL COUNT, 


0141 


60144 


000000 


DSAVE 


BSS 2 


A&B REGISTERS, 


0142 


60146 


000000 


QTEMP 


BSS 1 


TyL ENTRY, 


0143 


60147 


000000 


orats 


BSS i 


ERROR STATUS SAVE WORD 
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8145* THIS ROUTINE INFORMS THE SYSTEM OPERATOR EACH TIME THE 

0146* DRUM DRIVER FAILS TO SUCCESSFULLY COMPLETE A REQUESTED 

0147* TRANSFER AND EACH TIME RETRIES ARE NEEDED TO COMPLETE 

0148* A REQUESTED TRA N SFER, THE prI N TqUT InCLUDE^ THE 

13149* OPERATION, NUMBER OF SECTORS BEING TRANSFERRED, DRUM 

0150* ADDRESS, AND STATUS, 



0152 

0153 

0154 

0156* 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172* 

0173* 

0l7<* 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182* 

0183* 

0184* 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194* 

0195* 

0196* 

0197 

0196 



6015^ 000000 

60151 114211 

60152 126150 



DRAIL 



60153 
60154 
60155 
60156 
60157 
60160 
60161 
60162 
60163 
60164 
60165 
60166 
60167 
60170 
60171 
60172 



60173 
60174 
60i75 
60176 
60177 
60200 
60201 
60202 



064261 

006003 

026173 

066414 

174000 

002004 

066413 

174000 

002004, 

066406 

174000 

002004 

0724J6 

062343 

064344 

026201 



06443 6 
174000 
002004 
072416 
062352 
064345 
072415 
016307 



DRAl 



DRA2 



NOP 
J3B 
JMP 

LDB 
SZB, 

JMP 
LDB 
STB 

INA 

lob 

STB 
INA 
LDB 
STB 
INA 
STA 
LDA 
LDB 
JMP 



GMQBP,I 
DRAIL,! 

Endrm 

RSS 
DRAl 
DR.66 
A, I 

DCRI.F 
A, I 

DrBLS 
A, I 

CARRD 
DRDFP 
v »6 

DRA2 



LDB 
STB 
INA 
STA 

loa 

LDB 
STA 

JSB 



• 58 
A, I 

CARRD 
DRDRP 

CARR3 
CARRY 



ENTRY POINT 

GET PUINTER TO MESSAGE QUEUE 

NO ROOM! RETURN (DO NOTHING) 



RETRY OR FAILURE MESSAGE? 

RETRY 

FAILURE! SET LENGTH 



CARRIAGE RETURN/ 
LINEFEED 



TWO BELLS 



OUTPUT 

"DRUM FAILURE" 



COME HERE FOR RETRY MESSAGE 



OUTPUT 

"DRUM RETRY" 



NOW DETERMINE WHETHER READ OR WRITE 



60203 
60204 
60205 
60206 
60207 
60210 
60211 
60212 
60213 



066141 
006021 
026210 
062360 
002001 
062365 
072415 
064346 
016307 



LDB CORE 
SSB,RSS 
JMP DRA3 



DRA3 



LDA 
RSS 
LDA 
STA 
LDB 
JSB 



DRREP 

DRWRP 
CARRS 
,-4 
CARRY 



OuTPuT "READING" 
OUTPUT "WRITING" 



CALCULATE AND OUTPUT SECTOR COUNT 



60214 
60215 



060072 
007400 



LDA WORD 
CCS 



CONVERT 
"WORDS 
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0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0206* 

0209* 

0210 

02U 

0212 

0213 

0214* 

0215* 

0216* 

0217 

0218 

0219 

0220 

0221 

222 
0223 

0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240* 

0241* 

0242* 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 



60216 
60217 
60220 
60221 
60222 
60223 
60224 
60225 
60226 
60227 



101026 
003004 
006400 
100400 
000437 
042410 
l724 t 6 
036416 
060001 
016317 



60230 062372 

60231 072415 

60232 064344 

60233 016307 



GET AND OUTPUT 



60234 
60235 
60236 
60237 
60240 

6^241 
60242 

60243 
60244 
60245 
60246 
60247 
602^0 
60251 
60252 

60253 
60254 

60255 
60256 
60257 
60260 
60261 
60262 
60263 



062140 
001222 
010355 
001727 
042411 

172416 
036416 
062140 
001727 
010734 
016317 
062140 
010441 
006400 
100400 

000437 
042412 
l724i6 
036416 
060001 
016317 
062407 
172416 
036416 



GET STATUS AND 



60264 
60265 
60266 
60267 
60270 
60271 
60272 
60273 
60274 



062401 
072415 
064346 
016307 
066147 
002400 
100104 
076415 
016331 



ASH 6 


TO 




tMAf INA 


♦SECTORS 




CUB 






DIV .100 






ApA pRAB0 






STA CARRD,I 


DIGIT 1 




ISZ CARRU 






LDA B 






JSB DRANM 


DIGITS 2 AND 3 




tOA DRSAP 






STA CARRS 






LDB ,-6 






JSB CARRY 


OUTPUT "SECTORS 


AT" 


DRUM ADDRESS 






IDA DADDR 






RAL,RAL 


DRUM # IN LUW 2 


BITS 


AND ,+3 






ALF,ALF 






ADA DRA03 






STA CARRD, I 


OUTPUT DRUM # • 


SLASH 


ISZ CARRD 






LDA DADDR 






ALF,ALF 


ISOLATE TRACK 




AND B77 






JSB DRANM 


QgTPpT TRACK * 




IDA DADDR 






AND Bi77 


ISOLATE SECTOR 




CLB 






DlV ,100 






ApA QRAS0 






STA CARRD, I 


OUTPUT SwASM m | 


3IGIT 


ISZ CARRD 






U>A B 






JSB DRANM 


OgTPgT DIGITS 2 


AND 3 


LDA DRDOT 






ST A CARRDfl 


PERIOD - aLANK 




ISZ CARRD 






OUTPUT IT 






LDA DRSTP 






STA CARRS 


OUTPUT 




LDB ,.4 






JSB CARRY 


"STATUS" 




LDB DRATS 






CLA 






RRL 4 






STB CARRS 






JSB DR8NM 


DIGITS 1 AND 2 
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0252 

0253 

0254 

0255 

0256 

0257 

0256 

0259* 

0260 

0261 

0262 

0263* 

0264* 

2 65 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273* 

0274* 

0275 

0276 
0277 

0276 

0279 

0260 

0281 

0262 

0283 

0284* 

0285* 

0286 

0287 

0288 

0269 

0290 

0291 

0292 

0293 

0294 

0295* 

0296* 

0297 

0296 



60275 
60276 
60277 
60300 
60301 
60302 
60303 



066415 
002400 
100106 
016331 
062147 
010734 
016331 



60304 062413 

60305 172416 

60306 126150 



0299 



60307 
60310 
60311 
60312 
60313 
60314 
60315 
60316 



60317 

§0320 
60321 
60322 
60323 
60324 
60325 
60326 
60327 
60330 



60331 
60332 
60333 
60334 
60335 
60336 
60337 
60340 
60341 
60342 



60343 
60344 
60345 
60346 
60347 
60350 
60351 
60352 



000000 

00*025 
126307 
162415 
172416 
036415 
036415 
02631C 



000000 
005400 
1004010 

000364 
001727 
040001 
040574 
172416 
036416 
126317 



000000 
006400 
100400 

000362 
001727 

0^0001 
040574 

172416 

036416 

126331 



060344 
042122 
052515 
020106 
0405U 
046125 
051105 
060353 



LDB CARRS 
CIA 
RRL 6 
jSB DR8NM 
LDA DRATS 
AnD B77 
J3B 0R8NM 

LDA DCRLF 
STA CARRD,I 
JMP DRA1L,I 



CARRY NOP 

S3B,INB,RSS 
JMP CARRY, I 
LDA CARRS, I 
STA CARRO,I 

I9Z CARRS 
ISZ CARRD 
JMP CARRY+1 



DRANM NOP 

cue 

DIV ,*10 

ALF,ALF 
AOA B 
ADA A3C00 

STa caRRd,i 

ISZ CARRD 
JMP DRANM, I 



DR6NM NOP 
CUB 
DIV ,*8 

ALF,ALF 
ADA B 
ADA ASC00 
STA CARRDfl 
ISZ CARRD 
JMP DR8NM,I 



DI9ITS 3 AND 4 



DI6I TS 5 AND 6 



CARRIAGE RETURN / LINEFEED 



MOVES -B WORDS FROM CARRS, I TO 
CARRD,! 



CONVERT A # « 100 TO ASCII 



OUTPUT 2 ASCII DIGITS 



CONVERTS A # < 1000 TO ASCII 
(TWO OCTAL DIGITS) 



OUTPUT 2 A SCII DIGITS 



drdfp def drdf 

orof asc 6, drum failure 



DRDRP D£F DRDR 
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0300 



0301 
0302 



0303 
0304 



0305 
0306 



0307 

0308 



0309 

0310 

0311 

0312 

0313 

0314 

0315* 

0316 

0317* 

03I8 

0319 

0320* 



60353 
60354 
60355 
60356 
60357 
60360 
60361 
60362 
60363 
60364 
60365 
60366 
60367 
60370 
60371 
60372 
60373 
60374 
60375 
60376 
60377 
60400 
60401 
60402 
60403 
60404 
60405 
60406 
60407 
60410 
604U 
60412 
60413 



042122 
052515 

020122 
042524 
051131 
060361 
020122 
042501 
042111 
047107 
060366 
020127 
051111 
052111 
047107 
060373 
020123 
042503 
052117 
051123 
020101 
052040 
060402 
020123 
052101 
052125 
051440 
003407 
027040 
020060 
030057 
027460 
006412 



QROR ASC 5,0RUH RETRY 



ORREP OEp DRRE 

ORRE ASC 4, READING 



DRWRP DEF DRWR 

DRWR ASC 4, WRITING 



DRSAP OEF DRSA 

DRSA ASC 6, SECTORS AT 



60414 000102 

60415 000000 

60416 000000 



DRSTP DfeF ORST 
ORST ASC 4, STATUS 



DRBLS OCT 34tj7 
DRDOT ASC 1,, 
ORAB0 ASC 1, 
DRAgS ASC 1,0/ 
DRAS0 ASC l,/0 
DtR L F OCT 6412 

DR f 66 OEC 66 

CARRS BSS 1 
CARRO BSS 1 
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0322* THE POWER FaIL/HESTaRT ROUTINE INSURES A LOGICAL SHUTDOWN AND 
0323* RESTART OF THE SYSTEM IN CASE OF POWER FAIL, 



032$ 

0326 

0327 

0320* 

0329* 

0330* 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340* 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0340* 

0349 

0350 

0351 

0352 
0353 
0354 
0355 

0356* 
0357 

0358* 
0359 
0360 
0361* 

0362* 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 
0372 
0373 



60417 000000 

60420 102204 

60421 026474 



POW 



POWER FAH SECTION, 



60422 
60423 
60424 
60425 
60426 
60427 
60430 
60431 
60432 
60433 

60434 
60435 
60436 
60437 

60440 
60441 
60442 

60443 
60444 
60445 
6^446 
60447 
60450 
60451 
60452 
60453 



104400 
060651 
005520 
102201 
006004 
002400 
052650 
026434 
072650 
026472 

06241/ 
042670 
002020 
026443 
042671 
002020 
026472 

076655 
104200 
060651 
104400 
060653 
062417 
072656 
102501 
072661 



60454 002400 



60455 
60456 
SF 
10 
60457 
60460 
60461 
60462 
60463 
60464 
60465 
60466 
6^467 
60470 
60471 



102207 
030353 
C CHI 
.♦2 
102211 
030356 

102212 
030362 
102216 

030442 
072657 
006400 
102200 
066556 
07664 i 



NOP 
SFC 4 
JMP POW! 



DST POWI 

ERB,BLS 

SOC 

INB 

CLA 

CPA POWFF 

JMp *+3 

STA POWFF 

JMP P0W2 

LDA POW 

ADA P0WD1 

SSA 

JMp *+4 

ADA P0WD2 

SSA 

JMP P0W2 

STB PQWEQ 
OLD POWI 

DST P0WA8 

LDA POW 
STA POWP 
LIA 01 
STA PQWSW 

CLA 

SFC D M A 
IQR ,*i 



SFC CH2 
IOr ,*4 
SFC ?SC 
IOR .+10B 
SFC CLOCK 
IOR B200 
STA POWFL 
CLB 
SFC 
LOB STF0 
STB POWNO 



INTERRUPT ENTRY POINT, 
TEST FOR FAIL OR RESTART, 
TRANSFER TO RESTART SECTION, 



SAVE REGISTERS TEMPORARILY, 



IF POWFF W*S NONZERO, 
INTERRUPT WAS FROM POWER FAIL, 



test for interrupt out of 
restart section, 

normal fail. 



FAILED FRCM RESTART StCTION, 
NORMAL FAILURE—SAVE REGISTERS, 



LOAD AND SAVE 

THE SWITCH REGISTER 

GET FLAGS FOR ALL DEVICES THAT 

CAN INTERRUPT. 

CHECK D M A FLAG 

BiT ZERO FOR C H 7 

NOT INTERESTED IN ST A TE 

OF THIS CHANNEL 

CHECK INTERCONNECT TwU 

BIT 2 F0 R CH 11 

CHECK FLAG ON ConSqLE TTY, 

BiT 3 FOR TTY 

CHECK TIME BASE GENERATOR 

BIT 7 FOR CH 16 



IF INTERRUPT IS SET, STORE 
STF INTO POWNDI ELSE NOP, 
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0374* 

0375 6047g 

0376 60473 



106704 
10^000 



POW2 



CLC 

HUT 



SET FOR RESJART, 



0379* RESTART SECTION 



0380 
03el 
0362 

0383 
0384 
0365 
0386 

0387 
0388 
0389 

0390 
0391 
0392 
0393 
0394 

0396* 

03 96 * 

0397* 
0398* 

0399 

0400 

0401 

0402 

0403 

0404* 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414* 

0415* 

0416* 

0417* 

0410* 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 



60474 
60475 
60476 
60477 

60500 
60501 
60502 
60503 
60504 
60505 
60506 
60507 
60510 
60511 
60512 



102704 
062661 
102601 
060360 
072652 
002004 
072651 
0603gg 
102616 
062657 
072660 
066001 
010362 
002003 
106612 



POWI 



STC 
LOA 
OTA 
LOA 
STA 
INA 
STA 
LOA 
OTA 
LOA 
STA 
LOB 
AND 

SZA, 
OTB 



4 

PQWSW 

01 

.♦6 

POWJ 

POWI 
.♦3 

CLOCK 
PQWFL 
POWF 

tsits 

• + 10B 

RSS 
?SC 



RESfcT pOR POWER MIL, 
FETCH AND RESTORE 

THE SWITCH REGISTER 
INITIALIZE J AS POWER FAIL POIN- 
TER AND I AS DMA POINTER, 



RESET CLOCK FREQUENCY, 

COPY FLAgS, 

IF ASR.,35 FLAG wAS CLEAR, SEj UP 

the correct state of the asr35 
otherwise leave it set in the 
Input state. 



NOW TEST THE INDIVIDUAL 10 FLAGS, IF A FLAG WaS CLEAR* WE PERFORM 
A CLF OPERATION. IF IT WAS SET, WE TAKE STRONGER ACTION. 



60513 
60514 
60515 
60516 
60517 

60520 
60521 
60522 

60523 
6U524 
60525 
60526 
60527 
60530 



062660 
001300 
072660 

002020 

026531 

062651 

042560 
072523 
000000 
062651 
050370 
026567 
036651 
026513 



POM 



LOA POWF 

RAR 

STA POWF 

SSA 

JMP POW& 



FLAGS, THE 
IN BI T *) AND 



P0W6 



LDA 
ADA 

STA 
NOP 
LOA 
CPA 
JMP 
ISZ 

JMP 



POWI 

CLFto 
*♦! 

POWI 
,*16B 
P0W14 
POWI 

P0W4 



GET WORD CONTAINING 
ONE T BE t^tED 13 
I* ITS SELECT CODE, 

FLAG SET, 



PRODUCE CLF INSTRUCTION, 



EXECUTE CLF, 
TEST FOR DONE, 
CHECK FOR CLOCK LOCATION 

DONE. 

OTHERWISE BUMP I AND LOOP, 



FLAG WAS SET TEST IF ROUTINE HAD ACTUALLY BEEN 
ENTERED, IF SO, PERFORM A DUMMY INTERRUPT TO PRE- 
VENT IT FR M BEING REENTERED, 



60531 
60532 
60533 
60534 
60535 
60536 
60537 
60540 
60541 



066662 
046652 
164001 
160001 
066662 
046651 
003000 
140001 
002021 



P0W5 



LDB PQWTB 
ADB POWJ 
LDB 1,1 
LDA 1,1 

LOB P0WT8 
ADB POWI 
CMA 

ADA 1,1 
SSA, RSS 



COMPUTE LOCATION OF RETURN AD* 
DRESS OF HIGHEST PRIORITY ROU- 
TINE NOT yET TESTED, 

get its return address 

point to re?, adr, of test ruutin 
tE 8 t for interrupt Dot of that 

ROUTINE, 
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0428 

0429 

0430 

0491 

0432 

0433* 

0434* 

0435* 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452* 

0453* 

0454* 

0455* 

0456* 

0457 

0458 

0459 

0460 

046 1 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

k>469 

0470 

0471 

0472* 

0473* 

0474 

0475 

0476 
0477* 

0476* 

0479 

0480 

0481 

0482 



60542 026524 

60543 044362 

60544 140001 

60545 002020 

60546 026524 



JMP P0w6 

AD810 A08 ,*10B 

ADA 1,1 

SSA 

JMP P0W6 



NO^INTERRUPT WAS pending, 

point to End of test routine. 



NOT INTERRUPTED, 
PERFORM DUMMY INTERRUPT TO PREVENT AN UNWANTED ONE LATER, 



60547 
60550 
60551 
60552 
60553 
60554 
60555 
60556 
60557 
60560 
60561 
60562 
60563 
60564 
60565 
60566 



*# 



062543 
172661 

062651 
042700 
072555 
020736 
102700 
102100 
072561 
103100 
106700 
160001 
172651 
062651 
072652 
026524 



LOA 

8TA 

LOA 

ADA 

STA 

XOR 

POWST STC 

STF0 STf 

STA 

CLF0 CLF 

POWCL cue 

IDA 

STA 

LDA 
STA 

JMP 



AD810 

POWJ,I 

POWI 

STC0 

POWST 

B4000 





POWCL 





1,1 

POWI, I 

POWX 

POWJ 

POW6 



PLACE ADB10 IN INjERRyPT CELL, 



SET UP STC AND CLC, 

CREATE CLC, 
SET DEVICE CONTROL 
ENABLE INTERRUPT (CAUSING ADB10& 
COMPUTE AqR. OF CORRECT INT, VAL 

disable interrupt, 

disable device, 

get correct ifvterrupt contents, 

store in interrupt cell. 

update interrupt chain 

POINTER, 
GO TEST NEXT DEVICE, 



HAVE DONE ALL DUMMY INTERRUPTS, 
** SET CONTROL ON CLOCK AND TTY, 
** AND RESTART INTERCONNECT. 



60567 P0W14 EGU 

60567 103710 STC 

60570 060073 LOA 

60571 102611 OTA 

60572 102111 STF 

60573 062657 LDA 

60574 010356 AND 

60575 002003 SZA, 

60576 103711 STC 

60577 106711 CI.C 

60600 102716 STC 

60601 102712 STC 

60602 062001 LDA 

60603 102612 OTA 

60604 036650 iSZ 
** IF DRUM TRANSFER WAS 
** ELSE DO NORMAL RETURN 

60605 060261 L DA 

60606 002021 SSA, 

6 6 07 026630 JMP 
** DRUM DRIVER WaS BUSY, 
** TOOK PLACE WITHIN DRU 

60610 066656 (.DB 

60611 046702 aDB 

60612 006020 SSB 

60613 026624 JMP 



* 

CHl,C 

SVCh2 

CH2 

CH2 

POWFL 

.♦« 
RS8 
CH2,C 

Ch2 

CLOCK 

?SC 

TBITS 

?3C 

PQWFF 

IN PROGRE 

EnORM 

RSS 
PQW 5 2 

TEST IF 

M DRIVER 

PQWP 
P0W28 

P0W29 



RESTART FIRST CHANNEL 
PUT WORD BACK OUT ON Ch2 



LOAD FLAG WORD 

LEAyE BIT 2 

SKIP IF FLAG SET 

OTHERWISE, TEu. OTHER mACHInE 

WANT NO INTERRUPT 



RE-ESTABLISH PREVIOUS 

STATE OF ASR35 

SET IN CASE OF ANOTHER PF 

ss Repeat transfer 



drum free; go process discs 
power fail 

GET RETURN ADDRESS. 

COMPARE TO START OF DRUM DRIVER 

RETURN ADORESS < DRIVER ? 

YES, 
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0463 

0484 

0495 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496* 

0497 

0498 

0499* 

0500 

0501 

0502 

0503* 

0504 

0505 

0506 

0507 

0506 

0509* 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518* 

05*9 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528* 

0629 

0530* 

0531* 

0532* 

0533* 

0534 

0535 

0536 



60614 
60615 
60616 
60617 
60620 
60621 
60622 
60623 
60624 
60624 
60625 
60626 
60627 



045701 
006021 
026624 

016643 

062140 
006400 
076650 
026025 

066141 
062140 
114770 
103100 



60630 

60630 016643 



A06 P0W31 
SSB,RSS 
JMP P0W29 
JSB POW50 
LDA DAUOR 
CUB 

8TB powff 

JMp DSC87 
PUW29 £QU * 

LDB CORE 
LOA DADDR 
jSB DRUM, J 
CLF 

P0W52 EQU * 

jSB PQW50 



COMPARE TO END OF DRIVER, 

RETURN ADDRESS > DRIyER ? 

YES. 

WAS JN DRUM DRIVER* DO DISCS 

GET DRyM ADDRESS 

SAY NOT IN RESTART 

ROUTINE 
JUMP DIRECTLY To THE DRIVER 

GET CORE AND 

DRUM ADDRESS 
RECALL DRUM DRjVER 



GO WA A T F OR DjSCS 



1ST 



say not restarting 

iti AND OVERFLOW 



60631 P0W27 ECU * 

60631 0W2400 CLA 

60632 072650 STa POWFF 
** RESTORE REGISTERS, 

60633 062655 LDA POWEO 

60634 103101 CLO 

60635 000036 SLA,ELA 

60636 102101 STO 

60637 104200 OLD POWAB 
60640 060663 

** RESET INTERRUPT SYSTEM TO SAME AS BEFORE FAIL. 



60641 000000 

60642 126656 

60643 000000 

60644 062714 

60645 066656 

60646 114216 

60647 126643 
60650 



POWND NOP 

JMP POWP, I 

POW50 NOP 

LDA POFFP 
t DB PQWP 
JSB DREDP,I 
JMP PQW50,J 

POW40 EQU * 



6"650 
60651 
60652 
60653 
60655 
60656 
68657 
60660 
60661 



000000 

000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 



POWFF 

POWI 

PO W J 

POWAB 

POWEO 

POWP 

POWFL 

POWF 

PU*Sw 



NOP 
BSS i 
Bss 1 
BSS 2 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 



60662 060655 PUwTB DEF **g 



OR STF 0, 
RE1URN. 

GET POINTER TO POWFF 
GET POWER FAIi LOCATION 
GO DO DISC STUFF 
RETURN 



SET TO 1 DURING DISC RECALL, 

POINTER TO DEVICE BEING TESTED, 

P0IN T E R TO INjErruPt CHAIN, 

TEmPS TO HOt& VALUES OF A&B f 

TEMP TO HOLD VALUE Of" E*Q. 

TEMP TO HOLD VALUE OF P 

TEMP TO HOLD STATE OF I/O FLAGS, 

COPY OF POWFL, 

T EMP T HOLD SwItCH REGIStER 

POINTER TO FOLLOWING TABLE, 



THIS TABLE POINTS TO THE ENTRY POINTS FOR 
THE INTERRUPT ROUTINES, 



60663 060656 

60664 060052 
60666 063334 



def powp power fail rtn,adr, 

def dint disc rtn,adr, 

def rmcm Interconnect rtn adr 
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0537 
0538 
0539 

0540 
0541 

0542* 
0543* 

0544* 

0545* 

0546* 

0547* 

0540* 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556* 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565* 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 



60666 
60667 
60670 
60670 
60673 



063334 
060735 

000000 
070026 



POX1 



60674 
60675 
60676 
60677 
60700 
60700 
60703 

60704 
60705 
60706 
60707 
60710 
60711 
60712 
60713 

60714 
60670 
60670 
6067J 
60672 
60700 
60700 
60701 
60702 
60714 
60714 



DEF R14CM 
DEF ?TT2 

EflU * 
BSS 3 
DEF CLKJN 



TTY RTN.AUR, 

NO INTERRUPTS OCCUR UN THESt CmA 
CLK RTN.AOR, 



THI3 SECTION GIVES THE LENGTH QF EACH ROUTINE 

80 THAT POWER FAIL CAN DETERMINE WHEY HER 

THAT ROUTINES INTERRUPT HAD ACTUALLY OCCURRED 

OR WAS STILL PENDING AT THE Um£ Qf THE POWER FAILURE* 



000067 
000220 
000000 
000166 

000000 
000030 

114476 
114464 
106711 
114466 
103013 
103014 
103015 
U4472 



117304 
177624 
102207 

102700 
177665 
117753 

060650 



P0X2 



ABS DSCED-DlNUl CODES FOR TESTING IF 

AB$ R14ED-R14CM 

A8S NO SUCH ROUTINE 

ASs TTYEDw? TT 2*i WITHIN INjERRuPt 

EGU * 

BSS 3 NO INTERRUPTS OCCUR ON THESE CHA 

AB3 CLKED»CLKIN+I ROUTINES, 



J3& ?ADIN,I 


CORRECT CONTENTS 


jSB R14DR, i 


OF INTERRUPT CELLS 


CLC CH2 




JSB T35DR,I 




HLT 13B,C 




MLT 14B,C 




HLT l5BrC 




JSB CLKOR,I 





FILL UP THE HOLE 



P0X3 EGU * 

ORG POxl 
POWQl AgS »PQWl 
P0WD2 ABS PQWUPQW40 
S FC7 sPC 7 

ORG P0X2 FILL UP TmE HOLE 
3TC0 STC 
P0W31 ABS DSCST.DSCED 
P0W28 ABS »0SC8T 

ORG P0x3 BACK WHERE WE BELONG 
POfFp DEF PQWFF 
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0002* 
0003* 
0004* 
0005* 
0006* 

0007* 

0006* 
0009* 
0010* 
0011* 
0012* 
0013* 
0014* 
0015* 
0016* 
0017* 
0013* 
0019* 
0020* 
0021* 
0022* 
0023* 
0024* 
0025* 
0026* 
0027* 
0020* 
0029* 

0030* 
0031* 

0032* 
0033* 
0034* 
0035* 



THE SYSTEM CONSOLE. DRIVER CONTROLS ALL TRANSMISSION OF DATA BE- 
TWEEN THE SYSTEM CONSOLE (A3R»35) AND THE SYSTEM, IT HANDLES ALL 
* 10 FOR THE DEVICE AND PROVIDES FOR COMMUNICATION OF MESSAGES TO 
THE SYSTEM, THE FqLLqWING VARIABLES AkE SIGNIFICANT! 



COMPLETE MESSAGE HAS 
BY THE SYSTEM, ALL FUR- 



T35F1S »0 DURING INPUT, *1 DURING OUTPUT. 
T35F2I NORMALLY 0, IT IS SET TO *1 WHEN A 

BEEN RECEIVED, UNTIL IT IS CLEARED 

THER INPUT IS INHIBITED, 
T35F3I NORMALLY 0, IT IS SET TO »1 WHEN A COMPLETE MESSAGE HAS 

BEEN RECEIVEO, UNTIL IT IS CLEARED BY THE OUTPUT 

INITIALIZATION SECTION OF THIS DRIVER, LOG AND MESSAGE 

ENTRIES ARE HELD OFF, 
TOG: NoT USED DURING INpUT, DURING (jUTpUT, BIT ■ IF NEXT 

Character is on left, i if on right, 

TadR* NOT USED DURING INPUT, DURING OUTPUT, TadR(14!0) points 
THE WORD FROM WHICH THE NEXT CHARACTER WILL BE TAKEN, 
BIT 15»1 FOK PUNCH & PRINT, FOR PRINT ONLY, 
TCNT? DURING INPUT, TCNT»# OF CHARS IN SO FAR, DURING OUTPUT, 
TCNT(14l0)M OF CHARS REMAINING TO BE OUTPUT, BIT 15«W 
IF A CRLF 18 TO BE AppE N DED, 1 IF NOT, 
TBITSI CONTAINS C URRENT C ONTROL BITS, 
120000 *> PRINT 
130000 #> PUNCH AND PRINT 

160000 ■> Input 

TTA,TTB,TT£l USeD TO SAV£ THE VALUES OF A,8, E REGISTERS DURING 
INTERRUPTS, 

CALLING SEQUENCE: 

JSB TTY35,I A»# OF CHARS (BIT 15»0 FOR CRLF, 1 FOR NONE) 
B-BUFFER ADDRESS (BIT 15«i FOR PUNCHING) 

INPUT MESSAGES ARE STOREO IN THE 7g CHARACTER BUFFER T35BF, 



TO 



0037 
0036 
0039 
0040 
0041 

0042 
0043 

0044 

0045 

0046 

0047 

004B* 

0049* 

0050* 

0051* 

0052 
0053 
0054 
0055 



60715 
607j6 

60717 

60720 

60721 

60722 
60723 

60724 

60725 

60726 

60727 



000000 
103100 
070074 
076011 

003400 

0703*3 
062715 

072735 

002400 
072010 
070315 



?TT3 5 



NOP 




CLF 





STA 


TcNT 


STB 


TADR 


CCA 




STA 


T35F1 


LDA 


?TT35 


STA 


?TT2 


CLA 




STA 


TOG 


STA 


T35F3 



ENTRY POINT FOR OUTPUT, 

INHIBIT INTERRUPT, 

SET UP INITIAL PARAMETERS, 



3ET FLAG To SAY 
OUTPUT, 

Copy return address 

interrupt section, 

s et tog to s ay left 



Into that qF 

HAND CHAp, 



TEST FOR PENDING INPUT, IF THERE IS ANY, EXIT IMMEDIATELY AND LET 
THE INTERRUPT TRIGGER THE FIRST OUTPUT CHARACTER, 



60730 102512 

60731 002021 

60732 026761 

60733 102100 



LIA ?SC 
SSA,RSS 
JMP TT18 
STF 



NONE PENDING—GO OUTPUT 1ST CHAR 
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0056 


60734 


126715 




JMP ?TT35,I 




0057* 












0058* 


INTERRUPT SECTION 






0059* 












0060 


60735 


000000 


?TT2 


NOP 




0061 


60736 


072005 




STA TTA 


SAVE REGISTERS, 


0062 


60737 


076006 




STB TTB 




0063 


60740 


001500 




ERA 




0064 


60741 


072007 




STA m 




0065 


60742 


060313 




LOA T35F1 


TEST FLAG TO DETERMINE IF 


0066 


60743 


002003 




sZAfRss 


INPUT OR OUTPUT. 


0067 


60744 


027037 




JMP TT17 


INPUT 


0068 


60745 


102gl2 




HA ?SC 


LOAD BACK LINE STATUS DURING OUT 


0060 


60746 


064277 




L08 T35ST 


GET CONSOLE STATUS 


0070 


60747 


054355 




CPB XOUTW 


IF OUTPUT WAIT 


0071 


60750 


064301 




LOB T35PR 


USE PRIORITY 


0072 


60751 


007004 




CMB,INB 




0073 


60752 


044435 




AOB ,*%8YNT« 


, + l+R08'«C0M2 


0074 


60753 


006021 




S8B,RSS 


SKIP IF ABORT NOT ALLOWED 


0075 


60754 


050443 




CPA B377 


CHECK FOR A KEy STRUCK 


0076 


60755 


026761 




JMP TT18 


NO iNPUTr CONTINUE ON 


M77 


60756 


002400 




STA T35F2 




0078 


60757 


070314 




CLEAR CQNflNUEING OUTPUT FLAG 


0079 


60760 


070277 




STA T353T 


SET CONSOLE STATUS TO IDLE 


0080* 












0081 


60761 


060074 


TT18 


LOA TCNT 


GET # OF CHARS LEFT, 


0082 


60762 


001265 




RAL,CLE,ERA 


COPY CRLF BIT INTO E t 


0083 


60763 


002002 




82A 


ANy CHARS LEFT? 


0084 


60764 


0270J4 




JMP TT5 


Y£S#*GO OUTPUT NEXT ONE, 


0085 


60765 


002040 




3E2 


NO»» W ANT CRLF? 


0086 


60766 


027000 




JMP TT6 


NO»*G0 RESET FOR INPUT, 


0087 


60767 


072010 




STA TOO 


SET UP OUTPUT OF CRLF, 


0088 


60770 


060355 




LDA ,*3 


3 CHArs WlfH 


008 9 


60771 


031036 




IOR BIT15 


NO CRLF FOLLOWING. 


0090 


60772 


070074 




STA TCNT 




0091 


60773 


062011 




LDA TAOR 


KEEP PRINT/PUNCH BIT, 


0092 


60774 


011036 




ANO BITjS 




0093 


60775 


033123 




IOR TTXCP 




0094 


60776 


072011 




STA TAOR 




0095 


60777 


026761 




JMP TT18 




0096* 












0097* 


END OP OUTPUT 


••RESET FOR INPUT, 




0098* 












0099 


61000 


070074 


TT6 


STA TCNT 


SET COUNTER TO SAY NO CHARS IN, 


0100 


61001 


070313 




STA T35F1 


SET FLAG TO SaY INPUT, 


0101 


61002 


060226 




LOA B160K 


GET CONTROL B.US FOR INPUT, 


0102 


61003 


072001 




STA TBIT3 


SAVE, 


0103 


61004 


102612 


TT8 


OTA ?SC 


OUTPUT TO CONSOLE, 


0104 


61005 


062007 


TT10 


LOA TTE 


RESTORE REGISTERS, 


0105 


61006 


001600 




ELA 




0106 


61007 


062005 




LOA TT A 




0107 


61010 


066806 




LOB TTB 




0106 


61011 


103712 




stc ?sc,c 


ENABLE DEVICE, 


0109 


61012 


102100 




STP 


EnAB L E INTERRUPT, 


0110 


61013 


126735 




JMP ?TT2,I 


EXIT, 
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em* 

0112* 

0113* 

0114 

0115 

0116 

0117 

0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 

0133* 

0134* 

0135* 

0135 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150* 

0151** 

0152* 

0153 

0154 

0155* 

0156 

0157 

0158 

0159 

0160 

0161 

0162* 

0163* 

0164* 
0165 



OUTPUT NEXT CHARACTER 



61014 
61015 
61016 
61017 
61020 
61021 
61022 
61023 
61024 
61025 
61026 
61027 
61030 

61031 
61032 
61033 
61034 
61035 
61036 



003400 
040074 
070074 
066011 
062002 
005275 
062003 
072001 
102612 
160001 
066010 
004010 
036011 
0060U 
001727 
03 6 010 
010441 
030442 
027004 



TT5 



TT15 



CCA 
ADA 
STA 

LDB 

LDA 

RBL, 

LDA 

STA 

OjA 

LOA 

LOB 

SLb 

I3Z 

SLB, 

ALF, 

I3Z 

AND 

IOR 

JMP 



TCNT 
TCNT 

TAOR 
B120K 

CLE, SLB, 

B130K 

TBITS 

?SC 

If X 

TOG 

TAOR 

RSS 

ALF 

TOG 

B177 

B200 

TT8 



CHARACTER HAS BEEN INPUT, 



61037 
61040 
61041 
61042 
61043 
61044 
61045 
61046 

61047 
61050 
61051 
61052 

61053 
61054 



060314 
102401 
000010 
027005 
102512 
010441 
007400 
050364 

027005 
050441 
027005 
002002 
050375 
027005 



TT!7 



LOA 
MIA 
SLA 
JMP 
LIA 
AND 
CCB 
CPA 
JMP 
CPA 
JMP 
SZA 
CPA 
JMP 



TEST FOR 'CONTROL X' 



61055 
61056 

61057 

61060 
61061 
61062 
61063 
61064 



050402 
027112 

052004 
027100 
050367 
074314 
050367 
074315 



CPA 
JMP 

CPA 
JMP 
CPA 
STB 
CpA 
STB 



T35F2 
1 

TT10 

?3C 

B177 

.♦12« 

Tft0 

B177 

TT10 

.♦235 

TT10 



,♦308 
TTU 

BKSPC 

TT12 

,*15B 

T35F2 

.♦15B 

T35F3 



DECREMENT 
COUNTER. 

GET POINTER TO OUTPUT BUFFER. 
GET BITS FOR PRINT ONLY, 
ERB TEST & CLEAR BIT 15 OF B, 
GET PRINT/PUNCH BITS, 
SAVE CONTROL BITS, 
OUTPUT TO DEVICE, 
GET WQRD ConTAI n I n G CHARACTER, 
GET LEFT/RIGHT TOGGLE, 
IF RIGHT CHARACTtR, 

BUMP POINTER, 
IF LEFT CHARACTER, 

POSITION ON RIGHT. 
REVERSE TOGGLE SENSE, 
KEEP BITS 6-0 AND 

SET BIT 7, 
GO OUTPUT CHARACTER, 



IGNORE CHARACTER IF T35F2 IS SET 
OR SWITCH tf IS SET, 



GET CHARACTER IN A. 

PREPARE -1 jN B, 

IGNORE LF, RUbQUI, NULL, XOFF, 



TEST FOR *«■« 

TEST FOR CR, 

SET COMMUNICATION FLAG. 



NOW INSERT CHARACTER IN BUFFER, 
61065 064074 LOB TCNT 



GET COUNT IN B, 
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0166 


61066 U54440 




CPB ,72 


DON'T IF BUFFER IS 


FULL, 


U167 


61067 027005 




JMP TT10 






0168 


61070 004065 




CLE,ERB 


MOVE LEFT/RISHj BIT 


TO E, AND 


0I69 


610 7 1 044305 




ADB T3581 


COMPUTE ADDRESS OF 


DESTINATION. 


0170 


61072 002041 




SEZ,RSS 


LEFT/RIGHT TEST, 




0171 


61073 001737 




ALF,SIA,ALF 


LEFT. 




0172 


61074 130001 




IOR 1,1 


RIGHT, 




0173 


61075 034074 




182 TCNT 


BUMP COUNTER. 




0174 


61076 170001 


TT16 


8TA i f I 


STORE IN BUFFER, 




0175 


61077 027005 




JMP TT10 


GO EXIT, 




0176* 












0177* 


HANDLE BACKSPACE, 








0178* 












0179 


61100 064074 


TT12 


LOB TCNT 


GET CHARACTER COUNT 




0180 


61101 006003 




SZB,RS8 


IGNORE IF NO CHARS ) 


rET, 


0181 


61102 027005 




JMP TT10 






0182 


61103 044351 




AOB .-1 


GET NEW TCNT, 




0183 


61104 074074 




STB TCNT 






0184 


61105 004065 




CLE,ErB 


CLEAR RIGHT HALF OF 


NEW 0ESTIN» 


0185 


61106 0443^5 




AOB T3SBI 


ATION, 




0186 


61107 160001 




LOA 1,1 






0187 


61110 010762 




AND HIM8K 






0188 


61111 027076 




JMP TT16 






0189* 












0190** HANDLE 'CONTROL X 


l 






0191* 












0192 


61112 074313 


TTH 


STB T35F1 


SET OUTPUT FLAG, 




0193 


61113 002400 




CLA 


SET TCNT FOR CrLF AFtEr «\«, 


0194 


61114 070074 




STA TCNT 






0195 


61115 072011 




STA TADR 


SET FOR NO PUNCHING, 


1 


0196 


61116 062002 




LOA B120K 


SET FOR PRINT ONLY, 




0197 


61117 072001 




STA TBIT8 






0198 


61120 102612 




OTA ?8C 






0199 


61121 062000 




LOA rVrsC 


go output *\ m 




0200 


61122 027034 


TTYED 


JMP TT15 






0201 


61123 061124 


TTXCP 


DEF **j 






0202 


61124 011415 




OCT 011415 


X.-OFF CR 




0203 


61125 005000 




OCT 006000 


Lf 
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0205 SUP 

0206* THE TELETYPE TABLES CONTAIN IN COrE INFORMATION FOr SYSTEM US^RS, 

0207* EACH OF THE 32 U8ERS HAS I TAB^E, CONTAINING THE FOLLOWING 

0208* ENTRIESI 

0209* (7FLAG MOST BE FIRST, AND 7CLUC THROUGH ?PLEV MUST 

0210* BE CONTIGUOUS.) 



0212 00000 



0214* 
0215* 
0216* 
0217* 
0218* 
0219* 
0220* 
0221* 
0222* 
0223* 
0224* 
022g* 
0226* 
0227* 
022B* 



TERR 

CFLAG 

HFtAG 

tapef 

UNABT 
OUTWT 
C0M14 
ABTRY 
DFCHK 
CHNFG 
ENOST 
MBUST 



0230 00001 

0232* 

0234 00002 

0236* 

023B 00003 

0240* 

0242 00004 

0244* 

0246 00005 

0240* 

0250 00010 

0252* 

0254 00012 

0256* 

0258 00013 



?FLAG EQU 

CONTAINS ALL BIT FLAGS FOR USER 

0001 TAPE ERROR 

04302 COMPILE MODE 

0004 HELLO j8 RUNNJNG 

0010 user in tape mooe 

0020 unable to abort 

0040 output buffer full 

0100 2114 communication 

0200 abort attempt 

0400 dirty files check 

1000 chain running 

2000 endrm positive 

4000 mbusy positive 



7TNUM EQU ?FLAfc*l 

TELETYPE # IN BITS 12-8, 
70ISC EQU 7TNUM+1 

ORUM AOORESS OF THIS USERS SWAP AREA 
7PROG EGU 7DISC+1 

POINTS TO LAST USfcD WORD Of CORfc PROGRAM, 
710 E«U 7PrOG*1 

USER 10, 
7NAME EQU 710*1 

cHaR program n a me 

7TIME EQU 7NAME*3 

STARTING TIME 
7CL0C EQU ?TIME+2 

USER'S TIMEOUT CLOCK, 
7RSTR EQU 7CL0C*! 
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0260* 

0262 00014 

0264* 
0265* 

0267 00016 

0269* 

0271 00016 

0273* 
0274* 

0276 00017 

0276* 

0279* 

0280 00020 

0201* 

0202* 



RESTART APDRESS FOR SUSPENDED PROGRAMS, 

7STAT EQU 7R8TR+1 

USER STATUS--WHEN ON U INDICATED PROGRAM TYPE* 
WHEN NOT ON U INDICATED REASON WHY, 

7LINK fcQU ?STAT*i 

POINTS TO LINK POSITION OF NEXT ENTRY ON QUEUE* 

?PLEV EOU HINK+1 

for programs on u, contains priority level, for 
suspended programs contains program ttpe, 

?rtim e6u ?plev*1 

response time for en(er statement 

TTEMP EttU 7RTJM+1 

TEMPORARIES FOR LIBRARY ROUTINES 
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0284 

0285 

0266 

0267 

0266* 

0289 

0290 

0291 

0292 

0293* 

0294 

0295 

0296 

0297 

0296* 

0299 

0300 

0301 

0302 

0303* 

0304 

0305 

0306 

0307 

0308* 

0309 

0310 

0311 

0312 

0313* 

0314 

0315 

0316 

0317 

0318* 
0319 

0320 

0321 

0322 

0323* 

0324 

0325 

0326 

0327 

0320* 

0329 

0330 

0331 

0332 

0333* 

0334 

0335 

0336 

0337 

0338* 



61126 000000 

61127 000000 
61130 000000 
61146 000000 



6U51 
6H52 
61153 
61171 

61174 
61175 
61176 
61214 

61217 
61220 
61221 
61237 

61242 
61243 
61244 

61262 

61265 
61266 
61267 
61305 

61310 
61311 
61312 
61330 

61333 
61334 
61335 
61353 

61356 
61357 
61360 
61376 

61401 
61402 
61403 
61421 

61424 
61425 
61426 
61444 



000000 
000400 
000000 
000000 

000000 
001000 
000000 
000000 

000000 
001400 
000000 
000000 

000000 
002000 
000000 
000000 

000000 
002400 
000000 
000000 

000000 
003000 
000000 
000000 

000000 
003400 

000000 
000000 

000000 
004000 
000000 
000000 

000000 
004400 
000000 
000000 

000000 
005000 
000000 
000000 



TTY00 OCT 
OCT 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
OCT 0,0,0 

TTY01 OCT 

OCT 400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTY02 OCT 

OCT 1000 

OCT 0,0,0,0,0,fc),0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTY03 OCT 

OCT 1400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTY04 OCT id 

OCT 2000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

QCT 0,0,0 

TTY05 OCT 

OCT 2400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTY06 OCT 

OCT 3000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTYk)7 OCT 

OCT 3400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

CT 0,0,0 

TTY08 OCT 

OCT 4000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTYg9 OCT 

OCT 4400 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 

TTY10 OCT 

OCT 5000 

OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

OCT 0,0,0 
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0339 

0340 

0341 

0342 

0343* 

1^344 

0345 

0346 

0347 

0348* 

tf349 

0350 

10351 

0352 

0353* 

0354 

0355 

0356 

0357 

0398* 

0359 

0360 

0361 

0362 

0363* 

0364 

0365 

0366 

0367 

0368* 

0369 

di7li 

0371 

0372 

0373* 

0374 

0375 

0376 

0377 

0378* 

0379 

0380 

0381 

0382 

0383* 

0384 

0385 

0386 

0387 

0380* 

0389 

0390 

0391 

0392 

0393* 



61447 000000 TTY11 OCT 

61450 005400 OCT 5400 

61451 000000 OCT 0,0,0,0,0,0*0, 0,0, 0,0,0,0,0 
61467 000000 OCT 0,0,0 

61472 000000 TTY12 OCT 

61473 006000 OCT 50019 

61474 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0*0,0 
61512 000000 OCT 0,0,0 

6l5lb 000000 TTY13 OCT 

61516 006400 OCT 5400 

61517 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61535 000000 OCT 0,0,0 

61540 000000 TTY14 OCT 

61541 007000 OCT ^000 

61542 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61560 000000 OCT 0,0,0 

61563 000000 TTYl5 OCT 

61564 007400 OCT 7400 

61565 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,8,0 
61603 000000 OCT 0,0,0 

61606 000000 TTY16 OCT 

61607 010000 OCT 10000 

61610 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61626 000000 oCT 0,0,0 

61631 000000 TTY17 OCT 

61632 010400 OCT 10400 

61633 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,8,0,0 
61651 000000 OCT 0,0,0 

61654 000000 TTY18 OCT 

61655 011000 OCT 11000 

61656 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61674 000000 OCT 0,0,0 

61677 000000 TTYi9 OCT 

61700 011400 OCT 11*00 

61701 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61717 000000 qCT 0,0,0 

61722 000000 TTY20 OCT y 

61723 012000 OCT 12000 

61724 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61742 000000 OCT 0,0,0 

61745 000000 TTY21 OCT 

61746 012400 UCT 12400 

61747 000000 OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0 
61765 000000 OCT 0,0,0 
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0394 


61770 


000000 


TTY22 


OCT 





0395 


61771 


013000 




OCT 


13000 


(0396 


61772 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0397 


62010 


000000 




OCT 


0,0,0 


0398* 












0399 


62013 


000000 


TTY23 


OCT 





0400 


62014 


013400 




OCT 


13400 


0401 


62015 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0402 


62033 


000000 




OCT 


0,0,0 


0403* 












0404 


62036 


000000 


TTY24 


OCT 





0405 


62037 


014000 




OCT 


14000 


0406 


62040 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0407 


62056 


000000 




OCT 


0,0,0 


0408* 












0409 


62061 


000000 


TTY25 


OCT 





0410 


62062 


014400 




OCT 


14400 


0411 


62063 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0412 


62101 


000000 




OCT 


0,0,0 


0413* 












0414 


62104 


000000 


TTY26 


OCT 





0415 


62105 


015000 




OCT 


15000 


0416 


62106 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0417 


62124 


000000 




OCT 


0,0,0 


0418* 












0419 


62127 


000000 


TTY27 


OCT 





0420 


62130 


015400 




OCT 


15400 


0421 


62131 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0422 


62147 


000000 




OCT 


0,0,0 


0423* 












0424 


62152 


000000 


TTY28 


OCT 





0425 


62153 


016000 




OCT 


16000 


0426 


62154 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0427 


62172 


000000 




OCT 


0,0,0 


0428* 












0429 


62175 


000000 


TTY29 


OCT 





0430 


62176 


016400 




OCT 


16400 


0431 


62177 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0432 


62215 


000000 




OCT 


0,0,0 


0433* 












0434 


62220 


000000 


TTY30 


OCT 





0435 


62221 


017000 




OCT 


17000 


0436 


62222 


000000 




OCT 


0,0,0,0,0,0,0,0,fl,0,0,0,0,0 


0437 


62240 


000000 




OCT 


0,0,0 


0438* 












0439 


62243 


000000 


TTY31 


OCT 





0440 


62244 


017400 




OCT 


17400 


0441 


62245 


000000 




OCT 


0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0442 


62263 


000000 




OCT 


0,0,0 


0443 


62266 




TTY32 


EUU 


* 



044g* THE QUEUE ALWAYS CON] NS AT LEAST ONE ENTRY, A DUMMY ENTRY, IT 
0446* IS POINTED TO BY THE LAST ACTUAL ELEMENT, AND POINTS TOTME FIRST, 
0447* WHEN THE.QUEUE IS OTHERWISE EMPTY, THE DUMMY LINK POINTS TO 
0448* ITSELF, ' 
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0450* THIS ROUTiNE IS CALUU WHEN A DRgM TRANSFER yO QR FROM A 

0451* USER'S SWAP TRACK HAS FAILED, THE RoUTIn*. SETS THE USER'S 

0452* PORT TO AN UNAVAILABLE STATUS AND CLEARS MlS PUSS TABLE, 

0453* ENTER WITH TTY TaBLE ADDRESS IN B, 



0455 
0456 
0457 
045S 
0459 
0460 
046i 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
04 8 i 
048g 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 

0495* 
0496* 
0497* 

0498 
0499 
0500 
0501 
0502 
0503 



62266 
62267 
62270 
62271 
62272 
62273 
62274 
62275 
62276 
62277 
62300 
62301 
62302 
62303 
62304 
62305 
62306 
62307 
62310 
62311 
62312 
62313 
62314 
62315 
62316 
62317 
62320 
62321 
62322 
62323 
62324 
62325 
62326 
62327 
62330 
62331 
62332 

62333 
62334 
62335 



000000 
076366 
044367 
116365 
06636b 
044366 
060346 
170001 

044342 
00J400 
070257 
170001 
044346 
170001 
060732 
070072 
160540 
064566 
116524 
016613 
066366 
044353 
160001 
001727 
072366 
001720 
040562 
72367 
002400 
064317 
172367 
036367 
006006 
026324 
160540 

064562 
116524 

0166M 
062366 
017056 



JETPT 



NQP 

STB 

ADB 

JSB 

LDB 

ADB 

LDA 

STA 

ADB 

CLA 

STA 

STA 

ADB 

STA 

LDA 

STA 

IDA 

LDB 

JSB 

JSB 

LDB 

ADB 

LDA 

ALF, 

STA 

ALF, 

ADA 

STA 

CLA 

LDB 

STA 

ISZ 

inb, 

JMP 
LDA 
LDB 
JSB 
JSB 
LDA 

jsb 



JETTl SAVE TABLE POINTER 

.♦?LINK 

JDEUU,I TAKE HIM OFF THE QUEUQ 

JETTl 

# «.?3TAT «> S1ATU3 WORD 

XPUN SET PORT TO 

B,I UNAVAILABLE 

,*?ID-?STAT 



MAIN 

8,1 

.♦7FLAG. 

B,I 

M2000 

WORD 

FUSS, I 

LIBDI 

DRUMS, I 

SICK 

JETTl 

.♦7TNUM 

B,I 

ALF 

JETTl 

ALS 

LIBD 

JETT2 

M32 

JETT2,I 

JETT2 

SZB 

*«3 

FUSS, I 

LIBD 

DRUMS, I 

SICK 

JETTl 

TgRlR 



SAY NOBODY IN CORE 
CLEAR ID 
>?ID 

CLEAR FLAyS WORD 
READ IN 
THE FUSS TABLE 



IT'S STUCK ON THE DRUM? GIVE UP 
GET TABLE POINTER AGAIN 



GET THE POpf NUMBER 

SAVE IT 
TIMES 32 



ZERO OUT 

THI 3 CLOD'S pART 
OF THE FUSS 
TABLE 



WRITE THE FUSS 

TABLE BACK TO 
THE DRUM 
DARN, IT'S STUCK IN CORE, 
GET PORT NUMBER 

ANp GO INFORM VICTIM 



CROAK 



ALSO INFORM THE SYSTEM OPERATOR WHAT WE'VE DONE, 



62336 
62337 
62340 
62341 
62342 
62343 



103J00 
114211 
026363 
072367 
062366 
006400 



CLF 

JSB GMQBP,I 
JMP JET2 
STA JETT2 
LDA JETTl 
CLB 



GO GET POINTER TO MESSAGE Q 

NO ROOM* SORRY 

SAVE POINTER TO AVAILABLE BUFFER 

GET PORT NUMBER 
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0504 


62344 


100400 




DIV ,4-10 


CONVERT 


0505 


62346 


001727 




AlF,AtF 


IT 


0506 


62347 


040001 




ADA B 


TO 


0507 


62350 


040574 




ADA ASC00 


ASCII 


0508 


62351 


072376 




STA jetno 


INSERT IT INTO THE MESSAGE 


0509 


62352 


062370 




LOA JETM3 


GET ADDRESS OF 


0510 


62353 


072366 




STA JETT1 


STUFF TO BE MOVED 


0511 


62354 


064332 




LDB ,-16 


MOVE 


0512 


62355 


162366 


JfcTl 


LOA jETTlrl 


IT 


0513 


62356 


172367 




STA JETT2,I 


INTO 


05J4 


62357 


036366 




ISZ JETTi 


THE 


0515 


62360 


036367 




ISZ JETT2 


MESSAGE 


0516 


62361 


006006 




INB,8 Z B 


QUEUE 


0517 


62362 


026355 




JMp JET1 


BUFFER 


0518 


62363 




JET2 


EQU * 




05 X 9 


62363 


102100 




STF 




0520 


62364 


126266 




JMP JfcTPT,i 




0521* 












0522 


62365 


071577 


JOEQU 


DEF DEQUE 




0523 


62366 


000000 


JETT1 


8SS 1 




0524 


62367 


000000 


JETT2 


833 1 




0525 


62370 


062371 


JETMS 


DEF *+l 




0526 


62371 


000036 




DEC 30 




0527 


62372 


006412 




OCT 6412 


CR UP 


0528 


62373 


050U 7 




A3C 3#P0RT * 


! 


0529 


62376 


000000 


JETNO 


833 l 




0530 


62377 


020115 




A3C 9, M AOE 


UNAVAILABLE, 


0531 


62410 


006412 




OCT 6412 


CR LF 



PAGE 0292 #28 SYSTEM DEATH EME&CEKCY TRAC* GftAtftfER 

0002* THIS ROUTINE IS CAUED WHEN A SYSTEM TRACK WITH VITAL 

0003* INFORMATION (SUCH AS A DIRECTORY OR IDT TRACK) CANNOT BE 

0004* WRITTEN BACK TO ITS ASSIGNED DRUM ADDRESS, BUT WHEN RECOVERY 

0005* MIGHT BE POSSIBLE IF THE INFORMATION CAN BE SAyED, THE TABLE 

0006* MUST BE IN CORE STARTING A| LIBU3. (A) IS THE ADDRESS OF THE 

0007* WORD In Core which contains the drum address of the track In 

000»* qu e stion. (B) is the negative length uf the table in core. 

0009* SALVG READS THE DRUM ADT IN PIECES INTO THE UPPER 2K OF USER 

0010* AREA AND SEARCHES FOR AN ENTRY LARGE ENOUGH TO HOLD THE TABLE, 

0011* I p AN ENTRY IS FOUND, SALVG ATTEMPTS TO WRITE THE TABLE OUT TO 

0012* THE DRUM, IF IT SUCCEEDS, IT STORES THE NEW DRUM ADDRESS INTO 

0013* THE WORD POINTED jO BY (A), THE ADt Is NOt UPDATED AND THE 

0014* former system track is no t locked, if the adt cannot be read, 

0015* NO DRUM SPACE iS AVAILABLE, OR ThE TABU CANNOT BE WRITTEN 

0016* OUT, THE WORD POINTED TO dY (a) IS NOT CHANGED, 3 A LVG CALLS 

0017* CLNOT TO PRINT ANY REMAINING SYSTEM MESSAGES AND AN INDICATION 

B018* OF SALVG'S SUCCESS OR FAILURE* AND THEN HALTS. A MALT 32B SE* 

0019* SUCCESS; ATTEMPT RECOVERY, A HALT 33B MEANS FORGE? IT, 



0021 
0022 
0023 
0024 
0025 
0026 
0027 
0026 
0029 
0030 
0031 
0032 

I0ti33 
0034 
0035 
0036 
0037 
0036 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 



62411 
62412 
62413 
62414 
62415 
62416 
62417 
62420 
62 4 21 
62422 
62423 
62424 

62425 
62426 
62427 
62430 
62431 
62432 
62433 
62434 
6243g 
62436 
62437 
^,2440 
62441 
62442 
62443 
62444 
62445 
62446 
62447 
62450 
62451 
62452 
62453 



000000 
072515 
002400 
170634 
076516 
060354 
040U3 
072517 
060112 
040317 
072520 
062516 
00 7 40k) 
101026 

072521 
062517 

002021 
026507 
040736 
002021 
002003 
026441 
066517 
002401 
066523 
072517 
074072 
005100 
076522 
062520 
040412 
072520 
065002 
045036 
116524 



SALVG 



3AL1 



SAL3 



STA 


SALCP 


CLA 




STA 


DCLC1,I 


STB 


SALTL 


LDA 


.♦2 


ADA 


ADLEN 


STA 


3ALWL 


LDA 


ADLOC 


ADA 


M32 


STA 


SALDA 


LDA 


SALTL 


CCB 




A3R 


6 


STA 


SALTS 


LDA 


SALWL 


SSA, 


,R83 


JMP 


SAL2 


ADA 


B4000 


SSAi 


RSS 


SZA, 


,RSS 


JMP 


SAL3 


LDB 


SALWL 


CLA, 


-RSS 


LDB 


SAM2K 


STA 


SALWL 


STB 


WORD 


BRS 




STB 


SA L EC 


LDA 


SALDA 


ADA 


,♦32 


STA 


SALDA 


LDB 


L8192 


ADS 


BIT15 


JSB 


DRUMS, I 



SAVE CORE POINTER 
BLOCK 

CLOCK 
SAVE TABLE LENGTH 
GET ADt LENGTH 

LESS PSEUDO ENTRY 
SAVE AS .WORDS LEFT ON DRUM 
GET ADT DRUH ADDRESS 
FAKE PREVIOUS 2K ADDRESS 

AND SAVE 

get table 
length and 
convert to 
sector count 
get -words yet to be read 

ARE THERE ANy? 

NO, GO TO FAILURE 

YES, AOD 2K TO THE COUNT 

2K OR MORE WORDS 

LEFT TO BE READ? 
YES 
NO, GET WORD COUNT iNfO B 

AND WORDS LEFT INTO A 
•2048 WORDS TO BE READ 

store ne w words left gount 
store drum read length 

and adt-in"Core entry count 
get previous drum address 
bump to next 2k chunk 
and sAyE It 

GET ADDRESS OP USER'S UPpER 2K 

AND READ BIT 
GO READ ADT PQWTiON 
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41056 

0057 

0058* 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0060* 

0069* 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

VQ77 

0078* 

0079* 

0060* 

0081 

0082 

0083 

0064 

0085 

0086 

0087 

0088 

0069* 

0090 

0091 

0092 

0093 

0094 

0095 

0096* 

0097 

0098 

0099 

0100 

0101 

0102 

0103* 

0104 

0105 

0106 

0107 

0108 

0109 

0110 



62454 026507 

62455 065002 



62456 
62457 
62460 
62461 
62462 

62463 
62464 

62465 
62466 



006004 
160001 
042521 
002021 
026467 
006004 
036522 
026456 
026430 



62467 044351 

62470 160001 

62471 072520 

62472 066516 

62473 074072 

62474 064562 

62475 116524 

62476 026507 



JMP SAU2 
LDB L8J92 

3AL4 INB 

LDA B,i 
ADA SALTS 
S8A,RSS 
JMP SAU6 
INB 

ISZ SALEC 
JMP SAL4 
JMP SAL1 



SAL5 AOB ,«1 
IDA B,I 
STA SALDA 
LDB SALTL 
STB WORO 
LDB LIBD 
JSB DRUMS, I 
JMP SAL2 



ERROR, GO TO FAILURE 

GET ADDRESS OF FIRST ENTRY 

BUMP POINTER TO ENTRY LENGTH 

AND GET LENGTH 
IS ENTRY LARGE EN0U6H 

TO HOLD TABLE IN CORE? 
YES GO WRITE IT OUT 
NO, ARE THERE 

MORE ENTRIES IN COKE? 
YES, CHECK NEXT 
NU, GET ANOTHER BUNCH 



B POINTS TO DRUM ADDRESS 
GET I? into A 

AND SAVE IT 
GET LENGTH OF TABLE 

FOR DRUM DRIVER 
GET CURE ADDRESS INTO B 
WRITE OUT THE SYSTEM TABLE 
ARRCHj GO TO FAILURE 



WE HAVE SUCCESSFULLY FOUND A N£W HOME FOR THE UBLE 



62 4 77 103100 CLF 

62500 062520 LDA SALDA 

62501 172515 STa S A LcP»I 

62502 066525 LDB SaLSU 

62503 016771 JSB CLNOT 

62504 062411 LDA SALVG 

62505 102032 HLT 32B 

62506 026505 JMP *M 

62507 103100 SAL2 CLF 

62510 066554 LDB SaLFa 

62511 016771 JSB CLNOT 

62512 062411 LDA SALVG 

62513 102033 HLT 33B 

62514 026513 JMP *~1 

62515 000000 SALCp BSS 1 

62516 000000 SAlTL BSS 1 

62517 000000 S A LWL eSS 1 

62520 000000 SALDA BSS 1 

62521 000000 SALTS BSS l 

62522 000000 3ALEC BsS 1 

62523 174000 SAM2K DEC .2048 

62524 074231 DRUMS DEF DRUML 

62525 062526 SALSU DEF *♦! 

62526 000051 DEC 41 

62527 006412 OCT 6412 
62530 046517 AsC 20, MOVED 
62554 062555 SALFA DEF **i 



DISABLE INTERRUPTS 

GET NEW DRUM ADDRESS OF TABLE 

AND UPDATE IN-CORE POINTER 
GET ADDRESS OF SUCCESS MESSAGE 
GO PRINT MESSAGES 
A GETS CALLING ADDRESS 
EXPIkE 



DISABLE INTERRUPTS 

GET ADDRESS OF FAILURE MESSAGE 

GO PRINT MESSAGES 

A GETS CALLING ADDRESS 

DIE 



SYSTEM TABLE DRUM pqInTEr pqI n TR 
NEGATIVE TABLE LENGTh 

remaining aot words on drum 
adt 2K chunk drum pointer 

NEGATIVE SECTOR COUNT Of TABLE 
ADT CHUNK ENTRY COUNT (NEGATIVE) 

2K CHUNK 

POINTER TO DRUM DRIVER DRIVER 



SYSTEM TRACK, RECOVERY POSSIBLE, 
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0111 6255b 000072 

0112 62556 006412 

0113 62557 041501 

0114 62601 047525 



DEC 58 

OCT 6412 

A8C 18, CAN'T WHITE SYSTEM TRACK, 

ASC 10,UUF op THE UUeSTAQN. 



RECOVERY 
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0116* 
0li7* 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126* 

0127 

0128 

0129 

0130 

0131 



THIS ROUTINE IS CALLED WHEN THE SYSTEM CANNOT CONTINUE 
OPERATING BUT MAY BE ABLE TO BE RESUSCITATED, 



62613 
62614 
62615 
62616 
62617 
62620 
62621 

62622 
62623 
62624 

62625 
62650 



000000 
103100 
066622 
016771 
062613 
102032 
026620 

062623 
000073 
006412 
041501 
020122 



SICK 



SICKM 



NOP 
CLF 
LD8 
JSB 
LDA 

HLT 
JMP 

DEF 
DEC 
OCT 
ASC 
AgC 





SICKM 

CLNOT 

SICK 

32B 

*-l 



disable Interrupts 

get address of-" optimistic messag 

go print messages 

a gets calling address 

CROAK 



♦♦I 
59 

6412 

19#CAN'T ACCESS SYSTEM 

10, RECOVERY PO S sIBLE, 



SEGMENT OR TABLE, 



0133* 
0134* 
0135* 
0136* 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145* 

0146 

0147 

0148 

0149 
0150 



THIS ROUTINE IS CALLED WHEN THE SYSTEM CANNOT CONTINUE 
OPERATING AND HAS ALTERED ItS T ABLES IN SyCH A WAY TMA T 

they Contain conflicting information and resuscitation 

IMPOSSIBLE, 



IS 



62662 000000 DEAD 

62663 103100 

62664 066671 

62665 016771 

62666 062662 

62667 102033 

62670 026667 

62671 062672 DEADM 

62672 000063 

62673 006412 

62674 051531 
62717 044515 



NOP 
ClF 
LDB DEADM 
JSB CLNOT 
LDA DEAD 

HLT 33b 
JMP *»i 



disable Interrupts 

get address q* pessimistic mesag 

60 print messages 

a g^ts casing address 

pass a waY 



DEF **i 

DEC 51 

OCT 6412 

ASC l9fSY8TEM TABLES 

ASc 6, IMPOSSIBLE! 



INCOMPATIBLE, RECOVERY 



0152* 
0153* 
0154* 
0155* 
0156* 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165* 

0166 

0167 

0168 



THIS ROUTINE IS CALLED WHE N THE 3YSTE M HAS BLo*N IT WRITING 
ON T H E LOCKED BLOCKS TABLE OF ONE OF ThE DjSCS, T H L SITUATION 
IS SIMILAR TO THOSE WHIcH c*LL "0£AD"> BUT SINcE LOCKED flLOcKS 
TABLES ARE IMMORTAL* THE OPERATOR MUST BE INFORMED THAT ONE 
HAS BEEN DAMAGED, 



62725 
62726 
62727 
62730 
62731 
62732 
62733 



000000 
103100 
066734 
016771 
062725 
102033 
026732 



62734 062735 

62735 000066 

62736 006412 



MDEAD 



NOP 
CLF 
LDB 
JSB 

LDA 

HLT 
JMP 



MDEDM DEF 
DEC 
OCT 





MDEDM 

CLNQT 

MDEAD 

33B 

*«l 

**i 

54 

6412 



disable Interrupts 

get address of earning message 

Go PRInT MESSAGES 

A GETS CALLING ADDDRESS 

GIVE OUT 
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0169 62737 046117 AgC 16, LOCKED 8LQCK S TABLE OEsxROyEO, 

0170 62757 051105 A3C 10,HECUVEKY IMPOSSIBLE, 
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0172* THIS ROUTINE SENDS A SYSTEM DEATH MESSAGE TO THE UsErS. 

0173* NEXTf IT COMPLETES ANY OUTPUT WHICH HAS BEEN STARTED 

0174* BY THE SYSTEM CONSOLE D*UV£R. IT THEN PRINTS ANY MESSAGES 

0175* REMAINING IN THE MESSAGE BUFFERt IF IT IS ENTERED WITH CB) 

0176* NONZERO, IT WILL LAST PRINT THE ASCII STRING WHOSE LENGTH 

0177* IS POINTED TO BY CB) AND WHICH STARTS IN THE WORD FOLLOWING 

0178* THIS LENGTH, 



0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204* 

0205* 

0206* 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221* 

0222* 

0223* 

0224 

0225 



62771 
62772 
62773 
62774 
62775 
62776 
62777 
63000 

63001 
63002 
63003 
63004 
63005 
63006 
6J007 
63010 
63011 
63012 

6 3 0l3 
63014 

63015 

63016 

63017 

63020 



000000 
002400 
170634 
077052 

003400 

017056 

103100 
060313 

002021 
027021 
102312 
027003 
163053 
000066 

167064 
004010 
002004 
073302 

064074 
077301 
067055 
077235 
163303 
027243 



CLNOT NOP 
CLA 
STA 
8T6 
CCA 

JS 
CLF 

LDA 

SSAr 

JMP 

S^S 
JMp 

LD A 

CUE# 

LDB 

SL6 

INA 

STA 

LDB 

STB 

LDB 

STB 

LDA 

JMP 



BLOCK 

dclc1,i clock 

clnb save special message pointer 

inform users of 
tcrir system death 



T35F1 WAS SYSTEM CONSOLE DRIVER 

RSS DOING INPUT OR OUTPUT? 

CLNj INPUT, GO CHECK FOR MESSAGES 

?$c output, wait por current 
*»i character to be output 
cla r,i 6E T Character pointer 

EIa dou b le FOR SYqQN A NO LOSE Qil 15 
CLTQG,I GET LEFT-RIGHT WORD 

WHERE IS NEXT CHARACTER? 

ON ,HE RIGH|J BuMP POINjRE 
SYCBA SAVE POINTER FOR SYCQN 
TCNT GET REMAINING CHARACTER COUNT 
SYCCC AND STORE FOR SYCON 
CLNlp GET RETURN ADDRESS 
SYcON Anu STORE IN SYcON 
SYBlTrl GET CURRENT OUTPUT CONTROL BITS 
SYC3 JUMP INTO MIDDLE OF ROUTINE 



COME HERE TO CHECK FOR MORE MESSAGES IN QUEUE 

63021 003400 CLNj CCA ARE THERE MESSAGES 

63022 040306 ADA MsOCT IN THE 

63023 050351 CpA ,*1 UUEuE? 

63024 027037 JMP CLN2 NO 

63025 070306 STA M3QCT YES, DECREMENT THE COUNT 

63026 064307 LDB MSQP1 BUMP POINTER 

63027 044421 ADB ,*mESlN TO NEXT MESSAGE BUFFER 

63030 054311 CPB MSQND WRAP AROUND? 

63031 064312 LDB MSQBG YES 

63032 074307 STB MSQPl SAVE NEW CURRENT MESSAGE POINTER 

63033 160001 LOA B,I 6Ej CHARACTER COuN T IN T A 

63034 006004 INB PQlNTER Tg FIRST WoRD INTO 8 

63035 017235 jSfl SYcON GO OUTPUT IT 
63y36 027021 JMP CLNi CHECK FOR MORE 

COME HERE TO PRINT FINAL SPECIAL MESSAGE 



63037 067052 CLN2 LDB CLNB 
63040 006003 SZB,RSS 



GET SPECIAL BUFFER POINTER 
IS T HERE A MESSAGE? 
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0226 


63041 


027045 




J MP 


CUN3 


0227 


63042 


160001 




i OA 


BrI 


0228 


63043 


006004 




INB 




022 9 


63044 


017235 




JSB 


SYCON 


0230 


63045 


002400 


CLN3 


CUA 




0231 


63046 


017235 




JSb 


SYCON 


0232 


63047 


017235 




JSB 


SYCON 


0233 


63050 


017235 




JSB 


SYCON 


0234 


63051 


126771 




JMP 


CLNOT,I 


0235* 












0236* 












0237 


63052 


000000 


CLNB 


BSS 


1 


0238 


63053 


060011 


CLADR 


DEF 


TADR 


0239 


63054 


060010 


CLTOG 


DEF 


TOG 


0240 


63055 


063021 


CL N 1P 


DEF 


CUNl 



NO 

YES, GET CHARACTER CqUnI 
BUMP POINTER TO plRST rtES, WORD 
GO OUTPUT IT 
FINALLY, 
OUTPUT 3 

"AGqnJZInG DEATH" 
CRLF'8 AND 
RETURN 



B REG, SAVE WORD 
POINTER TO ?TT35tS CHAR POINTER 
POINTER TO ?TT35fS LEFT.RIGHT WD 
RETURN ADDRESS FqR FAKE SYCQn CL 
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0242* THIS ROUTINE 19 CALLED TO INFORM ALL USERS ThAT ThE SYSTEM 

0243* 18 GOING DOWN BECAUSE OF a H A RO*aRE FaILURE OR TO INFORM A 

0244* SINGLE USER THAT HIS PORT IS BEING MADE UNAVAILABLE (BECAUSE 

0245* OF A SWAP TRACK ERROR), IT MUST BE ENTERED WITH THE AFFECTED 

0246* PORT NUMBER IN A IN THE LAT 1 Er CAsE Or WITH A*-t TO INFOrM 

0247* ALL USERS OF SYSTEM DEATH# 



0249 

0250 

025I 

0252 

0253 

0254 

0255 

0256 

0257 

025B 

0259* 

0260 

0261 

0262 

0263 

0264* 

0265 

0266 

0267 

026B 

0269* 

0270 

0271 

0272 

0273 

2 74 

0275 

0276* 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

02b6 

0287 

0288 

0289* 

0290 

0291 

0292 

0293 

0294 

0295 



63056 
63057 
63^60 
63061 
63062 
63063 
63064 
63065 
63^66 
63067 

63070 
63071 
63072 
63073 

63074 
63075 
63076 
63077 

63100 
63101 
63102 
63103 
63104 
63105 

63106 
63107 
63110 
63111 
63112 
63113 
63H4 
63115 
63116 
63117 
63120 
63121 

63122 
63123 
63124 
63125 
63126 
63127 



000000 
073226 
003002 
027070 
073226 
064177 
077227 
050412 
067205 
027074 

003400 
073227 
060417 
067161 

003000 
073230 
004066 
077231 

060367 
017131 
060364 
017131 

060364 
017131 

037230 

002001 
027122 
067231 
037231 

0040 6 5 
180001 
002041 
001727 
010441 
017131 
027106 

060367 
017131 
060364 
017131 

060364 
017131 



TCRIR nop 

STA TCRPT 
CMA,SZA 

JMP TCR1 

STA TCRPT 

LOB NPORT 

STB TCRPC 

LpA ,*32 

LOB TCRSO 

JMP TCR2 



TCR1 



TCR 2 



TCR3 



TCR4 



CCA 

STA TCRPC 
LOA ,+37 
LDB TCRPU 

CMA 

STA TCRCC 

CLE,ELB 

STB TCRBA 

LDA .+I58 
JSB TCROT 
LDA ,+l2B 
J3B TCROT 
LOA ,+l2B 
JSB TCROT 

IS2 TCRCC 
RSS 

JMP TCR4 
LDB TCRBA 
I3Z TCRBA 
CLE,ERB 
LDA B,I 
8EZ,RSS 
ALF,ALF 
AND B177 
JSB TCROT 
JMP TCR3 

LDA ,+l5B 
J3B TCROT 
LDA ,*12B 
JSB TCROT 
LDA ,*12B 
JSB TCROT 



SAVE PORT NUMBER 

IS THIS A SYSTEM DEATH? 

NO, GO SET UP FOR 1 PORT NEWS 

YES, SET FIRST PORT TO ZERO 

GET COUNT OF PORTS TO GET NEWS 

AND SET IT INTO TCRPC 
GET LENGTH OF MESSAGE (CHARS) 

AND POINTER TO MESSAGE 



SINGLE PORT BEING ZAPPED 
SET PORT COUNT TO -»1 
GET LENGTH OF MESSAGE 
AND POINTER TO IT 

SAVE -MESSAGE 

LENGTHS 
SAVE MESSAGE 

BUFFER CHARACTER POINTER 

PRECEDE 
MESSAGE 
WITH 
CR 
LF 
LF 

ARE THERE MORE CHARACTERS? 

YES 

NO, GO FINISH UP 

GET BUFFER POINTER 

BUMP IT 

CALCULATE WORD ADDRESS 

GET 2 CHARACTERS 

WHICH ONE? 

LEFT ONE* MOyE IT 

ISOLATE CHARACTER 

GO SEND IT 

CHECK FOR MORE 

SEND 
USER(S) 
FINAL 
GASP 
FORM 
FEEDS 
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142941 
0297* 

0296 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322* 

0323* 

0324 

0325 

0326 
0327 
0320* 

0329 
0330 
0331 
0332 
0333 
0334 
0335 



63130 127066 



JMP TOUR,! 



63131 
63132 
63133 
63134 
63135 
63136 
63137 
63U0 
63l4l 
63142 
63143 
63144 
63145 
63146 
63147 
63150 
63151 
63152 
63153 
63154 
63155 
63156 
63157 
63160 



000000 
073232 
063227 
073233 
063226 
073234 
063234 
001727 
030244 
114500 
102311 
027143 
102511 
002002 
027137 
063234 
001727 
030220 
033232 
114500 
037234 
037233 
027137 
127131 



63161 063162 

63162 044101 
6320g 0^3206 
63206 0441(1,1 



63226 
63227 
63230 
63231 
63232 
63233 
63234 



000000 
000000 
000000 
000000 
000000 

000000 
000000 



TCROT NOP 
STA 
LOA 
STA 

IDA 
STA 
TCR5 LOA 
ALF, 
IOR 
J3B 
SFS 
JMP 

LI* 

SZA 

JMP 

LOA 

ALF, 

IOR 

IOR 

JSB 

ISZ 

ISZ 

JMP 

JMP 



TCR02 

TCRPC 

TCP03 

TCKPT 

TCR04 

TCR04 

ALF 

IBF 

St43CfI 

CH2 

*•»! 

Ch2 

TCR5 

TCR04 

ALF 

OCR 

TCR02 

S14SCI 
TCR04 
TCR03 
TCR5 
TCROT, I 



COME MERE TO OUTPUT CHAR 
SAVE CHARACTER 
SAVE NUMBER 
OF PORTS 
AND FIRST 
PORT 
ASK 2114 IF 

TMIS USER'S BUFFER 
IS FULL 



GET RESPONSE 

YES, GO ASK AGAIN 
NO, GET PORT n 

OUTPUT CODE 

AND CHARACTER 
GO SEND IT 
BUMP PORT NUMBER 
OUTPUT TO ANOTHER? 
YES 
NO, RETURN 



IN A 



TCRPU DEF *♦! 

A3C 19, HARDWARE FAILURE 

TCR8D DEF **1 

A3C 16, HARDWARE FAILURE — SYSTEM DOWN f 



PORT UNAVAILABLE, 



TCRPT 
TCrPC 
TCrCC 
TqRBA 
TCR02 
TCR03 
TCR04 



BSS 1 
B8S 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 



NUMBER OF FIRST PORT TO GET NEWS 
TOjAL * OF POpis TO RECEIVE NEWS 
^EnGtH qF message 

MESSAGE cH*H a cTeR POINTER 
OUTPUT CHARACTER 
ROUTINE 
TEMpS 
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0337* UPON ENTRY (A) HOLDs JHE NuMBEr OP CHARACTERS TO BE OUTPUT, 

0338* BIT IS OF A « FOR X-OFF CR CF AFTER OUTPUT, 

(3339* (b) POINTS TO THE FIRST WORD OF THE &UFFEK TO BE OUTPUT, 



0341 
0342 
0343 
0344 
0345 
0346 
0347 
0346 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 

0363 
0364 
0365 
0366 
0367 

0360* 

0369* 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379* 

0380* 

0381 

0382 

0383 

0384 

0365 

0386 

0387 



63235 
63236 
63237 
63240 
63241 
63242 
63243 
63244 
63245 
63246 
63247 
63250 
63251 
63252 
63253 
63254 
63255 
63256 
63257 
63260 
63261 
63262 

63263 
63264 
63265 
63266 
63267 



63270 
63271 
63272 
63273 
63274 
63275 
63276 
63277 
63300 



63301 
63302 
63303 
63304 
63305 
63306 



000000 
0/3301 
004066 
077302 
060224 
173303 
102612 
063301 
001265 
002003 
027270 
003400 
043301 
073301 
067302 
037302 
004065 
160001 
002041 
001727 
010441 
030442 
102612 
l°37i2 
102312 
027265 
027244 



002040 
127235 
060355 
031036 

073301 
067304 
004066 
077302 
027244 



000000 
000000 
060001 
063305 
011415 
005000 



SYCQN NOP 
8TA 
CLE, 
STB 
IDA 
STA 
3YC3 OTA 
SYC1 LDA 
RAL, 
3ZA, 
JMP 
CCA 
ADA 
SI A 

LDB 

I3Z 

CLE, 

LDA 

SEZ, 

alf, 

AND 
IOR 
OTA 
STC 
SF8 
JMP 
JMP 



SYCCC 

ELB 

SYCBA 

SBP 

SYBIT,I 

?SC 

SYCCC 

CLE, ERA 

8YC2 

SYCCC 
SYCCC 
SYCBA 
SYCBA 
ERB 

8,1 

RSS 

ALF 

b\77 

B200 

?8C 

?SC,C 

?SC 

3Y t l 



SYC2 SEZ 

JMP SYCON,I 
LDA ,+3 
IOR BIT15 
STA SYCCC 
L OB SYCC U 

CLE#ELB 
STB SYCBA 
JMP SYCl 



8 YCCC B 5 S i 

SYCBA BSS 1 

SYBIT DEF TBITS 

SYCCL DEF * + l 

OCT 011415 
OCT 005000 
UNS 



SET CHARACTER COUNT 
INITIALIZE 

CHARACTER POINTER 
BITS FOR "PrINt ONL.Y" 

SAVE THEM 

SEND THEM 
HAVE ALL CHARACTERS 
(COPy CRLF BIT INTO E) 

been output? 
yes> go see about crlf 
no, decrement 

CHARACTER C UnT 
COMPUTE 

WORD, CHARACTER 
ADDRESS 

Load woro 
position 

character 
extract character 

ADD IN BIT 7 

OUTPUT IT 

REQUEST CHARACTER TRANSFER 

WAIT FOR 

COMPLETION FLAG 
GO DO NEXT cHARAqTER 



WANT CRLF? 
NO, RETURN 
yES, 3 CHARACTERS 

WITH NO CRLF 
FOLLOWING 
ADDRESS QF 

X-UFF CR LF 

GO OUTPUT THESE 



COyNT OF CHARACTERS tO 8E OUTPUT 
CURRE N T CHARACTER PoInTER 
POINTER TO CURRENT CONTROL BITS 

X-OFF CR 
LF 
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0969* 

0390* 

0391* 

0392* 

0393* 

0394* 

0395 

0396 

0397 

0396 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416* 

0417* 

0418* 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0498 

0429 

0430 

0431* 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 



THESE ROUTINES 
AND 2U6 



ARE USED FOR COMMUNICATION BETWEEN THE 2114 



2116 TO 2114 3EN0 DRIVER 



63307 

63310 
63311 
63312 
63313 
63314 

6331b 
63316 
63317 
63320 
63321 
63322 
63323 
63324 
63325 
63326 
63327 
63330 
63331 
63332 
63333 



000000 
103100 
070073 
077634 
164634 
005726 
006400 
174634 
102100 
102311 
027320 
1026U 
103711 
106711 
164640 
103100 
002040 
174634 
06755^ 

102100 
127307 



S14SH NOP 
CLF 
STA 
STB 

lqb 

8LF, 

CLB 

STB 

STF 

$Fs 

JMP 

OTA 

STC 

cue 

LOB 

clf 

SEZ 
STB 
LOB 
STF 
JMP 





SVCH2 

SVBC2 

DCIC1,I 

ELB 

DCLCl,I 



CH2 

*»1 

CH2 

Ch2,C 

CH2 

DCLC2,I 



DCLClrl 
SVBC2 



S14SH,I EXIT 



2114 TO 2116 RECEIVE DRIVER 

63334 000000 R14CM NOP 

63335 070067 STA CMA 

63336 074070 STB CMB 

63337 001520 ERA, ACS 

63340 102201 80C 

63341 002004 INA 

63342 070071 STA CmE 

63343 102510 LIA cHl 

63344 001723 ALF,RaR 

63345 010361 AND ,*7 

63346 043350 ADA CMTBL 

63347 124000 JMP 0,1 

63350 163351 CMTBL DEF **1,I 

63351 063371 DEF HVL 

63352 063406 DEF ABR 

63353 063454 DEF BFL 

63354 063463 DEF BFE 

63355 063476 DEF ETO 

63356 063513 DEF uH|j 

63357 063361 QEF K14RT 
63360 063361 DEF R14RT 



SAVE COMMUNICATION 

GET CLOCK WORD 

IF IT IS A JMP, BIT 12 

WILL BE SET 
BLOCK CLOCK 

WAIT FOR ACKNOWLEDGMENT 

OF PREVIOUS TRANSMISSION 
OUTPUT WQHO 
INTERRUPT OTHER MACHINE 



unblock Clock unless jt was 
blocked when we entered 



save 

A,B,E 

and overflow 

load request word 

opcode in bitu 2-0, 

mask to three bits 

add on decode table pointer 

branch to appropriate routine 



HAVE LINE 

USER»8 ABORT REOyEsT 

BUFFER FULL 

buffer Empty 

ENTER STATEMENT TIMED OUT 
USER HUNG UP 
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0442* 

0443* 

0444* 

0445 

0446 

0447 

0446 

0449 

0450 

0451 

0452 

0453* 

0454* 

0455* 

0456 

0457 

0456 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0466 

0469* 

0470* 

0471* 

0472 

0473 

0474 

0475 

0476 
0477 
0476 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
048b 
0489 
0490 
0491 
04g2 
0493 
0494 
0495 
0496 



ALWAYS RETURNS HERE 

63361 060071 HURT LOA CME 



63362 
63363 
63364 
63365 
63366 
63367 
63370 



103101 
000036 

102101 
060067 

064070 
103710 
127334 



RESTORE 



2114 HAS A LINE 



63371 
63372 
63373 
63374 
63375 
63376 
63377 

63400 
63401 
63402 
63403 
63404 
63405 



017536 
002002 
050354 
002001 
027361 
160001 
030772 
170001 
102510 
010443 
044371 
170001 
027361 



HyL 



USER'S ABQRT REQUEST 



63406 
63407 
63410 
63411 

63412 
63413 
63414 
63415 
63416 
63417 
63420 
63421 
63422 
63423 
63423 
63424 
63425 
63426 
63427 
63430 
&3431 
63432 
63433 
63434 
63435 



017536 
160001 
010447 
050616 

027361 
160001 
010372 
002003 
027423 
160001 
030442 
170001 
027361 

044366 
160001 
050356 
027361 
040337 
002020 
027444 
060405 
003004 
140001 
002020 



ABR 



ABRl 



CLO 




SLA,ELA 


A,B,E 


STO 




LDA CMA 


AND OVERFLOW 


ldb CmB 




STc CHWC 


ACKNOWLEDGE RECEIPT 


JMP R14CM,I 


EXIT 


JSB FDTTY 


B»> FIRST wQRD OF TTy TABLE 


SZA 


SKIP IF STATUS IS IDLE. 


CPA XINPT 


NO SKIP IF INPUT WAIT 


RSS 


IDLE OR WAITING FOR INPUT 


JMP R14RT 


IGNORE 


LQA 1,1 


SET 2114 


IOR C0M14 


COMMUNICATION 


STA 1,1 


BIT 


LIA CHi 


STORE RESPONSE 


AND B377 


TIME IN TTY 


ADB ,*?RTIM 


TABLE (*0 IF NO 


STA 1,1 


enter timing) 


JMP R14RT 

T 


RETURN TO 2114 pRIVER 


1 

JSB FDTTy 


b»» FIRST WORD OF TTy TABLE 


LOA 1,1 




AND B30M 




CPA PBFLG 


CBFLG.0 AND PBFLG*1? 


JMP Rj4RT 


YES, ABORT NOT ALLOWED! 


LOA 8,1 


NO, ABORT POSSIBLEl 


ANO UNABT 


UNABLE TO 


S4A,Rss 


ABORT? 


JMP ABR! 


NO 


LOA 1,1 




IOR ABTRY 


DELAY ABORT 


S T A 1,1 


A TT EMP T 


JMP R14RT 


RETURN TO 2114 DRIVER 


EQU * 




AUB ,*?stAt 


B *> STATUS 


LOA 1* I 


A * STATUS 


CPA %3YNt 


CHECK FOR SYN T AX, 


JMP R14RT 


CAn'T ABORT OUT OF SYNTAX, 


ADA f *,.XSYNT 


•1.C0M3+C0M2 


SSA 


SKIP IF LIBRARY PRUGRAM, 


JMP ABR2 


OTHERWISE ABORT ALWAYS ALLOWED, 


LOA .♦XSYNf*, 


♦1*CAt*C0M2 


CMA,INA 


ABgRTABLE 


ADA B,i 


LIBRARY 


SSA 


PROGRAM? 
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0497 
0496 
0499 
0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512* 

0513* 

0514* 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0922* 

0523* 

0524* 

0529* 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536*' 

0537* 

0538 

0539 
1*540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 



63436 
63437 
63440 
63441 
63442 
63443 
63444 
63444 
63445 
63446 
63447 
63450 
63451 
63452 
63453 



027361 

160001 
003004 

040414 
002020 
027361 

044336 
160001 
030772 

170001 
044366 

003400 
170001 
027361 



ABR2 



JMp 

ID* 

CM*, 

ADA 

S3A 

JMP 

EQU 
ADB 
LDA 
IQR 
3TA 

adb 

CCA 

STA 
JMP 



R14RT 
B,I 
INA 
,*%SYNT' 

RJ4RT 

*' 
.•?STAT 

1,1 
C0M14 

1,1 
.♦?3TAT 

1,1 
R14RT 



BUFFER IS FULL 



63454 
63455 
63456 
63457 
63460 
63461 
63462 



017536 

050355 
027361 
160001 
030412 
170001 
027361 



BFL 



JS8 FDTTy 
CPA XOUTW 
JMP R14RT 
LDA 1,1 
IOR OUTWT 
STA 1,1 
JMP R14RT 



bUFFER IS EMPTY AGAIN 



63463 
63464 
63465 
63466 
63467 
63470 
6347J 
63472 
63473 
63474 
ENTER 

63475 

63476 
63477 
63500 
63501 
63502 
63503 
63504 
63505 
63506 
63507 
63510 
63511 
63512 



017536 
050355 

003701 
003500 
020412 

|J000l 

002040 
030772 

170001 
027361 
STATEMENT 



BFE 



J3B FDTTY 
CPA %QUTW 
CCA,CCE,R38 
CCA, CLE 
XQR OUTWT 

l'l 



AND 
SE* 
IOR 
STA 
JMP 



C0M14 

1,1 
R14RT 



NO 
MAYBE 

f +l+3TA«CQM 2 

NO 

B 9> FLAGS 
SET 2114 

COMMUNICATIONS 
BIT 
SET 

STATUS TO 
ABORTING 
RETRUN TO 2114 DRIVER 



B *>FIRST wORD OF TT Y TABLE 
IGNORE IF 

ALREADY OUTPUT WAIT 
3EX 

OUTPUT 
WAIT BIT 
RETURN TO 21J4 DRIVER 



B«> FIRST wORD OF TTy TABLE 
CHECK FOR STATUS OUTPUT WAIT 
A * -1, E - 1 
A * »1, E <. 
CLEAR OUTPUT 
WAIT BIT 
IF STATUS # %OUTW, THEN DON'T 
SET 2114 
COMMUNICATIONS BIT 



TIMED OUT 



017536 

044365 
160001 
053555 
002001 
027361 
044337 
160001 
030772 
170001 
044366 
060347 

170001 

027361 



ETO 



J3B 
ADB 
LDA 
CPA 

*ss 
Jmp 

ADB 
LDA 
IOR 
STA 
ADB 
LDA 
STA 
JMP 



FDTTy 
,*?RSTR 

UENRT 

R14RT 
,.?RSTR 

1,1 
C0M14 

1,1 

,*?3TAT 

%ENTO 

1,1 
R14RT 



RETURN TO 2114 DRiVER 



B«> FIRST WORD OF TT Y TABLE 
B *» RESTART ADDRESS 
A * RESTART ADDRESS 
WAITING FUR ENTER? 
YE 8 , S Et COM BIt, 
NO, MUST BE MISTAKE, 

SET 2114 

COMMUNICATIONS 
BIT 
SET 

STATUS TO 

ENTER TIMEOUT 
RETURN TO 2114 DRIVER 
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0552* 














0553* 


USER » 


iUNG UP 










0554 * 














0555 


63513 


017536 


UHU 


JSB 


FDTTY 


Bt> FIRST wORD OF TTy TABL 


0556 


63514 


044366 




ADB 


,*?STAT 




0557 


63515 


040337 




ADA 


t + ,«»XSYNT*'i«C0M3*C0M2 


0558 


63516 


002020 




SSa 




LIBRARY PROGRAM RUNNING? 


0559 


63517 


027527 




JMP 


UHU1 


NO 


0560 


63520 


006004 




INB 




YES, IS THIS GUY THE 


0561 


63521 


054273 




CPB 


MLINK+1 


HEAD OF THE QUEUE? 


0562 


63522 


002001 




RSS 




YES 


0563 


63523 


027526 




JMP 


UHU 1-1 


NO 


0564 


63524 


074262 




STB 


HQDIS 


SET DISCONNECT FLAG 


0565 


63525 


027361 




JMP 


R14RT 




0566 


63526 


044351 




ADB 


,*?STAT< 


-?LINK 


0567 


63527 


060350 


UHU1 


UDA 


XDISC 


SET STATUS 


0566 


63530 


170001 




STA 


1,1 


TO DISCONNECT 


0569 


63531 


044336 




ADB 


,«?stat 




0570 


63532 


160001 




LDA 


1,1 


SET 2114 


0571 


63533 


030772 




IOR 


COMI4 


COMMUNICATIONS 


0572 


63534 


170001 




STA 


l r I 


BIT 


0573 


63535 


027361 




Jmp 


R14RT 


RETURN TQ 2114 DRIVER 


0574** 








** 




0575* 


FIND FIRST WORD OF 


TTY TABLE * 




0576** 








** 




0577* 


EXIT * 


<ITH CB) 


■> FIRST WORD OF TELETYPE TABLE 


0576* 




(A) 


» USERS STATUS 




0579* 














0580 


63536 


000000 


FDTTY 


NOP 






0581 


63537 


102510 




LIA 


CHI 


LOAD REQUEST WORD 


0582 


63540 


001727 




ALF, 


>ALF 


TTY# IN 4*0 


0583 


63541 


010411 




AND 


,*37B 


MASK TO 5 BITS 


0584 


63542 


100200 




MPY 


.♦TTY01-TTY00 




63543 


000375 










0565 


63544 


064000 




LDB 





COMPUT LOCATION 


0586 


63545 


044546 




ApB 


OTTY0 


OF FLAG WORD 


0567 


63546 


060001 




LDA 


1 


A •> FLAGS 


0588 


63547 


040366 




ADA 


#+?stat 


A *> STATUS 


0589 


63550 


160000 




LDA 


0,1 


A » STATUS 


0590 


63551 


050346 




CPA 


%PUN 


CHECK FOR PORT uNA V AILABLE 


0591 


63552 


027361 




Jmp 


R14RT 


IG N oRE IF 30 


0592 


63553 


127536 




JMP 


FDTTY, I 




0593 


63554 




RUED 


EqU 


* 




0594 


63554 


000000 


SVBC2 


BSS 


1 




0595 


63555 


041235 


DENRT 


DEF 


ENTRT 


WHERE ENTER WAITS, 


0596* 














0597* 


ROUTINE TO CLEAR PBFLG 


& CBFLG 


BITS AND TO TELL 


0598* 


THE OTHER MACHINE 


ABOU1 


r THE ABORT. 


0599* 




« 










0600 


63556 


000000 


TRNOF 


NOP 






0601 


63557 


044336 




ADB 


,-?3TAT 


B«> ?FLAG 


0602 


63560 


103100 




CLP 







0603 


63561 


060447 




LDA 


B30M 


CLEAR PBFLG & CBFLG 


0604 


63562 


003000 




CmA 




BIT3, 


0605 


63563 


110001 




AND 


B,I 
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0606 


63564 


170001 


3TA B,I 




0607 


63665 


006004 


IN8 


tim> ?TNUM 


0606 


63566 


160001 


LDA B,I 


A* ?TNUM 


k)609 


63567 


030254 


IOR ABT 


TELL OTHER MACHINE 


0610 


63570 


114500 


J38 814SC,I 




06U 


63571 


127556 


JMP TRNOF,! 




0612* 










0613* 
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0615 


70000 






ORG 


700000 




0616 


70000 


000140 


B14B 


OCT 


140 




0617 


70001 


177720 


M608 


OCT 


•60 




0618 


70002 


177737 


M410 


OCT 


-41 




06l9 


70003 


177645 


*133B 


OCT 


•133 




0620 


70004 


106062 


MCQM2 


ABS 


•COM2 




0621 


70005 


071540 


M36K 


abs 


•30000- 


6000 


0622 


70006 


047040 


ASCIN 


ASC 


1#N 




0623 


79297 


043106 


ASCFF 


ABC 


1,FF 




0624 


70010 


020100 


ASCBA 


ABC 


1» • 




0625 


700U 


030040 


ASC0B 


ASC 


1,0 




0626 


70012 


072034 


DCQM6 


DEF 


C0M6 




0627 


70013 


061126 


TTYCK 


ABS 


TTY00 




062b 


70014 


000000 


0UTM1 


BSS 


1 


TEMPS USEP BY OUTCH ROUTINE 


0629 


70015 


177776 


X 


OCT 


•2 




0630 


70016 


000000 


CTEMP 


BBS 


t 




0631 


70017 


000000 


SMAIN 


ocr 





current swapr drum transfer 


0632 


79929 


000000 


FmAIn 


OCT 





OUO TOP OF Q F|„A(iS POINTER 


0633 


70021 


062266 


jetpa 


OEF 


JETPT 




0634 


70022 


062613 


SKKZ 


DEF 


SICK 




0635 


70023 


072021 


XC0M5 


DEf 


f C0M5-2 




0636 


70024 


074563 


1NSQA 


DEF 


INSEQ 




0637 


70025 


063556 


TRNFP 


DEF 


TRNOF 





FLAU 
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0639* THE CLOCK DRIVER IS THE CENTRAL PQlNT THROUGH WHICH CONTROL IS 

10640* PASSED TO THE SCHEDULER, ENtRY COMEs TO THE DRIVER WHENEVER THE 

43641* CLOCK (REAL TIME SCALAR) INTERRUPTS. THIS EVEnT OCCURS EVERY 

0642* 100 MS, BESIDES GlVlNG CONTROL TO THE SCHEDULER, THE CLQCfV 

0643* DRIVER ALSO HAS THE TASK OF UPDATING THE TIME OF DAY QlQQK, 

0644* THIS CLOCK IS A TWO WORD ENTRY WHOSE VALUE IS AS FOLLOWS* 
0645* DATIM»24*DAY*H0UR 
0646* DATIM+1«600*MIN+10*SEC36000 



0646 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 



70026 
70027 
70030 
70031 
70032 
70033 
70034 
70035 
70036 
70037 

70040 
70041 
70042 



000000 
072016 
034202 
026036 
062005 
070202 
034201 

000000 

036015 
026044 

060350 
072015 
062016 



CLKIN 



CLC0 



NOP 




ENTRY POINT, 


STA 


CTEMP 


SAVE A, 


I3z 


UATIM-U 


BUMP 100MS COUNTER 


JMP 


CLC0 


NO PROBLEM IF nO SKIP 


LDA 


M36K 


RESET 100MS COUNTER, 


STA 


DATIM+1 




ISZ 


DATlM 


BUMP HR COUNTER, 


NOP 




JUST In CASE, 


ISZ 


X 


ENTER SCHEDULER THIS 


JMP 


CLC1+1 


NO 


LDA 


,"2 


YES, RESET 


STA 


X 


RESET SKIP WORD 


LDA 


CTEMP 


RESET A 



TIME? 



0662* THE NEXT INSTRUCTION IS NORMALLY A JMP, WHEN THE 
0663* SCHEDULER IS RUNNINGr HOWEVER, IT PREVENTS ITSELF 
k)664* FROM BEING REENTERED BY INSERTING A NOP, 



0666 70043 000000 CLC1 NOP 



0668 70044 

0669 70045 

y670 70046 

0671 70047 



062016 
103116 
126026 

026050 



CLC2 



L OA CTEmP 
CLF CLOCK 
JMP CLKIN, I 
JMP SCheD 



RESET A 

ALLOW ANOTHER CLOCK INTERRUPT, 

RETURN, 

USeD TO INSfcRT IN CLC1, 



0673* THE SCHEDULER SECTION U F TSB DEtErMI n Es WHICH 
0674* PROGRAM IS TO RUN NEXT, FIRST IT CLEARS CLC1, 
0675* ALLOWING THE CLOCK TO CONTINUE INTERRUPTING, 



0677 70050 071224 SCHED STA ArEG 

0678 70051 002400 CLA 

0679 70052 072043 STA CLCl 

0680 70053 062026 LDA CLKIN 

0681 70054 071227 STA PREG 

0682 70055 103116 ClKED Cl^ ClOCK 

0683 70056 075225 STB BREG 

0684 70057 001520 ERA,ALS 

0685 70060 102201 SOC 

0686 70061 0^2004 INA 

0687 70062 071226 STA ErEG 

0688 70063 064273 LDB MLINK+1 

0689 70064 044335 ADB ,„7LINK 



SAVE A-REGISTER, 

INSERT NOP IN :LC1 TO PREVgNT 

REENTERING SCHED, 
SAVE THE PROGRAM COUNTER 

ALSU, 
NOW LET THE CtQCK In AGAIN. 
SAVE B REGISTER, 
E-REGISTER, 
AND OVERFLOW REGISTER, 



GET POINTER 



■"*,. 
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*$*>.- 



0690 70065 076020 



0692 

0693 

0694 

0695 

0696* 

0001* 

0002* 

0003* 

0004* 

0005* 

0006* 

0007* 

0000 

0009 

0010 

0011 

0012 
0013 
0014 
0015 
0016 

0017 

0010* 

0019* 

0020* 
0021* 
0022 
0023 

0024 
0025 
0026 
0027 
002b 
0029 

0030* 

0031* 

0032* 

0033 

0034 

0036 

0036* 

0037* 

0030* 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0040 



70066 06^264 

70067 002002 
7mi% 134057 
70071 026362 



8T8 FMAIN 

IDA TIMEF 

SZA 

IU TIMER, I 

JMP 3CH1 



TO FLAG WORD 

GET TIMER FLAG, 

IP 0, THIS IS NOT A TIMED PROS, 
IF NOT 0, BUMP TIMER, 
l¥ NOT OUT OF TIME, SKIP RQTAT„ 
lN<* RUN QUEUE, 



AT THIS POINT WE HAVE DISCOVERED THAT THE PROGRAM THAT MAS 
BEEN RUNNING HAS EXHAUSTED ITS TIME LIMIT, THE NEXT S\^ )X 
TO ADJUST THE QUEUE $0 jHAT THIS PROGRAM is MOVED TO THE 
BOTTOM. THIS IS ACCOMPLISHED BY DELETING THE PRQQRAm 
FROM THE QUEUE AND THEN REINSERTING iT WiTH iTS NEW PRjORiTY. 



70072 
70073 
70074 
70075 
70076 
7dfS77 
70100 
70101 
70102 
70103 



064273 

006004 
060356 
170001 

044351 

160001 
070273 
116024 
017202 
026362 



3CH3 



LDB 
INB 
LDA 
STA 
ADB 
LDA 
8TA 
JSB 
JSB 
JMP 



MLInK+1 

.♦4 

1*1 

.♦?HNK« 

MLINK*! 
INSQA,I 
SWAPR 
SCHl 



TEST FOR ANY TTY35 BUSINESS 

70104 SCHSl EQU * 

70104 064546 LDB DTTY0 

70105 076013 STB TTYCK 

70106 003400 SCH5 CCA 

70107 050313 CPA T35F1 
70U0 026273 JMP SCH15 
70111 050316 CPA T35F3 
70U2 026224 J M p 5CHI6 



get the address of priority 
for the current program, 

SfcT IT TO LOW PRIORITY, 

?PL£V 

GET THE LINK FROM THE CURRENT 

PROGRAM AND STORE IT IN MLINH+l 
INSERT USEf< IN QUEUE 
START EAR L Y SWAPPING 
CHECK FOR COMMUNICATION FROM 14 



JUST FINISHED CHECKING TTYS 
REINITIALIZE 

POINTER 
TEST FOR DRIVER BUSY 



DRIVER IS BUSY, 

Command Entered but not stated 
when t35fit0, the console is quiet so we can do logging, 

test for any entries on message 
message queue empty 



70113 040306 

70114 050351 
70U5 026130 



70116 
70117 
70120 
70121 
70122 
70123 
70124 
70125 
70126 
70127 



070306 
064307 

044421 
054311 
064312 
074307 
160001 
006004 
114522 
026273 



ADA 


M3QCT 


CpA 


,-1 


JMP 


SCH52 


T OF 


• THE ME 


STA 


MSUCT 


LDB 


MSQP1 


ADB 


, *MESLN 


CPB 


MSQND 


LDB 


MSQBG 


STB 


MSQP1 


LDA 


B,I 


INB 




JSB 


TTY35,i 


JMP 


SCH15 



DECREMENT MESSAGE COUNTER 
ADVANCE MESSAGE PQINfER 

IF AT END OF BUFFER 

THEN WRAP AROUND 
SET UP NEW ADDRESS 
GEy ADDREss AND 

LE N GTH qF message 
ANO OUTPUT IT 
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63049* 

0050 

0051 

0052 

0053 

0054* 

0055* 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

\Hd7A 

0075 
0076 
Q&77 
0078 
0079 
0030 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0086 

0069 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0096 
0099 
0100 



70130 SCH52 

70130 040604 

70131 050351 

70132 026224 

SET UP LOG BUFFER 



70133 
70134 
70135 
70136 
70137 
70140 
70141 
70142 
70143 
70144 
70145 
70146 
70147 
70150 
70151 
70152 
70153 
70154 
70155 
70156 

70157 
70160 
70161 
70162 
7 i63 
70164 
70165 
70166 
70167 
70170 
70171 
70172 
70173 
70174 
70175 
70176 
70177 
70200 
70201 
70202 
70203 
70204 
70205 
70206 
70207 
70210 
70211 
70212 



070604 
060606 
002004 
050630 
060626 
070606 
160606 
066006 
002020 
066007 
076214 
101052 
010411 
042010 
072215 
160606 
010602 
006400 
100400 
000364 

005727 
046011 
0762J7 
017047 

0722j6 
034606 
160606 
010411 
017047 
072223 
160606 
006400 
101025 
100400 
000724 
174606 
017047 
072220 
160606 
017047 
072221 
060400 
066210 
114522 
026273 
170211 
025052 
046117 



EQU * 
ADA LOGCT 
CPA ,»1 

JMP SCH16 



STA LOGCT 
IDA LOGPl 
INA 

CPA LOGNO 
LDA LOGBG 
STA LOGP1 
LOA LOGPi,I 
LOB A3CIN 

S9A 

LOB A8CFF 

STB LQGBF+3 
L3R 10 
A N D ,*37B 
ADA ASCBA 
STA LOGBF+4 
LOA LOgPKI 
ANO B1777 
CUB 
DjV ,*10 



BLF, 

ADB 

STB 

JSB 

STA 

ISZ 

LOA 

AND 
J88 
STA 
LOA 
CUB 
ASR 
OIV 



BLF 

ASC0B 

LOGBF+6 

*LTEN 

LOGBF+5 

LOGPl 

LQ 6 PI,I 

.♦37b 

#lten 

LOGBF+10 
LOGPl, I 

5 
060 



SCH21 

L0GR2 
LOGBF 



STB L0gP1»I 
JSB #LTEN 
S T A L0GBF*7 
LOA LOGPl, I 
JSB #LTEN 
STA L0G8F+8 
LDA ,*22 
LOB L0GR2 
JSB TTY35,I 
JMP SCHJ5 
DEF **\,l 



test for any entries jn lugtablt 
log t ab le is empty. 



DECREMENT LOG COUNTER. 
BUMP LOG POINTER 

IF AT END, 

WRAP AROUND, 

TEST POP LOGON 
OR LOGOUT, 



SHIFT LOG CHAR jO L£AgT 5 BITS. 
MASK U FF OTHER STUFF, 
CONVERT TO ASCII, 

GET ACCOUNT NUMBER A G AjN, 
KEEP ONLY * PART, 

GET 1ST 2 0|GiTS IN A, l*ST IN 8 

SET UP LAST DIGIT AS 
ASCII LEFT HALF, 

CONVERT FIRST 2 TO ASCII ALSO 



NOW g^T ThE TJME, 

GET TERMINAL NUMBER 

CONVERT AND STORE IN BUFFER, 



SAVE SECOND HALF 

CONVERT FIRST HALF TO ASCII, 



CONVERT 2ND HALF TO ASCII, 



TO PRINT THE 
STUFF, 

BUFFER ADDRESS (I«*PUNCH) 



A8C H,**LOGoFF A123 0930 #01 
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70213 


043517 












70214 


043106 












70215 


020101 












70216 


030462 












70217 


031440 












70220 


030071 












70221 


031460 












70222 


020043 












70223 


030061 










0101* 














0102* 


TTY35 10 COMPLETE 








0103* 














0104 


70224 


050314 


SCH16 


CPA 


T35F2 


TEST DRIVER COMMUNICATE FL 


0105 


70225 


002001 




RSS 






0106 


70226 


026273 




JMP 


SCH15 




0107 


70227 


060277 




LDA 


T35ST 


GET CONSOLE STATUS, 


0108 


70230 


064301 




LOB 


T35PR 




0109 


70231 


050355 




CPA 


XQUTW 


IP OUTPUT WAIT, 


0110 


70232 


026256 




JMP 


SCH23 


GO SgT HIM UP, 


0111 


70233 


002002 




SZA 




IF NOT IDLE WEVE ALREADY 


0112 


70234 


026273 




JMP 


SCH15 


QUEUED HIM, 


0113* 


TTY35 


INPUT COMMAND 








0114* 














011b 


70235 


060303 




LDA 


T35B2 


POINTER TO FIRST CHARACTER 


0116 


70236 


070060 




STA 


SBHED 


OF CONSOLE BUFFER, 


0117 


70237 


060304 




LDA 


T35ND 


POINTER TO END OF 


0118 


70240 


070061 




STA 


SCHL 


Console buffer. 


0119 


70241 


060412 




LDA 


,♦408 


INITIALIZE COMMAND 


0120 


70242 


070064 




STA 


SCHP 


HOLDER, 


0121 


70243 


017113 




JSB 


3COM 


GET COMMAND, 


0122 


70244 


026264 




JMP 


3CH17 


BLANK LINE 


0123 


70245 


026266 




JMP 


3CHJ8 


ERROR 


0124 


70246 


026266 




JMP 


SCH18 


ERROR 


0129* 














0126* 


SET UP QUEUE 


ENTRY | 


FOR CONSOLE. 




0127* 














0126 


70247 


060060 




LDA 


3B h ED 


SET POINTER FOR 


0129 


70250 


070054 




STA 


T35CP 


T35CR, 


0130 


70251 


060412 




LDA 


,*40B 


SET UP LA2T CHAr 


0131 


70252 


070055 




STA 


T35LC 


AS BLANK 


0132* 














0133 


70253 


060506 




LOA 


#LIB# 


set restart ADORtss, 


0134 


70254 


070276 




8TA 


T35RS 




0136 


70255 


046263 




ADB 


SCH19 


SET PROGRAM STATUS 


0136 


70256 


Q74Z77 


8CH23 


STB 


T353T 


TYPE, 


0137 


70257 


060354 




LOA 


.♦2 


SET PRIORITY, 


0138 


70260 


070301 




STA 


T35PR 




0139 


70261 


064302 




LDB 


T35LN 


GO INSERT IN UUEUE 


0140 


70262 


026101 




JMP 


SCH3 




0141 


70263 


106067 


SCH19 


ABS 


»C0M2*XSYNT».+1 


0142 


70264 


060662 


8CH17 


LDA 


0NE1 


OUTPUT LINE FEED 


0143 


70265 


002001 




RSS 






0144 


70266 


060356 


SCH18 


LDA 


.♦4 


OUTPUT ERROR MESSAGR 


0145 


70267 


006400 




CLB 






0146 


70270 


074314 




STB 


T35F2 
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0147 78271 064666 

0148 70272 026206 



LDB DEH 
JMP SCH21 



0150* 
0151* 

0152 
0153* 
0154* 
0155* 



70273 017202 8CH15 JSB SWAPR 



CHECK FOR ANYTHING TO DO, IF NOT 
SwAPR wILL GO tO SCH1 AGAIN, 
IT WILL RETURN HERE IF THEkE IS 
AN EXECUTABLE PROGRAM IN CORE, 



0157* 
0156* 
0159* 
0160* 

0162 
0163 
0164 
0165 
0166 
0167 
0166 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0161 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 

0193 
0194 
0195 

0196 
0197 
0198 



THE PR06RAM TO RUN IS AT THE HEAD OF THE QUEUE, AND S W APR HAS 

guaranteed that it is in core, the following section of code 

SETS IT UP To RUN* AnD AlSQ SETS UP THE ClOCk DRIVER SO THAT 
FUTURE INTERRUPTS WILL GO 8A C K INTO TM£ ScHEqOLER. 



70274 
70275 
70276 
70277 

70300 
70301 
70302 
70303 
70304 
7030b 
70306 
70307 
70310 
70311 
70312 

703*3 
70314 
70315 
70316 

70317 

70320 
70321 
70322 
70323 
70324 
70325 
70326 
70327 
70330 
70331 
7 0332 

70333 
70334 
70335 
70336 
70337 
70340 



J03100 
062047 
072043 
060273 
002004 
164000 

a 54354 
006400 
174000 
040347 
164000 
006^02 
075227 
006400 
174000 

074264 

002004 
164000 
040350 

054357 
0342 6 4 
040340 
064000 
160001 
010612 

070261 
160001 
010736 
070214 
061226 

103101 
000036 

102101 
0Q1224 
065225 

102100 



CLF 
LDA 
STA 
LDA 
INA 

LOB 
CPB 
CLB 
8TB 
ADA 

LQB 
SZB 
STB 
CLB 
STB 
STB 
INA 
LDB 
ADA 

STA 
CpB 

ISZ 

ADA 
LDB 

LDA 

AND 

STA 

LDA 

AND 

STA 

LDA 

CLO 

SLA, 

STO 

LDA 

LDB 

STF 





CLC2 
C L C1 

MLlNK+l 

.+2 

0,1 

.♦7RSTR- 

9,1 

PREG 

0fl 

TIMEF 

0,1 

,*?cloc 

TIMER 

XSYNT+l 

TIMEF 

,.?CLoC 

A 

ENDgT 

ENDRM 

B,I 

MBUST 

MBU8Y 

EREG 

ELA 

AREG 
BREG 





INHIBIT INTERRUPT, 

RESTORE A <JMP SCHED* In THE 

Clock Interrupt routine, 

get priority of program, 

if priority is 2, change it to 
zero so it doesnt get interrupte 

'?plev get restart address 
if not 0, put it in preg 
to start up properly, 

put into table in any case 

SET TO SAY NO TIMING, 
GET PROGRAM STATUS, 

w?STAT SET TJMER POINTER, 

jF STATUS jS RUNf SET 

TIMEFLAG FOR CLOCKING, 
SAVE FLAGS 

POINTER 
RESTORE 

Drum 

AND 
DISC 
BUSY 
FLAGS 
RESTURE E 
AND OVERFLOW 
REGISTERS, 



RESTORE A AND 
B REG, 

Enable Interrupt 



and 
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0199 
0200* 
0201 
0202 

0203 
0204 
0205 
0206 
0207 
0206 
0209 
0210 
0211 
0212 

0213 
0214 
0215 
0216 
0217* 

02i d * 

0219* 
0220* 
0221* 
0222* 
0223* 
0224* 
0225* 
0226* 
0227* 
0228* 
0229* 
0230* 

0231* 
0232* 
0233* 
0234* 
0235* 
0236* 
0237* 
0238* 

0239* 
0240* 

0241* 

0242* 

0243* 

0244* 

0245* 

0246* 

0247* 

0248* 

0249* 

0250* 

0251* 

0252 

0253 



70341 

START 
70342 
70343 
70344 
70345 
70346 
70347 
70350 
70351 
70352 
70353 
70354 
70355 
70356 
70357 
70360 
70361 



125227 

OF SYSTEM 
060355 TSB 
102616 
103716 
1067H 
106712 
060177 
003000 
001727 
030226 
114500 
102311 
026354 
103710 
060360 
064266 
114522 



JMP PREG,i 



LUA 
OTA 
STC 

etc 

CJ.C 
LOA 
CMA 
ALF, 

IoR 

JSB 

SFS 
JMP 
STC 
IDA 
LOB 
JSB 



,+3 

CLOCK 

CLOCK, C 

CH2 

?3C 

NPOKT 

ALF 

INI 

S14SC,I 

CH2 

♦•1 

CHlfC 
.♦6 
READY 
TTY35,I 



TRANSFER TO PROGRAM, 

START CLOCK COUNTING IN 
100 MS UNITS, 
START CLOCK 



A «• NUMBER o F LEGAL pgRTS - 1 
PLUG IN INITIALIZATION CqDE, 

we're Starting 

WAIT FOR 2114 
TO FINISH 

START SYSTEM 
TELETYPE BY OUTPUTTING 
REAOy MESSAGE, 



THIS SECTION IS THE BEGINNING OF THE MAIN PART OF 1 H£ SCHfcDU- 
LER, CONTROL ALWAYS COMES HERE TO EXAMINE THE TTU UNTIL IT'S 
EXHAUSTED, OR WHEN THERE IS NOTHING TO DO, SwaPR ALWAYS COMES 
TO THIS POINT W HEN THE OyEyE IS EMPTy OR THE FIRST PROGRAM ON 
THE QUEUE xS AB8EnT, 

this Section actually processes a ttu entry, The«e a *e several 

KINDS OF ENTRIES WHICH MaY BE CLASSIFIED AS FOLLOWS! 

1) ABORT , THI8 IS INDICATED BY THE TELETYPE STATUS BEING 
•1, T HE AC T ION T AKEN IS T S T OP T HE PROGRAM (IF 1 T IS 
I N THE QUEUE), A N D Tu INITIATE THE ABqkT MESSAGE, 



2) OUTPUT 
XQUTW, 
IS ALMOST 



TERMINATE • THIS IS INDICATED BY THE STATUS BEING 
THE TTU ENTRY REALLY MEANS THAT THE OUTPUT BUFFER 
EMPTY, THE PROGRAM IS PLACED BACK ON THE QUEUE 



ACCORDING TO ITS PRIORITY, 

3) INPUT - THIS IS INDICATED BY STATUS BEING %INPT, IT INDI- 
CATES THAT A USER PROGRAM OR SYSTEM PROGRAM THAT HAS 
REQuESjED INPgf HAS CO^EN It, r H E PROGRAM IS PLACED IN 
THE QUEUE, 

4) COMMAND » WHEN STATUS IS XIDLE, EITHER A COMMAND OR 

A SYNTAX STATEMENT HAS BEEN ENTERED, THESE CAN BE DISTIN. 
GuISHED By THE FIRST NUN BLANK INPgT CHARACTER, WHICH IS 
A DIGIT ONLY IF SY N TAX HAS BEE N EnTErEO, 

5) DISCONNECT * THIS IS INDICATED BY STATUS BEING XDISC. 
THE ACTION TAKEN IS TO CALL THE BYE ROUTINE 



TIMEOUT - THIS IS INDICATED BY THE STATUS BEING 
THE RESTART ADDRESS IS BUMPED AND THE PROGRAM IS 



6) ENTER 

XENTO ,„u ~v«.™. n 

PLACED ON THE QUEUE, 



70362 102100 

70363 066013 



SCH1 



8TF 
LDB TTYCK 
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1(3254 

0255 

0256 

0257 

U258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283* 

0284* 

0285* 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296* 

0297* 

0298* 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 



70364 
70365 
70366 
70367 
70370 
70371 
70372 
70373 
70374 
70375 
70376 
70377 
70400 

70401 
70402 
70403 
70404 
70405 
70406 
70407 
70410 
70411 
70412 
70413 
70414 
70415 
70416 
70417 
70420 



054550 
026104 
160001 
044375 

076013 
010/72 
002003 
026362 
044327 
103100 
120001 
170001 
074062 
044356 
074063 
044362 
160001 
040346 
002021 
026362 
042412 
124000 
070422 
026531 
026514 
026433 
026535 
026106 
000000 



CPB DTT32 HAVE ALL TELETYPES BEEN CHECKED? 

JMP SCHS1 yES 

LDA l f X LgAO STATUS FqR THIS USER 

ADB .♦TTY0WTY0B GENERATE ADDRESS FOR NEXT 

STB TTYCK USER 

AND COM14 COMMUNICATION FROM 2114? 

S*A,RSS SKIp IF SO 

JMP SCHi NO*. CHECK NEXT ONE 

ADB ,*TTY00~TTY01 MOVE AOOrESS BACK TO THIS U 

CLF 

XOR 1,1 CUAK 

STA 1,1 C0M14 BIT 

STB TTU SAVE TABLE ADDRESS 

ADB ,*?ID store ID 

STB SCHID ADDRESS 

ADB t *?8TAT«?ID 

LOA 1,1 A«STATUS 

ADA ,.4 MAKE SURE 

SSA,R8S STATU3<4 

JMP sCHl IGNORE OTHERWISE 

ADA * + 2 BRANCH TO SEC Hon 

JMP 0,1 TO MANoLE RE'JUeST 

DEF **8 

jmp sch4 enter tlmequt 

jmp sch8 disconnect 

jmp sch7 abort 

jmp sch6 command 

jmp sch5 aborting 

nop Input 



CODE TO HANDLE INPUT OR OUTPUT, 



70421 

70422 

70423 
70424 
70425 
70426 
70427 
70430 
70431 
70432 



044354 
160001 
044350 
170001 
102100 
044354 
002400 
170001 
044351 
026101 



SCH51 



ADB 
LDA 
ADB 
STA 

STF 
ADB 
CLA 
STA 

ADB 
JMP 



,*?PLEV»?8TAT 

1,1 GET ACTUAL STATUS 

,+?STAU?PLEV 

1,1 SET ACTUAL STATUS 



,+?PLEV-?STAT 

SET PRIORITY TO 

1,1 

,+?link-»?plev 

3CH3 GO INSERT ijSER IN QyEgE 



CODE TO HANDLE ABORT 



70433 
70434 
70435 
70436 
70437 

70440 
70441 
70442 
70443 
70444 



10^100 

006004 
017577 

064062 
060412 
003000 
103100 
110001 
170001 
006004 



SCH7 



STF 
INB 
JSB 
LDB 

LDA 
CMA 
CLF 
AND 
STA 
INB 





DEQyE 

TTG 

OUTWT 



1,1 

1,1 



B»>LINK 

REMUyE uSER FROM QuEyt, 

CLEAR 
OUTPUT 

WAIT 
BIT 
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0309 


70445 


160001 


IDA 


B,I 


GET TTY NUMBER 


0310 


70446 


030241 


lOR 


KAo 




0311 


70447 


114500 


JS8 


SUSC,1 


KILL OUTPUT 


0312 


70450 


044351 


ADB 


,«i 




0313 


70451 


060444 


LDA 


DFCHk 




0314 


70452 


110001 


AND 


Wl 




0315 


70453 


002003 


SZA, 


,RSS 


NEED TO UPDATE CHANGE DATE? 


0316 


70454 


026475 


JMP 


3CH75 


NO 


0317 


70455 


060372 


EDA 


UNABT 


YES 


0316 


70456 


130001 


IOR 


B'X 


DISALLOW 


0319 


70457 


170001 


STA 


B,I 


ABORTS 


0320 


70460 


102100 


STF 







0321 


70461 


044370 


ADB 


,+?PLEV 




0322 


70462 


002400 


CUA 






0323 


70463 


170001 


STA 


BrI 


SET PRjQRjTY TO 


0324 


70464 


044350 


ADB 


,*?STaT- 


'?PLEV 


0325 


70465 


060363 


L DA 


,+XSYNT' 


t *l*UCDAB*C0M2 


0326 


70466 


170001 


ST A 


B'l 


SET STATUS TO LAST CHANGE DATE 


0327 


70467 


044351 


ADB 


,*?RSTR* 


?STAT 


0328 


70470 


042023 


ADA 


XCOM5 


FINO POSITION IN TABLE 


0329 


70471 


160000 


LDA 


A,l 


GET RESTART ADDRESS 


0330 


70472 


170001 


STA 


B,I 


SAVE IT 


0331 


70473 


044354 


ADB 


.♦?LINK«. 


>?RSTR 


0332 


70474 


026101 


JMP 


3CH3 


GO INSERT IN QUEUE 


0333 


70475 




SCH75 EQU 


* 




0334 


70475 


044366 


ADB 


.♦?STAT 


SET STATUS 


0335 


70476 


170001 


STA 


1,1 




0336 


70477 


116025 


J3B 


TRNFPfl 


CLEAR PBFLG & C8FLG BITS 


0337* 










AND TELL OTHER MACHINE, 


0338 


70500 


054255 


CPB 


PRIST 


USER HAVE LP? 


0339 


70501 


017057 


JSB 


SCLPR 


YES, 


0340 


70502 


064062 


LDB 


TTQ 


NO, PRINT ABORT 


0341 


70503 


060342 


LDA 


t «)8 


MESSAGE 


0342 


70504 


017075 


JSB 


TYPE 




0343 


70505 


006412 


OCT 


6412 


CRLF 


0344 


70506 
70507 


051524 
047520 


ASC 


2, STOP 




0345 


70510 


0064i2 
064062 


OCT 


6412 
TTQ 


CRLF 


0346 


70511 


SCM78 LOB 


SCRATCH IF SHELLO IS RUNNING 


0347 


70512 


017700 


JSB 


HTEST 




0348 


70513 


026362 


JMP 


8CH1 




0349* 












2350* 


CODE ' 


ro SET UP FORCED DISCONNECT 




0351* 












0352 


70514 


006004 


SCH8 INB 




B •> LINK WORD 


03$3 


705I5 


017577 


JSB 


DEQUE 


REMOVE FROM QUEUE 


0354 


70516 


064062 


LDB 


TTQ 


CLEAR 


0355 


70517 


060372 


LDA 


UNABT 




0356 


70520 


030442 


IOR 


ABTRY 


ABORT 


0357 


70521 


030444 


IOR 


DFCHK 




0356 


70522 


003000 


CMA 






0359 


70523 


110001 


AND 


l'I 


flags 


0360 


70524 


170001 


STA 


If I 




0361 


70525 


102100 


STF 







0362 


70526 


060001 


U 0A 


I 
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0363 

0364 

0365* 

0366* 

0367* 

8368 

0369 

0370 

0371 

0372* 

0373* 

0374* 

0375* 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0363 

0384 

0385* 

0386* 

0387* 

0388* 

0389 

0390 

0391 

0392 
0393 
0394 
0395 
03 9 6 

0397 

0398 

0399 

0400 

0401 

0402 

0403* 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417* 



70527 040365 
70530 026755 



ADA ,*?R8TR 
JMP SCM61 



60 SET UP STARTING iN^Ot 



CODE TO HANDLE ENTER TIHEOUT 



70531 044351 

70532 134001 

70533 044355 

70534 026422 



SCH4 



ADB 
XSZ 

A06 
JMP 



?STAT 
BUMP 



RESTART ADDRESS 



,*?R3TR< 

I,* 

,*?PUv«?RStR 

SCH51 GO RESTORE STATUS 



CODE TO HANDLE COMMANDS, 



70535 
70536 
70537 
70540 
70541 
70542 
70543 
70544 
70545 



102100 SCH6 STF 





002400 


CLA 




070060 


STA 


S8HED 


070064 


STA 


SCHP 


017113 


JSB 


SCOM 


026564 


JMP 


SCH30 


026546 


JMP 


SCH9 


026605 


JMP 


EHERR 


026617 


JMP 


SCHU 



FLAG BUFFER HEAD TO 

SAY BUFFER IN 2114 
INITIALIZE TO HULD CHARACTERS 
INTERPRET COMMAND 
EMPTY LINE, 

FIR8T CARACTER A DIGIT 
INVALID COMMAND, 
COMMAND IS 0K„ 



THE FIRST CHARACTER IS A DIGIT, THIS MEANS THE LINE IS SYNTAX AND 
WE HAVE TO QUEUE IT A3 SUCH, 



70546 
70547 
70550 
70551 
70552 
70553 
70554 
70555 
7 556 
70557 
70560 
70561 
70562 
70563 

70564 
70565 
70566 
70567 
70570 
70571 
70572 
70573 
70574 
70575 
70576 
70577 
70600 



064062 
044370 
002400 
150063 
026623 
170001 
044347 
060454 

170001 
044353 
060356 
170001 
006004 
026101 

064062 
060362 
110001 
002003 
026601 
006004 
160001 
030222 
114500 
160001 
030242 
114500 
026362 



3CH9 



LDB 
ADB 
CLA 
CPA 
JMP 
STA 
ADB 
LDA 
STA 
ADB 
LDA 
STA 
INB 
JMP 



TTO 
,*?PLEv 



B*» PRIORITY 
SET PRIORITY 
IF NU ID, GO 



TO * 
LOG IN, 



SCHID,I 

SCH25 

1/ 1 

,*?R8TR-?PLE V 

SYNTA 

,+?STAT~?R8TR 

%SYNT SET STATUS 

1,1 SYNTAX, 

GO INSERT IN UyEuE, 
SCH3 



SgT UP STARTING ADDRESS 
FOR SYNTAX 



TO 



SCH30 



LDB TTU 

LDA TAPEF 

AND 1,1 

SZA,RS8 

JMP SCH20 

INB 

LDA 

IOR 
JSB 
LDA 
IOR 
JSB 
JMP 



in 

gtc 

S14SC,I 

1,1 

ALI 
SHSCrl 

5CHI 



TEST FOR T A PE MODE U NULL LINE, 



NO r APE— GO EM^ LINE FEED, 
B*> TTY # IN BITS 12-8 
SPACE 
PAST 

CARRIAGE RETURN 
INFORM 2114 

THAT MORE INPUT 
IS ALLOWABLE 
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0418 
0419 

0420 

0421 

0422* 

0423* 

0424* 

0425 

0426 

0427 

0428 

0429 

0430 

0431 



0432 
0433* 

0434* 
0435* 



70601 060364 

70602 064062 

70603 114676 

70604 026362 



SCH20 LO a t+12B 
i.OB TTQ 
JSB OUTCH,I 
JMP 3CH1 



OUTPUT A LINE FEED* 



COME HERE WHEN ANY ILLEGAL INPUT 13 FOUND, 



70605 
70606 
70607 
70610 
70611 
70612 
70613 
70614 
70615 
70616 



064062 
006004 
054255 
017057 
060344 
017075 
005077 
037477 
006412 
026362 



EHEKR 



EH 



LOB 
INB 
CPB 

JS8 
LDA 
JSB 
OCT 



TTQ 



PRIST 

SCUPR 

««*6 

TYPE 

5077,37477,6412 



IF USER HAS LP, 
RELEASE IT 



(???) 



JMP SCHl 



COME HERE WHEN A LEGITIMATE COMMAND IS FOUND 



0436 


70617 


0437 


70620 


0438 


70621 


0439 


70622 


0440 


70623 


0441 


70624 


0442 


70625 


0443 


70626 




70627 




70630 




70631 




70632 




70633 


0444 


70634 


0445 


70635 


0446 


70636 


0447 


70637 


0448 


70640 


0449 


70641 


0450 


70642 


0451 


70643 


0452 


70644 


0453 


70645 


0454 


70646 


0455 


70647 


0456 


70650 


0457 


70651 


0458 


70652 


0459 


70653 


04g0 


7065 4 


0461 


70655 


0462 


70656 


0463 


70657 


0464 


70660 


0465 


70661 



160063 
002003 
056636 
026640 
060332 
017075 
005120 
046105 
040523 
042440 
046U7 
043440 
044516 
006412 
026362 
071737 
071723 
064062 
160091 
010362 
002003 
026665 
006004 
160001 
030237 
114500 
102311 
026651 
1025U 
002002 
026605 
103100 
044351 
060362 
003000 



SCH11 LDA SCHID,! PROCESS CqmmAnD nLY IF 



S*A,RSS 

CPB HI 

JMP SCH22 

3CH25 LDA ,.16 

JSB TYPE 

OCT 5120 LF*P 

ASC 6, LEASE LOG IN 



ID#0 OR 
Ht LLO COMMAND, 

PRINT LOG IN MESSAGE 



OCT 
JMP 

HI DEF 

DTARR DEF 

SCH22 LDB 

LDA 

AND 

8Z* 

JMP 

INB 
LOA 

IOR 
JSB 
SFS 
JMP 
LIA 
SZA 
JMP 
CLF 
ADB 
LDA 
CMA 



6412 
SCHj 

HELLO 
CTAPR 

TTQ 

If I 

TAPEF 

tRSS 
3CH24 

iLl 
S143CI 

CH2 
♦•1 
CH2 

EhERR 


TAPEF 



TAPE 

MODE? 
NO 

YE3»»CHECk 
FOR ADDITIONAL 

INpUT 

wait for 
acknowledgment 

ILLEGAL INPUT? 

YES 

NO 

CLEAR 
TApE 
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0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

43475 

0476 

0477 

0476 

0479 

0480* 

0481 

0482 

0483 

0484* 

0465 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0496 

0499 

0500 

0501 

0502 

0503 

0504* 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

05i2 
0513 
0514 

0515 



0516 
0517 
0510* 



70662 
70663 
70664 
70665 
70666 
70667 
70670 
70671 
70672 
70673 
70674 
70675 
70676 
70677 

70700 
70701 
70702 

7(67^5 
707Q4 
70705 
70706 
7U7Q7 
70710 
70711 
70712 

?07j3 
70714 
70715 
70716 
70717 
70720 
70721 
70722 

70723 
70724 
7U725 

70726 
70727 
70730 
70731 
70732 
70733 
70734 

70735 
70736 
70737 
70740 
70741 
70742 

70743 
70744 



110001 
170001 

102100 
160064 
053737 
026703 
053713 
026703 
053740 
026703 
160001 
010353 
002003 
026707 

062637 
070064 
026707 

060353 
003000 
110001 
170001 
044357 
160001 
002021 
026726 
160064 
053732 
026735 
053733 
026735 
053717 
026735 
053720 
026735 
053721 
026735 

064064 
046004 
006021 
026745 
046734 
124001 
172026 

060340 
017075 
005122 
052516 
020117 
047114 

054415 
026601 



SCH24 



AND 1,1 
SIA l,j 
STF 

LOA SCHP,J 
CPA HELLO 
JMP 8CH27 
CPA SCR 
JMP 3CH27 
CPA BYE 
JMP 8CH27 
LOA 1,1 
AND TERM 
SZA,RSS 
JMP 8CH26 

LOA DTAPR 
STA 3CMP 
JMP SCH26 



SCH27 LOA 
CMA 
AnO 
STA 

SCH26 AOB 
LOA 
S3A, 
JMP 
LOA 
CPA 

Jmp 

CpA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 



TERR 

1,1 
1,1 

,+?NAME 

if! 

RS3 

3CH28 

SCHP f l 

SAVE 
SCH29 

CsAy 

SCH29 

Llg 

SCH29 

PUN 

SCH29 

SCH29 



PLA6 



TEST FOR HELLO, BYE, Or SCRATCH 
OK TO PROCeOe If ANY 
OF THESE, 



TEST FOR ANY TApE ERRORS, 



NO TAPE ERRQRS*--CONTlNUE, 
OTHERWISE, SET UP FqR EXECU« 

tiqn of tape error 
printout routine, 

if hello, bye or scratch, 
clear tape 
Error bit 
ano proceed 

test f r 

run*onl* program, 
not run«onuy, 
if run»only, don't 

ALLOW THES'i 

Commands, 



SCH28 LOB SCHP 

AOB MC0M2 TE8T FOR TYPE j COMMAND, 

SSB,RSS 

JMP gCH12 NOT TYPE I, 

AOB *+2 GET STARTING ADDRESS FqR COMMAND 

JMP 1,1 PROCESSOR AND (jO THfcREt 

DEF c0M5» C 0Ml*c0M2,I 
SCH29 LOA ,-10 

JSB TYPE 

OCT 5 122 LF.R 

ASC 3, UN QNL 



OCT 54415 
JMP SQH20 



Y-CR 
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0519* 

0520* 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 
0535 
0536 
0537 
0536 
0539 
0540 

5 4l 
0542 

0543* 

0544* 

0545* 

0546 

0547 

0546 

0549* 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0566 

0559 

0560 

0001* 

0002* 

0003* 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 
0012 
0013 



TYPE II ANO III CQHHAND8 



70745 
70746 
70747 
70750 
70751 
70752 
70753 
70754 
70755 
70756 
70757 
70760 
70761 
70762 
70763 
70764 
70765 
70766 
70767 
7Q77V 

7*771 
79772 



044357 
060062 
040366 
174000 
040351 
044337 
006020 
026766 
064506 
174000 
064354 
040355 
174000 
007400 
044000 
026101 
072034 
046765 
164001 
174000 

0064^4 
026760 



SCH12 



SCH61 



SCh14 



3CH13 



"SCRATCH" COMMAND 



70773 064062 

70774 016776 

70775 026601 



7®776 
7^777 

71000 
71001 
71002 
71003 
71004 
71005 

71006 
71007 
71010 



000000 
060702 
054257 
070056 
044355 
170001 
044354 
160001 

001665 
170001 
126776 



#3CH 



SCRAT 



AD6 XSYnT+1 OETERMI N E PROGRAM STATUS, 

IDA TTQ 

ADA ,*?STAT 

STB 0,1 

ADA t *?HSTR*?STAT AorEsTArT ADDRESS 

AD6 f + f »%SYNT*C0M2*C0M3-l TYPE 11 OR III 1'i 

SSB 

JMP 3CH13 TYPE U COMMAND 

LDB #LIB# TYPE III COMMANDS HAVE A STAN, 

STB 0,1 DARD STARTING ADDRESS AND 

LD8 ,+2 PRIORITY 2, 

ADA ,*?PLEV*?RSTR 

STB 0,1 

CCB GET UNK POINTER IN b AND GO 

ADB TO INSERT INTO QUEUE, 

JMP SCH3 

DEF C0M3*C0M5»C0M1 

ADB *«1 GET STARTING ADDRESS FOR TYPE 

EDB 1,1 H COMMANDS, 

STB 0,1 

CLB,INB CO SET PRIORITY TO 1 

JMP 8CH14 



LDB TTQ b*»TTY TabLE, 

JSB SCRAT PERFORM SCRATCH FUNCTION, 

JMP SCH20 TERMINATE, 

SCRATCH A PROGRAM (B»>U3EHS TTY) 
IF MAINpB, SET PBPTR, 



"TAPE" COMMAND 



71011 
71012 
71013 
71014 
71015 
71016 
71017 
71020 
71021 
71022 



103100 
064062 
006004 
160001 
030253 
114500 
103100 
102311 
027020 
102511 



#TAP 



NOP 
LDA 
CP8 
STA 
ADB 
STA 
A D b 
LDA 



PBUFF 
MAIN 
PBPTR 
,*?PROG 

1,1 



8«>Pr0GEND 
RESET TAB u Ef.pR G) 
,*?NAME*?PROG CLfc A R 
1,1 READ-ONLY 6lT, 
ELA,CLE,ERA BIT, 
STA 1,1 
JMP SCRAT, I 



CLF 
LDB 

Inb 

LDA 
lOR 
JSB 
CLF 
SFS 

Jmp 

LlA 




TTU 

BrI 
WTp 
S14SC,I 



CH2 

*«1 

CH2 



B *> ?FLAG 

B«> ?TNUM 

A« 7TNUM 

ASK WHAT TYpE, 
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0014 
0015 
0016 
0017 
00*8 
0019 



0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 

0032* 
0033* 

0034 
0035 
0036 

0037 
0030 

0039 
0040 

0041* 

0042* 

0043* 

0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 



0052 
0053 
0054 

0055 

0056* 

0057* 

0056* 

0059* 

0060* 

0061* 



71023 
71024 
71025 
71026 
71027 
71030 
71031 
71032 

71033 
71034 

71035 
71036 
71037 
71040 
71041 
71042 

71043 
71044 
71045 
71046 



71047 
71050 
71051 
71052 

71053 
71054 

71055 
71056 



002003 
027035 
060340 
017075 

0051H 
046114 

042507 

040514 

006412 
026362 
064062 
160001 
030352 
170001 
102100 
006004 
160001 
030236 
114500 
026601 



000000 
006400 
100400 
000364 
001727 

040001 

040574 
127047 



SZA,RSS 
JMP #TAPi 
LDA ,*10 
JS0 TYPE 
OCT 51U 
ASC 3,LLEGAL 



*TAP1 



#LTEN 



OCT 
JMP 
L DB 
LDA 
IOH 
STA 
STF 
XN8 
LOA 
IOR 
JSB 
JMP 



NOP 
CLB 
DIV 



6412 
SCH1 
TTQ 

If I 

TAPEF 

1,1 



Ul 
TPO 
S14SCI 

SCH20 



.♦10 



ALF,ALF 
AOA 1 
ADA ASC00 
JMP #LTEN,I 



RELEASE LINt PRINTER 



71057 

71060 
71061 
71062 
71063 
71064 

71065 
71066 
71067 
71070 
7l07j 
71072 
71073 
71074 



000000 
002400 
070255 
060336 
017075 
011423 

0051U 
050040 
U43122 
042505 
006412 
060247 
114500 
127057 



SCLPR 



NOP 
CLA 
STA 
LDA 
JSB 

OCT 
OCT 
ASC 



OCT 
LDA 
J3B 

Jmp 



PRIST 
.•12 

TYPE 
11423 

5lU 
3,P FREE 



6412 
LPD 

S14SCI 
SCLPR, I 



TYPE #1, OK 



LF 



CRr LF 

PRINT MESSAGE & 

b »> Flag word 

SET TAPE BIT 



TELL 

2114 

TERMINATE, 



CONVERT A # FROM g. 
GET FIRST DIGIT IN 
SECOND IN B, 



TERMINATE, 



99 

A, 



TO ASCII, 



POSITION FIRST ON LEFT, 
ADD IN SECOND, 

ADD IN ASCII BITS, 
RETURN, 



REMOVE 
OUTPUT 

X«OFFf 
LF, L 



USER FROM LP 
ME 3S AGE 

X-OFF 



CR# LF 
TELL I/O 

REMOVE 



PROCESSOR TO 
USER FROM LP 



TYPE SENDS AN ENTIRE STRING TO A TELETYPE, IT IS CALLED AS FOLLOWS 

a«„#qf chars.—must end on right half of word 
jsb type 
<c h ar string> 

RETURN 
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0063 
0064 
10065 
0066 
0067 
0063 
0069 
0070 
0071 

0072 

0073 

0074 

0075 

0076 

M77* 

0078* 

#079* 

0080* 

0081* 
0082* 
0083* 
00q4* 
0085* 
0086* 
0087* 
0088* 

0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0096 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 



71075 
71076 
71077 
71100 
71101 
71102 
71103 
71104 
71105 
71106 
71107 
71110 
71111 

71112 
3COM 



000000 
073112 
163075 

067H2 
006011 
001727 
004010 
037076 
064062 
114576 
037112 
027077 
127075 

000000 

SCANS A 



TYpE Nop 

STA TYPET 

TYPEL IDA TYPE/1 
LDB TYPET 
SLB,RSS 
ALF,ALF 
SLB 

ISZ TYPE 
LD8 TTQ 
J3B QUTCH,I 
I3Z TYPET 
JMP TYPEL 
JMP TYPE, I 



SAVE COUNTER 

GET WORD CONTAINING CHA«, 

GET COUNT IN 8, 

IF COUNT IS EVEN f TAKE HIGH 

CHAR; 
IF COUNT 18 ODD, 

BUMP TYPE, 
OUTPUT CHAR To TELETYPE, 

ANY MORE? 
YES, 

NO, 



THE COMMAND 



TYPET NOP 

COMMAND INPUT BUFFER TO DETERMINE WHAT 
IS. THE CALLING SEQUENCE TO 3COM Is: 



JSB 3COM 

<RETURN IF BLANK LINE> 

<RETURn IF FIRST CHARACTER A DIGIT> 

<RETURN IF NO LEGaL cOMMaND> 

<RETURN IF COMMAND FGUNE*"'B»COMMANp aDDRE3S> 

3COM ASSUMES THAT BEFORE IT IS CALLED* SBHED ANQ 
SCHL ARE INITIALIZED A3 REQUIRED BY SCHAR, . AND 
sCHP-0 FOR NORMAL UsERs AND OCt40 FOR CON S OLE, 



71 

7l 
71 

71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 



113 
114 
115 
116 
117 
120 

121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
136 
137 
140 
141 
142 
143 
144 
145 
146 



000000 
064347 
074065 
017527 
127113 
037113 
042001 
002020 
037113 
040340 
002021 
027140 
064064 
006002 
127113 
064062 
006004 
160001 
030251 
114500 
127113 
037113 
042002 

002021 
127113 
040404 
002020 
127113 



3COM NOP 
LDB 
STB 
J3B 
JMP 
I3Z 
ADA 
SSA 
ISZ 
ADA 
SSA 
JMP 
LDB 
SZB 
JMP 
LDB 
INB 
LDA 
IOR 
JSB 
JMp 

SCOME ISZ 
ADA 

SCOMB SSA 
JMP 
ADA 
SSA 
JMP 



.-3 

SCNT 
SCHAR 
3COM, I 
3COM 
M60B 



3COM 

• •10 

,R3S 
SCOME 
SCHP 

3COM, I 
TTQ 

la 
BKS 

S14SCI 
SCqM,I 
3COM 
M41B 
,RSS 
3COM, I 
,♦328 

3COM,! 



ENTRY POINT, 

INITIALIZE CHAR, COUNT TO »3 

GET A CHARACTER, 
NOT THERE.BLANK LINE- 
BUMP 3COM TO POINT AT DIGIT RET, 
TEST FOR FIRST CHAR A DIGIT, 
AUTOMATIC FAILURE IF 
< A3C0 

IF <«A3c9r RETURN TO P+2 IF A 

digit, p*3 if not 
Console? 

YES 

NO 

TELL 2114 

TO BACKSPACE 



TE8T FOR LETTER, 
NOT ALETTER, 

NOT A LETTER, 
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0118 

0119 

0120 

0121 

0122 

0123 

0124 

012«j 

0126 

0127* 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0U1 

0142 

0143 

0144 

0145 

0146* 

0147* 

0148* 

0149* 

0150* 

0151* 

0152* 

0153* 

01 54* 

0155* 
0156* 



71 
71 
71 
71 
71 
71 
71 

71 

71 



3EARC 



71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 
71 

71 
71 



47 

50 
51 
52 
53 
54 
55 

56 
57 



60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
7A 
7b 
76 
77 



71200 
71201 



030064 
034H65 
001732 
027160 
070064 
017527 

127113 

042003 
027142 
H COMMAND 
064710 
002020 
044425 
150001 
027171 
0547i2 
127113 
006004 
027163 
037113 

074064 
017527 
027200 
050427 
002001 

027l7i 
064064 
127113 



SCOMD 



IOR 

isz 

ALF, 
JMP 
STA 
JSB 
JMP 
ADA 
JMP 
TABU * 
SCqmA LOB 
S3A 
ADB 
CPA 
JMP 
CPB 
JMP 
1NB 
JMP 
ISZ 
STB 
JSB 
JMP 
CPA 
R3S 
JMP 

LDB 
JMP 



scrip 

SCNT 
SLA, HAL 
SCOMA 
SCHP 
SCHAR 
3COM, I 
M133B 
SCOMB 

SCOMl 



test f r $ letters in. 
no*"Rqtate for next on£, 
yes—,go to search table, 

get next character 

FAIL, 



8»>TABLE 



,+C0M4»C0Ml 

1*1 

SCOMC COMMAND FOUND 

SC0M5 

SCQM,1 ILLEGAL COMMAND 



SCOMC 



SCOMD 

SCOM 

SCHP 

SCHAR 

* + 4 

.♦55B 

**4 
SCHP 
3COM, I 



RETURN 0,K, 

SAVE ADDRESS OF COMMAND, 

SCAN 

FOR CR 
OR DASH, 



THE SWAPR ROUTINE IS CALLED FROM VARIOUS POINTS IN THE SCHEDULER 
IN ORDER TO DETERMINE IF A PROGRAM IS READY TO RUN IT IS ALSO 
CALLED WHENEVER THE QUEUE IS UPDATED, 1 HE FUNCTION OF SWAPR IS TO 
DETERMINE IF t*ERE Is A PROGRAM ON T HE Qu^UE, AN & IF gU, I S T«t 
PRqGHAM AT THE HEAD F THE QUEUt REAOY To RU N , IF SAID pR U GrAM IS 
NOT READY, SWAPR jNiTjATES THE NECESSARY DRUm TRANSFERS, SWAPR x n- 
DlC AT E s WHETHER A PROGRAM C An bt RON OR NOT A3 FOLLOWS: 



READY : 
N T READY^ 



NORMAL RETURN 
TRANSFER Tq SCHl 



0158 71202 000000 SwAPR NOP 

0159 71203 060261 LDA ENDRM 

0160 71204 030214 IOR MBUSY 

0161 71205 002020 SSA 

0162 71206 026362 JMP SCHl 

0163 71207 066017 LDB 3MAIN 

0164 71210 006002 SZB 

0165 71211 027262 J M P SWApS 

0166 71212 066020 LDB FMAIN 

0167 71213 006003 SZB,RSS 

0168 71214 027237 JMP SWAP7 

0169 71215 002400 CLA 

0170 71216 064261 LDB ENDRM 

0171 71217 006002 sZB 



TEST 

OR 



FOR DRUM 
DISC «USY 



WAIT FOR TRANSFER COMPLETION 

WAS SWAPR DOING A TRANSFER? 
YESf Go CHECK SUCCESS 
NO, HAVE WE SAVED 

DRIVER FLAGS FOR THIS USER? 
YES, DONiT SAVE CURRENT ONES 
NO, 
SAVE 

DRUM 
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0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206* 

2 07 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 



71220 
71221 
71222 
71223 
71224 
71225 
71226 
71227 
71230 
71231 
71232 
71233 
71234 
71235 
71236 
71237 
71240 
71241 
71242 
71243 
71244 
71245 
71246 
71247 
71250 
71251 

71252 
71253 
71254 
71255 
71256 
71257 
71260 
7l2 6 l 

71262 
71263 

71264 

71265 

71266 

71267 

71270 

71271 

71272 

71273 

71273 

71274 

71275 
71276 
71277 
71300 
71301 
71302 
71303 
71304 



060612 
06421* 
006002 
030736 
064000 
060612 
030736 
00300? 
103100 
112020 

030001 
172020 
102100 
006400 
076020 
064273 
054272 
026362 
060604 
030313 
054302 
002003 
027273 
060277 
003004 
040435 
002020 
027273 
017577 
060277 
070301 
060355 
070277 
027203 

002400 
072017 

050261 
027237 
070261 
006020 
116022 
116021 
026362 

044331 
160001 
050350 
060401 
040337 
002021 

027374 
044336 
054257 
127202 



IDA 
LDB 
SZ6 
IOr 
LDB 
LDA 
IOR 
CMA 
CLF 
AND 
IOR 
8TA 
8TF 
CLB 
STB 
SWAr7 LOB 
CPB 
JMP 
LDA 
IOR 
CPB 
SZA, 
JMP 
LDA 
CMA, 
ADA 
S8A 
JMP 
JSB 
LDA 
STA 
LDA 
STA 
JMP 

SWAPS CLA 
STA 
CPA 

JMP 
STA 
SSB 
JSB 
JSB 
JMP 
SWAP4 EQU 

adb 

LDA 
CPA 
LDA 
ADA 
SSA 
JMP 
ADB 
CPB 
JMP 



ENQST 
MBUSY 

MBUST 
A 

ENDST 
MBUST 



FMAIN,I 
B 

FMAIN,I 


FMAlN 

MLINK+1 

MLINK 

SCH1 

LOGCT 

T35F1 

T35LN 

RSS 

SWAP4 

T35ST 

INA 

.+%SYNT' 

SHAP4 
DEQUE 
T35ST 
T35PR 
XOUTW 
T358T 
SWAPR+1 



SMAIN 
ENDRM 
3WAp7 
ENDRM 



AND 
DISC 

"NOT 
BUSY" 

flags 

IN 

THI3 

USSR'S 
FLAGS 
WORD 



say driver 
flags saved 

GET FIRST QUEUE ENTRY 
TEST FOR QUEUE EMPTY, 
EMPTY — NOTHING TO DO, 
IF CONSOLE AND THERE 
IS CURRENT OR 
IMMINENT OUTPUT TO 
ASH, 

GET THE STATUS 



.♦1+RQ3-C0M2 

CHECK TO SEE IF THIS IS 
A ROUTINE THAT CANiT BE DEQUED 
SUSPEND UNTIL ITS OONE, 



SICKZ# 

JETPA, 

SGHl 

* 

#•1 

M 

t<"2 

XSYNT+ 

,»5*Cq 

rRSS 
3WAP3 
,»?STA 
MAIN 
SWAPR, 



CLEAR "SWAPR INVOKED 

TRANSFER* FLAG 
WAS DRUM TRANSFER SUCCESSFUL? 
YES, CONTINUE 
NO, CLEAR ENDRM FOR KICKS 
WERE WE swapping A USER? 
NO, GO FOLD CON GRACJA 
YES GO GET RID OF HIM OR HER 



B »>STaTUS OF FIRST ENTRY, 

AnSTATUS 

TEST FOR SPECIAL DISCONNECT, 
1+BYE»C0M2 
M2»CqM3 test F R TYPE II qR III, 

program is of type iii. 
t test For program In Core, 

I PROGRAM PR^SeNT, 
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0227 

6)226 

0229 

0230 

0231* 

0232* 

0233* 

0234 

0235 

0236 

0237 

0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 

0247* 
0248* 
0249* 

0251 
0252 

0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
02ft5 
0266 
0267 
0268 
0269 
0270 
2 7i 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 



71305 
71306 
71307 
71310 



060257 
002002 
027325 
074257 



LDA MAIN 

SZA 

JMP SWAP1 

3TB MAIN 



FIND OUT WHAT PROGRAM IS, 
IS ANY PROGRAM PRESENT? 

YFS 

SEt'mAIN Tq NEW pRgGRAM, 



INITIATE DRUM TO CORE TRANSFER 



71311 

71312 
71313 
71314 
71315 
71316 
71317 
71320 
71321 
71322 
71323 
71324 



076017 
044355 
160001 
070056 
003000 
041221 
070072 
044351 
16000} 
065222 
114770 
026362 



SAyE TABLE OF ySER IN QyESTION 
8«>PR0GRAM END LOCATION, 
COMPUTE NUMBER OF 

WORDS IN PKOGRAM. 



STB SMAIN 
ADB ,+?PROG 
LDA 1,1 

STA P8PTR 

CMA 

ADA USE 

STA WORD STORE ^LENGTH INTO WORD, 

ADS ,*?DISC*?PRQG 

LDA 1,1 A»DISC ADDRESS 

LDB USEI B*COrE ADDrcSS 

J3B DRUM f I INITIATE DRUM TRANSFER 

JMP SCHJ RETURN BUSY, 



INITIATE CORE TO DRUM TRANSFER 



71325 
71326 
71327 
71330 
71331 
71332 
71333 
71334 
71335 
71336 
71337 
71340 
71341 
71342 
71343 
71344 
71345 
71346 

7l3 4 7 
71350 
71351 
71352 
71353 
71354 
71355 
71356 
71357 
71360 
71361 
71362 
71363 



070001 
002400 
076017 
070257 
044355 
060056 
170001 
003000 
041221 
070072 
044351 
160001 
010317 
170001 
001222 
010355 
040676 
077112 

160000 
010734 
040552 
073353 
102500 
001727 
040354 
010411 
064000 
005700 
005222 
045000 
007004 



SWAPl STA 

3WAP2 CLA 

STB 

STA 
ADB 

LDA 
STA 
CMA 
ADA 
STA 
ADB 
LOA 

and 

STA 

ral 

and 

ADA 
STB 
LDA 
AND 
ADA 
STA 
LIA 
AL? 
AqA 
AND 
LDB 

blf 

RBL 
ADB 
C M B 



1 

SMAIN 

MAIN 

.♦?PrOG 

PBPTR 

1»I 

USE 

WORD 

,+?DIsC- 

B.I 

M32 

1,1 
,RAL 
#*3 
?ATBL 
TYPET 
A, I 
877 
HA! 
*+l 


,alf 
.♦2 

,♦378 

A 

,RBL 

MULEN 
,I N B 



B«»TASLE OF USER TO BE WRITTEN, 
SET MAIN TO SAY NO UsER I N 
SAVE TABLE OF USER IN QUESTION 

CORE, 
8»>PrOG,ENO location. 



STORE .LENGTH INTO W OHD, 
? PR qG B »> DrUM ADDrEss 

get user drum address 
delete 3ector part 

get drum table address 

ADDRESS 

SAVE DRUM ADDRESS LOCATION 
A«3ELECT CODE FOR DRUM 
LEAVE THE SELECT CODE 
SET UP LIA. 
READ THE DRCM STATUS 

GET CURRENT SECTOR, 

GET POTENTIAL DEST, SECTOR, 



G ET NUMBER OF WORDS ThM WOULD 

be skipped at track beginning 
b * - number of words left 
now positive Count 
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0282 
0283 
0284 
0286 
028a 
0287 
0288 
0289 

0291* 
0292* 
0293* 

0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 

03 4 
0305 
0306 
0307 
0308 
0309 

0310 
0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328* 

0329* 

0930* 

0331 

0332 

0333 

0334 

0335 

0336 



71364 
71365 
71366 
71367 
71370 
71371 
71372 
71373 



044072 
143112 
006020 
163112 
173112 
065221 
114770 
026362 



TYPE III PROGRAMS 



71374 
71374 
71375 
71376 
71377 
71400 
71401 
71402 
71403 

71403 
71404 

71405 
71406 
71407 
71410 
7l4U 
71412 
71413 
71414 
71415 
71416 
71417 
71420 
71421 
71422 
71423 
71424 
71425 
71426 
71427 
71430 
71431 
71432 



160001 
050421 
002401 
027403 
044354 
170001 
044350 

044351 
160001 
050506 
070265 
044353 
160001 

050350 
060401 

040337 
064257 
006002 
027326 
042012 
050260 
127202 
070260 
064750 
074072 
007400 
076017 
064504 
160000 
114770 
026362 



AOB WORD 

ADA TYPETrl 

SSB 

IDA TYPET,I 

ST A TYPET,I 

LDB USE 
JSB DR(jM,I 
JMP 3CH1 



TEST TO SEE IF THEREiS ENOUGH, 

COMPUTE NEW Drum ADDrEss 

IF EnD qF TRACK N oT LOnG Enough, 

WRITE TO BEglNNlNGt 
STORE NEW DRUM A DDR IN T A bL£ 
B'CQRE ADDRESS, 
INIjIAtE CRuM TRANSFER 

AND RETURN BUSY, 



SWAP3 EQU 
IDA 
CPA 
CLA, 
JMP 
ADB 
STA 
AqB 

SWAP6 EGU 
ADB 
LDA 
CPA 
STA 
ADB 

LDA 
CPA 
LDA 
ADA 
LDB 
SZB 
JMP 
ADA 
CPA 
JMP 
STA 
LDB 
STB 

CCB 
STB 
LDB 
LDA 
JSB 
JMP 



* 

B,I GET STATUS 

t +X8YNT-,+l*0PE*C0M2 

R3S SET PRIORITY To IF OPEN 

SWAP6 

t +?PLEV»?STAT 

8,1 

,*?stat-?plev 

* 

,*?RSTR-?STAT B •> RE8TART ADDRESS 

B,I 

MllS* IF THIS A KRESH CALL, 

LCHCR ZAP THE LCHCR FLAG 

t +?STAT^?RSTR 

Brl 

t-2 

XSYNT*l*BYE»CoM2 
.•5*C0M2«C0M3 



MAIN 

SWAP2 

DC0M6 

LIB 

SWAPR,I 

LIB 

M512 

WORD 

SMAIN 
*LIBI 
0,1 

DRUM, I 
SCH1 



TEST FOR MAIN PrOGrAM IN COrE 

GO TO WRITE OUT MAIN PROGRAM, 

AO DRUM ADDRESS FQR LlB, PROgR. 

IS IT IN CORE? 

YES««»RETURN PRESENT, 

IF NOT, INITIATE READ IN, 

LENgTh Of PROGRAM « 512 

SMAIN 9 -1 3EZ 

READING LIBRARY PROGRAM 



INITIATE DRUM TRANSFER 



ENTRY POINT FOR INPUT REQUEST 



71433 
71434 
71435 
71436 
71437 
71440 



000000 
103100 
064273 
044336 
130001 
114500 



SCHIQ 



NOP 
CLF 
LDB 
ADB 
IUR 
JSB 





MLINK+1 

,*?TNUM« 

1,1 

S143CI 



INTERRUPT INHIBIT 



'?HNK 

TELL 2114 
ABOUT INPUT 



WAIT 
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13337 


71441 


103100 


CLF 







0338 


71442 


044364 


AOB 


,+?RSTR- 


■7TNUM 


0339 


71443 


063433 


IDA 


SCHIQ 




0340 


71444 


170001 


STA 


ill 




0341 


71445 


006004 


IN8 




GET PROGRAM TYPE 


0342 


71446 


160001 


LOA 


If I 




0343 


71447 


002020 


S3A 




GUXT IF ABORT HEQUEST, 


0344 


71450 


027651 


JMP 


SUSP 




0345 


71451 


044354 


AOB 


,+?pLEv« 


•7STAT 


0346 


71452 


170001 


STA 


1*1 


SET INTO PLLV, 


0347 


71453 


044350 


AOB 


.♦?STAT- 


'?PLEV 


0348 


71454 


060354 


LOA 


XINPT 


CHANGE STATUS TO 


0349 


71455 


170001 


STA 


1*1 


INPUT WAIT, 


0350 


71456 


027651 


JMP 


SUSP 


GO REMOVE FROM QUEUE, 


0351* 












0352* 


ENT RY POINT 


f-OR TERMINATION 




0353* 












0354 


71457 


103100 


SCHEQ CLF 







0355 


71460 


060262 


LDA 


HQDIS 


DiO THIS GUY TRY TO 


0356 


71461 


002003 


SZA, 


RSS 


DISCONNECT? 


0357 


71462 


027476 


JMP 


SCHQl 


NO 


0356 


71463 


002400 


CLA 




YES 


0359 


71464 


070262 


STA 


HQQlS 


RESET DISCONNECT FLAG 


0360 


71465 


064273 


LOB 


MLINK+1 




036} 


71466 


044335 


AOB 


,-?HNK 




0362 


71467 


160001 


LOA 


l'I 


SET 


0363 


71470 


030772 


IOR 


C0M14 


COMMUNICATIONS 


0364 


7U71 


170001 


STA 


1,1 


BIT 


0365 


71472 


044366 


A08 


f +?STAT 




0366 


71473 


060350 


LOA 


xoisc 


SET STATUS 


0367 


71474 


170001 


SfA 


1,1 


TO DISCONNECT 


0368 


71475 


027651 


JMP 


SUSP 




0369 


71476 


060273 


SCHQl LOA 


MLlN*<*l 


DqES THIS 


0370 


71477 


040336 


AOA 


.♦?TNUM« 


•?HNK USER h AVE 


0371 


71500 


050255 


CPA 


PRIST 


THE LINE 


0372 


715^1 


002001 


RSS 




PRINTER? 


0373 


71502 


027512 


JMP 


SCHQ3 


NO 


0374 


71503 


060256 


lD* 


lFlag 


YES ■» IS THE lPH 


0375 


71504 


002002 


SZA 




Command f lAg set? 


0376 


71505 


027510 


JMP 


SCHU2 


YES 


0377 


71506 


072043 


STA 


CLC1 


NO, BLOCK CLOCK 


0376 


71507 


017057 


JSB 


SCLPR 


REMOVE USER FROM LP 


0379 


71510 


002400 


SCHq2 CLA 




CLEAR 


0380 


71511 


070256 


STA 


LFLAG 


FLAG 


0381 


71512 


064273 


SCHQ3 LOB 


MLINK+l 


SCRATCH IP 


0382 


71513 


054302 


CPB 


T35LN 




0383 


?1514 


027520 


JMP 


♦♦4 




0384 


71515 


044335 


AOB 


.-?LINK 


THxS iS 


0385 


71516 


017700 


JSB 


HTEST 


SHELLO, 


0366 


71517 


064273 


LOB 


mLInK+i 


CHANGE 


0387 


71520 


044351 


AOB 


,*?STAT- 


»?LINK STATUS 


0388 


71521 


160001 


LOA 


1 r I 




0389 


71522 


050351 


CPA 


.-1 


QUIT IF ABORT REQUESTt 


0390 


71523 


027651 


JMP 


SUSP 




0391 


71524 


002400 


CLA 




TO IDLE 
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0392 

0393 

0394* 

0395* 

0396* 

0397* 

0399* 

0399* 

0410* 

0401* 
0402* 
0403* 

0405 
0406 
0407 
0406 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 

0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
04)38 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446* 



71525 170001 3TA 1,1 

71526 027651 JMP 3U3P 

SCHAR fetches the next character FROM 
POINTERS FOR SCHAR ARE INITIALIZED AS 

S BHED»> FIR5T CHARACTER IF TTY35? 

SChUI«> END OF T1Y35 BUFFER 

SCHAR CALLING SEQUENCE* 



A BUFFER* BUFFER 

FOLLOWS* 

•0 OtHER*I$E 



JSB SCHAR 

RETURN HERE iF CR 

RETURN HERE IF ANY 



OTHER CHARACTER 



71527 
71530 
71531 
71532 
71533 
71534 
71535 
71536 
71537 
7154KJ 
71541 
71542 
71543 
71544 
71545 
71546 
71547 
71550 
71551 
71552 

71553 
71554 

71555 

71556 

71557 

71560 
71561 
71562 
71563 
71564 
71565 
71566 
71567 
71570 
71571 
71572 
71573 
71573 
71574 
71575 
71576 



000000 
064060 
006003 
027551 
004065 
160001 
005610 
002001 
001727 
010443 
050367 
127527 
006004 
074060 
050412 
027531 
037527 
127527 
0$40 Q 2 
006004 
160001 
030222 
1145-20 
102311 
027556 
102511 
050412 
027553 
050367 
027573 
040766 
002021 
040317 
042000 
037527 
127527 

160001 
030251 
114500 
127527 



SCHAR NOP 
LOB 
SZB, 
JMP 
CLE, 
LOA 

E L B, 
RSS 

ALF, 
AND 

CPA 

JMP 

InB 

8Tb 

CPA 
JMp 

ISZ 

JMP 
SCHR1 LDB 
INB 
LDA 
IOR 
JSB 

sPs 

JMP 
LIA 
CPA 
JMP 

CPA 
JMP 

ADA 

88A, 

ADA 
ADA 
ISZ 
JMP 
SCHR2 EQU 
LDA 
IOR 
JSB 
JMP 



SBHED 

RSS 
SCHK1 
ErB 
1,1 

slb 
a l f 

B377 

.♦15B 
SCHAR,! 

SBHED 

.♦40B 

SCHAR+2 

SCHAR 

SCHAR, I 

TTQ 

1#I 
GTC 
S148C,I 

CH2 
*»1 
CH2 
,+40B 

SChRI+2 

.♦15B 
3CHR2 

M96 

RSS 

M32 

B1 4 

SChAR 

SCHAR, I 

* 

1,1 
BKS 

S143C#I 
SCHAR, I 



GET POINTER, 
TTY35? 
NO 

yEs«"«POslTlON AS WOrD POINjEr 
GET WORD CONTAINING CHARACTER, 
REPOSITION POINTER AnO TEST 
POR UPPER OR LOWER, 

MASK OUT CHARACTER, 
RETURN IMMEDIATELY IP Cr 

BUMp CHARACTER POSTER, 

SKIP BLANKS 



FETCH 

CHARACTER 

FROM 2114 
WAIT FOr rEsPONsE 



BLANK? 

YE8w*IgN0RE IT 

NO, CARRIAGE RETURN7 

YES 

check for codes 
greater than 140, 

CODE Ig LOWER CAsE, MAKE UPPEr, 
RESTORE ASCII CODES, 
NO—EXIT 
TO (P*2) 

B«>TTY # 
TELL 2114 

TO BACKSPACE 
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0447* 

044g* 

0449* 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 



deque removes a user from the uueUe. it is called with the user's 

LINK ADDRESS IN fc>. 



71577 

71600 
71601 
71602 
71603 
71604 
71605 
71606 
71607 
71610 
71611 



000000 
060272 
154000 
027607 
160000 
050272 
127577 
027601 
164001 
174000 
127577 



DEQUE 
DEQl 



DEq2 



IDA 


MLI N K 


CP0 


0,1 


JMP 


DEQ2 


IDA 


0#I 


CPA 


muInk 


JMP 


D£Qu£,I 


JMP 


DEQl 


LOB 


1,1 


STB 


0,1 


JMP 


DEQUE, I 



GET POINTER TO PIRST EnTRY, 

test for Entry found, 

link to next entry, 
test for e n d of queue, 
not on quEu£«»,*eturn, 

LOOP, 

LlN* ArqUnD this user. 
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JSB OUTCH, I 



A«CHARACTER TO BE OUTPUT 
B«TTY TABLE ADDRESS, 



0462* THE OUTCH ROUTINE OUTPUTS A CHARACTER TO A USER'S 

0463* BUFFER IN THE 2114, THE CALLING SEQUENCE IS? 

0464* 

0465* 

0466* 

0467* 

0468* OUTCH FIRST CHECKS TO MAKE SURE THAT THE 2ll4 ^AN ACCEPT 

0469* CHARACTERS, IF NOT, THE USER IS PLACED IN OUTPUT WAIT STATUS 

0470* AND A TRANSFER IS MADE INTO THE SYSTEM TO DELETE THE USER 

0471* FROM THE QUEUE 

0472* 



0474 
0475 
0476 
0477 

0478 
0479 

0480 
0481 

0482 

0463 

0484 

0485 

0486 

0487 

0488* 

0489* 

0490* 
0491 

0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 

0503 

0504 

5 05 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513* 

0514 



71612 
71613 
71614 
71615 

71616 
71617 

71620 
71621 

71622 
71623 
71624 
71625 
71626 
71627 



000000 
103100 
010443 
072014 
160001 
010412 
002002 
027630 
006004 
160001 
032014 

030220 
114500 
127612 



#OUTC NOP 

CLF 

AND 

STa 
LDA 
AND 
8ZA 
JMP 
INB 
LDA 
IOR 
IUR 
JSB 
JMP 




8377 

OUTM1 

1,1 

OUTWT 

OUTCi 

Ul 
OUTMl 

OCR 

3J4LP,I 

#QUTC,I 



MASK AND 

SAVE CHARACTER 

CAN 2114 

TAKE THIS 
CHARACTER? 
NO 
YES 
BUILD OUTPUT WORD 

WITH U36R»8 TTY *, 

CHARACTER AND OPCODE, 
CALL 2H4 DRIVER 



TAKE CARE OF FULL BUFFER IN 2114 



71630 
71631 
71632 
71633 
71634 
71635 

71636 
71637 
71640 
71641 
71642 
71643 
71644 
71645 

716*6 
71647 

71650 
71651 
71652 
71653 
71654 
71655 



044366 
160001 
002020 
027661 
044354 
170001 
0443g0 
060355 
170001 
003400 
043612 
044351 
170001 
062014 
071224 
044337 
075225 
160273 
070273 
002400 
072043 
026362 



OUTCI 



SUSP 



ADB 
LDA 

SSa 

JMP 
ADB 
STA 
ADB 
I.DA 
STA 
CCA 
ADA 
ADB 
STA 
LDA 
STA 
ADB 
8TB 

Lo* 
STA 
CLA 
STA 

JMP 



,*?3TAt 

1,1 

IF ABORTED UQ DIRECTLY 
SUSP TO SUSPEND, 
,*7PLEV-?STAT MOVE STATUS TO 
1,1 PL^V AND SET 
,*?3TAT»?PLEV STATUS TO 
XQUTW OUTWAIT, 

1,1 

SET RETURN ADDRESS TO 
#OUTC RECALL OUTC 
,*?RSTR*?3TAT 

OUTMl 

AREG 

,*?RSTR 

BREG 

MLINK+1,I 

MLINK+1 



CLCl 
SCHI 



71656 000000 SLHOQ NOP 



LOCK 

CLOCK 
JUMP TO sCHEDuLEk 

OUTPUT SUSPEND REQUEST ENTRY, 
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0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533* 

0534* 

0535* 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 



71657 
71660 
71661 
71662 
71662 
71663 
71664 
71665 
71666 
71667 
71670 
71671 
71672 
71673 

71674 
71675 

71676 
71677 

HTEST 
B PQI 

71700 
7l7al 
71702 
71703 
71704 
71705 
7j706 
71707 
71710 
717U 
71712 



103100 
063656 
002004 



SC 



073612 
064273 
044335 
160001 
030412 

170001 

006004 
160001 
030243 
114500 

103100 
064273 
044351 
027631 
SCRATCHES 

NTS TO THE 



CLF TURN OFF INTERRUPT, 

IDA SCH Q SET Up RETURN ADDRESS. 

INA 
HSO equ * 

STA #OuTC 

L08 MLINK+l 

AOB ,«?LINK 

LDA 1,1 

IOR OUTWT 

STA 1,1 

INB 

LDA 1,1 

IOR OWT 

JSB SULPfl 

CLF 

LOB MLINK+1 

ADB ,*?STAT->?LINK 

JMP OUTC1+1 
A PROGRAM IF THE ASSOCIATED HFLAG BIT IS SET 
USER'S TTY ADDRESS, 



SET OUTPUT WAIT BIT 



PUT USER 



IN OUTPUT WAIT 
NO INTERRUPTS DURING SUSPENO 
FOOL OUTCR INTO DOING THE WORK, 



000000 HTEST 

160001 

010356 

002003 

127700 

103100 

120001 

170001 

102100 
016776 
127700 



NOP 

LDA ul 
AND HFLAG 
SzA,RSS 
JMP HTEST, 1 
CLF 
XOR i,l 
STA 1,1 
STF 
JSB SCRAT 
JMP HTEST, I 



GET HFLAG B*T, 

RETURN IF HF L AG BIT «0, 

CLEAR HFLAG BIT 
RETURN, 



PAGE 0331 *3i COMMAND TABLE 



0001* 

0002* 

0003* 

0004* 

0005* 

0006* 

0007* 

0008* 

0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

0016* 

0019* 

0020* 

0021* 

0022* 

0029* 

0024 

0025 

0026 

0027 

0020* 

0029* 

0030* 

0031 

0032 

0033 

0034 

0035 
0036 

0037* 

0038* 
0039* 

0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 

0040 
0049 
0050 
0051 
0052 
0053 
0054 
0055 



COMMAND TABLE -* THIS TABLE CONSISTS Op 2 PARTS, PART 1 CONTAINS 
THE ENCODED SYMBOLIC COMMANDS, THESE ARE CODED AS 3 BYTEs, EACH 
BYTE BEING OF LENGTH 5 BITS AND OF VA|.UE 101(OCTAl) ^ESS THAN THE 
OCTAL VALUE Of THE CHARACTER, THfc THREE BYTgS AR E IN BIT POSI* 
TIONS 14.10,9-5, A ND 4«0, RESPECTIVELY, BIT 15 IS SET TO I FOR 
COMMANDS THAI ARE LEGAL FOR THE SYSTEM CONSOLE, 

PART 1 IS ITSELF DIVIDED INTO 3 SECTIONS, COMMANDS IN SECTION 1 
ARE THOSE COMMANDS WHICH ARE HANDLED IMMEDIATELY BY THE EXECUTIVE 
WITHOUT ANY DRUM ACCESS, THOSE IN SECTION 2 ARE COMPILER COMMANDS 
WHICH ARE RESIDEN T BUT WHICH REQglRE jHE PROGRAM jO BE LOADED 

fro m Drum, Commands in sEctIq* 3 are system Commands which are 
drum resident, all system commands are of thjs type and 
must be located after com4, 

PART 2 OF THE COMMAND TABLE CONTAINS THE CORE STARTING ADDRESSES 
FOR THOSE COMMANDS IN SECTIONS 1 AND 2r AND THE DRUM ADDRESSES OF 
THOSE IN SECTION 3, 

PART I 



SECTION I 



71713 
71713 
71714 
71715 



044j2i 

046017 
024230 



COMi 
SCR 



OCT 44121 
EQU COMi 
OCT 46017 
OCT 24230 



SECTION II 



71716 
71717 
71720 
71721 
71722 
71723 



043215 
026422 
037215 
056764 
\77777 
177777 



COM2 OCT 43215 
Lis OCT 26422 
PUN OCT 37215 
XPUN OCT 056764 
UCDAB OCT .1 
CTAPR OCT -i 



SECTION III 



71724 
71725 
71726 
71727 

71730 
71731 
71732 
71733 

71734 
71735 
71736 
71737 

71740 
71741 

71742 
71743 



177777 
177777 
177777 
177777 

177777 
177777 

044025 
005100 
177777 
01*223 
000757 
016213 
003404 
024413 
042215 
032014 



COM3 



COmFl 
ASGNA 
COMCH 
SAVE 

cs A v 

SAYO 



HELLO 
BYE 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



• I 

• 1 

.1 
»1 

•1 

• 1 

44025 
5100 

• 1 

14223 
757 
16213 

3404 
24413 
42215 
32014 



SCRATCH 

TAPE 
KEY 



RUN 

LIST 

PUNCH 

XPUNqH 

FOR ABORT UPDATE CHANGE DATE 

USED FOR TAPE ERROR PRINTOUT 



for length section 
for two halves 
of fuss table 
for >iles 

ASSIGN 
FOR CHAIN 
SAVE 
CSAVE 

FOR SAVE OVERLAY 
GET 

APPEnO 
HELLO 
BYE 
KILL 

RENyMBER 
NAME 
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0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 

0076 
%Q77 
0078 

0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 

009g 
0093 
0094 
0095 
0096 

0097 

0098 

0099 

0100 

0101 

0102* 

0103* 

0104* 

0105 

0106 

0107 

0108* 



71744 004023 CAT OCT 

71745 026401 qGT 

71746 015056 OCT 

71747 006421 OCT 

71750 044150 OCT 

71751 042217 OCT 

71752 045140 OCT 

71753 177777 STA OCT 

71754 006213 OCT 

71755 046414 OCT 

71756 037056 OCT 

71757 050657 OCT 

71760 034744 OpE OCT 

71761 026215 OCT 

71762 010107 OCT 

71763 030222 OCT 

71764 026761 OCT 

71765 036721 OCT 

71766 COM4 EQU 

71766 142217 OCT 

71767 106^21 OCT 
7l770 144150 OCT 
7i77i 145140 OCT 
71772 177777 

7\77* I3g72t OCT 

71774 142722 ROS OCT 

71775 100655 OCT 

71776 142222 qCT 

71777 104340 OCT 

72000 144544 OCT 

72001 116401 OCT 

72002 132226 CT 

72003 124413 OCT 

72004 150653 OCT 

72005 126702 OCT 

72006 I3l21g OCT 

72007 130556 OCT 
72010 177777 

720H 104717 OCT 

72012 102222 OCT 

72013 144015 OCT 

72014 106222 OCT 

72015 137221 OCT 

72016 130006 OCT 

72017 136356 OCT 

72020 137050 OCT 

72021 144744 OCT 

72022 103044 OCT 



004023 

26401 

15056 

6421 

44150 

4 2 2l7 

45140 

*1 

6213 
46414 
37056 
50657 
34744 
26215 
10107 

030222 
26761 

36721 



42217 
06421 
44150 
45140,, 

36721 
42722 

00655 
42222 
04340 
44544 
16401 
32226 
24413 
50653 
26702 
3121s 
30556,' 

04717 
02222 
44015 
06222 
37221 
30006 
36356 
37050 
44744 
03^44 



CATALOG 
LIBRARY 
GROUP 

directory • user console 

sdirectory - user console 

report • user console 

status • user console 

for status Overlay - user consol 

DELETE 

TIME 

PROTECT 

UNPROTECT 

OpEN 

LENGTH 

ECHO 

MESSAGE 

LPRINTER 

pORT»USER CONSOLE 

REPORT - SYSTEM CONSOLE 
DIRECTORY - SYSTEM CONSOLE 
SDIRECTORY • SYSTEM CONSOLE 
,1 STATUS * SYSTEM CONSOLE 

PORTtSYSTEM CONSOLE 

ROSTER 

ANNOUNCE 

RESET 

CHANGE 

SLEEP 

HIBERNATE 

NEWID 

kIllio 

UNLOCK 
LOCK 
MUNLOCK 
1 MLOCK 

COPY 

BESTOW 

3ANCTIFY 

DESECRATE 

PURGE 

MAGTAPE 

PHO 

PRINTER 

SPEED 
BREAK 



PART II 

72023 070773 

72024 071011 

72025 070601 



STARTING ADDRESSES 



C0M5 



DEF #3CR 
OEF #TAP 
DEF SCH20 



KEY 
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DEF CHPLE 

DEF LIST 

OEF PUNCH 

OEF xPNCH 

DEF ABUCD 

DEF TAPER 



DRUM AD0RE5SES -<■ TO BE FILLED BY THE LOADER, 



0109 


72026 


036007 


0110 


72027 


052143 


0111 


72030 


052142 


0112 


72031 


052140 


0113 


72032 


073473 


0114 


72033 


045233 


0115* 






0116* 


DRUM 


ADORES 


0117* 






0118 


72034 


000000 


0119 


72037 




0120 


72041 




0121 


72040 




0122 


72133 


000000 


0123 


72137 




0124 


72137 


000000 



FILES DRUM ADDRESS 
CHAlf> DRUM ADDRESS 



C0M6 BSS C0M5-C0M3 

FILIB EQU CoM6-CoM3+CQ M Pl. 

CHLIB EQU C0m6«.C0m3*C0MCH 

ASNIB EQU C0M6+ASGNA-C0M3 

DSERA BSS 4 DRUM ADDRESSES FOR ERROR MfcSS, 

COmTE EQU * 

LOGGR B ss 64 HOLDS INFO FOK LOGGING 
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0127* 
0128* 
0129* 

0130* 
0131 

0132 
0133 
0134 
0135 
0136 
0137 
0136 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0156 

0159 

0160 

0161* 

0162* 

0163* 

0164* 

0165* 

0166* 

0167* 

0168* 

0169* 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179* 



routine to find the aot that the 018k address 
contained in kildi should 60 into, 
lte m ps called kild and kildf are used 



72237 

72240 
72241 
72242 
72243 
72244 
72244 
72245 
72246 
72247 
72290 
72251 
72252 
72253 
72254 
72255 
72256 
72257 
72260 
72261 

72262 
72262 
72263 
72264 
72265 
72266 
72267 
72270 
72271 
72272 
72273 



000000 

0^0341 

070044 
060210 
040432 

070045 
104200 
100045 
000065 
005500 
016600 
002021 
026262 
060045 
040344 
034044 
026244 
102031 
026260 

060044 
003000 
050362 
026260 
042273 
070044 
040362 
070045 
126237 
000115 



FADT NOP 

LDA ,*9 
STA KILD 
LOA MHAD 
ADA ,+48 

FADBC EQU * 

STA KILDF 
OLD KILDFrl 



FADBN 



FADBF 



KILPC 



CLE, 

ERB 

JSB 

S3A, 

JMP 

LDA 

ADA 

I3Z 

JMP 

HLT 
JMP 
EtiU 
LDA 
CMA 
CpA 
JMP 
ADA 
STA 
ADA 
STA 
JMP 
DEF 



ERA 

FADDB 

RSS 

FADBF 

KILDF 

,*»6 

KILD 

FADBC 

31B 

*-l 

* 

KILD 

,♦8 

FADBN 

KILpC 

KILD 

,+DAOLN- 

KILDF 

FADT, I 

DADLC 



set count for number of a0t8 

a 1* disk tables 
point to last entry 

a »> disk table entry 

AB • FIRST AQORESS ON THIS DISK 
CONVERT TO BLOCKS 



skip if lower disk 

result positive, found the disk 

move to prcceeding entry 

GO TRy NExT DISK 
BETTER FIND DIsK 



GENERATE THfc NUMBER OF 

T HE DI S K ADT TO GET 

IF EIGHT, THEN ADDRESS WAS BAD 



«> Drum address word 

DADLC 

O DruM length wOrD 
RETURN 



ROUTINE RESTORES ORUM SPACE TO THE DRUM ADT, 
ROUTINE ASSUMESl 

KI L D * DRUM ADDRESS 

KILDF * DRUM a REa LENGTH 
ROUTINE USESi 

KILP 



72274 
72275 
72276 

72277 
72300 
72301 
72302 
72303 
72304 



000000 
064562 
060044 
003104 
140001 
002040 
026305 
044354 
026276 



RSFS 
KIL13 



NOP 




LDB LIBD 




LDA KILD 


FIND THE FIRST ADT 


CMA,CLE,INA 


RELEASED SPACE, 


ADA 1,1 




SEZ 




JMP KIL12 


FOUND ONE* 


AOB ,*2 




JMP KIL13 





fcMRY > 
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0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189* 

01*0 
0191 
0192 
0193 
0194 
0195* 

0196* 
0197* 
0198* 
0199* 
0200* 

0201 
0202 

0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 

0216* 

0217 

0218 

0219 

0220 

0221* 

0222* 

0223* 

0224* 

0225 

0226 
0227 

0226 

0229 



72305 
72306 
72307 
72310 
72311 
72312 
72313 
72314 
72315 

72316 
72316 
72317 
72320 
72321 



074034 
054562 
026316 
044350 
160001 
006004 
140001 
050044 
026355 



060044 
040045 
150034 
026346 



KIL12 



RSFAE 



STB 
CPB 
JMP 
ADB 
LOA 
INS 
ADA 
CPA 
JMP 

EtiU 
LOA 
ADA 
CPA 
JMp 



KILP 

LI60 

RSFAE 

.-2 

lrl 

1,1 

KILD 
KIL14 

* 

KILO 

KILDF 

KILP,! 

KIL15 



gAVE POINTER TO IT. 
FIRST ENTRY ON TRACK? 
YES, NO PREVIOUS ENTRYj 
TEST FOR PREVIOUS ENTRY ADJACENT 
TO NEW ONE, 



IT IS**GQ COMBINE AREAS, 



TEST FOR NEXT ENTRY ADJACENT TO 
NEW ONE 

IT IS— GO COMBINE ArEAs, 



THE NEW ENTRY IS ADJACENT TO NEITHER THE PRECEDING NOR THE FOLLOW* 
ING ENTRIES, WE HAVE TO CREATE ROOM FOR IT BY SLIDING DOWN THE 
ADT, 



72322 
72323 
72324 
72325 
72326 
72327 
72330 

72331 
72332 
72333 
72334 
72335 
72336 
72337 
72340 
72341 



064072 
057554 

126274 

007000 
044562 
074050 
044354 

074051 
007004 
006004 
044034 
117536 
060044 
064045 
104400 
100034 



LOB 

CPB 

JMP 

CMB 

ADB 

STB 

ADB 

STB 

CMB ( 

INB 

ADB 

JSB 

LDA 

LDB 

DST 



WORD 
M81 9 2 

RSFSf I 

LIbD 

MOVES 

.♦2 

MOVED 
INB 

KI L P 
MOVFBr I 
KILD 
KILDF 
KILp,I 



72342 060113 

72343 040350 

72344 070113 

72345 126274 



LOA ADLEN 

ADA ,«2 

STA ADLEN 

JMP RSFS,I 



IF NO ROOM TO EXPAND ADT, WE 
HAVE TO LOSE THE SPACE 

SET UP SOURC£ FOR THE MOVE, 



$&T UP DESTINATION, 
COMPUTE LENGTH, 



MOVE IT 
INSERT NEW 
ENTKy 



ADJUST ADLEN, 
DONE 



COME HERE WHEN THE NEW AREA IS ADJACENT TO THE FOLLOWING ONE, BUT 
NOT TO THE PRECEDING ONE, 



72346 104200 

72347 100034 

72350 044045 

72351 060044 

72352 104400 

72353 100034 

72354 126274 



KIL15 DLD KILP, I 

ADB KILDF 
LDA KILD 
DST KILP, I 

JMP RSFS,i 



GET POLLOWING ENTRY, 

COMBINE LENGTHS 

USE NEW DISC ADDRESS, 

REPLACE, 

DONE 
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0231* 
0232* 
0233* 

0234 

0235 

0236 

0237 

0230 

0239 

0240 

0241* 

0242 

0243* 

0244* 

0245* 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257* 

0256 
0259 
0260 



COME HERE WHEN THE NEW AREA IS ADJACENT TO THE PRECEDING AREA. 



72355 
72356 
72357 
72360 
72361 
72362 
72363 



160001 
040045 
170001 
060044 
040045 
150034 
026365 



K1L14 



IDA 
ADA 
STA 
L OA 
ADA 
CPA 
JMP 



1*1 
KIUDF 

1,1 

KIUDF 

KlLPfl 
KlLl7 



ADD LENGTH OF OLD AREA TO 
LENGTH OF NE* ONE 

NOW TEST TO SEE IF TEH COMBINED 
AREA IS ADJACENT TO THE N EXT 

IT IS— GO COMBINE THEM, 



72364 126274 



JMP RSFS,1 



NEW AREA WAS ADJACENT TO 2 OTHERS, COMBINE THEM ALL, 



72365 
72366 
72367 
72370 
72371 

7 2 372 
72373 
72374 
72375 
72376 
72377 



034034 
160001 
140034 
170001 
006004 

074051 
044354 
074050 
044674 
044072 
117537 



72400 034113 

72401 034U3 

72402 126274 



KIL17 ISZ KILP 

LDA 1,1 

ADA KILP, I 

STA 1,1 
INB 

STB MOVED 

ADB ,+2 

STB MOVES 

ADB MLIBD 

ADB WORD 

JS8 MQVFW,I 

ISz ADLEN 

ISZ ADLEN 

JMP RSFS,I 



COMBINE 
THE 
LENGTHS, 

CoLLApsE ADT, 

SET UP MOVE DESTINATION, 

SET UP SOURCE 
COMPUTE * OF WORDS 
TO MOVE, 



REDgCE SIZE OF ADT By 

TWO, 
RETURN 
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0262* 












0263* 


ROUTINE TO ADO 


A BLOCK OF SPACE BACK INTO THE DISK ADT 


0264* 


which is ; 


IN CORE. 




0265* 


ROUTINE ASSUMES 


1 




0266* 




KILDI 


* TWO WORD DISK ADDRESS 


0267* 




KILN 


» DISK LENGTH 




0268* 




KILO 


«> DRUM ADDRESS OF 


ADT 


0269* 




Kit CF 


«> DRUM LENGTH QF 


ADT 


0270* 


ROUTINE USESl 






0271* 




KILC 








0272* 




KILP 








0273* 




KILPn 








0274* 


ROUTINE RETURNS 


WITH LENGTH AND WQRp BOTH UPDATED* 


0275* 


BUT THE TRACK IS NOT WRITTEN 


OUT, 


0276* 


S^IP RETURN Is 


NORMAL. NU SKIP IF THE TRACK WAS 


0277* 


NOT MQDjF; 


[ED ( 


TRACk TOO LONG 


TO ADD ) 


027a* 












0279 


72403 


000000 


RAOT 


NOP 




0280 


72404 


060043 




LDA KILN 


GET LENGTH 


02&1 


72405 


002003 




SZA,RSS 


CHECK LENGTH 


0282 


72406 


126403 




JMP RADT,I 


DON'T WASTE TIME ON ZERO LENGTH 


0283 


72407 


060072 




LDA WORD 


GET THE ADT LENGTH 


0284 


72410 


003004 




CMA,INA 


MAKE POSITIVE 


0285 


72411 


040562 




ADA LIBD 




0286 


72412 


070042 




STA KILC 


*> EnD OF ADT 


0287 


72413 


064562 




LDB LIBD 


•> BEGINNING OF ADT 


0288 


72414 




KILCD 


EQU * 




0289 


72414 


074034 




STB KILP 


B »> CURRENT ENTRY 


0290 


72415 


054042 




CPB KILC 


CHECK FOR END OF TABLE 


0291 


72416 


026520 




JMP KILCg 


INSERT ENTRY AT END 


0292 


72417 
72420 


104200 
100034 




OLD KILP, I 


get disk address for this entry 


0293 


72421 


016600 




JSB FADDB 


SUBTRACT FROM ADDRESS BEING RET 


0294 


72422 


002020 




S3A 


SKIP IF NOT FA R ENOUGH 


0295 


72423 


026427 




JMP KILCF 


FOUND NEXT ENTRY GrEATEr 


0296 


72424 


064034 




LDB KILP 


GET ADt POINTER AND 


0297 


72425 


044355 




ADB .*3 


ADVA N CE TO THE N EXT EnTRY 


0298 


72426 


026414 




JMP kilcd 




0299* 












0300 


72427 




KILCF 


egu * 




0301* 












0302* 


CHECK TO i 


9EE IF 


THE NEW ENTRY 




0303* 


IS ADJACENT TO 


THE FOLLOWING 


ENTRY 


0304* 












0305 


72427 
72430 


104200 
000046 




OLD KILDI 


GET CURRENT DISK ADDRESS 


0306 


72431 


000040 




CLE 




0307 


72432 


044043 




ADB KILN 


ADD TO B THE LENGTH 


0308 


72433 


002040 




SEZ 


CHECK FOR OVERFLOW 


0309 


72434 


002004 




INA 




0310 


72435 


150034 




CPA KILP, I 


CHECK FOR MATCH 


0311 


72 4 3g 


002405 




CLA,INA,RSS 


FIRST WORDS ARE EQUAL 


0312 


72437 


026520 




JMP KILCG 


NO MATCH 


0313 


72440 


040034 




ADA KILP 


A »> SECOND WORD OF ENTRY 


0314 


72441 


154000 




CPB A, I 


CHECK FOR MATCH 
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0315 

0316 

0317* 

0318* 

0319* 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327* 

0328* 

0329* 

0330* 

0331* 

0332 

0333 

0334 

0335 

0336 
0337 
0338 

0339 
0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

^349 

0350* 

0351* 

0352* 

0353 
0354 

0355 
0356 
0357 
k)358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 



72442 002001 

72443 026520 



R38 YES, WE CAN COMBINE THE TWO ENTH 

jMP KlLCG CAN'T BE CQmBInED WITH NEXT EnTR 



COMBINE THIS ENTRY WITH THE NEXT ENTRY 



72444 
72445 
72 44 6 
72447 
72450 
72451 
72452 
72453 
72454 



104200 
000046 
1044^0 
100034 
064034 
044354 
060043 
140001 
170001 



DUD KILDI 

DST KILP, I 

LDB KILP 
AD8 ,*2 
LDA KILN 
ADA B,I 
STA B,I 



GET THIS DISK ADDRESS 
REPLACE THE NEXT ENTRY 



B »> LENGTH Of ENTRY 

A • LENGTH 

INCREASE THE LENGTH TO INCLUDE 

BOTH OLD AND NEW DISK AREA3 



CHECK TO SEE IF PREVIOUS ENTRY IS ADJACENT 
I.E. DID THE NEW ENTRY BRIDGE THE GAP 
BETWEEN TWO OTHERS? 



72455 
72456 
72457 
72460 
72461 
72462 
72463 
72464 
72465 
72466 
72467 
72470 
72471 
72472 
72473 
72474 

72475 
72476 
72477 



060034 
050562 
026576 
040351 

070035 
040350 
104200 
100000 
000040 
144035 

002040 
002004 
150034 
002405 
026576 
040034 

154000 
002005 
026576 



LDA KILP 
CPA LIBO 
JMP KILCP 
ADA .-1 
STA KILPD 
ADA f «2 
DLD A, I 

CLE 

ADB KILPD, I 

SEZ 

INA 

CPA KILP, I 

CLA,INA,RSS 

JMP KILCP 

ADA KILP 

CPB A, I 

INA,RSS 

JMP KILCP 



NOW COMBINE ENTRIES 



72500 
72501 
72502 
72503 
72504 

72505 
72506 
72507 
72510 
72511 
72512 
72513 
72514 
72515 



164000 
040347 
144000 
174000 
064034 
074051 
044355 
074050 
044674 
044072 
117537 
160045 
040355 
170045 



LDB A, I 
ADA v .3 
ADB A, I 
STB A, I 

LOB kIlp 
STB MOVED 
ADB ,+3 
STB MOVES 
ADB MLIBD 
AOB WQRP 
JSB MOVFW,X 
LDA KILDF,I 
ADA ,+3 
STA KlLUF,j 



A »> THIS ENTRY 
CHECK FOR NO PREVIOUS ENTRY 
NO PREVIOUS ENTRY, Wfc'RE DONE 
A «> LENGTH OF PREVIOUS ENTRY 

A •> PREVIOUS ENTRY DISK ADDRESS 



ADD PREVIOUS LENGTH TO 
PREVIOUS ADDRESS 

FIR8T WORO MATCH 

ENTRIES ARE NOT ADJACENT, ADD DO 
A •» SECOND DISK ADDRESS WORD 
CHECK SECOND WORD FOR MATCH 
•> LENGTH OF FOLLOWING ENTRY 
ADD IS OONE CUZ NO MATCH 



B » LENGTH OF SECOND ENTRY 

*> LENGTH OF PREVIOUS 

SUM OF LENGTHS 

UPDATE lEnGTH,3 

NOW SET UP FOR MOVE 

CURRENT ENTRY IS TO BE REMOVED 



FIND LENGTH OF MOVE 

MOVE TABLE DOWN 
A V TABLE LENGTH 
8HQRT£ N ADT 
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0367 

0368 

0369* 

03^0* 

0371* 

0372 

0373 

0374 

0375 

0376 

0377 

037ti 

0379 

0380 
03 8 1 
0382 
0383 
0384 
0385 
03 8 6 
0387 
0388 
0369 
0390 

0391 

0392 

0393 

0394* 

0395* 

0396* 

0397* 

0398* 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

04I3 

0414 
0415 
0416 
0417 

0<l8 



72516 070072 

72517 026576 



STA WORD 
JMP KILCP 



OQNE WITH UPDATE, WRJTE OUT 
SEE IF THE ENTRY WILL COMBINE WITH THE PREVIOUS ENTRY 



72520 
72520 
72521 
72522 
72523 
72524 
72525 
72526 
72527 
72530 
72531 
72 53 2 
72533 
72534 
72535 
72536 
72537 
72 5 40 
72541 
72542 
72 5 43 

72544 
72545 



KILCG 



060034 
050562 
026546 
040351 
070042 
040350 
104200 
100000 
000040 
144042 
002040 
002004 
050045 
002001 
026546 
054047 
002001 
02g545 
050043 
140042 
170042 
025576 



EQU 
LDA 
CPA 
JMP 
ADA 
STA 
ADA 

DLD 



* 

KILP 
LIBD 
KILCN 

.-1 

KILL 

2 



A, I 



CLE 
ADB K 
8EZ 
INA 
CPA K 
RSS 
JMP K 

CPB k 

RSS 

JMP 

LDA 

ADA 

STA 

JMP 



ILca 



ILDI 

ILCN 

111)1*1 

ILCN 

ILN 

ILCrl 

ILCI 

ILCP 



A »> CURRENT ENTRY 

CHECK FOR BEGINNING OF TABLE 

NO PRECEEDIlvG ENTRy TO COMBINE H 

A ■> LENGTH OH PRECEEDING ENjRy 

SAVE POINTER 

A ■> PREVIOUS DISK ADDRESS 



ADD PREVIOUS LENGTH TO 
PREVIOUS OISK ADDRESS 

DOES FIRST WORD MATCH 

DOESN'T COMBINE 

00 SECOND WORDS MATCH 

YES, ENTRIES CAN COMBINE 

DOESN'T COMBINE ANYWHERE 

GET LENGTH 

UPDATE ENTRY 



ADD IS ALL DONE 



ENTRY IS NOT ADJACENT TO , OR BRIDGING BETWEEN 
TWO ENTRIES THAT ARE IN THE TABLE, , , MUV£. 
TABLE IF POSSIBLE A N D I N SERT 



72546 KILCN EQU * 

72546 064072 LDB WORD 

72547 057552 CPB M8190 

72550 126403 JMP rAD T ,I 

72551 007000 CMB 

72552 044562 ADB LIBO 

72553 074050 STB MOVES 

72554 044355 ADB t +3 

72555 074051 STB MOVED 

72556 007004 CMB,INB 

72557 044354 ADB ,*2 

72560 044034 AqB KILP 

72561 117536 JSB MOVFB,I 

72562 104200 DLD KILDI 

72563 000046 

72564 104400 D3T KILP, I 

72565 100034 

72566 064034 LDB KILP 

72567 044354 ADB ,*2 

72570 060043 LDA KILN 

72571 170001 STA B,I 

72572 160045 LDA KILDF,I 



IF THERE IS NO ROOM TO 
EXPAND THE ADT, 

WE HAvE TO LOOsE tHE s p ACE 



SET UP FOR THE MOVE 



MOVE TABLE UP TO MAKE ROOM 
GET DIsK ADDRESS 

SET INTO TABLE 



B ■> NEW ENTRIES LENGTH 
A * LENGTH 

SET NEW ENTRIES LENGTH 
GET TABLE LENGTH 



PAftE 


0340 #31 UB 


RARy SUBRGl 


JUNES 


0419 


72573 


040347 


AqA 


• •3 


0420 


72574 


170045 


STA 


KILOF>I 


0421 


72575 


070072 


STA 


WORD 


0422 


72576 




KItCP EUU 


* 


0423 


72576 


036403 


ISZ 


RADT 


0424 


72577 


126403 


JMP 


RADT#I 


0425* 










0426 


72600 


000000 


FADDB NOP 




0427 


72601 


007104 


CMBi 


CUrlNB 


0428 


72602 


003040 


CMA, 


SEZ 


U429 


72603 


002004 


INA 




0430 


72604 


000040 


CUE 




0431 


72605 


044047 


ADB 


KlLOI+1 


0432 


72606 


002040 


3EZ 




0433 


72607 


002004 


INA 




0434 


72610 


040046 


ADA 


KILDI 


0435 


72611 


126600 


JMP 


FADDB,I 



INCREASE UV THREE *QHg3 



SKIP RETURN IS NORMAL 
RETURN 



ADD LqWEr WgR r 'S 



ADD UPPER KQRQS 
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0437* 

043$* 

0439* 

0440* 

0441* 

0442* 

0443* 

0444* 

0445* 

0446* 

0447* 

0448* 

0449* 

0450* 

0451* 

0452* 

0453* 

0454 

0455 

0456 

0457 

0456 

0459 

0460 

04al 

0462 

0463 

0464 

0465 

0466 

0467 

0466 
0469 
0470 
0471 

047 2 

0473 
0474 
0475 

0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 



THIS ROUTINE SCANS A TABLE AND PUTS OISK SPACE BACK 
INTO THE OISK ADTS, 

THE FORMAT OF THE TABLE IS< 
LIBUS*8192/ (ID) 

/ LENGTH 

/ TWO WORD OISK ADDRESS 



LOCTC CONTAINS THE NEGATIVE NUMBER OF ENTRIES 

THE ROUTINE RETURNS ALL SPACE ON ONE ADT BEFORE WRITING 
IT BACK, THE DISK ADDRESS OF EACH ENTRY IS ZEROED AS THE 
SPACE IS RETURNED, 



72612 
72613 
72613 
72614 
72615 
72616 
72617 
72$20 
72621 
72621 
72622 
72623 
72624 
72625 
72626 
72627 
72630 
72631 
72632 

72633 
72634 

72635 
72636 
72637 
72640 
72641 
72642 
72643 
72644 
72645 
72646 
72647 
72650 
72651 
72652 
72653 
72654 
72655 



000000 

060030 
073562 

002003 
126612 
065002 
006004 

160001 
070043 
006004 
077563 
104200 
173563 
002003 
006002 
002001 
026721 
104400 
000046 
002400 
006400 
104400 
173563 
016237 
160045 
070072 
060044 
073564 
160044 
002003 
026721 
064566 
117534 
026716 
016403 
000000 



TBDAD NOP 

TBDBB EQU * 

LDA LOCTC 

STA TBDTl 
SzA,RSS 

JMP TBDAD/I 

LDB L81 9 2 
INB 

TBDBA EQU • 

LDA B,I 

STA KILN 

INB 

STB TBDT2 

OLD TBDT2#I 

SZA,RSS 

SZB 

RSS 

JMP TBDBU 

DST KILDI 

CLA 
CLB 
DST TBDT2/I 



J$B 
LDA 
STA 
LDA 

ST A 
LDA 
SZAr 

JMP 
LDB 
JSB 
JMP 
JSB 
NOP 



FADj 

KILDF,! 

WORD 

KILO 

TBDT3 

KILDrl 

RSS 

TBDBU 

LIBDI 

DRUMP, I 

TBDBY 

RADT 



get the entry count 
and save in a temp 
check for n(jll table 
return if so 
loao table base 
»> disk length of first entry 

GET THE LEHGTH 

AND SAVE FOR THE RAOT ROUTINE 
«> DI3K ADDrEss 
SAVE THE POINTER 
GET THE DISK ADDRESS 

SKIP IF FIRST HALF NON-ZERO 

SKIP IF ENTRY ALL ZERO 

NONZERO ENTRY, IT MUST BE RETUK 

THIS ONE IS NULL 

SAVE THE DISK ADDRESS FOR RADT 



PREVENT SECOND RETURN OF SPACE 

FIND THE CORRECT AD7 TRACK 
6fcT THE ADTS LENGTH 

6ET THE POINTER TO THE DRUM ADDK 

AND SAVE 
GET THE DRUM ADDRESS 
SKIP IF TRACK EXISTS 
NO ADT, FORGET ENTRY 

READ IN THE TRACK 

PUT THE SPACE BACK 
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0489 


72656 




TBOBC EQU 


* 


0490 


72656 


037562 


ISZ 


TBOT1 


0491 


72657 


026665 


JMP 


TBOBE 


0492 


72660 


163564 


LOA 


TBDT3,I 


0493 


72661 


064562 


LOB 


LIBO 


0494 


72662 


117534 


JSB 


ORUmP'1 


0495 


72663 


026716 


JMP 


TBDBY 


0496 


72664 


026613 


JMP 


TBDBB 


0497 


72665 




TBOBE EQU 


* 


0496 


72665 


067563 


LOB 


TB0T2 


0499 


72666 


044355 


AOB 


,♦3 


0500 


72667 


160001 


LOA 


BfX 


0501 


72670 


070043 


STA 


kiln 


0502 


72671 


006004 


INB 




0503 


72672 


077563 


STB 


TBDT2 


0504 


72673 
72674 


104200 
173563 


old 


TBQT2rI 


0505 


72675 


002003 


SZA, 


,R3S 


0506 


72676 


006002 


SZB 




05&7 


72677 


002001 


RSS 




0508 


72700 


026656 


JMP 


TBOBC 


0509 


72701 
72702 


104400 
000046 


OST 


KILOI 


0510 


72703 


016237 


JSB 


FAOT 


0511 


72704 


060044 


LOA 


KILD 


0512 


72705 


053564 


CPA 


TB0T3 


0513 


72706 


002401 


CIA, 


RSS 


0514 


72707 


026656 


JMP 


TBOBC 


0515 


72710 


006400 


CUB 




0516 


72711 
72712 


104400 
173563 


OST 


T80T2,I 


0517 


72713 


016403 


JSB 


RAOT 


0518 


72714 


000000 


NOP 




0519 


72715 


026656 


JMP 


TBOBC 


0520* 










0521 


72716 




TBOBY EQU 


* 


0522 


72716 


002400 


CLA 




0523 


72717 


170044 


STA 


KILO, I 


0524 


72720 


170045 


STA 


KILDF,I 


0525* 










0526 


72721 




TBDBU EQU 


* 


0527 


72721 


037562 


ISZ 


T BO T l 


0528 


72722 


002001 


RSS 




052 9 


72723 


126612 


JMP 


TBDAOrl 


0530 


72724 


067563 


LOB 


TB0T2 


0531 


72725 


044355 


AOB 


.♦3 


0532 


72726 


K26621 


JMP 


TBDBA 


0001* 











CHECK COUNTER 

MORE ENTRIES 

GET THE DRUM AODRESS 

WRITE THE DISK ACT BACK 

SCAN TABLE UNTIL EMPTY 



■> next oisk length 
get length 

and save for raot 
■> disk aodhess 
save updated pointer 
get the disk address 

check it for zero 

real adoress, return spact 

go try next entry 

saye disk aodress for radt 

find which track this space belo 
get pointer to orum address 
compare with Saved version 
okay, same track 
not on this adt * - oefer 

prevent double returns 

put the space sack 

try for another entry 



SET ADDRESS AND LEN6TH 
TO NULL 



CHECK T HE COgNjER 
ENTRIES STILL EXIST 
ALL ENTRIES AR= ZERO 
GET IHE TABLE POINTER 
«> NEXT DlsK LENGTH 
BACK TO TRY THIS ONE 
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0003* 

0004* 
0005* 

0006* 
0007* 

0008 

0009 
0010 

0011 
0012 
0013 
0014 
0015 
0016 
0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0026 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

004a 

0049 

0050 

0051 

0052 

0053* 

0054 

0055 

0056 

0057 



THE TBIDT ROUTINE Is USED TO UPDATE THE COrE TABLE 
BUILT BY ROUTINES SUCH AS kILLID, PURGE, MLOCk, ETC, 
IT UPDATES EACH IpT TRACK AN REWRITES IT TO ThE DRUM, 



72727 
72730 
72731 
72732 
72733 
72734 
72735 
72736 
72737 
72740 
72740 
72741 
72742 
72743 
72744 
72745 
72746 
72747 
72750 
72751 
72752 
72753 
72754 
72754 
72755 
72755 
72756 
72757 
72760 
72761 
72762 
72763 
72764 
72765 
72766 
72767 
72770 
72771 
72772 
72773 
72774 
72775 
72776 
7Z777 
73000 



000000 
060030 
002003 
126727 
001020 
003004 
041002 
040346 
073562 

163562 
070052 
117535 
160076 
070072 
160075 
064566 
117534 
117546 
164076 
007004 
044562 

163562 

054562 
027006 
044342 
150001 
002001 
026755 
037562 
044361 
163562 
003004 
140001 
170001 
006004 
063562 
040345 
0735 6 2 
040356 
051002 
002001 
026754 



TBIDT 



LQCFB 



LOCH 
LOCFG 



NOP 

LDA 

SZA, 

JMP 

AL8, 

CMA, 

ADA 

ADA 
STA 

EQU 
LDA 
STA 
JSB 
LDA 
STA 
UOA 
LOB 
JSB 
JSB 
L UB 

Cmb, 

AOB 
EQU 
LDA 

EuU 

CpB 

JMP 

ADB 

CPA 

RSS 

JMP 

IS* 

ADB 

LDA 

CMA, 

ADA 

STA 

INB 
LDA 
ADA 
STA 
ADA 
CPA 
RSS 
JMP 



LOCTC 

RSS 

TBIDT, I 

ALS 

INA 

1.8192 

t «*4 

TBDT1 

* 

TBDT1,I 

ID 

GULP,! 

IDLNP,I 

WURD 

IDLCP,I 

LIBDI 
DRuMP,! 
DEADA,I 
IDLNP/I 

Inb 

LIBO 

* 

TBDTl,I 

* 

LIBD 

LOCFR 

.-8 

1,1 

LOCFG 
TBDTl 
.♦7 

TBDTj,I 
INA 

B,I 
B,I 

TBDTl 

.-5 

TBDTl 

.♦4 

L8192 

LOCF1 



GET COUNT OF ENTRIES 

SKIP IF WORK fO DO 

NO TABLE, EXIT 

MAKE INTO NEGATIVE WORD COUNT 

ADD TABLE BASE 
*> LAST ENTRY 
SAVE POINTER 

GET THE NEXT ID FROM THE TABLE 

FIND WHAT TRACK IT'S ON 
READ IN IDT 



73001 160075 

73002 064562 

73003 117534 

73004 117546 



LDA IDLCP,I 
LDB LIBD 
JSB DRUMP,I 
JSB DEADA,I 



StT 6 TO POINT TU E N U qF IDT TRA 

get id of first entry 
search fqr u in idt, 

FOUND, 

»> LENGTH OF THIS PATCH 

POINT TO SECTORS USED. 
SUBTRACT 
THE 
LENGTH 
OFF 
SET b TO NEXT HIGHER ENTRY 

*> previous Entry 

set pointer to patch table 

BACK TO BfcGINNING? 
LOOP, 

WRITE BACK ID T , 
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0060 
0059* 

0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 



73005 126727 



JMP mt)T,i KfTURN 



0073 
0074 



73006 
73006 
7im7 
73010 
73011 
73012 
73013 
73013 
73014 
73015 
73016 
73017 
73020 
73021 
73022 
73023 
73024 
73025 
73026 
73027 
73030 
73031 
73032 
73033 
73034 
73035 
73036 
73037 
73040 
73041 
73042 
73043 
73044 
73045 
73046 
73047 
73050 
73051 
73052 



160075 
064562 
117534 
117546 
026740 

060403 
067016 
127555 
073017 
005114 
047603 
045505 
042040 
041114 
047503 
045523 
020124 
040502 
046105 
020106 
052514 
046040 
005104 
044523 
041457 
042122 
052515 
020105 
05U22 
047522 
035440 
041501 
047047 
052040 
042117 

02011* 
052040 



REWRITE THE CURRENT TRACK 



AND READ THE NEXT 



tOCFR EOU * 

IDA IDLCP,I 

LOB LIBD 

JSB DRUMP,J 

JSB DEADA,I 

JMP LQCFB 
MLKFL EQU * 

IDA ,425 

LDB *+2 

JMP LEN2A,I 

DEF *♦! 

OCT 5114 

ASC 12,oCKED BLOCKS TABLE FULL 



DOERL OCT 5104 LF D 

ASC 14, ISC/DRUM ERROR; CAN'T DO 



IT 
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0076* 

M77* 

0078* 

0079* 

0080* 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 
0095 

0096 
0097 

0098 
0099 
0100 
0101 
0102 
0103 
0104 

0105 
0106 
0107 

0106 
0109 

0110 
0111 

0112 
0113 

0114 
0115 

0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 



HDBUK SETS UP THE HEADING FOR DIRECTORY, 3DIK£CT0RY, STATUS AND 
REPORT ON THE SYSTEM CONSOLE, THE HEADING CONSISTS OF THE SYSTEM 
ID, DATE AhD TIME, 



73053 
73054 
73055 
73056 
73057 
73060 
73061 
73062 
73063 
73064 
73065 
73066 
73067 

73070 
73071 
73072 
73073 

73074 
73075 
73076 
73077 
73100 
73101 
73102 
73103 
73104 
73105 
73106 
73107 
73110 
73111 
73112 
73II3 

73lU 
73115 

73116 
73117 

73120 
73121 
73122 
73123 
73124 
73128 
73126 
73127 
73130 
73131 
73132 
73133 
73134 



000000 
060305 
070041 
063557 
170041 
063560 
034041 
170041 
060305 
040354 
070051 
063551 
070050 

064345 
117537 

063560 
064041 

044360 
170001 
044354 
074041 
060201 
006400 
100400 
000402 
074042 
006400 
100400 
000364 
005727 
047561 
174041 
017U6 
007400 
044041 

170001 
044354 

074041 
060200 
017146 
170041 
063560 
034041 
170041 
060042 
017146 
034041 
170041 
060202 
040704 



HD8UF NOP 
IDA 
STA 
LDA 
STA 
LDA 
ISZ 
STA 
LDA 
ADA 
STA 
LDA 
STA 
LD8 
J38 
LDA 

LDB 
AD8 

STA 

ADB 

STB 
LDA 

CLB 

DIV 



T3581 

LTEMP+9 

LF3PA 

LTEMP*9,I 

SPSP 

LTEMP+9 

LTEMP+9,1 

T35B1 

.♦2 

MOVED 

D3YID 

MOVES 

t-5 

MOyF*,I 

SPSP 
LT£MP*9 

.♦6 

M 
.♦2 

LjEMP+9 

DAjIM 
, + 24 



3TB LTEMP+10 

CUB 

DIV ,* l0 

BLF,BLF 

ADB ZERSL 

ST& LTEMP+9,! 

JSB TDNUM 

CCb 

ADB LTEMP+9 

STA B,I 

ADB ,+2 

STB LtEMP*9 

LDA YEAR 

JSB TDNUM 
STA lTEMP*9,i 
LDA SPSP 
ISZ LTEMP+9 
STA LTEMP+9,1 
LDA LTEMP+10 
JSB TdNUM 
ISZ LTEMp+9 
STA LTEMP+9, I 
LDA DATIM*! 
ADA D36K 



INITIALIZE TJY 

BUFFER POINTER 
LF-SPACE 

TWO SPACES 



MOVE 

SYSTEM 

ID TO 

Buffer 
two spaces 



GET HOUR OF YEAR 
CONVERT 
TO DAY 

save h 0ur remainder 
get last 

OIGIT 



MERGE IN StASH 

FIRST TWO DIBITS OF DAY 



YEAR OF CENTuRY 



TWO SPACES 



HOUR OF DAY 



CONVERT 
100 MS 
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0129 

013(9 

0131 
0132 
0133 
0134 

0135 
0136 

0137* 

0136* 
0139* 

0140 
0141 
0142 

0143 

0144 

014g 

0146 

0147* 

0148* 

0149* 

0150* 

0151* 

0152 

0153 

0154 

0155 
0156 

0157 
0158 

0159 
0160 
0161 
0162 
0163 
45164 
0165 
0166 
0167 
0168 
0169 
0170 

0l7l 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 



73135 
73136 
73137 
73140 
73141 
73142 
73143 
73144 
73145 



006400 
100400 
000456 
017146 
034041 
170041 
060406 
064305 
127053 



CLB 
DIV 

JSB 
ISZ 
STA 
LOA 
LOB 
JMP 



0600 

TONUM 

LT6MP+9 

LTEMP+9,1 

,♦28 

T35BI 

HDBUF,! 



UNITS TO 
MINUTES 

OF HCUR 



28 CHArs I" HEADING 



CONVERT A NUMBER <100 TO ASCII 



73146 
73147 
73150 
73151 
73152 
73153 
73154 
73155 



000000 
006400 
100400 
000364 
001727 
040001 
040574 
127146 



TONUM 



NOP 
CLB 
OIV 



.♦10 



ALF,ALF 
ADA B 
AOA ASC00 

JMP TONUM, I 



FIRST DIGIT 
SECONO OIGIT 
ASCII OFFSET 



UHOBP PRINTS ThE HEaOING FOR DIRECTORY* 8DIRECT0RY, STATUS AND 
REPORT ON THE USER TERMINAL, THE HEADING CONSISTS OF THE SYSTEM 
ID, DATE AND TIME, 



73156 
73157 
73160 

73161 
73162 

73163 
73164 

73165 
73166 
73167 
73170 
73171 
73172 
73173 
73173 
73174 
73175 
73176 
73177 
73200 
73201 
73202 
73203 
73204 
73205 
73206 
73207 
73210 
73211 
73212 



000000 
060364 
117556 

06^412 
117556 

060412 
117556 

060412 
117556 

063551 
070040 
060345 
070041 

160040 
001727 
010443 
117556 
160040 
010443 
117556 
034040 
034041 
027173 
060412 
117556 
060412 
117556 
060201 
006400 



UHOBF 



UHOBl 



NOP 




LOA ,*12B 


LF 


JSB LOUTAfI 




LOA .+40B 


BLANK 


JSB LOUTArl 




LDA ,+40B 


BLANK 


JSB LOUTAfI 




LDA ,+40B 


BLANK 


JSB LOUTArl 




LDA DSYlO 




S T A LtEMP+8 


■> 8yS T EM ID 


L 0A ,.5 




S T A LtEMP*9 


5 WORDS 


EflU * 




LDA LTEMP*8,I 


OUTPUT 


ALF,ALF 




AND B377 




JSB LOUTA,I 


SYSTEM 


LDA LTEMP«.8,I 




AND B377 




JSB LOUTA,I 


ID 


132 LTEM P *8 




ISZ LTEMP+9 




JMP UHDB1 




LDA ,+40B 


BLANK 


JSB LOgjA,! 




L 0A ,+40B 


blank 


JgB LOuTA,I 




LDA DATIM 


GET HOUR OF 


CLB 





YEAR 
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0182 

0183 
0184 
0188 

0186 
0187 
0186 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 

0205 

0206 

0207 

0206 

0209 

0210 

0211 

0212 

0213* 

0214* 

0215* 

0216 

0217 

0218 

0219 
0220 
0221 
0222 
0223 
0224 
0225 



73213 

73214 
73215 
73216 
73217 

73220 
73221 
73222 
73223 
73224 
73225 
73226 
73227 
73230 
73231 
73232 
73233 
73234 
73235 
73236 
73237 
73240 
73241 
73242 

73243 
73244 
73245 
73246 
73247 
73250 
73251 
73252 
73253 
73254 



100400 
000402 
074041 
006400 
100400 
000364 
074040 
017255 
060040 
040432 
117556 
060431 
117556 
060200 
017255 
060412 
117556 
060412 
117556 
060041 
017255 
060202 
040704 
006400 
100400 
000456 
017255 
060375 
117556 

060367 
117656 

060364 
117556 

127156 



OIV ,*24 

STB LTEMP+9 

CLB 

OIV ,+10 

STB LTEMP+8 
JSB UTDNM 
LOA LTEMP+8 
AOA ,+60B 
JSB LOUTA,! 
LOA ,«.57B 
JSB LOUTA,! 
LOA YE** 
JSB UTDNM 
LOA ,+40B 
JSB LOUTA,! 
LOA ,*40B 
JSB LOUTA, I 
LOA LTEMP+9 
J3B UTDNM 
LOA OATIM+1 
AOA 036k 
CLB 
OIV 0600 

JSB UTDNM 
LOA ,*2JB 
JSB LOUTA, I 
LOA ,*15B 
JSB LOUTArl 
LOA ,4-128 
J8B LOUTA, I 
JMP UHDBF,! 



CONVERT TO DAY 

SAVE HOUR REMAINDER 

1ST 2 DIGITS IN Ar LAST IN b 

OUTPUT 1ST 2 

OUTPUT LAST ONE 
'/' 

SET yEAR 

AND OUTPUT 
BLANK 

BLANK 

HOUR OF DAY 

Convert 

100MS 

UNITS TO 

MINUTES 



Of HOUR 



X-OFF 

CR 

LF 



CONVERT A #<108 TO ASCII AND OUTPUT IT 



73255 
73256 
73257 
73260 
73261 
73262 
73263 
73264 
73265 
73266 
73267 



000000 
006400 

100400 
000364 
074043 
040432 
117556 
060043 
040432 
117556 
127255 



UTDNM 



NOP 
CLB 

OIV 

STB 
ADA 
JSB 
LOA 
AOA 
J SB 
JMP 



,♦10 

LTEMP+11 

,*60B 

LOUTA, I 

LTEMP+tl 

,♦606 

LOUTA,I 

utonm,i 
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0227* 












0228* 


update last changed 


DATES It 


NECESSARY 


0229* 












0230 


73270 




#LCDL EGU 


* 




0231 


73270 


064273 


LDB 


MLINK+1 


IS THfcRE 


0232 


73271 


044335 


ADB 


,»?LINK 


A NEED TO 


0233 


73272 


160001 


loa 


B,I 


CHECK FILES 


0234 


73273 


010444 


and 


DFCHK 


FOR POSSIBLE 


0235 


73274 


002003 


SZA, 


rRSS 


LCD UPDATE 


0236 


73275 


027345 


JMP 


EXIT7 




0237 


73276 


044370 


ADB 


,*?PLEV 




0238 


73277 


002400 


CIA 






0239 


73300 


103100 


CLF 







0240 


73301 


170001 


STA 


*'l 


SET PRIORITY TO 


0241 


73302 


070264 


STA 


TIMEF 


NO TIMING 


0242 


73303 


044350 


ADB 


.♦7STAT, 


-7PLEV 


0243 


73304 


060356 


IDA 


X3YNT 


SfcT STATUS TO SYNTAX SO 


0244 


73305 


170001 


STA 


6,1 


W& WON'T GET SWAPPED 


0245 


73306 


044341 


ADB 


,+?PROG* 


•?STAT 


0246 


73307 


060056 


LDA 


PBPTR 


BOUND INT3 


0247 


73310 


170001 


8TA 


B,I 


TTY TABLE 


0248 


73311 


003000 


CMA 




CALCULATE L.EN C TH 


0249 


73312 


041221 


ADA 


USE 


For write 


0250 


73313 


070072 


STA 


WORD 


to drun*m 


0251 


73314 


044351 


ADB 


„+?DISO 


■fPRQG FORCE BACK 


0252 


73315 


160001 


LDA 


B,I 


TO SWAP 


0253 


73316 


010317 


AND 


H32 


AREA 


0254 


73317 


170001 


STA 


B,I 


ORIGIN 


0255 


73320 


065221 


LDB 


USE 


OUTPUT USER 


0256 


73321 


117534 


JSB 


DHUMP/I 


TO DRUM 


0257 


73322 


127540 


JMP 


RDPJPiI 


BLEW IT, GO ZAP USER 


0258 


73323 


061552 


LDA 


FRMAT 


GET FILE COUNT U) 


0259 


73324 


064273 


LDB 


MLINK+1 


GET POINTER 


0260 


73325 


044341 


ADB 


.♦?ID„?LINK TO ID w QRO 


0261 


73326 


017353 


JSB 


LCD 


GO UPDATE LAST CHANGED DATfcS 


0262 


73327 


027345 


JMP 


fcXIT7 


CORE INTACT, EXIT 


0263 


73330 


002400 


CLA 




BLOCK 


0264 


73331 


170634 


STA 


DCLC1,I 


CLOCK 


0265 


73332 


064273 


LDB 


MLINK+J 


RESTORE 


0266 


73333 


044340 


ADB 


,+?pR0G* 


■?LI N K 


0267 


73334 


160001 


LDA 


B,I 




0268 


73335 


003000 


CMA 






0269 


73336 


041221 


ADA 


USE 




0270 


73337 


070072 


STA 


WORD 


USER 


0271 


73340 


044351 


ADB 


,*?DISC- 


•7PROG 


2 7 2 


73341 


}6000i 


LDA 


B,I 




0273 


73342 


065222 


LDB 


USEI 




0274 


73343 


117534 


JSB 


DRUMP, I 


AREA 


0275 


73344 


127540 


JMp 


RDpJp, I 


BLEW IT, Go ZAp USER 


0276 


73345 




feXIT7 E«U 


* 




0277 


73345 


002400 
170634 


CLA 




BLOCK 


0278 


73346 


STA 


DCLC1,! 


CLOCK 


0279 


73347 


114534 


JSB 


ABCK,I 


CHECK FOR ABOR "3 


0280 


73350 


160640 


LDA 


DCLC2,I 


UNBLOCK 


0281 


73351 


170634 


STA 


DCLC1, 1 


CLOCK 
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0202 

0283* 

0284* 

0288* 

0286* 

0207* 

0288* 

0289 

0290 

029 1 

0292 

0293 

0294 

0295 

0296 

0297 

0296 

0299 

0300 

0301* 

0302 

0303 

0304 

0305 

0306 

0307 

0300 

0309 

0310 

03U 

0312* 

0313 

03U 
0315 

0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 

0324 

0325 
0326 

0327 

0328 

0329 

0330 

0331 

0332* 

0333 

0334 



73362 129060 



JMP LCOUP,I 



THIS ROUTINE ASSUMES THAT TH| USER'S SWAP AREA IS IN CORE, 
THAT THE B REGISTER POINTS TO HIS ID WORD IN THE TELETYPE 
TABLE, AND THAT A CONTAINS THE NEGATIVE OF THE NUMBER OF PILES 



73383 
73354 
73355 
73356 
73357 
73360 
73361 
73362 
7 3363 
73364 
73365 
73346 

73367 
73370 
73371 
73372 
73373 
73374 
73376 
73376 
7 33 7 7 
73400 

73401 

73402 
73403 
73404 
73405 
73406 
73407 
73410 
73411 
73412 
73413 
73414 
734i5 
73416 
73417 
73420 
73421 
73422 
73423 
73424 
73426 



000000 
073565 
077566 
002021 
027436 
002400 
073567 
063642 
070051 
065504 
006004 
077670 

160001 
010222 
002002 
027446 
044371 
037565 
027367 
063567 
002003 
027496 

037353 

00)004 
073567 
067542 
077570 
1^3566 
070030 
160001 
070031 
006004 
104200 
100001 
104400 

000032 
117543 
027456 

067S70 
044355 
077370 
037567 
027410 



LCD 



LCD! 



LCD3 



LCD6 



LCD7 



NOP " 

3TA LCDFC 

STB LGDID 

88A,RSS 

JMP LCD9 

CLA 

8TA OFCNT 

LOA DFNAM 

STA MOVED 

LDB FILTB 

INB 

STB LCDB8 



LDA 
AND 
SZA 
JMP 
ADB 
ISZ 
JMP 

LOA 



8,1 

BIT14 

LCD2 

.♦FTEL 

LCDFC 

LCD1 

DFCNT 



3ZA,RSS 
JMP LCD9 

ISZ LCD 

CMArlNA 
STA OFCNT 
DFNaM 
LCDB8 
LCDlDfl 
LTEMP 
BrI 
LTEMP+1 



LDB 
STB 
LDA 
STA 

LOA 
STA 

INB 
OLD 



8,1 



73426 163545 

73427 002003 



D8T LTEMP+2 

JSB OLOKA,i 
JMP LCDS 
LDB LCDBS 
AOB ,+3 
STB LCOBS 
ISZ DFCNT 
JMP LCD6 

LDA DIRWA,I 
SZAfRSS 



entry point 
save file count 
and id pointer 
make sure there really are 

some files 
initialize dirty 

FILE COuNT TO ZERO 
GET ADDRESS FOR FIRST 

OIRTY FILE'S NAME 
GET START OF FILE TABLE 
BUMp pOSNTER TO WORD 1 

Of ENTRY AND SAVE 

get dirty ?ile bit 
has this file 

been changed? 
yes 
no, point to next entry 

ARE THERE MORE FILES? 
YES, CHECK NEXT ONE 
NO, WERE 

ANY DIRTY? 
NO, RETURN 

YES, BUMP RETURN (COKE IS DIFF) 
SAVE NEGATIVE OF 

DIRTY FILE COUNT 
GET A0PRE3S OF FIRST 

DIRTY FILE'S NAME 
STICK ID IN LTEMP 

FOR DUOOK 
MOVE DIRTY 
FILE'S 

NAME 
INTC 

L TEMPS 

go hunt for Directory entry 

FOUND IT 
BUMP 

pointer to 
next name 
more dirty piles? 
yes, process next one 

no, wr;te directory to drum 
if any is in core 



PACE 035g «32 UPDATE LAST CHANGED DATE ROUTINE 



0335 
0336 
0337 
033* 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0340 
0347 

034* 

0349* 

0350* 

0351* 

0352 

0353 

0354 

0355 

0356 

0357 

0350 

0309 

0360* 

0361* 

0362* 

0363 

0364 

0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 

0375 

0376* 

0377* 

0370* 

0379* 

0380 

0361 

0382 

0383 
0384 

0385 
0386 
0387 
0368 
0389 



73430 027435 JMP LCD9 

73431 006400 ClB 

73432 177545 STB DIRWA,I 

73433 064962 105 LIBO 

73434 117534 JdB ORUHP,I 

73435 127544 JHP DLK9A,I 

73436 067566 LCD9 LOB LCDID 

73437 044346 AD8 ,.?ID 

73440 060444 IDA DFCHK 

73441 103100 C^F 

73442 120001 XQR B,I 

73443 170081 0TA 8,1 

73444 102109 STF 

73445 187303 JHP LCD* I 



EWsEr RETURN 
T&LL &LOOR 
THERE ISNiT 



GOOF, ATTEHPT SALVAGE 

CLEAR 

CHECK 

FOR 

DIRTY 

FILES 
BIT 

RETURN 



HOVE NAHE OF DIRTY FILE TO SaFE PLACE 



73446 037567 

73447 077570 

73450 044364 

73451 074030 

73452 064347 

73453 117537 

73454 067578 

73455 027373 



LCD2 182 DFCNT 
ST8 LCDBS 
ADB .*10 
STB H0vE8 
LDB ,-3 
JS8 MOVFW,I 
LDB LCDBS 
JMP LCO3 



0UMP DIRTY FILE COUNT 

SAVE POINTER TO FILE TABLE ENTRY 

0ET POINTER TO FILE NAME 

AND SET IN MOyEw'S SOyRCE ADR 

hove the 3 

nahe words 
get entry pointer back 
return to scan of file table 



PROCESS A FOUND DIRECTORY ENTRY 



73456 060034 LCDS LDA LTEMP+4 

73457 040360 ADA «+6 
73460 U0000 LDA A, I 
73461173545 STa DIRWa*! 

73462 064035 L&8 LTiMP*5 

73463 044354 ADB ,*2 

73464 160001 LDA B,I 

73465 00?021 8SA,RSS 

73466 0274gl JHP LCD7 

73467 044356 ADB ,«4 

73470 060201 LDA DATIM 

73471 170001 STA 8,1 

73472 027421 JHp LCD7 



TELL DLOOK 

WHICH DIRECTORY 
TRACK 18 
IN CO^f 
0*T 

WORD 
2 
IS THE ENTRY A FILE? 
NO, 00 PROCESS NEXT NAHE 
YES, UPDATE LAST 
CHANCED DATE IN 
DIRECTORY ENTRY 
00 PROCESS NEXT NAHE 



THIS ROUTINE SETS UP THINGS TO UPDATE THE LAST CHANGE DATE 
WHEN A USER HAS ABORTED 



73473 

734/3 0642g7 

73474 044355 

73475 060056 

73476 170001 

73477 003800 

73500 041221 

73501 070072 

73502 044351 

73503 160001 



ABUCD EGU * 

LDB MAIN 

ADB .♦7PR0G 

LDA PBPTR 

STA B,I 
CHA 

ADA ySE 

STA word 



SET BOUND 

IN TTY TABLE 



NUMBER OF W 0RD3 TO TRANSFER 
ADB ,+?DlSC*?pR0G 
LDA B,i 6 ET SWAP TRACK ADDRESS 
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039(9 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0396 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414* 

0415* 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

043 t 

0432 

0433* 

0434 

0435 

0436 

0437 

0438 

0439« 

0440 

0441 

0442 

0443 
0444 



73504 
73505 
73506 
73507 
73510 
73511 
73512 
73513 
73514 
73515 
73516 
73517 
73520 
73521 
73522 
73523 
73524 
73525 
73526 
73527 
73530 
73531 
73532 
73533 



73534 

73535 
73536 

73537 
73540 
73541 
73542 
73543 
73544 
73545 
73546 
73547 
73550 
73551 
7.3552 

73553 
73554 

73555 
73556 
73557 
73560 
73561 

73562 
73563 
73564 

73565 
73566 



010317 
170001 
065221 
117534 
127540 
061502 
003004 
064257 
044356 
017353 
000000 
103100 
064257 
074062 
060372 
030442 
003000 
110001 
170001 

002400 
070257 
170634 
044366 
127541 



074231 

074370 
074243 
074257 
074071 
0/0433 
025130 
031060 
03U73 
031223 
062662 
062613 
062411 
000171 
160002 
177744 
160000 

074271 
074132 

005040 
020040 
030057 

000000 
000000 
000000 
000000 
000000 



AND 
8TA 
LD8 
JSB 
JMp 
LDA 

CHAf 

UD8 

ADB 

JSb 

NOP 

CLF 

LDB 

STB 

L.UA 

IOR 

CMA 

AND 

ST A 

CI. A 

STA 

STA 

ADB 

JMP 



M32 

B,I 

USE 

DRUMP,! 
RDpJpf I 
FCNTR 

IN A 
MAIN 
.+?1D 
LCD 



MAIN 

TTQ 

UNABT 

ABTKY 



BrI 

MAJN 
DCLCirl 
.♦7STAT 
DSCH7,I 



WRITE USER TO SWAP TRACK 



** OP FILES 

•> ID WORD IM TTY TABLE 
UPO A TE L A ST CH A NGE D A TE 



FOR SCHEDULER 



CLEaR ABORT FLaGS 
US^R NO LONKcR IN CPKfc 

block clock 
■> status hqrd 

enter abort code in scheduler 



DRUMP D E f DRUML 
GTILP DEF GTIL 
MOyFB DEF MOyEB 
MUVFW DEF MOVEW 
RDpJp DEF RDpRj 
DSQH7 DEF SCH7 
DFNAM DEF LIBUS+10J76 
DLOKA DEF DLOOK 
DLK9A DEF DL0K9 
DIRWA DEF DIRWD 
DEADA DEF DEAD 
SICKA DEF SICK 
SALVA DEF SALVG 
DSYlD DEF SYSlO 
M8190 DEC -8190 
HM 2 8 DEC -28 
M8192 DEC .,8192 



LEN2A DEF LEND*2 
LOUTA DEF LOUT 
LFSPA OCT 5 40 
SPSP ASC 1, 
ZERSL ASC 1,0/ 

TBDT1 BSS 1 
TBDT2 BSS 1 
TBDT3 BSS 1 
LCDFC BSS 1 
LCDID BSS 1 



DIRTY FILE NAMES BUFPEK 



COUNT OF FILES TO BE CHECKED 
POINTER TO USER ID 
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0445 
0446 
0447 
0448 



73567 
73570 
73571 
73774 



000000 
000000 
000000 



Df-CNT 
LCDBS 
FI L BF 



BSS 1 
BSS 1 
BSS 131 
BSS 



COUNT OF CHANGEO (DIRTY) FILES 
POlN T tR FOR UD'S SEARCHES 



PAGE 0353 #32 TELEKLUOGE CORE- DUMP ROUTINE, 



0450* 

0451* 

0452* 

0453* 

0454* 

0455* 

0455 

0457 

0456 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0466 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476* 

8477* 

0478* 

0479 

0460 

0481 

0482 

0483 

0464 

0485 
0486 
0487 
0488 
0469 
0490 

0491 
0492 
0493 

0494 

0495 

0496 

0497 

0490 

0499 

0500 

0501 

0502 

0503* 

0504* 



THE FOLLOWING ROUTINE WILL PROVIDE A COKE 
DUMP ON THE CONSOLE TELETYPE, 



ENTER HERE FOR A TSB DUMP 



77WBQ 
77001 
77002 
77003 
77004 
77005 
77006 
772id7 
77010 
77011 
77012 
77013 
77014 
77015 
77016 
77017 
77020 
77021 
77022 



103100 
103110 
063231 
1026H 
103711 
1023U 
027005 
102511 
013233 
073234 
002002 
027016 
063227 
102612 
017116 
002400 

067224 
000000 
017067 



ORG 770000 
CL* 
CLF CHI 
LDA LPSyK 
OTA CH2 
STC CH2,C 
8FS CH2 
JMP *«1 
LIA CH2 
AND B37TK 
STA TKLP 
SZA 

JMP **3 
IDA TB130 
OjA ?sC 
JSB TKqRL 
CLA 

LOB TPglH 
NOP 
JSB TK 



CLEAR RETURN CHAN. FROM OTHER MA 

get LP status commanu 
output it to other machine, 
interrupt other machine 
wait for accept and return 

of status from other machine 
get status word 
mask select code of lp 

SAVE 3EL. CODE (OR 0) 
LP UP & READY? 
YES, 
PRINT AND PUNCH 
OUTPUT TO TELEPRINTER KLUDGE BOA 
PUT OUT LEAPING tR Lh 

END BLOCK 



THIS CODE DUMPS IMPORTANT SYSTEM LOCATIONS 



77023 
77024 

77025 
77026 
77027 
7703« 
77031 

77032 
77033 
77034 
77035 
77036 
77037 
77040 
77041 

77042 
77043 
77044 
7704S 
77046 
77047 
77050 
77051 
77052 



063236 
073235 
163235 
002021 
027035 
037235 

167235 
003004 
017067 
027047 
002003 
027051 
064000 
017155 
063221 

017124 
167236 
164001 
017155 
017116 
037235 
027025 
102000 
027061 



TK1WO 



LDA 
STA 
TKDLP LDA 
88A, 
JMP 
ISZ 
LDB 
CMA, 
JSB 
JMP 
SZA, 
JMP 
LOB 
JSB 
LDA 
JSB 
LDB 
LDB 

JSB 
JSB 

ISZ 
JMP 
HLT 
JMP 



TKqLN 
TKDON 



TKTBL 

tktbp 

TKTBP, I 

RSS 

TK1WD 

TKTBP 

TKTBP, I 

INA 

TK 

TKDLN 

RSS 

TKDON 

A 

TKWO 

TP40 

TKCO 

TKT6P r I 

6,1 

TKWO 

TKCRL 

TKTBP 

TKDLP 

*•! 



INITIALIZE 

PNTR, 
GET TBL ENTRY 
SINGLE WORD? 

YES, 

BUMP PNTR, 

GET ENDING PNTR, 

MAKE STARTING ADDRESS POSITIVE 
OUTPUT STRING 

END OF TABLE? 

YES, 
COPY TO B 
PRINT ADDRESS 

A «• BLANK 

and print it 
get addr, again 
b ■ mem content 

PRINT CONTENT 
AGAIN FEED CARRIAGE 



STARTING POINT FOR DUMPING OF 
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0505* 


SELECTED LOCATIONS 


t 






0506* 


ENTER WITH A* STARTING 


ADDRESS 


AND 


0507* 


8* ENDING ADDRESS, 








0500* 














0509 


77053 


073206 




STA 


TK1 


SAVE STARTING ADDRESS, 


k)510 


77054 


077207 




STB 


TK2 


save Ending address. 


0511 


77055 


063234 




LDA 


TKLP 


CHECK FOR LP SEL, CODE 


0512 


77056 


002002 




3ZA 




REAOY? 


0513 


77057 


027062 




JMP 


**3 


YES, 


0514 


77060 


063227 




LDA 


TB130 


prin t and punch 


0515 


77061 


102612 




OTA 


?sc 


OUTPUT TO TTY KLUDGE BOArD, 


0516 


77062 


017115 




jsb 


TKCRL 


PUT OUT LEADING CR LF 


0517 


77063 


063206 




LDA 


TK1 


GET STARTING AND 


0518 


77064 


067207 




LD8 


TK2 


ENDING ADDRESS, 


0519 


77065 


017067 




use 


TK 


DUMP, 


0520 


77066 


027051 




JMP 


TKDQN 


STOP, 


0521* 














0522* 














0523 


77067 


000000 


TK 


NOP 






0524 


77^7^ 


013214 




AND 


TM8 


BE STUFFY ABOUT STARTING POINT 


0525 


77&7X 


073286 




STA 


TK1 


SAVE STARTING ADDRESS 


0526 


77072 


007000 




CMB 




B + * B * 1 


0527 


77073 


077207 




STB 


TK2 


STORE ENDING ADDRESS, 


0528 


77<d7A 




TKA 


EGU 


* 




&>529 


77074 


063214 




LDA 


TM8 


EIGHT WORDS PER LINE, 


0530 


77075 


073210 




STA 


TK3 




0531 


77076 


067206 




LOB 


TK1 


LOAO ADDRESS 


0532 


77^77 


017155 




J3B 


TKWO 


PUT IT OUT 


0533 


77100 




TKB 


EQU 


* 




0534 


77100 


063221 




LDA 


TP40 


A ♦ BLANK 


0535 


77101 


017124 




J3B 


TKCO 


PUT IT OUT, 


0536 


77102 


167206 




LDB 


TK1,I 


LOAD DATA WORD 


0537 


77103 


017155 




JSB 


TKWO 


OUT IT GOES, 


0538 


77104 


037206 




isz 


TK1 


c unt up add r e S s. 


0539 


77105 


037210 




™l 


TK3 


COUNT DOWN COUNT WITHIN LINE 


0540 


77106 


027100 




JMP 


TKB 


CONTINUE WITH THIS LINE 


0541 


77107 


017116 




JSB 


TKCRL 


OUTPUT CR AND LF 


0542 


77110 


063206 




LDA 


TK1 


lqau current address 


0543 


77111 


043207 




ADA 


TK2 


CHECK FOR DONE 


0544 


77112 


002020 




S3A 




SKIp IF DONE KITH DyMp 


0545 


77113 


027074 




JMP 


TKA 


OTHERWISE, START LINE 


0546 


77114 


017116 




JSB 


TKCRL 




0547 


77115 


127067 




JMP 


TK,J 




0548* 














0549 


77116 


000000 


TKCRL 


NOP 






0550 


77117 


063220 




LDA 


TP15 


CR 


0551 


77120 


017124 




JSB 


TKCO 




0552 


77121 


063217 




LDA 


TP12 


LF 


U553 


77122 


017124 




JSB 


TKCO 




0554 


77123 


127116 




JMP 


TKCRL, I 


RETURN 


0555* 














0556 


77124 


000000 


TKCQ 


NOP 




ROUTINE TO PUT OUT CHARACTERS 


0557 


77125 


073213 




STA 


TK6 


SAVE OUTPUT CHR, 


0558 


77126 


077212 




STe 


TK5 


SAVE THE B REGISTER 


0559 


77127 


106501 




LIB 


01 
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0560 


77130 


005665 


ELB,CLE,ERB 


0561 


77131 


164001 


LOB 1,1 


0562 


77132 


013223 


AND TP377 


0563 


77133 


063234 


IDA TKLP 


0564 


77134 


002002 


SZA 


0565 


77J35 


027144 


JMP TKCOL 


0566 


77136 


063213 


IDA TK6 


0567 


77137 


102312 


SF8 ?SC 


0568 


77140 


027137 


JMP *•! 


0569 


77141 


102612 


OTA 7SC 


0570 


77142 


103712 


stc i$q,c 


0571 


77143 


027153 


JMP TKQRN 


0572 


77144 




TKCOL EQU * 


*57 3 


77144 


063213 


LDA TK6 


0574 


77145 


001722 


ALF,RAL 


0575 


77146 


033232 


IQR TKOTK 


0576 


77147 


102311 


SF8 CH2 


0577 


77150 


027147 


JMp *.l 


0576 


77151 


102611 


qTA CH2 


0579 


77152 


103711 


STC CH2,C 


0580 


77153 




TKCRN £QU * 


0581 


77153 


067212 


LOB TK5 


058 2 


77154 


127124 


JMP TKCO,I 


0583* 








05e4 


77155 


000000 


TKWO NOP 


0585 


77156 


063222 


LDA TP60 


0586 


77157 


005210 


RBL,SLB 


0587 


77160 


002004 


INA 


0588 


77J61 


017124 


J8B TKCO 


0589 


77162 


063215 


LDA TM5 


0590 


77163 


073211 


8TA TK4 


0591 


77164 




TkWB euu * 


0592 


77164 


063216 


LOA TP6 


0593 


77165 


100103 


RRL 3 


05g4 


77166 


017124 


JSB tkqo 


0595 


77167 


0372H 


I5Z TK4 


0596 


77170 


027164 


JMP TKWB 


0597 


77171 


127155 


JMP TKW0,I 


0598* 








0599* 








0600* 


TO SET UP 


DMA FOR TRANSFER 


0601* 


THE 2116 


PROGRAM MUST BE RU 


0602* 








0603 


77172 


106703 


CLC DMA-4 


0604 


77173 


063225 


LDA TBT15 


0605 


77174 


102603 


OTA DMA-4 


0606 


77175 


063230 


LOA TB160 


0607 


77176 


102703 


STC DMA*4 


060a 


77\77 


102603 


OTA DMA-4 


0609 


772W 


063226 


LOA TB12C 


0610 


77201 


102607 


OTA DMA 


0611 


77202 


103711 


S T C CH2,C 


0612 


77203 


103707 


STC OMA r C 


0613 


77204 


102000 


HLj 


0614 


77205 


027204 


JMP *•! 



DISPLAY MEMORY LOCATION 
MASK DOWN TO SIZE 
CHECK FOR LP SEl, CODE 

REA D Y? 

YES, 
NO, SET CHR, 
WAIT FOR TtLEKLUUGE, 
AND WAIT SOME MORE 
OUTPUT THE CHARACTER, 
STAR] T HE MONsjER, 



GET OUTPUT CHR, 
POSITION CHARACTER 
COMPOSE TKO COMMAND 

LASj COMM, ACCEPTED? 

not yet, wait, 

GIVE TKq To OTHER MACHI N E, 

Interrupt other machi n e. 



ROUTINE TO OUTPUT AN ENTIRE WORD 
LOAD CODE FOR ZERO 
TEST SIGN BIT 
NE IF SET, 

FIVE MORE DIGITS. 



BITS F R ASCII 

NEXT OCTAL DjGjT TO A 

OUT GOES THE MEAN OL ' CHARACTER 

CHECK FUR COMPLETION OF WORu. 

ANOTHER 100,000,000 NS SHOT 

RETURN 



SET UP FOR ADDRESS 

INPUT STARTING AT ZERO 

ADDRESS OUT 

LOAD WORD COUNT ALLOWED 

SET UP TO LOAD WORD COUNT 

OUTPUT WORD COUNT 

LOAD DMA CONTROL WORD 

OUT TO DMA 

StARt CHANNEL 

START DMA 
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0615* 
13616* 

06i7 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0626 

0629 

0630 

0531 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639* 

0640 

0641 

0642 

0643* 

0644 

0645 

0646* 

0647* 

0648* 

0649 
0650 
0651 
0652 

0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
066t 
0662 
0663 
0664 
0665 
0666 
0667 
k)668 
0669 



77206 
77207 

77210 
77211 
77212 
77213 
77214 
77215 
77216 
77217 
77220 
77221 
77222 
77223 
77224 
77225 
77226 
77227 
77230 
77231 
77232 
77233 



000000 
000000 
000000 
000000 
000000 
000000 
177779 
177773 
000006 
000012 
000015 
000040 
000060 
000377 
002100 
100000 
120011 
130000 
160000 
160022 
160031 
000037 



77234 000000 

77235 000000 

77236 077237 

77237 152650 
77240 025274 



TK1 6SS 1 

TK2 BSS 1 

JK3 883 1 

TM BSS 1 

TK5 BSS 1 

TK6 BSS 1 

TM8 DEC «8 

TM5 DEC «5 

TP6 DEC 6 

TP12 OCT 12 

TP15 OCT 15 

TP4tf OCT 40 

TP60 OCT 60 

TP377 OCT 377 

TP21H OCT 2100 

TbTl5 OCT 100000 

Tyl2c AeS 120000B+CH2 

TB130 OCT 130000 

TB160 OCT 160000 

LPSTK OCT 160022 

TKoTK OCT 160031 

B37TK OCT 37 

TKLP OCT 
TKTBP BSS 1 
TKtBL OEF **1 

AB3 *UBUS-10176 
DEF LIBU8+10276 



LOADER ENTRY POINTS 



77241 
77242 
77243 
77244 
77245 
77246 
77247 
77250 
77 2 5i 
77252 
77253 
77254 

77255 
77256 
77257 
77260 
77261 
77262 
77263 
77264 
77265 



026000 
026156 
026175 
026217 
026236 
026260 
026321 
026512 
026557 
026526 
026572 
026532 
026576 
026540 
026604 
026551 
026615 
026561 
026625 
151143 
026662 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
qCT 
OCT 
OCT 
OCT 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



20000 
2615b 
26175 
26217 
26236 
26260 
26321 
26512 
26557 
26526 
26572 
26532 
26576 
26540 
26604 
26551 
26615 
26561 
26625 
151143 
26662 



MDISC 
TBSCH 

MDINT 

RECON 

SEEK 

DCOUT 

CCOUT 

WAITD 

MSTAf 

DMAGQ 

wABsEC (26635) 
TATUS 
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0670 


77266 


151076 


OCT 


151076 




0671 


77267 


026731 


OCT 


26731 




0672 


77270 


027250 


OCT 


27250 


DREDY 


0673 


77271 


027317 


OCT 


27317 




1^674 


77272 


150416 


OCT 


150416 


.DREA (27362) 


0675 


77273 


027374 


OCT 


27374 


DREBS 


0676 


77274 


150347 


OCT 


150347 




0677 


77275 


027443 


OCT 


27443 




0679* 












0679 


77276 


150000 


ABS 


-DIREC 




0680 


77277 


031060 


OEp 


DLOOK 




065 1* 












0662 


77300 


0312$1 


OEF 


ZDISC 




0683 


77301 


060012 


DEF 


LDRUM 




0684 


77302 


060052 


DEF 


DINT 




0685* 












0686 


77303 


11764® 


ABS 


•DADOR 




0687 


77304 


060150 


DEF 


DRAIU 




0688* 












0689 


77305 


060417 


DEF 


POW 




0690* 












0691 


77306 


117130 


ABS 


■POWFF 




0692 


77307 


060661 


DEF 


POWSrt 




0693* 












0694 


77310 


060715 


DEF 


?TT35 




0695 


77311 


060735 


DEF 


?TT2 




0696* 












0697 


77312 


U6652 


ABS 


-TTY00 




0696 


77313 


062266 


DEF 


TTY32 




0699* 












0700 


77314 


062266 


DEF 


JETPT 




0701 


77315 


062411 


DEF 


SALVG 




0702* 












0703 


77316 


115263 


ABS 


-SALCP 




0704 


77317 


062522 


DEF 


SALEC 




0705* 












0706 


77320 


062613 


DEF 


SICK 




97d7 


77321 


062662 


DEF 


DEAD 




0708 


77322 


062725 


DEF 


MDEAD 




0709 


77323 


063307 


DEF 


3148H 




0710 


77324 


063334 


DEF 


R14QM 




0711 


77325 


070014 


DEF 


0UTM1 




0712 


77326 


070016 


DEF 


CTEmP 




0713 


77327 


070017 


DEF 


SMAIN 




0714 


77330 


070020 


DEF 


FMAIN 




0715 


77331 


070026 


DEF 


CLKIN 




M716 


77332 


070043 


DEF 


CLcl 




0717 


77333 


071075 


DEF 


TYPE 




0718 


77334 


071113 


DEF 


3COM 




0719 


77335 


071202 


DEF 


SWAPR 




0720 


77336 


071527 


DEF 


SCHAR 




0721 


77337 


071577 


DEF 


DEQUE 




0722 


77340 


071612 


DfcF 


#OUTC 




0723 


77341 


071656 


DEF 


3CH0Q 




0724 


77342 


071700 


DEF 


HTEST 
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0725* 










kj726 


77343 


105744 


ABS 


-CQM6 


0727 


77344 


072237 


OEF 


FADT 


0720* 










Id729 


77345 


072274 


DEF 


RSFS 


0730 


77346 


072403 


OEF 


RADT 


0731 


77347 


072612 


DEF 


TBDAD 


0732 


77350 


072727 


DEF 


TBIUT 


0733 


77351 


073053 


OEF 


HOBUF 


0734 


77352 


073353 


OEF 


LCO 


0735* 










0736 


77353 


104216 


ABS 


•TBDT1 


0737 


77354 


073775 


DEF 


FILBF+132 


0730* 










0739 


77355 


074001 


OEF STAV1 


0740 


77356 


074002 


OEF 


STAV2 


0741 


77357 


074003 


OEF 


STAV3 


0742 


77360 


074025 


OEF 


T35CQ 


0743 


77361 


074047 


OEF 


RDPRG 


0744 


77362 


074107 


OEF 


ROjOT 


0745 


77363 


074132 


DEF 


LOUT 


0746 


77364 


074137 


DEF 


LTYPR 


0747 


77365 


074156 


DEF 


LTYPE 


0746 


77366 


074164 


DEF 


LCHAR 


0749 


77367 


074231 


DEF 


DRUML 


0750 


77370 


074243 


DEF 


MOVES 


0751 


77371 


074257 


DEF 


MOVEW 


0752 


77372 


074315 


DEF 


GETIO 


0753 


77373 


074370 


OEF 


GTIL 


0754 


77374 


074435 


DEF 


SCHLQ 


0755 


77375 


074563 


DEF 


INSEQ 


0756* 










0757 


77376 


103167 


ABS 


-T35BF 


0758 


77377 


074655 


DEF 


CRLF 


0759* 










0760 


77Add 


074656 


OEF 


ABCHK 


0761 


77401 


074710 


DEF 


SEMIC 


0762* 










0763 


77402 


103000 


AB3 


"LIBRA 


0764 


77403 


076000 


DEF 


LIBRA+1000B 


0765* 










0766 


77404 


000000 


OCT 





0767* 










0766* 










0769* 
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0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 

0011 
0012* 
0013 
0014 

0015 

0016 

0017 

0016 

0019 

0020 

0021 

0022 

0023 

0024 

0025* 

0026* 

0027* 

0026* 

0029* 

0030* 

0031* 

0032 

0033 

0034 
0035 
0036 
0037 
0036 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 

0050 

0051 

0092* 

0053* 

0054* 

0055 

0056 



74000 
74000 
74001 
74002 
74003 
74004 
74005 
74006 
74007 
74010 

740U 
74012 
74013 
74014 
74015 
74016 
74017 
74020 
74021 

74022 
74023 
74024 



177645 
000000 
000000 

000000 
074655 
031060 
031223 
072237 
000115 

072403 
072274 
072612 
062266 
062613 
0624U 
062662 
062725 
073053 
073156 
071656 
073*>13 



ORG 
M133, OCT 
STAV1 838 
STAV2 BSS 
STAV3 BSS 
?ABP2 DEF 
DLOKP DEF 
DIKWP DEF 
FADTP DEF 
RKCYP DEF 

RADTP DEF 
RSFSp DEF 
TBDAP DEF 
JETPP DEF 
SICKP DEF 
SALVP DEF 
DEADP DEF 
MDEDP DEF 
MDBFA DEF 
UHOBA DEF 
SCHOU DEF 
MLFLA DEF 



74000B 

• 133 

1 

1 

1 

CRLF 

DIOOK 

DIRWD 

FADT 

DADLC 

RADT 

RSFS 

T8DAD 

JETPT 

SICK 

SALVG 

DEAD 

MDEAD 

HDBUF 

UHDBF 

SCHOU 

MLKFL 



USED BY 

STATUS WHILE 
SUSPENDED 

LINK TO DIRECTORY SEARCH ROUTINE 



CYCLIC POINTER TO CURRENT 
DISK ADT TRACK ADDRESS 



T35CQ IS USED BY LIBRARY PROGRAMS TO SCAN THE TTY35 INPUT BUFFER, 
EACH TIME IT IS CALLED, IT FETCHES THE NEXT CHARACTER, BUT SKIPS 
BLANKS, THE CHARACTER IS LEFT IN T35LC, AND IN A, WHEN A RETURN IS 
ENCOUNTERED, T35CQ REtuRN 3 t° P+U OjHERwIsE TO P*2. It Is INITI- 
ALIZED BY THE MONITOR BEFqRE THE LIBRARY RQUTInE Is CALLED, 



74025 
74026 

74027 
74030 
74031 
74031 
74032 
74033 
74034 
74035 
74036 
74037 
74040 
74041 
74042 

74043 
74044 
74044 

74045 
74046 



000000 
060055 

050367 
126025 

064054 
004065 
160001 
002041 
001727 
010441 
070055 
034054 
050367 
126025 
050412 

026031 
036025 
126025 



T35C0 



T35C0 



T35C1 



NOP 

LDA 
CPA 
JMP 

EQU 

LDB 

CLE, 

LDA 

SEZ, 

A U F, 

AND 

3TA 

ISZ 

CPA 

JMP 

CPA 

EQU 

JMP 

ISZ 

JMP 





ENTRY POINT, 


T35LC 


get last character. 


.♦15B 


IF CR, 


T35CQ,I 


RETURN IMMEDIATELY, 


W 

T35CP 


GET CHARACTER POINTER IN B* 


ERB 


ADJUST, 


1,1 


FETCH 


RSS 


CHAR, 


A W F 




B177 




T35LC 


SAVE IT, 


T35CP 


BUMP POINTER, 


.♦15B 


IF CR, 


T35COfI 


RETURN IMMEDIATELY, 


• *40B 


IF BLANK, 


T35C0 




T35C0 


OTHERWISE 


T35 C U,I 


RETURN NORMAL, 



RDPRG READS THE CURRENT USER INTO CORE, 

74047 00000O RDPRG NOP 

74050 064273 LDB MLInK+1 SET PRqGRAM BqUnD PqInTER, 
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0057 
0058 

0059 
0060 

0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073* 

0074 

0075 

0076 

Q077 

0078 
0079 

0080* 

0081* 

0062* 

0083* 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092* 

0093* 

0094* 

0095* 

0096* 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109* 

0110 



74051 
74052 
74053 
74054 
74055 
74056 
74057 
74060 
74061 
74062 
74063 
74064 
74065 
74066 
74067 
74070 

74071 
74071 
74072 
74073 

74074 



044340 
160001 
070056 
003000 
041221 
070072 
04435J 
160001 
006400 
174634 
065222 
016231 
026071 
160640 
170634 
126047 



064273 

044335 
116014 

126075 



RDPRJ 



AOB ,+?PRQG* 


-7LINK 


IDA 1,1 


GET PROGRAM BgUND 


STA PBPTR 




CMA 


COMPUTE LENGTH, 


ADA USE 




STA WORD 




AOB ,*?DISC- 


• 7PKOG 


LDA B,J 


GET UKUM ADDRESS 


CLB 


BLOCK 


STB DCLC1,I 


SCHEDULER. 


L.D6 USE; 


PERFORM 


JSB DRUMU 


TRANSFER 


JMP RDPRJ 




UDA DC|.C2,I 


unblock SCHEDULER, 


STA DCuClfl 




JMP RDPRG#I 


RETURN 


EQU * 




LOB MLINK+1 




ADB ,.?LINK 




jSB jETPPri 


GO jETTjSQN PORT 


JMP **i,I 




OEF SCH1 





74075 070362 



DATE COMPUTES A WORD CONTAINING THE YEAR 
AND THE DAY IN ITS 9 LOW ORDER BITS, 



IN ITS 7 HIGH ORDER BITS 



74076 
74077 

74100 
74101 

74102 

74103 
74104 

74105 
74106 



000000 
06020) 

006400 
100400 
000402 
100047 
0g4200 
101047 
126076 



DATE 



NOP 
LDA 
CLB 
DIV 

LSL 
LDB 
LSR 
JMP 



DATIM 

.♦24 

7 

YEAR 

7 

DA T E,I 



GET HOUR OF YEAR, 
DIVIDE BY 24 TO 
GET THE DAY. 



POSITION 
POSITION 



RDIDT READS A BLOCK OF THE IDT INTO 
IT THEN SEARCHES THE IOT FOR THE ID 
RETURNS WITH B POINTING TO IT, 

74107 000000 RDIDT NOP 



CORE, 
OF THE 



ON LEFT, 
THE YEAR 



CURRENT USER AND 



74110 
74111 
74112 
74113 
74114 
74115 
74116 
74117 
74120 
74121 
74122 



060273 
040341 
160000 
070052 
016370 
160076 
070072 
160075 
064566 
016231 
116017 



LDA MLI N K*l GET USER ID 
ADA ,+?ID»?LINK 
LDA 0,i 



74123 064562 



STA ID 
JSB GTIL 
LDA IDLNP I 
STA WORD 
LDA IDLCP,! 
LDB LIBDI 
JSB DRUML 
JSB DEADP,I 

LDB LIBD 



SAV fc IN ID 

FIND WHICH ID TRACK 

GET LENGTH OF CHOSEN TRACK 

SET DRUM DRIVER WORD COUNT 

GET DRUM ADDRESS 



BAD NEWS 



SEARCH IDT, 
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0111 


74124 


060052 




IDA 


ID 


GET THIS USERS ID BACK 


0112 


74125 


002002 




SZA 




RETURN IF NOT JOGGED UN 


0113 


74126 


150001 




CPA 


1*1 


SEARCH FOR ENTRY, 


0114 


74127 


126107 




JMP 


RDIOT,I 


RETURN 


0115 


74130 


044362 




AOB 


.♦8 




0116 


74131 


026126 




JMP 


♦•3 




0117* 














0118 


74132 


000000 


LOUT 


NOP 


OUTPUT CHAR, IN A TO USER8 TELETY 


0119 


74133 


064273 




LDB 


MLINK+1 




0120 


74134 


044335 




AOB 


,«.?LINK 




0121 


74135 


114576 




JSB 


OUTCH,I 




0122 


74136 


126132 




JMP 


LOUT, I 




0123* 














0124 


74137 


000000 


LTYPR 


NOP 




OUTPUT ~A CHARS TO USER'S TT 


0125 


74140 


072876 




STA 


LTYP1 B 


POINTS TO BUFFER, 


0126 


74141 


076107 




STB 


LTYP2 




0127 


74142 


162107 


LTYP3 


LOA 


LTYP2,I 


GET FIrst 


0126 


74143 


004727 




AiF, 
JSB 


,A U F 


CHARACTER Qf WORD 


0129 


74144 


016132 




tOyT 


QgT, 


0130 


74145 


036076 




ISZ 


LTYPl 


ANY MORE? 


0131 


74146 


002001 




RSS 




YES 


0132 


74147 


126137 




JMP 


LTYPR, I 


NO, 


0133 


74150 


162107 




LOA 


LTYP2,I 


SEND 2ND 


0134 


74151 


016132 




JSB 


LOUT 


CHAR, 


0135 


74152 


036107 




ISZ 


LTYP2 


BUMP POINTER, 


0136 


74153 


036076 




ISZ 


LTYPl 


ANY MORE? 


0137 


74154 


026142 




JMP 


LTYP3 


YES 


0138 


74155 


126137 




JMP 


LTYPR,! 




0139 


74156 


000000 


LTyPE 


NOP 




SAME AS LTYPR BuT W IfH CRLF , 


0140 


74157 


016137 




JSB 


LTYPR 




0141 


74160 


060350 




IDA 


i*2 




0142 


74161 


066004 




LOB 


?ABP2 




0143 


74J62 


016137 




JSB 


LTYPR 




0144 


74163 


126156 




JMP 


LTYPE, I 




0145 


74076 




LTyPl 


EQu 


DATE 




0146 


74107 




LTYP2 


EUU 


RDiOT 




0147* 














0148 


74164 


000000 


LCHAR 


NOP 


GET 


NEXT INPUT CHAR.^^SKIP RETURN 


0149 


74165 


060265 




LOA 


LCHCR 


GET CARRIAGE RETURN FLAG 


0150 


74166 


050367 




CPA 


,*15B 


P K EvIOuS RETURN? 


0151 


74167 


126164 




JMp 


LCHAR, I 


YES 


0152 


74170 


064273 


LCHR1 


LOB 


MLINK+1 




0153 


74171 


044336 




AOB 


■ ♦?TNUm*' 


?uXnk 


0154 


74172 


160001 




LOA 


1,1 


FETCH 


0155 


74173 


030222 




IOR 


GTC 


Character 


0156 


74174 


114500 




JSB 


S148C,j 


FROM 2114 


0157 


74175 


102311 




SfS 


CH2 


WAIT FOR 


0158 


74176 


026175 




JMP 


••1 


RESPONSE 


0159 


74177 


102511 




LIA 


CH2 




0160 


74200 


070265 




STA 


LCHCR 


SET CARRIAGE RETURN FLAG 


0l6l 


74201 


050412 




CPA 


.♦40B 


BLANK? 


0162 


74202 


026i7g 


LCHR2 


JMP 


LCHRi 


YES, IGNORE IT 


0163 


74203 


050367 




CPA 


.♦15B 


NO, CARRIAGE RETURN 


0164 


74204 


126164 




JMP 


LCHAR, I 


YES—ExIT 


0165 


74205 


040766 




ADA 


M96 
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0166 


74206 


002021 




SSA,RS3 


LOWER CASE? 


43167 


74207 


040317 




ADA M32 


Y E3, CONVERT 


0166 


74210 


040730 




ADA ,140 


NO 


0169 


74211 


036164 




ISZ LCHAR 


NO«*tXlT 


0170 


74212 


126164 




JMp LCHAR, I 


TO (p*2) 


0171 


74213 


000000 


T353P 


NOP 


OUTPUT TO TT3b AND WAIT, 


0172 


74214 


114522 




JSB TTY35,1 


f-IRST OUTPUT, 


0173 


74215 


103100 




CLF 




0174 


74216 


062213 




LOA T35SP 


MOVE RETURN ADDRESS 


0175 


74217 


070276 




STA T35RS 


INTO TABLE, 


0176 


74220 


060277 




LOA T358T 


MOVE STATUS INTO PRIORITY 


0177 


74221 


070301 




8TA T35PR 




0176 


74222 


060355 




LOA %OUTW 


SET STATUS 10 OUTWAIf, 


0179 


74223 


070277 




STA T38ST 




0180 


74224 


126225 




JMP SUSPP, I 


GO HANG 


0181 


74225 


071651 


SUSPP 


OCF SUSP 




0182 


74226 


060364 


LLEND 


LOA ,*128 




0183 


74227 


016132 




JSB LOUT 




0184 


74230 


124514 




JMP SCHEN,I 




0185* 












0186 


74231 


000000 


DRUML 


NOP 




0187 


74232 


114770 




jSB DRUM, I 




0186 


74233 


006400 




CUB 




0169 


74234 


060261 




LOA ENDRM 


GET BUSY FLAG 


0190 


74235 


002020 




SSA 


DONE? 


0191 


74236 


026234 




JMP *-2 




0192 


74237 


002003 




SZA,RSS 


YES, TRANSFER SUCCESSFUL? 


0193 


74240 


036231 




ISZ DRUML 


y£S, skip return 


0194 


74241 


07426' 




STB ENORM 


CLEAR BUSY FLAG REGARDLESS 


0195 


74242 


126231 




JMP DRUML,! 




0196* 












0197 


74243 


000000 


MOVEB 


NOP 


MOVE BACKWARD »B WORDS FROM 


0198 


74244 


00602j 




S3B,INB,RSS 


MOVES TO MOVED, 


0199 


74245 


126243 




JMP MOyEB,l 




0200 


74246 


160050 




LOA MOVES, I 




0201 


74247 


170051 




STA MOVED, J 




0202 


74250 


003400 




CCA 


UPDATE POlNTEKS, 


0203 


74251 


040051 




ADA MOVED 




0204 


74252 


070051 




STA MOVED 




0205 


74253 


003400 




CCA 




0206 


74254 


040050 




ADA MOVES 




0207 


74255 


070050 




STA MOVES 




0206 


74256 


026244 




JMP MOVEB+1 




0209* 












0210 


74257 


000000 


MOVE* 


NOP 


MOVES »B WORDS FROM MOVES, I TO 


0211 


74260 


006025 




S3B,INB,R8S 


MOVED, I 


0212 


74261 


126257 




JMP MOVE*, I 




0213 


74262 


160050 




LOA MOVES, I 


GET A WORD 


0214 


74263 


170051 




STA MOVEDfl 


STORE IT, 


0215 


74264 


034050 




132 MOVES 


BUMP 


0216 


74265 


034051 




ISZ MOVED 


POINTERS, 


0217 


74266 


026260 




JMP MOVEW+1 


NO. 


0218* 












0219* 


LEND OUTPUTS 


A LINE 


FEED ON THE 


SYSTEM TELETYPE 


0220* 


ANU THEN TERMINATES 


THE PROGRAM, 
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0221 


74267 


060662 


UNO 


LOA 


ONEI 


OUTPUT THE 


0222 


74270 


064666 




L08 


DEH 


LINE FEED, 


0223 


74271 


114622 




JSB 


TTY35,! 




0224 


74272 


002400 


LENOR 


CLA 






0225 


74273 


070314 




3TA 


T35F2 




0226 


74274 


124514 




JMP 


SCH£N,I 




0227* 














0228* 


LFRER 


PRINTS 


AN ILLEGAL 


FORMAT MESSAGE UN THE SYSTEM 


0229* 


TELETYPE AND 


THEN TERMINATES THE 


PROGRAM, 


0230 


74275 


060371 


LFRER 


LOA 


,♦15 




0231 


74276 


066300 




LOB 


LFHOF 




0232 


74277 


026271 




JMP 


LEN0*2 




0233 


74300 


074301 


LFRDF 


DEF 


♦ ♦1 




0234 


74301 


005111 




OCT 


5111 




0235 


74302 
74303 
74304 
74305 
74306 
74307 
74310 


046n4 
042607 
040514 
020106 
047522 
046501 
052040 




ASC 


7,LLEGAL 


FORMAT 


0236 


74311 




OOERR 


EQU 


* 




0237 


74311 


060407 




LOA 


,♦29 




0238 


74312 


066314 




LOB 


♦ ♦2 




0239 


74313 


026271 




JMP 


LENO+2 




0240 


74314 


073034 




DEF 


DDERL 




0241* 














0242* 


GET 10 


SCANS THE INPUT BUFFER FOR 


AN 10 NUMBER, IF NOT FOUND, IT 


0243* 


OUTPUTS A MESSAGE AND TERMINATES, 


i 


0244* 


IF FqUnD> THE 


RESULT IS 


PLACED In 


j ID, .RESULT 


0245* 


IN MiD, iF T H 


e following character is a cr, getio skips on T H t 


0246* 


W A Y BACK. IN 


ANY CaSE# THE NEXT CHaRaCTER IS IN a, 


0247* 


GETID 


USES LTEMP+12 


,13,1 


14,15, 




0248* 














0249 


00044 




g^tch 


EQU 


LTEMP+12 




0250 


00045 




GEjII 


EGu 


LtEMP+13 




0251 


00046 




GETI2 


EQU 


LTEMP+14 




0252 


00047 




GETI3 


EQU 


LTEMP+15 




0253 


74315 


000000 


GETID 


NOP 






0254 


74316 


060273 




LOA 


MLINK+i 


DETERMINE WHICH SCANNER TO USE 


0255 


74317 


066434 




LDB 


DLCHR 


USE LCHAR IF USER TELETYPE, 


0256 


74320 


05030? 




CPA 


T35LN 


T35CH IF SYSTEM, 


0257 


74321 


064572 




LOB 


T35CH 




0258 


74322 


074044 




STB 


GETCH 




0259 


74323 


114044 




JSB 


GETCH,! 


SCAN INPUT BUFFER FOR FIRST 


0260 


74324 


026425 




JMP 


GTpER 


CHARACTER, 


0261 


74325 


042000 




ADA 


M133, 


TEST F R LETTER 


0262 


74326 


002021 




83*1 


>RSS 




0263 


74327 


026426 




JMP 


GTFER 




0264 


74330 


040404 




AOA 


,♦328 




0265 


74331 


002024 




SSA, 


rINA 




0266 


74332 


026425 




JMP 


GTFER 




0267 


74333 


100032 




ASL 


10 




0268 


74334 


070045 




STA 


GETI1 


SAVE FOR LATER. 


0269 


74335 


060347 




LDA 


,»3 


SET DIGIT 
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0270 
0271 
0272 
0273 

0274 

0275 

0276 

0277 

0278 

0279 

0260 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296* 

0297* 

0296* 

0299* 

0300* 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

3 08 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

03*8 

0319 

0320 

0321 

0322 

0323 

0324 



74336 
74337 
74340 
74341 
74342 
74343 
74344 
74345 
74346 
74347 
74350 
74351 
74352 
74353 
74354 
74355 
74356 
74357 
74360 
74361 
74362 
74363 
74364 
74365 

7^366 
74367 



070046 
006400 
074047 
114044 

026425 
040316 
002021 
026425 
040364 
002020 
026425 
064047 
005222 
044047 
005200 
044000 
034046 
026340 
044045 
074052 
007004 
074053 
016370 
114044 
03 6 31 5 
126315 



STA 
CLB 
GETI4 STB 
JSB 
JMP 
ADA 
SSA 
JMP 
ADA 

SSA 

JMP 
LOB 
RbL. 
ADB 
RBI 
ADB 
ISZ 
JMP 
AqB 
STB 
CMB 
STB 
JSB 
JSB 
ISZ 
JMP 



GETI2 

GETI3 
GETCHf I 
GTFER 
M72B 
*KS8 
GTFER 
.♦10 

GTFER 
GETI3 

f«BL 
GETI3 



GETI2 
GETI4 
GETI1 
10 
,INB 
MID 
GTIL 
GETCH,I 
GETID 
GETID,! 



COUNTER, 
SET NUMBER 
TO 0, 

get next Char, 

PAIL, 

TEST FOR DIGIT 

PAIL, 



PAIL, 

GET PARTIAL V*LUe. 

MULTIPLY BY 1». 



ADO In NEW DIGIT, 
TEST FOR DCNE, 

MERGE IN LETTER, 



PINO 10 TRACK 

GET NEXT CHARACTERt 

SKIP RETURN IF CR, 



the gtil routine finds which id track the 
specified id code is on, 
Enter with the id code in id 



7437» 
74371 
74372 
74372 

74373 
74374 

74375 

74376 
74377 
74400 
74401 
74402 
74403 
74404 
74405 
74406 
74407 

744lB 
74411 
74411 
74412 
74413 
74414 
74415 



000000 
066424 

074075 

006004 
160001 
002003 
026411 
006004 
160001 
002003 
026411 
044350 
160001 
003004 
040052 
002021 
026416 

064075 
056423 
026416 
044347 
026372 



GTIL 
GTSA 



GTSB 



NOP 




LOB 


IDECL 


EdU 


* 


STB 


IDLCP 


INB 




LOA 


M 


SZA ( 


>RSS 


JMP 


GTSB 


INB 




LDA 


8,1 


SZA, 


-RSS 


JMP 


GTSB 


ADB 


.-2 


LDA 


M 


CMA, 


,INA 


ADA 


ID 


SSA, 


rRSS 


JMP 


GT3C 


EGU 


* 


LDB 


IDLCP 


CPB 


IDECM 


JMP 


GTSC 


ADB 


.-3 


JMP 


GTSA 



■> last entry 
save in temp 

m> DRUM ADDRESS 



NO ENTRIES ON TRACK 
«> TRACK LENGTH 
GET THE LENGTH 
SKIP THIS ONE IP 

THE TRACK IS ZERO LENGTH 

A * PIRST 10 ON THIS TRACK 

> OR < 1 

FOUND THE TRACK 



CHECK FOR DONE 

DONE, MUST BE ON PIRST TRACK 

MOVE TO PREVIOUS ENTRY 
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0325 
0326 

032/ 

0328 

0329 

0330 

0331 

0332 

0333* 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342* 

0343* 

0344* 

0345* 

0346* 

0347* 

0348* 

0349* 

0350 

0351 

0352 

0353 

0354 

0355 

0356 
0357 

035B 
0359 
0360 
0361 
0362 
0363 
«>364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 

0375 

0376 
0377 

0378 
0379 



74416 
74416 
74417 

74420 
74421 
74422 
74423 
74424 



006004 
074078 
005004 
074076 
126370 
000100 
000106 



GTSC EQU * 



IOECM 
IPECL 



XNB 
STB 
INB 
STB 
JMP 
DEF 
UEF 



IOLCP 

IOLNP 

GTIL,I 

IDEC 

ioec*5 



74425 060044 

74426 050572 

74427 026275 

7443« 060333 

74431 066300 

74432 016156 

74433 124514 

74434 074164 



GTFER IDA 6ETCH 
CPA T35CM 
JMP UFRER 

ILf-ER LOA ,-15 
LOB LFROF 

LiBER JSB LTYPE 

JMp 3CHEn»I 

DlCHr DEF lCHAR 



B »> DRUM ADDRESS 

SET POINTER TO DRUM ADDRESS 

»> TRACK LENGTH 

SET POINTER TO LENGTH 

RETURN 



IF SYSTEM TELETYPE, PRINT 
ERROR MESSAGE THERE, 

OTHERWISE PRINT IT ON 
USER TELETYPE. 



TERMINATE, 



THIS ROUTINE IS CALLED BY THE COMPILER WHEN IT WANTS TO EXECUTE 
A DRUM ROUTINE. THE DRUM ROUTINE IS ALW A YS EXECUTED WITH a PRIORI- 
TY OF 0, AS ALL DRUM ROUTINES ARE, THE CALLING SEQUENCE IS 

JSB 8CHLB,I 

DEF <DRUM ADDRESS OF ROUTiNE> 

PARAMETERS IF DESIRED> 

<RETURN> 



74435 
74436 
74437 
74440 
74441 
74442 

74443 
74444 

74445 
74446 
74447 
74450 
74451 
74452 

74453 
74454 
74455 
74456 
74457 
74460 
74461 
74462 
74463 
74464 
74465 
74466 
74467 
74470 
74471 
74472 



000000 
103100 
064273 
044335 

160001 
010772 

002002 
126225 
160001 
030372 
170001 
044370 
002400 
070264 
170001 
044350 
060356 
170001 
044341 
060056 
170001 
003000 
041221 
070072 
044351 
160001 
010317 
170001 
065221 
016231 



SCHLQ NOP 
CLF 
LDB 
ADB 
LOA 
AND 
SZA 
JMP 
LDA 
IOR 
STA 
ADB 
CLA 
STA 
STA 
ADB 
LDA 
STA 
ADB 
LDA 
STA 

cma 

ADA 
STA 
ADB 
LDA 
AND 
STA 
LDB 
JSB 




MLINK+l 

,«.?LINK 

1,1 

C0M14 

LLEND»1,I 

1,1 

UNABT 

1,1 
.♦?PLEV 



SUSPEND 
IF HE 

TRIED TO 
ABORT 
SET UNABLE 
TO ABORT 
BIT 



TIMEF NO TIMING, 

1,1 SET PRIORITY TO 

,*?STAT-?PLEV SET STATUS TO SYNTAX 

XSYNT SO SCHEDULER DOESN'T KNOW 

1,1 WHAT WE'RE DUING, 

.+7PR0G-73TAT 

PBPTR SET PBPTR IN TABLE, 

1,1 

SET UP DRUM 
USE PARAMETERS, 
WORD 
.♦?0ISC*?PRQG 

1>I 

M32 FORCE BACK TO SWAP AREA ORIGIN 

1,1 

USE OUTPUT USER TO 

DRUML DRUM 



PAGE 0366 #33 LIBRARY SUBROUTINES 



0380 


74473 


026071 


JMP 


RDPRJ 


BLEW IT, GO DUMP USER 


038l 


74474 


1&2435 


LDA 


SCHLQ,I 


GET DRUM ADDRESS, 


0382 


74475 


036435 


I8Z 


SgHLQ 




0383 


74476 


050260 


cpa 


LIB 


IF IN CORE, TRANSFER DIRECT. 


0384 


74477 


027000 


JMP 


LIBRA 




0365 


74500 


070260 


ST A 


LIB 


SET LIB, 


0386 


74501 


160000 


LOA 


0,1 




0387 


74502 


064750 


LOB 


M512 


SET UP DRUM TRANSFER 


0386 


74503 


074072 


STB 


WORD 




0389 


74504 


064504 


LOB 


*LlBl 




0390 


74505 


016231 


JSB 


DRyML 




03»1 


74506 


116015 


JSB 


SICKP,! 


READ NO GOOD, GO EXPIRE 


0392 


74507 


027000 


JMP 


LIBRA 




0393* 












0394* 


PROGRAM ALWAYS RETURNS HERE, 




0399* 












0396 


7451M 


103100 


SCHBL CLF 







0397 


74511 


064273 


LOB 


MLINK*1 




0398 


74512 


044351 


AOB 


,*?STAT-» 


?LINK 


0399 


74513 


134001 


ISZ 


1,1 


TRUE STATUS IS RUN 


0400 


74514 


034264 


ISZ 


TIMEF 


SET FLAG FOR TIMING 


0401 


74515 


044350 


AOB 


,+?CLUC- 


?S T A T 


0402 


74516 


134001 


ISZ 


1,1 


TIMED OUT? 


0403 


74517 


026537 


JMP 


SCHB1 


NO 


0404 


74520 


U44356 


AOB 


,*?PLEV- 


?c L oc 


0405 


74521 


060356 


LOA 


.♦4 


SET PRIORITY TO 4 


0406 


74522 


170001 


STA 


B,I 




0407 


74523 


044347 


AOB 


,+?RSTR» 


7PLEV 


0406 


74524 


062435 


LOA 


SCHLQ 




0409 


74525 


170001 


STA 


B,I 


SET RESTART AOOrEsS 


0410 


74526 


002400 


CL* 






0411 


74527 


170634 


ST* 


DCLC1,I 


BLOCK CLOCK 


0412 


74530 


102100 


STF 







0413 


74531 


064273 


LOB 


MLINK+1 


REMOVE 


04l4 


74532 


160001 


LOA 


b,I 


USER FROM 


0415 


74533 


070273 


STA 


MLINK+1 


QUEUE 


0416 


74534 


016563 


JSB 


INSEQ 


INSERT AGAIN AT END 


0417 


74535 


126536 


JMP 


* + i,I 


RETURN TO SCHEDULER 


0418 


74536 


070362 


DEF 


SCH1 




0419 


74537 




3CHB1 EQU 


* 




0420 


74537 


102100 


STF 







0421 


74540 


126435 


JMP 


SCHLU,I 


RETURN TO LANGUAGE PROCESSOR 


0422 


74541 


074542 


HfcLK DEF 


♦ ♦1 




0423 


74542 


005111 


OCT 


5111 




0424 


74543 
74544 
74545 
74546 
74547 
74550 
74551 


046114 

042507 
040514 
020101 
041503 
042523 
051440 


asc 


7,LLEGAL 


ACCESS 


0425 


74552 


074553 


HfcLH DEF 


*♦! 




0426 


74553 


005116 


OCT 


5116 




0427 


74554 
74555 


047440 
0521H 


ASC 


6,g TIME 


LEFT 
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0426 
0429* 

0430* 

0431* 

0432* 
0433* 

0434 

0435 

0436 

0437 

043* 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458* 

0459* 

0460* 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0466 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0476 



74556 
74557 
74560 
74561 
74562 



046505 
020114 
042506 
052040 
000000 



STaBF B38 1 



USED BY STaTUS 



THIS SUBROUTINE INSERTS A USER INTO THE QUEUE IN ORDER Of- HIS 
PRIORITY. WHEN WE ARRIVE HERE* THE B REGISTER POINTS 10 THE LINK 
WORD FOR THE USER. 



7<5 6 3 
74564 
74565 
74566 
74567 
74570 
74571 
74572 
74573 
74574 
74575 
74576 
74577 
74600 
74601 
7460g 
74603 
74604 
74605 
74606 
74607 
74610 
74611 
74655 



000000 
074061 
006004 
160001 
003000 
070066 
064272 
074064 
164001 
060001 
002004 
160000 
040066 
002020 
026572 
174061 
060061 
170064 
040347 
064340 
174000 
126563 
000000 
006412 



INSEQ 



SCH2 



T35BF 
CrLF 



NOP 

STB 

INB 

LDA 

CMA 

8TA 

LDB 

STB 

LDB 

LDA 

INA 

LDA 

ADA 

SSA 

JMP 

STB 

LDA 

STA 

ADA 

LDB 

STB. 

JMP 

BSS 

OCT 



8CHL 
1,1 

SCHpR 

MLINK 
SCHP 

1 

0#I 
SCHPR 

SCH2 
SCHLrl 

8CHL 

SCHP, I 

,+?CLOC 

.•10 

0,1 

INSEQrl 

36 

6412 



SAVE LIn* address In SCHL 

B»>U8ER3 PRIORITY 

APRIORITY 

STORE -1-PRIQRITY 

IN SCHpR, 
8»>PH0NY USER, 
SAVE IN SCHP. 

b points to next user, 
get Priority of 

THAT USfcR IN 
A. 
COMPARE WITH PRIORITY 

OF gSER BEING INSERTED, 
IF >* GO TO LINK TO NEXT EN1RY, 
SET NEW ENTHY TO POINT TO HJM, 

SET PREVIOUS ENTRY •> NEW ENTRY, 
»?LINK SET NE W U S ER S CLOCK T ,10, 



TEST FOR ABORT ATTEMPT WHEN THEY 
THE SCHEDULER KNOW TO ABORT HIM 



74656 
74657 
74660 
74661 
74662 
74663 
74664 
74665 
74666 
74667 
74670 
74671 
74672 
74673 
74674 
74675 
74676 
74677 



000000 
064273 
044335 
060372 
003000 
103100 

110001 
170001 
102100 
010442 
002003 
126656 
103100 
030445 
003000 
110001 
03^772 
170001 



ABCHK 



NOP 
LDB 
ADB 
LDA 
CMA 

CLF 
AND 
STA 
STF 
AND 



MLINK+1 
,-?LlNK 
UNA6T 



BUFFER FOR INPUT AND REPLIES, 
MUST FOLLOW T35BF 

WEREN'T ALLOWED. IF SO, LET 



CLEAR 





1,1 

1,1 



ABTRY 
SZA,RSS 
JMP ABCHK, I 



CHnFG 



UNABLE TO 
ABORT 
FLAG 



CLF 

IOR 
CMA 
AND 
IOR 
STA 



ABORT 

NO 

YES 



ATTEMPTED? 



1/1 
COMI4 

1>I 



CLEAR ABORT 

TRY FLAG 

SET COMU BIT 

TO SIGNAL SCHEDULER 
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0479 

69480 

0481 

0482 

0483 

0484 

0485 

0486 

0487* 

0488* 

0489* 

0490* 

0491* 

0492* 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0&01 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

05U 
0515 

05l6 
0517 
0518 
0519 

0520 
0521 

0522 
0523 
0524 

0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 



74700 
74701 
74702 
74703 
74704 
74705 
74706 
74707 



002400 
170634 

044366 
003400 
170001 
102100 
126707 
070362 



CUA 




BLOCK 


STA 


DCU1,I 


CLOCK 


ADB 


.♦7STAT 




CCA 




SET STATUS 


STA 


1,1 


TO ABORTING 


STF 







JMP 


*♦!,! 


RETURN THRl/ 


UEF 


SCH1 


SCHEDULER 



CHECK IF THE PROGRAM WHICH HAS JUST BEEN LOADED FROM THE USER 
LIBRARY IS SEMICOMPILED, AND SET THE NECESSARY COMPILER 
VARIABLES, LIBSC, LlBSP, AND LIBPB ARE PASSED TO THIS ROUTINE 
F R OM JHE LIBRARY ROUTINE WHICH CALLS Ij (CHAIN, GET, Or HELLO) 



74710 
747H 
74712 
74713 
74714 
74715 
74716 
74717 
74720 
74721 
74722 
74723 
74724 
74725 
74726 
74727 
74730 

74731 
74732 
74733 
74734 

74735 
74736 
74737 
74740 
74741 
74742 
74743 
74744 

74745 
74746 
74747 
74750 
74751 
74752 
74753 
74754 
74755 
74756 
74757 
74760 



000000 
103100 
060040 
002020 
026727 
002400 
071575 
060045 

070056 
064273 
044335 
060354 
003000 
110001 
026761 
060045 
040343 
070056 
071504 
164000 
075575 

002004 
164000 

075606 
064452 
075605 
064346 

075230 
002004 
164000 
175605 
03560g 
035230 
026744 
002004 
164000 
075607 
064273 
044335 
160001 
030354 



SEMIC 



SEMI1 



StMl2 



NOP 
CLF 
LOA 
SSA 
JMP 
CLA 
STA 
L DA 
STA 
LDB 
ADB 

LD* 
CMA 

AND 
JMP 
LDA 
ADA 
STA 

ST* 
LOB 

STB 
INA 
LDB 
STB 

LDB 
STB 
LDB 
STB 
I N A 

LDB 
STB 
ISZ 

isz 

JMP 

Ina 
ldB 

STB 
LDB 
ADB 
LDA 
IOR 




LIBSC 

SEMI1 

SYMTB 
LIBPB 
PBPTR 

MLINK*1 
,-?HNK 

cflag 
1,1 

SEMI3 
LIBpB 

.-7 

PBPTR 

filtb 

0,1 
SYMTB 

0,1 
FILCT 
DFILT 
FILPT 

SPTR 

0,1 

FILPT, I 
FILPT 
SPTR 
SEMI2 

0,1 

USESN 

mhn**i 

.•7LINK 

lfl 
Cf-LAG 



SEMUCOMPILED7 

YES 

NOwwCLEAR OOT»OF«, 

STORAGE FLAG 
SET LENGTH 

POINTER 
SET 

UNCOMPILED 

BIT 



SET 

LENGTH 
POINTER 

SET EnDwQF* 

PROGRAM POINTER 
SET <FILES 

STATEMENT* 
COUNTER 
POINTER TO 

<PILES STATEMENTS* 

4 <FILES 

STATEMENTS* POSSIBLE 

STORE 
POINTER 
TO <FILES 
STATEMENT* 
ALL 4 DONE? 
NO 
SAVE 

•USING 

SEEN' FLAG 
SET 

COMPILED 
BIT 
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0534 74761 170001 SEMI3 STA 1,1 SET 

0535 74762 074257 $jB MAIN MAIN 

0536 74763 064041 LOB LIBsP 3ET ST*RT»OF« 

0537 74764 75577 STB 8PRQG PROGRAM POINTER 

0538 74765 102100 STF 

0539 74766 126710 JMP SEMIC,I 

0540 74767 000000 P0R31 BSS 1 USED BY "PORT" 

0541 74772 000000 PURS2 BSS 1 COMMAND WHIU 

0542 74771 000000 PORTl BSS 1 SUSPENDED, 

0543 74772 100000 SPfc OQT 100000 gAUQ RATE INFO 

0544 74773 160024 CMS OCT 160024 CHAR, SIZE INFO 

0545 74774 160025 STP OCT 160025 SUBTYPE INFO 

0546 74775 160026 WSP OCT 160026 WHAT BAUD RATE? 

0547 00045 HBPB EQU LTEMP+13 END OF PROGRAM POINTER (PBPIRj 

0548 00040 LIBSC EUU LTEMP+b SEMI^COMP ILED FLAG 

0549 00041 LIBSP EQU LTEMP+9 START OF PROGRAM POINTER 
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000 2 * THIS TABLE IS USED BY THE TS8 PAPER TAPE LOADER, THE SLEEP 
0083* ROUTINE, AND THE MAG TAPE LOADER, IT CONTAIN3 THE LENGTHS OF 
0004* ALL THE REMAINING LIBRARY ROUTINES, AND ENABLES THE LOADER TO 
0005* ALLOCATE THE MINIUM NyMBER OF DISC SECTORS FOR EACH OP THEM, 
0006* THE TABLE Is WRITTEN qN THE DIsC As THE FIRST LIBRARY ROUTINE, 



0008 


75000 




0009 


75000 


177675 


0010 


75001 ] 


L77000 


0011 


75M2 


177000 


0012 


75003 3 


177174 


0013 


75004 ] 


177257 


0014 


75005 ] 


177346 


0015 


75006 1 


177000 


0016 


75007 3 


L77000 


0017 


75010 1 


177005 


0016 


75011 


L77372 


0019 


75012 3 


L77244 


0020 


75013 ] 


177237 


0021 


75014 ] 


177516 


0022 


75015 ] 


177440 


0023 


75016 3 


177172 


0024 


75017 3 


177645 


0025 


75020 3 


177420 


0026 


75021 1 


177420 


0027 


75022 


177420 


0026 


75023 J 


177262 


0029 


75024 1 


177262 


0030 


75025 1 


177423 


0031 


75026 3 


177000 


0032 


75027 1 


L77000 


0033 


75 30 ] 


[77650 


0034 


75031 3 


177644 


0035 


75032 1 


177650 


0036 


75033 ] 


L77650 


0037 


75034 ] 


177000 


0038 


75035 1 


l777j7 


0039 


75036 3 


177737 


0040 


75037 ] 


177655 


0041 


75040 3 


177720 


0042 


75041 3 


177354 


0043 


75042 1 


177441 


0044 


75043 3 


177345 


0045 


75044 ] 


L77345 


0046 


75045 3 


L77000 


0047 


75046 t 


L77000 


0046 


75047 1 


177404 


0049 


75050 


177663 


0050 


75051 


L77606 


0051 


75052 ] 


177606 


0052 


75053 3 


L77603 


0053 


75054 1 


177344 


0054 


75055 1 


177344 


0055 


75056 ] 


177147 


0056 


75057 ] 


177225 



ORG LIBRA 
ABS LIBRA- 
DEC -512 
DEC .512 
ABS LIBRA, 

ABB LIBRA- 
AB 9 LIBRA. 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA. 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA- 
AB8 LIBRA- 
ABS LIBRA. 
ABS LIBRA- 
AB3 LIBRA- 
ABS LIBRA- 
ABS LlBRA- 
AB8 LIBRA. 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA. 
ABS LIBRA- 
ABS LIBRA. 
ABS LIBRA. 
ABS LIBRA- 
ABS LIBRA. 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA. 

ABS LIBRA- 
ABS LIBRA. 
ABS LIBRA- 
ABS LIBRA- 
ABS LIBRA. 
ABS LIBRA. 
ABS LIBRA. 
ABS LIBRA- 
AB S LIBrA. 
ABS LIBRA. 
ABS LIBRA. 
ABS LIBRA. 
ABS LIBRA- 
ABs LIBRA. 
ABS LIBRA. 
ABS LIBRA- 



SAVE OVERLAY, 



GROUP 



$SLPL 

TWO HALVES 0* 
FUSS TABLE 
SFIB 
SASN 
SCHN 
SSAV 
SSAV 
SSSAV 
$GET 
$APP 
$HEL 
SBYE 
$KIL 
SRfcN 
$NAM 
4CAT 
SCAT 
$CAT 
SDIRS 
iUlRS 
$REP$ 
SSTA$ 
$STA$ 
SDEL 

*TIh 
SPRO 

SPRO 

*OPE 

SLEN 

4ECH 

SMES 

SLPR 

*POR$ 

SREP 

SDIR 

SDIH 

$STA 

$STA 

SPOR 

$R0S 

SANN 

SKfcS 
$CHA 
SSLE 
SSLE 

$NEW 
SKID 



MESSAGE 



HIBERNATE 
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0857 

0058 
0059 
0060 
0061 
0062 
0063 

0064 
0065 
0066 
0067 
0066 
0069 
0070 
0071 
0072 
0073 
0073 
0073 
0073 
0074 



75#60 

75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 

75077 

75100 
75101 
75102 
75103 



177464 

177035 

177203 
177000 
177036 

177000 
177000 

177375 
177455 
177314 

177730 
177747 
1777J6 
177425 
177677 

177000 
177000 
177000 
177000 



ASS 

ABS 
ABS 
ABS 
A83 
ABS 

ABS 
ABS 
ABS 
ABS 
ABS 
ABS 
ABS 
ABS 
ABS 
REP 
DEC 
DEC 
DEC 
DEC 
$$LPL EUU 



LIBRA* 

LIBRA. 
LIBRA. 
LIBRA. 
LIBRA, 

LIBRA- 
LIBRA* 
LIBRA- 

LIBRA- 
LIBRA. 
LIBRA- 
LIBRA. 
LIBRA- 
LIBRA. 
LIBRA. 
4 

-512 
-512 
• 512 
-512 
* 



tUNL 

$LOC 
>$MUN 
■$MLQ 
>$$MLO 

■ SCOP 
>$BES 
'SSAN 
i$QES 

■ SPUR 
SMAG 
>$pHO 
'SPRI 
SSpE 
SBRE 



SANCTIFY 
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0076* 
V>to77* 
0076* 
0079* 
0080* 
0061* 

0082* 

0083 
0084 
0085 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 

0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 
0086 

0086 
0086 

00 8 & 
0086 

0086 

0086 

0086 

0087* 

0088 
0089 
0090 
0090 
0090 
0090 
0090 
0090 
0090 
0090 
0090 
0090 



THE FUSS TABLt CONTAINS A 32 WORq ENTRY FOR EACH PORT. THESE 
WORDS ARE THE DISC ADDRESSES OF THE FILES HE IS QURRENTY USING, 
A ZERO INDICATES NO FILE, THE TABLE IS READ OUT TO THE DISC 
IN TWO HALVES, AND THEY ARE ASSUMED TO BE ON CONTIGUOUS 
SECTORS, (THIS IS GUARANTEED IF FUSS IS ONE OF THE FIRST 
LIBRARY ROUTINES, 



75000 



75000 
75020 
75040 
75060 
75100 
75120 
75140 

75160 
75200 
75220 
75240 
75260 
75300 
75320 
75340 

75->60 
75400 
75420 
75440 
75460 
75500 
75520 
75540 
75560 
75600 
75620 
75640 
75660 
75700 
75720 
75740 
75760 

75000 

75000 
75020 
75040 
75060 
75100 
75120 
75140 
75160 
75200 
75220 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 



000000 
U00000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



ORG 
SUP 
REP 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 

ORG 
REP 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



LIBRA 



32 

0,0, 

0,0, 
0*0* 
0,0, 
0,0* 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 

0,0, 
0,0, 
0,0, 
0,0, 
0,0, 



0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 

0'0 
0,0 
0,0 
0,0 
0,0 



,0,01 


»0( 


F0/ 


F0 


,0,0, 


,0,0/ 


f0/ 


f0 


F0Z 


,0,0, 


,0,0< 


F0< 


,0 


F0, 


,0,0, 


,0,0< 


r0< 


>0/ 


»0z 


,0,0, 


,0,0i 


rB( 


>0/ 


'0/ 


,0,0, 


,0,0/ 


f0/ 


'0/ 


>0/ 


,0,0, 


,0,0/ 


r0/ 


'0/ 


'0< 


,0,0, 


,0,0< 


>0< 


>0/ 


>0/ 


,0,0, 


,0,0< 


»0/ 


r0/ 


'0/ 


,0,0, 


,0,0/ 


>0/ 


'0/ 


r0/ 


F0,0, 


,0,01 


,04 


»0/ 


r0< 


,0,0, 


,0,01 


,04 


'0/ 


'0/ 


,0,0, 


,0,0- 


r0/ 


,0, 


,0, 


,0,0, 


,0,0* 


'0/ 


>0< 


,04 


,0,0, 


,0,0i 


r0z 


'0/ 


F0< 


,0,0, 


,0,0/ 


'0/ 


r0/ 


F04 


,0,0, 


,0,0/ 


F0< 


r0 ( 


F0< 


,0,0, 


,0,0/ 


r0/ 


-0/ 


F0( 


,0,0, 


,0,0/ 


r0< 


F0/ 


F0| 


,0,0, 


,0,0/ 


F0 


F0 


F0 


,0,0, 


,0,04 


'0/ 


>0/ 


F0/ 


,0,0, 


,0,0/ 


'0/ 


'0/ 


,04 


,0,0, 


,0,0/ 


r0< 


'0/ 


F0/ 


,0,0, 


,0,0/ 


,0i 


>0/ 


,04 


,0,0, 


,0,04 


>0< 


,0/ 


F0/ 


,0,0, 


,0,0/ 


-0/ 


>0/ 


F0| 


,0,0, 


,0,04 


-0/ 


>0/ 


,0/ 


,0,0, 


'0,04 


>0i 


'0/ 


F0/ 


,0,0, 


,0,04 


'04 


'0/ 


F0/ 


,0,0, 


,0,04 


-0< 


r»< 


,04 


F0,2, 


,0,04 


'0/ 


,0/ 


F0/ 


,0,0, 


,0,04 


-0/ 


'0/ 


F0/ 


,0,0, 



0*0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 

0,0,0, 

0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
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0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 



0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 



0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 



,0,0 

,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 



,0,0 

,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0*0 



,0,0 

,0,0 
,0,0 
,0,0 
,0,0 

,0,0 
,0,0 

,0,0 
,0,0 
,0,0 



,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
,0,0 
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0090 


75240 


000000 


0090 


75260 


000000 


0090 


75300 


000000 


0090 


75320 


000000 


0090 


75340 


000000 


0090 


75360 


000000 


0090 


75400 


000000 


0090 


75420 


000000 


0090 


75440 


000000 


0090 


75460 


000000 


0090 


75500 


000000 


0090 


75520 


000000 


0090 


75540 


000000 


0090 


75560 


000000 


0090 


75600 


000000 


0090 


75620 


000000 


0090 


75e40 


000000 


0090 


7&660 


000000 


0090 


75700 


000000 


0090 


75720 


000000 


0090 


75740 


000000 


0090 


75760 


000000 


0091 







OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


OCT 


0,0,0,0,0,0, 


UNS 





0/0,0, 

0,0,0, 
0,0,0, 

0,0,0, 

0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 

0,0,0, 
0,0,0, 
0,0,0, 



0,0, 
0,0, 
0,0, 
0,0, 

0,0, 
0,8, 
0,0; 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,3, 
0,0, 
0,0, 
0,0< 

0,0» 
0,0, 
0,0, 



0,0, 

0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 

0,0, 
0,0, 
0,0, 



0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0, k) 

0,0,0 

0,0,0 
0,0, fc 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
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0093* 
0094* 
009g* 
0096* 
0097* 
(9096* 
0099* 

0100* 

0101* 
0102* 
0103* 
0104* 
0105* 
0106* 
0107* 
0108* 
0109* 
0110* 
0111* 



THE FILES ROUTINE IS U3£u BY THE BASIC COMPILER TO PROCESS FILES 

STATEMENTS DURING PH A 3E II, THE PURPOSE Q fr THE ROUTINE IS TO PRO" 

VIDE THE COMPILER WITH INFORMATION ABOUT THE REQUESTED FILES, THIS 

INFORMATION CONSISTS OF THE FILE'S DISC ADDRESS AND DRUM 

ADDRESS (IF ANY), ITS LENGTH, AND ITS RECORD SIZE, 

THE COMPILER PASSES PARAMETERS TO THE FJ1ES ROUTINE AS FQLL0*3| 

FILCT*»5*# OF FILES STATEMENTS 
FILTB«»BEGINNING OF TABLE AREA FOR FILE INC Q. 
SCH L B,I«>FlRST POSSIBLE RETURN ADDRESS. 

THE CALLING SEQUENCE TO THE FILES ROUTINE IS AS FQLLOWSi 

JSB 8CHLB,I 

DEF FILIB 

TERROR EXIT FOR BAO FORMAT IN FILES STaTEMEnT> 

<ERROR EXIT IF A FILE IS UNACCE8SIBLE» 

<ERROR EXIT IF PROGRAM QVERFLOW> 

<NORMAL EXIT> 



0113 

0114* 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0l3g 

0136* 

0137 

0138 

0139 

0I40 

0141 

0142 

0W3 
0144 
0145 
0146 



75000 

75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
750ik) 
75011 
75012 

75013 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 

75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 



063602 
070036 
070037 
060331 
070040 
061606 
040357 
003004 
070046 
060452 
070047 

164047 
003400 
140001 
040001 
001200 
070042 
006004 
005000 
074043 

060347 
070041 
002400 
070031 
070030 
017550 

05 4i6 
027055 
050424 
027061 



FLBA 



FLB1 



ORG 


LIBRA 


LDA 


FILBP 


STa 


FLBUF 


STA 


FLBFP 


LDA 


.-17 


STA 


FLBC1 


LDA 


FILCT 


ADA 


,♦5 


c«a, 


.xna 


STA 


FLBFC 


LDA 


DFILT 


STA 


FLBFF 


EQU 


* 


LDB 


FLBFF, i 


CCA 




Ada 


1,1 


ADA 


1 


RAL 




STA 


FLBP 


IN8 




BLS 




STB 


FLBCP 


LDA 


."3 


STA 


FLBC2 


CLA 




STA 


FLBCM 


Sta 


FLB$ 


JSB 


FLBCH 


CPA 


.♦44B 


JMP 


FLB2 


CPA 


.♦52B 


JMP 


FLB22 



GET POINTER TO FILE BUFFER 

save buffer pointer, 

set counter for maximum number 
of files allowed, 
get count *, 5 of files statement 
get Count 

GET NEGATIVE 

SAVE COUNT 

GET POINTER TO FILES 

STATEMENT TABLE 

GET POINfER 7O FILES S T A T EM£N T S 
SET PuInTER Tq 
LAST CH*H ♦ 1 OF 
FILES STATEMENT, 



INITIALIZE POINTER TO 

FILES STATEMENT, 

SET HLC2 TO SAY 3 WORDS 
ALLOWED, 

CLEAR COMMA FLAG, 

GET FIRST CHAR, 

TEST FOR DOLLAR SIGN, 

TEST FOR SnOWFlAKE 
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0147 


75036 


050412 


FLB5 CPA 


,+40B 


0148 


75037 


027177 


JMP 


FL88+1 


0149 


75040 




FLB25 EQU 


* 


0150 


75040 


040030 


ADA 


FtBS 


0151 


75041 


001727 


FL83 AUF< 


»ALF 


0152 


75042 


170036 


STA 


FLBUF, I 


0153 


75043 


017550 


JSB 


FLBCH 


0154 


75044 


130036 


IOR 


FLBUF,I 


0155 


75045 


170036 


STA 


FLBUF, I 


0155 


75046 


034036 


I3Z 


FLBUF 


0157 


75047 


017550 


JSb 


flbch 


0158 


75050 


034041 


ISZ 


FLBC2 


0159 


75051 


027041 


JMP 


FLB3 


0160* 










0161 


75052 


050412 


CPA 


,♦408 


0162 


75053 


027100 


JMP 


FEB4 


0163 


75054 


027177 


JMP 


FLB8+1 


0164* 










0165 


75055 


060442 


FLB2 EDA 


B200 


0166 


75056 


070030 


STA 


FLB* 


0167 


75057 


017550 


JSB 


FLBCH 


0168 


75060 


027036 


JMP 


FLB5 


0169 


75061 


061036 


FL822 EDA 


BIT15 


0170 


75062 


070030 


STA 


FlB$ 


0171 


75g63 


017550 


JS8 


FLBCH 


0172 


75064 


050412 


CPA 


,4408 


0173 


75065 


002401 


CLA, 


-RS8 


0174 


75^66 


027040 


JMP 


FLB25 


0175 


75067 


064343 


LDB 


i- 7 


0176 


7507b 


170036 


S1A 


FLBUF,! 


0177 


75071 


034036 


ISZ 


FLBuP 


0178 


75072 


006006 


INB ( 


-8 Z 8 


0179 


75073 


027070 


Jmp 


*«3 


01*0 


75 74 


064444 


LOB 


B400 


0181 


75075 


174036 


ST B 


FLbUF#I 


0162 


75076 


002004 


INA 




0183 


75077 


027101 


JMP 


FLB26 


0194* 










0l8& 


75100 


0623 5 7 


FEB4 LDA 


.♦5 


0166 


75101 




FLB26 EQU 


* 


0187 


75101 


040036 


ADA 


FEBuF 


0186 


75102 


070036 


STA 


FLBUF 


0189 


75103 


034040 


ISZ 


FLBC1 


0190 


75104 


002001 


PSS 




0l9l 


75105 


027177 


JMP 


FLBa+l 


0192 


75106 


060031 


LOA 


FLBCM 


0193 


75107 


002002 


SZA 




0194 


75110 


027024 


JMP 


FLB1 


0195 


75111 


034047 


ISZ 


FLBFF 


0196 


75112 


034046 


ISZ 


flbfc 


0197 


75113 


027013 


JMP 


FLBA 


0198* 










0199 


75U4 


060040 


EDA 


FLBC1 


0200 


75115 


040373 


ADA 


.♦17 


0201 


75116 


003004 


CMA, 


,INA 



better not be a blank, 
fail if it is, 

* or $ flag first character 
position on left 
and store in buffer, 

GET RIGHT CHARACTER 
AND PACK IN, 

BUMP BUFFER POINTER, 

OET NEXT CHARACTER. 

TES1 FOR END OF F ILL" NAME, 



IF END OF FILE NAME, CHAR MUST 

BE A BLANK, 
FAIL IF NUT, 

IF 1ST CHAR IS $, SET fiL$ TO 

INDICATE LIBRARY FILE, 
GET NEXT CHAR, 

IF FIRST CHAR IS *, SET FIL$ TO 
INDICATE SRQUP LIBRARY FjlE 

GET NEXT CHARACTER 

I3 Ij BLANK? 

YES, * IS PLACE HyLDER 

NO, CONUNUfc PROCESSING NAME 

CLEAR BUFFER 
SINCE NO 
FILE NO* 



RESERVE 256 WORDS 

IN gORE FOR FUTURE FILE 



LEAVE ROOM FOR STORAGE 

Of- FILE INFORMATION 
FROM THE DIRECTORY 
TEST FOR TOO MANY FILES, 



TE8T FOR ANY MORE REQUESTED, 

YES JF COMMA WAS SEEN, 

COUNT UP POINTER INTO TABLE 

CHECK COUNTER 

PROCESS ANOTHER FILES STATEMENT. 

SET FILC1 TO EQUAL 

-# OF FILES REQUESTED 
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0202 
0203 
0204* 
0205 

0206 

0207 

0206* 

0209 

0210 

0211 

0212 

0213* 

0214 

0215 

0216 

0217 

021b 

0219 

0220 

0221 

0222 

0223 

0224 

0225* 

0226 

0227 

0228 

0229 

0230 

0231* 

®232 
0233 

0234 

0235 

0236 

0237 

0238 

0239 
0240 
0241 
0242 
0243 
0244 

0245 

0246 

0247 

0240* 
0249 
0250 
0251* 



75117 
75120 

75121 
75122 
75123 

75124 
75125 
75126 
75127 

75130 
75131 
75132 
75133 
75134 
75135 
75136 
75137 
75i4fej 
75141 

75H2 

75143 
75143 
75144 
75145 
75146 

75147 
75150 
75151 
75152 
75153 
75154 

75155 
75156 

75157 
75j60 
75161 
75162 
75163 
75164 
75i65 
75166 
75167 
75170 
75171 
75i72 
75173 

75174 
75175 



070040 
070041 

036435 

060037 
070036 

060273 

040341 
160000 
070044 

164036 
006003 
027143 
060044 
006020 
060612 
005727 
006020 
027147 
005727 
027165 



064036 
044362 
074036 
027262 

005665 
005727 
174036 
010602 
00640« 
100400 
000437 
100200 
000437 
064000 
060732 

010044 
030001 
164036 
1044^0 
000030 
034036 
104200 
100036 
104400 
000032 

116005 
027203 



STA FLBC1 

STA FLBC2 

ISZ SCH L Q 

LDA FLBFP 

STA FLBUF 



BUMP RETURN ADDRESS SInCE WE'VE 
NOW CHECKED PUR TYPE I ERRORS, 
SET POINTER TO BUFFER AGAIN, 



LOA MLJNK+1 GET US^R 10 AND SAVE It. 

ADA , 4 ?ID»?LINK 

LOA 0,i 

STA FLBIO 



FLB6 LDB FLBUF, I 
SiB,RS8 
JMP FLB27 
LDA FLBID 
SSB 

LDA A000 
BLF,BLF 
SSB 

JMP FLB24 
BLF,BLF 
JMP FLB23 

FLB27 EQU * 

LDB FLBUF 
ADB .+8 
STB FLBUF 
JMP FLB28 

FLB24 ELB,CLE,ERB 
BLF,BLF 
STB FLBUF,! 
AND B1777 
CLB 
t>IV .100 

MPY ,100 

LDB A 
LOA M2000 
AND FLBID 
IOR B 

LDB FLBUF, I 
FLB23 DST LTfcMP 

ISZ FLBUF 
OLD F-LBuF,l 

DST LTEMP+2 



GET FIRST WORO OF FILE NAME, 
IS THIS A PLACE HOLDER 
YES, SKIP DIRECTORY LOOKUP 

jF BjT 15 UF F1R8T WORD iS SET, 

PERFORM SEARCH USING A000, 
IF Bit 7 OF 

FIRST WORD 13 SET 

SET UP FOR GROUP WIB SEARCH 
EUs*. RESTORE FIrsT WOrD 



BUMP POINTER 
TO NEXT TEMP 

BUFFER ENTRY 



CLEAR BIT 7 
AND 

RESTORE TO TABLE 
ISOLATE NUMERICAL PART OF ID 

GET 



LIBRARIAN 

USER 

NUMBER 
RESTORE FIKST WORD OF FILE NaME 



GET NEXT 2 WORDS ALSO. 



J3B DLOKP,I SEARCH FOR FjLE 
JMP FLB7 FOUND IT, 
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0252 


75176 


016047 Flge J3g 


RpPRO 


0253 


75177 


002400 


CLA 




0254 


75200 


172006 


STA 


DlRWP,l 


0255 


75201 


015322 


JSB 


DCMPL 


0256 


75202 


026510 


JMP 


SCHBL 


0257* 










0258 


75203 


FLB7 EQU 


* 


0259 


75203 


060034 


LDA 


LTEMP+4 


0260 


75204 


040360 


ADA 


#♦6 


0261 


75205 


160000 


LOA 


A, I 


0262 


75206 


172006 


STA 


DIRWP,I 


0263 


75207 


064035 


LDB 


LTEMP+5 


0264 


75210 


044354 


ADB 


,♦2 


0265 


752U 


160001 


LDA 


If I 


0266 


75212 


002021 


SSA, 


,RS3 


0267 


75213 


027176 


JMP 


FLB8 


0268 


75214 


044351 


ADB 


.-l 


0269 


75215 


160001 


LDA 


lr I 


0270 


75216 


002021 


SSAi 


-RS8 


0271 


75217 


027224 


JMP 


FLB9 


0272 


75220 


060030 


LOA 


LTEMP 


0273 


75221 


050044 


CPA 


FLBID 


0274 


75222 


003777 


CCA, 


,S E Z,CC£, 


0275 


75223 


027J76 


JMP 


FLB8 


0276* 










0277 


75224 


034036 FLB9 132 


FLBUF 


0278 


75225 


034036 


I3Z 


FLBUF 


2 79 


75226 


044360 


ADB 


.♦6 


0280 


75227 


160001 


LOA 


B,I 


0281 


75230 


170036 


STa 


FLBUF, I 


0282 


75231 


006004 


INB 




0283 


75232 


034036 


ISZ 


FLBUF 


0284 


75233 
75234 


104200 
100001 


DLO 


B,I 


0285 


75235 
75236 


104400 
100036 


DST 


FLBUF, 1 


0286 


75237 


064035 


ldb 


LTEMP+5 


0287 


75240 


044365 


AOB 


.♦n 


0288 


75241 


034036 


ISZ 


FLBUF 


0289 


75242 


034036 


ISZ 


FL&UP 


0290 


75243 


060044 


LDA 


FLBID 


0291 


75244 


050030 


CPA 


LTEMP 


0292 


75245 


002401 


CLA, 


-RSS 


0293 


75246 


061036 


LOA 


BIT15 


0294 


75247 


130001 


IOR 


B,I 


0295 


75250 


170036 


STA 


FLBUF, I 


0296 


75251 


034036 


ISZ 


FLBUF 


0297 


75252 


044343 


ADB 


• -7 


0298 


75253 


160001 


LDA 


B,I 


0299 


75254 


170036 


STA 


FLBUF, I 


0300 


75255 


034036 


ISZ 


FLBUF 


0301 


75256 


016076 


JSB 


DATE 


0302 


75257 


06403b 


LDB 


LTEMP+5 


0303 


75260 


044357 


ADB 


,♦5 


0304 


75261 


170001 


SIA 


»M 



IF NUT FQUNq, RETURN TO 

NO DIRECTORY BLOCK IN CORE NOW 



LOAD POINTER TO OIREC ENTRY, 
POINTER TO DRUM ADDRESS 
LOAO CURRENT DRUM ADDRESS 
SET DIRWO FOR DLOOK 
TEST TO SEE 
IF THIS IS 
REALLY A 
FILE. 
FAIL IF NOT, 
TEST FqR protected. 



NOT PROTECTED, 

IF PRO,, TEST FOR FILE OWNER 

SSA,SLA, INA,SZA,HSS JRW 

PROTECTED FILE ACCESS-^FAIL, 



GET DRUM 

ADORESS AND INSERT 

JN BUFFER ENTRY WORD 4 
BUMP DIRECT, POINTER TO DISC ADU 
BUMP BUFF POINTER TO WORD 5 
GET DISC ADDRESS AND 

PUT IT IN THE BUFFER 

OET DIRECTORY ENTRY POINTER 
ADJUST TO FILE LENGTH WORD 
BUMP BUFFER POINTER 

TO LENGTH SLOT 
TEST FOR USER REFERENCE 

TO PUBLIC OR GROUP FILE 
NO, CLEAR BIT 15 
YES, SET BIT 15 
OR IN FILE LEN6TH 
STORE IT IN BUFFER 
aUMP POINTER TO RECORD SIZE SLOT 
SAME FOR DIRECTORY POINTER 
TRANSFER RECORD SIZE 

TO BUFFER 
BUMP POINTER TO NEXT ENTRY 
GET DATE AND SET 

INTO PURGE (LAST 
REFERENCED) 
DATE, 
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0305* 

0306 

0307 

0308 

0309* 

0310* 

0311* 

0312* 

0313 

0314 

0315 

0316 

0317 

0316 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330* 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0336* 

0339 

0340 

0341 

03 4 2 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353* 

0354* 

0355* 

0356* 

0357* 

0358 



75262 

75262 034040 

75263 027130 



FLB28 EQU * 

ISZ FLBC1 
JMP FLB6 



TEST FOR ANY MORE FILES. 



Wfc HAVE FOUND ALL THE FILES, WE NOW HAVE TO UPDATE THE FUSS TABLE, 
FIRST CHECK TO SEE IF THE PROGRAM HAS ROOM ENOUGH FOR THE TABLE, 



75264 
75265 
75266 
75267 
75270 
75271 
75272 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75301 
75302 
75303 
75304 

75305 
75306 
75307 
75310 
75311 
75312 
75313 

75314 
75315 
75316 
75317 
753g0 
75321 
75322 
75323 
75324 
75325 
75326 
75327 
75330 
75331 



162006 
002003 
027272 
064562 
016231 
127603 

036435 
060041 
070040 
003004 
100200 
000371 
040056 
003000 
040462 
002020 
027176 

036435 
060732 
070072 
160540 
064566 
016231 
Il6 i5 

060273 
040336 
160000 
001727 

00j722 
040562 
070045 
070030 
064317 
002400 
170030 
034030 
006006 
027326 



lda di«wp,i 

SZArPSS 
JMP FLB29 
LOB LIBO 

jsb druml 
jmp dlk9p,i 

FL629 EQU * 

ISZ SCHLQ 
LOA FLBC2 
STA FLBCl 
CMA,INA 
MPY ,*FTEL 

ADA PBPfR 

CMA 

ADA LWAUS 

SSA 

JMP FLB8 

ISZ SCH L Q 

LDA M2000 

SjA WORD 

LOA FUSS, I 

LOB LlBOi 

JSB DRyML 

JSB SICKP,! 



write directory to drum 
if any is in core 

outgoing core adoress, 

canh, go aitempt salvage 

bump to next error exit, 
get * of files, 

compute new value of pbptr 



TEST FOR OVERFLOW, 

FAIL«—PR0GHAM TOO LARGE. 

BUMP To NORMA' RETURN ADDRESS, 
INP UT FuSS TAdLE 



IT'S STUCK ON THE DRUM 



LDA MLImK+1 DETERMINE USER #, 
ADA ,*?TNUM»?LINK 



LDA 0fl 
ALFf ALF 
ALF,RAL 
ADA LIBD 



STA 
STA 
LDB 
CLA 
STA 
ISZ 



FLBFS 
LTEMP 

M32 

LTEMP r I 
LTEMP 



USER # IN BITS 12-8 
RIGHT JUSTIFY USER # 
MULTIPLY USER # BY 32 
ADD LIBD TO POINT AT 
SECTION OF FUSS, 



AND 
USER'S 



ZERO OUT USER'S SECTION 



INB,SZ8 
JMP *.3 



NOW CHECK TO SEE IF ANY OF THE REQUESTED FILES ARE BEING USED BY 
ANOTHER USER, IF THEY ARE, WE ALLOW ONLY FILE READS BUT NO WRITES, 
IF THE USER IS AN »A«, WE SKIP THE TEST, 



75332 060044 



LDA FLBID 
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0359 


75333 


010732 




AND 


M2000 


0360 


75334 


050612 




CPA 


A000 


0361 


75335 


027403 




JMP 


FLB10 


0362* 












0363 


75336 


060037 




LOA 


FLBFP 


0364 


75337 




aan 


EGU 


* 


0365 


75337 


070036 




STA 


FLBUF 


0366* 












0367 


75340 


164036 




LOB 


FLBUF f I 


0360 


75341 


006003 




SZB, 


,RSS 


0369 


75342 


027366 




JMP 


FLB30 


0370 


75343 


040356 




ADA 


,♦4 


0371 


75344 


070036 




SlA 


FLBUF 


0372* 












0373 


75345 


064562 




LOB 


LIBO 


0374 


75346 


077604 




STB 


FUSCH 


0375 


75347 

75350 


104200 
100036 




OLD 


FLBUF,! 


0376 


75351 


153604 


FLBM 


CPA 


FUSCH, I 


0377 


75352 


027362 




JMP 


FLB18 


0378 


75353 


037604 




ISZ 


FUSCH 


0379 


75354 


037604 


FL819 


ISZ 


FUSCH 


0380 


75355 


060536 




LOA 


L1024 


0381 


75356 


053604 




CpA 


FUSCH 


0382 


75357 


027376 




JMP 


FLB13 


0383 


75360 


160036 




LO* 


FLBUF, I 


0384 


75361 


027351 




JMP 


FLB14 


0385 


75362 


037604 


F L B18 


ISZ 


fusCh 


0386 


75363 


157604 




cpb 


FUScHfl 


0387 


75364 


027370 




JMP 


FLB12 


0368 


75365 


027354 




JMP 


FLB19 


0389* 












0390 


75366 




K630 


EQU 


* 


0391 


75366 


060360 




LOA 


,♦6 


0392 


75367 


027377 




JMP 


FLBi3*l 


0993* 












0394 


75370 


034036 


FL812 


ISZ 


FLBUF 


0395 


75371 


034036 




ISZ 


FLBUF 


0396 


75372 


160036 




LDA 


FLBUF, I 


0397 


75373 


031036 




IOR 


BIT15 


0398 


75374 


170036 




STA 


FLBUF,! 


0399* 












0400 


75376 


002401 




CIA, 


rRSS 


0401 


75376 


060354 


FL813 


LOA 


#♦2 


0402 


75377 


040354 




ADA 


,♦2 


0403 


75400 


040036 




AOA 


FLBUF 


0404 


75401 


034040 




ISZ 


FLBC1 


0405 


75402 


027337 




JMP 


FLB11 


0406* 












0407* 


NOW UPDATE FUSS BY 1 


PLACING THE 


0408* 


INTO ' 


rHE USER 


iS FUSS AREA, 


0409* 












0410 


75403 


060041 


FLB10 


LOA 


FLBC2 


0411 


75404 


070040 




STA 


FLBC1 


0412 


75405 


06003/ 




LOA 


FLBFP 



SET BUFFER POINTER. 

ADDRESS, 

GET FIRST hORO OF NAME 
PLACE HOLDER? 
YES 

NO, BUMP POINTER TO 
DISC ADDRESS 

PUT ADDRESS OF FUSS 

INTO FUSS SEARCH POINTER 
GET DIsC ADDRESS 

UPPER WORDS EQUAL? 
YES, 60 COMPARE LOWER 
NO, BUMP 

fuss pointer 
get fuss end address 
have we exhausted fuss? 
yes, go check next file 
no, restore upper ao ress word 

and go compare again 
bump to low address word 
is low address also euual? 
yes, co flag read only 
no, go check next filk*e 



BUMP BUFFER POINTER 

TO LENGTH WORD 
SET DISC LENGTH TO SAY 
READ ONLY, 



ADJUST BUFFER POINTER 

TO NEXT FiLE NAME 
TEST FOR ANY MORE 



SET COUNTER, 

GET POINTER TO FIRST ONE, 
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0413 


75406 




FLB15 EQU 


.* 




0414 


75406 


040360 


ADA 


.♦6 


GET FILE LENGTH 


0415 


75407 


164000 


LOB 


0*i 




0416 


75410 


040350 


ADA 


t*2 


A POINTS TO HIGH DISC ADDRESS 


0417 


75411 


006021 


SSB, 


.RSS 


IF NOT READ ONLY, 


04J8 


75412 


00640} 


CLB, 


-RSS 


LEAVE BIT j5 0, 


0419 


75413 


065036 


LOB 


BIT15 


ELSE SET IT, 


0420 


75414 


144000 


ADB 


0.1 




0421 


75415 


174045 


STB 


FLBFS, I 


AND PUT INT) TABLE, 


0422 


75416 


034045 


I8Z 


FLBFS 


BUMP 


0423 


75417 


002004 


INA 




POINTERS AND 


0424 


75420 


164000 


LDB 


A, I 


STORE LOW 


0425 


75421 


174045 


STB 


FLBFS, I 


DISC ADDRESS 


0426 


75422 


034045 


isz 


FLBFS 


REBUMP 


0427 


75423 


040355 


ADA 


.♦3 


POINTERS 


0428 


75424 


034040 


ISZ 


FLBC1 


TEST FOR DONE, 


0429 


75425 


027406 


JMP 


FLB15 




0430* 












0431 


75426 


160540 


LDA 


FUSS, I 


WRITE FUSS TABLE BACK TU 


0432 


75427 


064562 


LOB 


HBD 


DRUM 


0433 


75430 


016231 


J36 


DRUML 




0434 


75431 


116015 


J SB 


SICKP,! 


IT'S STUCK IK CORE 


0435* 












0436 


75432 


016047 


J3B 


RDPRG 


READ IN USSR'S PROGRAM AGAIN, 


0437 


75433 


061504 


LOA 


FILTB 




0438 


75434 


071576 


STA 


VALTB 




0439 


75435 


064037 


LOB 


FLBFP 


GET BUFFER POINTER 


0440 


75436 




FL.B16 EQU 


* 




0441 


75436 


044360 


ADB 


.♦6 


BUMP TO LENUTH WORD 


0442 


75437 
75440 


104200 
100001 


DLO 


B,I 


GET LENGTH WORD AND RECORD SI 


0443 


75441 
75442 


104400 
101576 


DST 


VALTB,! 


STORE THEM IN FILE TABLE 


0444 


75443 


035576 


ISZ 


VALTB 


BUMP FILE 


0445 


75444 


035576 


ISZ 


VALTB 


TABLE POINTER 


044 6 


7 5445 


00166 5 


ELAi 


-CLE, ERA 


REMOVE Blf 15 FROM LENGTH 


0447 


75446 


040350 


ADA 


• "2 


COMPUTE RELATIVE 


0448 


75447 


002016 


SLA, 


rINA,SZA 


ADDRESS OF LAST 


0449 


75450 


040351 


ADA 


.-1 


LOGICAL RECORD 


0450 


75451 


007400 


CCB 




SET FIRST DISC ADDRESS wqrD 


0451 


75452 


175576 


STB 


VAi TB,I 


TO A LL ONES 


0452 


75453 


064355 


L D B 


,43 


GET 


0453 


75454 


044037 


ADB 


FLBFP 


DRUM 


0454 


75455 


164001 


LDB 


8,1 


ADDRESS 


0455 


75456 


006003 


SZ8, 


-RSS 


IS FIcE SAnCT.FIED? 


0456 


75457 


027474 


JMP 


FLB20 


NO, FILL DOUBLE WORDS 


0457 


75460 


035576 


ISZ 


VALTB 


YES, BUMP FILE TABLE POINTER 


045b 


75461 


001020 


ALS, 


,ALS 


1 RECORD ■ 4 SECTORS 


0459 


75462 


040001 


ADA 


B 


compute drum address 


0460* 










OF LAST LOGICAL RECORD 


0461 


75463 


171576 


STA 


valtb,i 


IN8ERT INTO FILE TABlE 


0462 


75464 


060355 


LDA 


,♦3 




0463 


75465 


041576 


ADA 


VALTB 




0464 


75466 


071576 


STA 


VALTB 


INSERT "SANCTIFIED" FLAG 


0465 


75467 


003400 


CCA 




INTO HIUH WORD OF 



PAGE 0381 #34 FILES 



0466 
0467 
0466 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 

0482 
0463 
0484 
0485 

0486 

0487 
0486 
0489 
0490 
0491 
0492 
0493 
0494 
0495 

0496 

0497 
0496 
0499 
0500 

0501 
0502 
0503 
0504 
0505 

0506* 

0507* 

0508 

0509 

0510 

0511* 

0512* 

0513* 

0514* 

0515* 



75470 
75471 
75472 
75473 
75474 

75475 
75476 
75477 

75500 
75501 
75502 

75503 
75504 
75505 
75506 
75507 
75510 

755U 
75512 
75513 
75514 
75515 
75516 
75517 
75520 
75521 

75522 
75523 
75524 

75525 
75526 
75527 
75530 
75531 
75532 
75533 
75534 

75535 
75536 
75537 
7554fcj 
75541 
75542 
75543 
75544 



171576 
035576 
175576 
027521 
064037 

044356 
077604 

006004 
000040 
140001 
067604 
164001 
002040 
006004 
101100 
104400 
101576 
060356 
041576 
071576 
104200 
175604 

104400 
101576 
035576 
061576 
040356 
07J576 
164037 
175576 
034037 
035576 
104200 
100037 
104400 
101576 
061576 
040355 
071576 
064037 
044361 
074037 
034041 
027436 
070056 



75545 002400 

75546 172006 

75547 026510 



Fty20 



FU821 



8TA 

ISZ 
STB 

JMP 

LOB 
AOB 
STB 
INB 
CLE 
ADA 
LOB 
LOB 
SEZ 
INB 
SWP 
03T 



VALT B fI 
VALTB 
VALT8,I 
FLb21 

flbpp 

.♦4 

FU3CH 



8#I' 

FUSCM 

B,I 



VA|J6,I 



LDA ,*4 

ADA VALTB 

STA V ALT8 

OLD FusCH,I 

DST VALTB, I 



ISZ 
LDA 
ADA 
STA 
LOB 
STB 

I3Z 

ISZ 

DLO 



LDA 
ADA 
STA 
LDB 
AOB 
STB 
ISZ 
JMP 

STA 



VALTB 

VALTB 

.♦4 

VALTB 

FLBFP, I 

VALTB, I 

FLBFP 

VALTB 

FLBpP,I 



DST VALTB,! 



VALTB 

.♦FTEL.12 

VALTB 

FLBFP 

.♦7 

FLBFP 

FLBC2 
FLB16 
PBPTK 



CLA 

STA DjHWP,i 

JMP SCHBL 



BASE ADDKESS 
INSERT BASE DRUM ADDRESS 

INTO LOW WORD 
GO PREPAHE FOR NEXT f-JLE 

not Sanctified; get address 
of high disc address 
and save it 
get pointer to low disc add wd, 

add relative last record address 
b gets high disc 

address wurd 
if low add overflew, 

add 1 to high part 
store both words 

of disc address 



BA3E DISC ADDRESS 
INTO FIuE TABLE 

ADJUST POINTER 
BUMP POINTERS, 

MOVE 
FILE 
NAMg; 

INTO 
TABLE 

TEST FOR ANY MORE, 



ADVANCE 
FIRST 



PBPTR TO 
UNUSED WORD 



NO OjRECTORY BLOCK IN CORE NOW 



FLBCH GETS THE NEXT CHARACTER OUT OF THE FILES 
STATEMENT, IF FLBCMii, IT ASSUMES A COMMA HAS BEEN 
SEEN A N D RETURNS A BLAnK, OTHERWISE IF THE CHARAC- 
TER IS A COMMA, IT SETS KLBCM AND RETURNS A BLANK, 
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14516* 


IT ALSO RETURNS BLANKS AT THE END 


OF THE CODE, 


0517* 












0518 


75550 


000000 


FL8CH 


NOP 




05l9 


75551 


0604^2 




LOA ,*40B 


RETURN BLANK IF 


0520 


75552 


064031 




LOB FLBCM 


FLBCM IS SET, 


0521 


75553 


006002 




SZB 




0522 


75554 


127550 




JMP FLBCHrl 




0523 


75555 


064043 




LOB FLBCP 


GET CHAR, POINTER, 


0524 


75556 


006004 




INB 


QTHERWlSt ByMp 


0525 


75557 


054042 




CPB FLBP 


IF END OF STATEMENT, 


0526 


75560 


127550 




JMP FLBCH,I 


RETURN A BLANK, 


0527 


75561 


074043 




STB FLBCP 


POINTER. 


0528 


75562 


004065 




CLE,ERB 


GET NEXT CHAR, 


0529 


75563 


160001 




LOA 1,1 




0530 


75564 


002041 




SEZrRSS 




0531 


75565 


001727 




aLF, A LF 


ROTATE IF NECESSARY. 


0532 


75566 


010441 




AND B177 


MASK, 


0533 


75567 


002003 




S**»KSS 


SKIP 0'5. 


0534 


75570 


027551 




JMP FLBCH+1 




0535 


75571 


040766 




ADA M96 




0536 


75572 


002021 




8SA,RS8 


LOWER CASE? 


0537 


75573 


040317 




ADA M32 


YES, MAKE INT3 UPPER CASE 


0538 


75574 


040730 




ADA ,140 


NO 


0539 


75575 


050426 




CPA •♦54b 


TEST FOR COMMA. 


0540 


75576 


002001 




RSS 




0541 


76577 


127550 




JMP FLBCH,I 


NOT A COMMA, 


0542 


75600 


034031 




I3Z FLBCM 


IF COMMA, SET FLAG AND GO 


0543 


75601 


027551 




JMP FLBCH+1 


RETURN A BLANK, 


0544* 












0545 


00030 




Fl8* 


EQU LTEMP 




0546 


00031 




FtecM 


ECU LTEMP+1 




0547 


00036 




FLBUF 


EQU LTEMP+6 




0546 


00037 




FLBFp 


EqU LTEMp+7 




0549 


00040 




FLBCi 


EQU LTEMP+B 




0550 


00041 




FLBC2 


EQU LTEMP+9 




0551 


00042 




FL8P 


EQU LTEMP+10 




0552 


00043 




FLBCP 


EQU LTEMP+U 




0553 


00044 




FLBID 


EQU LTEMP*12 




0554 


00045 




FLBFS 


EQU LTEMP+13 




0555 


00046 




FlBFC 


EQU LTEMP+14 




0556 


00047 




FLBFF 


EQU LTEMP+15 




0557 


75602 


073571 


FILBP 


DEF FILBF 




0558 


75603 


031173 


DU9P 


OEF QLQK9 




0559 


75604 




SPUB 


EQU * 




0560 


75604 


000000 


FUSCH 


B3S 1 


FUSS TABtE SEARCH POINTER 
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0003* 
0004* 

0005* 

0006* 
0007* 
0000* 
0009* 

0010* 

00H* 
0012* 
0013* 
0014* 

0015* 

0016* 

0017* 

0010* 

0019* 

0020* 

0021* 

0022* 

0023 

0024 

0025 
0026 

0027 
0020* 

0029 
0030 
0031 
0032 
0033 
0034 

0035 

0036 

0037 

0030 

0039 

0040* 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0040* 

0049 

0050 

0051 

0052 
0053 
0054 



THg ASSIGN ROUTINE IS USED BY THE 0ASIC STATEMENT EXECUTION PROCeS 
(PHASE III) TO PROCESS AN ASSIGN STATEMENT, THE PURPOSE OF THE ROU 
TINE IS TO REPLACE THE INFORMATION CURRENTLY IN THE FILt CONTROL 
BLOCK REFERENCED BY A SPECIFIED OROINaL NUMBER WITH INFORMATION Ad 
THE NE W FILE BEING ASSIGNED TO THAT ORDINAL NUMBER, INP T PARAMETfc 
TO THE ASSIGN ROUTINE ARE A8 FOLLOWSl 

ASBFPi > TO BUFFER CONTAINING FILE NAME 

ASNID? 0« USER LIBRARY, \* SYSTEM LIBRARY, 2» GROUP LIBRARY 

ORDNO; SPECIFIED ORDINAL NUMBER 

FIlTBj »> FIi,E TABi,E 

THE CALLING SEQUENCE TO THE ASSIGN ROUTINE IS AS FOLLOWS; 

JSB SCHLB,I 

def ASNIB 

<ExiT FOR NON-EXISTENT FiLE> 

«EXIT FOR 'READ-ONLY' (GROUP OR SYSTEM LIB,) FILE> 

<EXIT FOR 'READ-ONLY' (IN USE) FILE> 

<NORMAL EXIT> 



75000 
75000 
75001 
75002 
75003 

75004 
75005 
75006 
75007 
75010 
75011 
75012 

75013 
75014 
75015 
75016 
75017 

75020 

75021 
75022 

75023 
75024 

75025 

75026 

75027 

75030 
75031 
75032 
75033 
75034 
75035 
75036 



060273 
040341 
160000 
070041 

013500 
070030 
060041 
020030 
006400 
100400 
000437 
100200 
000437 
030030 
070030 
063512 
073510 

064041 
061470 

050353 
064612 
050354 
064030 
177510 

061552 
070037 

100200 
000371 
041504 
070036 
002004 



ASN1 



ASN2 



ORG 


LIBRA 




LDA 


MLINK+1 


GET USER ID AND STORE 


ADA 


.♦7ID-7LINK 


LDA 


0,1 




STA 


ASNID 




AND 


HI6 


LOSE NUMERICS 


STA 


LTEMP 


SAVE 


LDA 


ASNID 


GET THE ID BACK 


XOR 


LTEMP 


LOSE THE TOP 


CLB 




3ET UP FOR OIVISION 


DIV 


,100 


PRODUCE GROUP 


MPY 


,100 


LIBRARY ID 


IOR 


LTEMP 


AND SAVE 


STA 


LTEMP 


IN LTEMP 


LDA 


ASFBF 


INITIALIZE INFORMATION 


STA 


ASBUF 


BUFFER POINTER 


LOB 


ASNID 


GET USER ID 


LDA 


ASTYP 


GET LIBRARY INDICATOR 


CPA 


.♦1 


SYSTEM LIBRARY? 


LOB 


A000 


YES 


CPA 


,♦2 


GROUP LIBRARY? 


LOB 


LTEmP 


YES 


STB 


ASBUF,! 


STORE CORRECT ID IN BUFFER 


LDA 


ORDNO 


SAVE SPECIFIED 


8U 


asord 


ORDINAL NUMBER 


MPY 


.♦FTEL 


SAVE POINTER 


ADA 


FILTB 


TO FILE TABLE 


STA 


ASFCB 


ENTRY 


INA 
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0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0066 

0069 

0070 
0071 
0072 
0073 
0074 

0075 

0076 
m77 

0076 
0079 
0080 
0081 
0082 
0083 
0064 
0085 
0086 
0087 
0088 
0089 

0090 

0091 
0092 
0093 
0094 
0095 
0096 

0097 

0096 
0099 
0100* 
0101 



75037 
75040 
75041 
75042 
75043 
75044 
76045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 
75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 

75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 
75103 
75104 
75105 
75l0g 
7510? 
75110 
75111 
7bU2 
75113 
75U4 

75II5 
75116 

75117 

75120 

75121 

75122 

75123 



164000 
004066 
004066 
005323 
077507 
002041 
027112 
064041 
074030 
040364 
164000 
074031 
002004 
104200 
100000 
104403 
000032 
061556 
164000 
074042 
002004 

104200 
100000 
104400 
000043 
116005 
002001 
027103 
060034 
040360 
160000 
172006 
060201 
064035 
044360 
170001 
060042 
070031 
104200 
000043 
104400 

000032 
027122 

065556 
160001 
070031 
00$004 
104200 
100001 
104400 
000032 
163510 
070030 



CLE, 

CUE, 

R6R, 

STB 

SE Z , 

JMP 

LOS 

STB 

AOA 

LOB 

STB 

INA 

DLO 



0,1 
ELB 
ELB 

RBR 
ASSAV 

R8S 
ASN21 
ASNIO 
LTEMP 

,♦10 

0,1 

LTEMP*i 

0,1 



SAVE OLO RECORD SIZE 
DID WRITE OCCUR ON OLO FILE? 
NO 

YES, SET UP 
LTEMPC0J3) 
WITH OLD 
FILE NAME 



DST LTEMP+2 

LDA ASBFP 

LDB 0,1 

STB LTEMP-M0 

INA 

L D 0,1 

DST LTEMP+ii 



SAVE 

NEw FILENAME 
BEFORE SWAP 
OCCyRS 



JSB 

RSS 
JMP 
LOA 
AOA 
LOA 
STA 
LDA 
LOB 
AOB 
STA 
ASN20 LOA 
STA 
OLD 



DLOKP,I FIND DIRECTORY ENTRY f-OR OLD FIL 



A3N20 
LTEMP+4 
.♦6 
A, I 

DIRWP,! 
DATIM 
LTEMP+b 
• ♦6 

1,1 

LTEMP+10 
LTEMP+1 
LTEMp + H 



NOT FOUND 
SAVE CURRENT 

DIRECTORY 
TRACK 

FOR DLOOK 
GET HOUR OF yEAR 
AND UPDATE 

'LAST CHANwE» 

LOCATION 
GET 

N.EW 



DST LTEMP+2 

JMP ASN22 

ASN21 LDB ASBFP 

LDA 1,1 

STA LTEMP+1 
INB 

OLD 1,1 

DST LTEMP+2 

ASN22 LDA ASBUF f I 

STA LTEMP 



HLE NAME 
IN 

LTEMPC1S3) 

SET APPROPRIATE 
ID IN LTEMP 



75124 116005 



JSb DLOKP,I SEaRCH FOR FILE 
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0102 
0103 
0104 
0105 

0106 
0107 

0106 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 

0116 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
012 7 
012S 
0129 
0130 
0131 

0132 
0133 
0134 
0135 
0136 

0137 
0138 

0139 

0140 

0U1 
0142 
0143 
0144 
0145 
0146 
0U7 
0148 
0149 
0150 
0151 
0152 
01g3 
0154 

0165 
0156 



75125 
75126 
75127 
75130 

75l3l 
75132 

75133 

75134 

75135 

75136 

75137 

75140 

75141 

75142 

75143 

75144 
75145 
75146 
75147 
75150 
75151 
75J52 
75153 
75154 
75155 
7515 6 
75157 
75160 

7St6l 
75^62 
75163 
75164 
75165 
75166 
75167 

75170 
75i7i 

75172 
75173 

75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 

75218 
75211 
75212 
75213 



006401 

007400 
060034 

040360 

160000 
152006 

027136 
002400 
172006 
006003 
027153 
036435 
162006 
002003 
027151 
006400 
176006 
064562 
016231 
127504 
016047 
027476 
064035 
044354 
160001 
002021 
027140 
044351 

160001 
002021 
027171 
044351 
160001 
050041 
006005 

027140 
044355 

160001 
173510 
003004 
043507 
002020 
027141 
036435 
037510 
044355 
160001 
173510 
006004 
037510 
160001 

173510 
006004 
037510 
160001 



CtB#R3S 

CCB 



ADA 

IDA 

CPA 
JMP 
CLA 
8TA 



LTEMP+4 
.♦6 
A, I 

DIRWP,I 
A3N23 



DIRWP,! 

ASN23 8zB,RS8 
JMP ASN4 

A3N24 ISZ SCHlQ 

A8N3 LDA DIRWP,! 
SZA,RSS 
JMP ASN26 
CUB 

STB DIRWP, I 
LDB UBD 
JS8 DRUMU 
JMP DLK9Q,I 

ASn26 J89 ROpRfi 
JMP A8N14 

A8N4 LDB LTEMP+5 
ADB ,+2 

LDA BrI 
S3A,R83 
JMP A8N24 
ADB ,-1 
LDA B,I 
3SA,R53 
JMP A3N25 
ADB ,.1 

LD A »»I 
CPA A3NID 

INB,RSS 
JMP ASN24 
ASN25 ADB ,*3 
LDA 8,1 
STA ASBUF,I 
CMA,INA 
ADA A8SAV 



A8N5 



S8A 
JMP 
ISZ 
ISZ 
ADB 
LDA 
STA 
INB 
ISZ 
LDA 
STA 
INB 
ISZ 
LOA 



ASN3 

SCHLQ 

ASBUF 

.♦3 

lfl 
A8BUF,I 

ASBUF 

1,1 
ASBUF, I 

ASBUF 
1»I 



IF FOUND, CLEaK B 
IF NOT, B GETS «1 
GET gURRENT 

directory track 
Same as other one? 
yes (so none has been written) 
no, 80 updated one has 

been written out 
if entry was found 

go check it out 

is there a changed 
directory track in core? 

NO 

YES, TELL DLOOK 
THERE ISN'T 
AND WRITS 
IT OUT 
BLEW IT, GO TRy TU SALVAGE 



IS THE 

Entry we 

FOUND 
A FILE? 
NO, FAIL 
YES, IS 

IT PERCHANCE 
PROTECTED? 
NO, CONTINUE 
YES, IS ITS 

OWNER TRYING TO 
ACCESS IT? 

YES 

NO, FAIL 
GET LOGICAL 
RECORD SIZE 

AND SAVE IT 
IS IT LARGER 

THAN THE ALLOCATED 

BuFFEr? 
YES, FAIL 
NO 



PUT FILE'S DRUM 
IN BUFFER 



PUT 
DISC 

ADDRESS 

IN 
BUFFER 



ADDRESS 
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0157 


75214 


1735J65 


0158 


75215 


044354 


0159 


75216 


037510 


0160 


75217 


164001 


0l6l 


75220 


060041 


0162 


75221 


050030 


0163 


75222 


002001 


0164 


75223 


045036 


0165 


75224 


177510 


0166 


75225 


0I6076 


0167 


75226 


064035 


0168 


75227 


044357 


0169 


75230 


170001 


0170 


75231 


0024(90 


0171 


75232 


172006 


0172 


75233 


060034 


0173 


75234 


040360 


0174 


75235 


160000 


0175 


75236 


064562 


0176 


75237 


016231 


0177 


75240 


127504 


0178* 






0179 


75241 


036435 


0180 


75242 


060732 


0181 


75243 


070072 


0182 


75244 


160540 


0183 


75245 


064566 


0184 


75246 


016231 


10185 


75247 


116015 


0186* 






0187 


75250 


060273 


0188 


75251 


043503 


0189 


75252 


006400 


0190 


75253 


100400 




75254 


000375 


0191 


75255 


001722 


01g2 


7 5256 


040562 


0193 


75257 


073505 


0194 


75260 


064037 


0195 


75261 


005000 


0196 


75262 


040001 


0197 


75263 


070040 


0198 


75264 


002400 


0199 


75265 


006400 


0200 


75266 


104400 




75267 


100040 


0201* 






0202 


75270 


002400 


0203 


75271 


073511 


0204* 






0205 


75272 


064562 


0206 


75273 


063510 


0207 


75274 


040350 


0208 


75275 


160000 


0209 


75276 


057505 



ASN50 



ASN6 



ASN7 



STA ASBUF,! 
A08 ,*2 
ISZ ASBUF 
LOB 1,1 
LOA ASNID 
CPA LTEMP 
RSS 

AD8 BIT15 
STB AS6UF,J 
JSB DATE 
LOB LTEMP+5 
AOB ,*5 
STA i,I 
CLA 

STA DIRWP,! 
LOA LTEMP*4 
ADA v *6 
LDA 0,1 
LOB LIBD 
JSB DRUML 
JMP DLK9G,I 



ISZ 

LDA 
STA 
LOA 
LOB 
JSB 
JSB 



SCHLQ 

M2000 

WORD 

FUSS, J 

LIBDI 

DRgML 

8ICKP,I 



TEST FOR USER REFERENCE 
TO PUBLIC FILE 

SET BIT 15 OF LENGTH IF IT IS 
STORE LENGTH IN BUFFER 
GET DATE ANO SET IN 
PURGE LOCATION 



TELL OLOOK THAT NO DIRECTORY 
TRACK IS IN CORE AND 
WRITE IT BACK 



BLEW IT, TRY TO SALVAGE 

FILE tXlSTS—BUMp RETURN ADOrEsS 
INPUT FUSS TABLE 



LDA ML1 N K+1 

ADA ASNSP 

CLB 

OlV .♦TTY01-TTY00 



IT'S STUCK ON THE DRUM 
DETErMI n E USER # 



ALF,RAL 

ADA LIBD 

STA ASUFS 

LOB ASORO 

BLS 

ADA 1 

STA ASNFS 

CLA 

CLB 

D8T ASNFS, I 



CLA 

STA ASNIF 

LOB LIBD 
LDA AsByF 
A[)A f «»2 

LDA 0,1 
CPB ASUFS 



MULTIPLY USER* BY 32 AND 

ADD LIBO TO POINT TO USER'S 

SECTION OF FUSS 

SET POINTER TO FUSS 
ENTRY FOR TWE, 

SPECIFIED ORDINAL NO, 

ZERO OUT OLD FjlE INFORMATION 



SAY ENTRY NOT YET 
FOUND IN FUSS TABLE 



GET FIRST WORD OF DISC ADDRESS 
SKIP OVER 
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0210 
0211 
0212 

*>213 

0214 

0215 

021a 

0217* 

0216 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226* 

0227 

0226 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236* 

0237 

0236 

0239 

tf240 

0241 

0242 

0243 
0244 

0245 
0246 
KJ247 
0240 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
2 56 

0259* 

0260 
0261 
0262 
02 63 



75277 
75300 
75301 

753^2 
75303 
75304 

75305 

75306 
75307 
75310 
75311 

75312 
75313 
75314 
75315 

75316 
75316 
75317 
75320 
75321 
75322 
75323 
75324 
75325 

75326 
75327 
75330 

75331 
75332 
75333 
75334 
75335 
75336 
75337 
75340 
7534J 
75341 
75342 
75343 
75344 
75344 
75345 
75345 
75346 
75347 
75350 
75351 

75352 
75353 
75354 

75355 



044412 
054536 
027326 
150001 
027306 
044354 

027276 

063510 
040351 
160000 
006004 

150001 
027316 
006004 
027273 



077511 
060041 
010732 
050612 
027326 
163510 
031036 
173510 

063510 
040350 
160000 
167510 
006021 
027341 
031036 
064041 
054030 
027344 
027345 

0675U 

006003 
036435 

036435 

067510 
044351 
164001 

104400 
100040 

160540 
064562 
016231 
116015 



ADB 
CPB 
JMP 
CPA 
JMP 
AOB 
JMP 



.♦32 

U1024 

ASN11 

1»I 

ASN9 

• ♦2 
ASN7 



ASN9 IDA ASBUF 

ADA .-1 

LDA rX 

INB 

CPA 1,1 

JMP ASN10 

INB 

JMP ASN6+1 

ASN10 EQU * 

SjB ASNIF 

LDA ASNID 

and M2000 

CPA A000 

JMP ASN11 

LDA ASBUF, I 

IQR BIT15 

STA ASBUF,! 



ASNll LDA 
ADA 

LDA 
LDB 

838, 

JMP 

IOR 

LDB 
CPB 

JMP 
JMP 
ASN30 EQU 
LDB 
SZb, 

ISZ 
ASN31 EQU 

"z 

ASN32 EQU 
LDB 
ADB 
LDB 
DST 



ASBUF 

( «2 

0,1 

ASBUF,! 

RSS 

ASN30 

BIT15 

ASNID 

ltemp 

ASN31 
ASN32 

* 

A3NIF 
RSS 
SCHLq 

* 

SCHLQ 
* 
ASBUF 

• *1 
1,1 
ASNFS,I 



USERS OWN FUSS 
ALL FUSS CHECKED? 
YES, NOT THERE 
TEST FOR THERE 
IT IS 

BUMp FUSS POINTER 
LOOK AT NEXT ENTRY 



GET 2ND WORD OF ADDRESS 

BUMP FUSS TO 2ND wORU 

ARE THEY EQUAL? 

YES 

MOVE TO NEXT FUSS ENTRY 

RETURN TO CHECKING FUSS 



SET TO SAY "IN FuSS" 
IS THIS 

AN "A" 
USER? 
YES 
SET DISC LENGTH TO SAY 

READ ONLY 



GET HIGH QISC ADDRESS 
GET LENGTH 
IF READ ONLY, 

SET BIT 15 OF HIGH ADDRESS, AND 
SKIP I OR BOTH RETURN INCREM 
DEPENDING ON REASON F^ R 



r ead,w r itei wa 8 i t 

In FUSS? 

no, bump twice 



LDA FUSS, I 
LDB LIBD 
JSB DRUML 
JSB SICKP,! 



GET LOW ADDRESS IN B 
STORE NEW FUSS INFORMATION 



WRITE FUSS BACK TO DISC 



IT'S STUCK IN CORE 
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0264* 

0265 

0266 

0267 

0266 

0269 

0270 

0271 

0272 

0273 

0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 

0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
02 97 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 

0308 
0309 
0310 
03U 

B3l2 

0313 
0314 

0315 



75356 
75357 
75360 
75361 
753 6 2 
75363 
75364 
75365 

753 6 6 
75367 
75370 
75371 
75372 
75373 
75374 
75375 
75376 
75377 
75400 

75401 
75402 
75403 
75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 
7 5416 

75417 
75420 
75421 
75422 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 
75434 
75435 
75436 

75437 
75440 
75441 
75442 
75443 



016047 
067510 
160001 
170036 

034036 
044346 
164001 
174036 
034036 
001665 
040350 
002016 
040351 
007400 
174036 
067510 
044347 
164001 
006003 

027416 
034036 

001020 
040001 
170036 
060036 
040355 
070036 
003400 
170036 
034036 
174036 

027442 
06 7 510 

04435® 
077506 

006004 
000049 
140001 
1675 3 6 
002040 
006004 
101100 
104400 
100036 
060036 
040356 
070036 
104200 
175506 
104400 
100036 
034036 
060036 
040347 



ASN12 



JSB 
LOB 

LOA 
STA 
ISZ 
AOB 

LOB 
STB 

ISZ 

ELA, 

ADA 

SLA, 

ADA 

CCB 

STB 

LOB 

AOB 

LOB 

SZB, 

JMP 

ISZ 

AL3, 

AOA 

STA 

LOA 

ApA 

STA 

CCA 

STA 

is z 

STB 
JMP 
LOB 
AOB 
STB 
INB 

CLE 
AOA 
LOB 
SEZ 
INB 

swP 

OST 



RDPRG 

A3BUF 

1,1 

A3FCB,I 

ASFCB 

.-< 

1,1 
ASFCB, I 

ASFCB 
CLE, ERA 

.-2 

INA,S£A 

.-1 

ASFCB, I 

ASBUF 

t«3 

1,1 
RSS 

ASN12 

ASFCB 

ALS 

1 

ASFCB, I 

A3FCB 

,♦3 

ASFCB 

ASFCB, I 
ASFCB 
ASFCB, I 
ASN13 
ASBUF 

«"2 

ASSCH 



A3SCH,I 



ASFCB,I 



LOA ASFCB 

AOA a *4 

STA ASFCB 

DLO A33CH f I 

DST ASFCB,! 

ISZ ASFCB 

ASN13 LOA ASFCB 

AOA ,»3 



READ USER'S PROGRAM BACK IN 

GET LENGTH WORD 
AND STORE IT 



get new record size 
and store j-| 

remove bit i5 from length 
compute relative 

address of last 
logical record 
set fjrst djsc address word 

to all ones 

GET 

DRUM 

ADDRESS 
13 FILE SANCTIFIED? 
NO, FILL DOUBLE WQROS 
yES, BUMP FILE TABLE POINTER 
1 RECORD ■ 4 SECTORS 
COMPUTE DRUM ADDRESS OF l*ST LOG 

RECORD ANO STORE IN FILE TABLE 



INSERT iSANCTIFIEOi FLAG 

INJO HIGH WORD qF 
BASE ADDRESS 
INSERT BASE DRUM ADDRESS 

INTO LOW WOFD 

NOT SANCTIFIED; GET ADDRESS 
OF HIGH DISC ADDRESS 
AND SAVE IT 
GE T POIN T ER T LOW DI S C AUDRE S s 

ADO RELATIVE LAST RECORD ADDRESS 
B GETS HIGH DISC ADDRESS WORD 
IF LOW ADDRESS OVERFLOWS, 

ADO 1 TO HIGH PART 
STOrE BOTH wOfcOs OF 

DISC ADDRESS 



STORE BASE DISC ADOrESS 

INTO FILE TABLE 

ADJUST POINTER 
SET 

'NULL RECORD* 
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0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 

0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 

0339 

0340* 
0341 
0342 
0343 

0344 
0345 
0346 
0347 
0346 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 



75444 
7544b 
75446 
75447 
75450 
75451 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 

75463 
75464 

75465 
75466 
75467 
75470 
75471 
75472 
75473 
75474 
75475 

75476 
75476 
75477 
75500 
75501 

75502 
75503 

00036 
00037 
00040 
00041 
75504 
75505 
75506 
75507 
75510 
755U 
75512 
75513 
75521 



065036 
174000 
063510 
040346 
067507 
007004 
144000 
034036 
160036 
040001 
170036 
034036 
170036 
034036 
002400 
170036 
034036 
061556 
164000 
174036 
002004 
034036 
104200 
100000 
104400 
100036 



016656 

026510 
176000 
177400 
177000 
116635 



03U73 

000000 

000000 
000000 
000000 
000000 
075513 
000000 



LOB 

STB 

IDA 

AgA 

LDB 

CMB, 

ADB 

ISZ 

LDA 

ADA 

STA 

ISZ 
STa 

cla 

STA 

isz 

LDA 
LOB 
STB 

INA 

isz 

DUO 



8IT15 

0>I 

ASBUF 

g *4 

ASSAV 

INB 

0,1 

ASFCB 

ASFCB,! 

1 

ASFCB, J 
ASFCB 
ASFCB,! 
ASFCB 

ASFCB, I 

ASFCB 

A3BFP 

0rl 

AgFC8,I 

ASFCB 
0,1 



GONDIUON 



COMPUTE DIFFERENCE BETWEEN 

oi.o and new buffer sizes 



ADJUST BUFFER 
ADDRESS 

SET 'RECORD FUEL' CONDITION 

SET 'NO EQF EXIT' 
CONDITION 

MOVE 

FILE NAME 
TO 
FIlE table 



OST ASFCB, I 



ASN14 EOU * 

JSB ABCHK 

JMP SCH8L 
HI6 QCT 176000 
HIS OCT 177400 
ASN28 DEC »512 
ASNSP ABS »TTY00*?LINK 
ASFCB Euu LTEMP+6 
ASORD EQU LTEMP+7 
ASNFS EQU LTEMP+8 
ASNID EOU LTEMP+9 

dlk9q def dl0k9 
asufs bss 1 

ASSCH BSS 1 
ASSAV BSS 1 
ASBUF BSS 1 
ASNIF BSS 1 
ASFBF DEF #+ l 

BSS 6 
SASN EUU * 



ALL DONE 



CLEAR UNLESS FILE IN FUSS 
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0362* 

0363* 

0364* 

0365* 

0366* 

0367* 

0366 

0369 

2372 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

U376 

0379 

0380 

0381 

0382 

0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 

0396 
0397 

03 9b 
0399 
0400 
0401 
0402 
0403 
6)404 
0405 
0406 
0407 
0406 
fc)409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 



THE CH 

STATEM 

CHECK 

ON THE 

OK ON 

IF THE 

75000 

75000 

75001 

75002 

75003 

75004 

75005 

75006 

75007 

75010 

75011 

75012 

75013 

75014 

75015 

75016 

75017 

75020 

75021 

75022 

75023 

75024 

75025 

75026 

75027 

75030 

75031 

75032 

750«* 3 
75034 

75035 
75036 
75037 
75040 
75041 
75042 

75 43 
75044 

75045 
75046 
75047 
75050 
75051 
75052 
75052 
75053 
75054 
75055 
75056 



AIN ROUTI 
ENT DURIN 
FOR THE R 

PUBUC L 
THE GROuP 

PROGRAM 



061502 
003000 
071502 
002004 
070034 
061232 
065504 
044357 
035502 
002001 
«27027 
075236 
07164? 
015516 
065236 
044365 
160001 
001423 
003004 
044361 
140001 
044347 
027010 
064273 
044341 
074036 
044346 

160001 
010444 

002003 
027044 
060034 
044356 
11743 4 
002001 
016047 
160036 

070030 
060347 
070034 
063425 
064520 

006004 
170001 

034034 
027052 
002404 



NE IS USE 
G PHASE I 
EQUESTED 
IBRARY (I 
LIBRARY 

is Found 
org 

LDA 
CMA 
STA 
INA 
STA 
IDA 
LOB 
AOB 

CH N 01 ISZ 
RSS 
JMP 
STB 
STA 
JSB 
LDB 
AOB 
LDA 
ALR, 
CMA, 
AOB 
AOA 
AOB 
JMP 

CHAN0 LOB 
AOB 
STB 
AOB 
LOA 
AND 
SZA, 
JMP 
LOA 

AOB 
JSB 
RSS 
J3B 
CH N 17 L OA 
STA 
LDA 

STa 

LOA 

LDB 

CHN00 EQU 

IN B 
STA 
ISZ 
JMP 
CLA, 



D BY TH 
II, THE 
PROGRAM 
F THE N 
(IF THE 
IT IS L 
LIBRA 
FCNTR 

FCNTR 

chnp 

FCORE 
FILTB 
.♦5 

FCnTR 

CHAN0 

FBASE 

RQ3 

WRBUF 

FBASE 

t +FTEL» 

1,1 
RAR 
INA 
,♦7 

1,1 
• *3 

CHN01 

MLINK+l 

.♦?ID»? 

chni 

.•?ID 

B,I 

OFCHK 

RSS 

CHN17 

Chnp 

.♦Ho 

Lcdp,i 

ROPRG 

CH N I,1 

LTEMP 

t"3 

CHNP 

TWOSP 

OLTEM 

* 

8,1 

CHNP 

CHN00 

INA 



E BASIC COMPILER TO PROCESS A CHaJN 
PURPOSE OF THIS ROUTINE IS TO 
ON THE USER'S PRIVATE LIBRARY OR 

ame is preceded by a dollar sign) 
name is preceded by a snowflake), 
oaded and compilation is begun, 

set counter to 

i»S COMPLEMENT OF 
NUMBER OF FILES 
PUT 2'S COMPLEMENT INTO 

SAFE KEEPING FOR LCO 
LOAD FIRST BUFFER ADDRESS 
LOAD POINTER TO 

FIRST DISC ADDRESS (LOW WORD) 
MORE FILES? 
YES 

N0"FINI3HEU DUMPING BUFFERS 
WRITE 

OUT 

RECORD 



LINK 

»> USfcR Io 
CAN THERE BE 
FILE3 WHOSE 
LCD'S NEED 
UPDATING? 
NO 
G ET NEgATlVE FilE COUNT 

AND ID POINTER 
GP UPoATE LCD'S 

CORE NOT CHANGED (OVERWRITTEN) 
RESTORE USER AREA 
GET USER'S ID 
STORE IN LTEMP 



INITIALIZE 
NAME TO 
BLANKS 

ALLOW STRING 
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0417 


75057 


071472 


STA 


EOL 


CUNSTANT 


0418 


75060 


015336 


JSB 


FQRMX 


EVALUATE 3TR1NQ 


0419 


75061 


060350 


IDA 


.•2 


PREPARE 


0420 


75062 


015344 


JSB 


PSTR 


STRING 


0421 


75063 


071256 


STA 


TEMP4 


SAVE SOURCE POINTER 


0422 


75064 


054351 


CPB 


.-1 


NULL STRING? 


0423 


75065 


027137 


JMP 


CHAN4 


YES 


0424 


75066 


075410 


STB 


TPRME 


SAVE LENGTH 


0425 


75067 


065256 


U08 


TEMP4 


EXTRA C T 


0426 


750 7 


004065 


CLE, 


-ERB 




0427 


75071 


160001 


IDA 


B,X 


FIRST 


042g 


75072 


002041 


SEZ, 


,RSS 




0429 


75073 


001^27 


ALF, 


ALF 


CHARACTER 


0430 


75074 


010443 


and 


B377 




0431 


75075 


050416 


cpa 


,*44B 


' $ • / 


0432 


75076 


027U6 


JMP 


CHAN2 


YES 


0433 


75077 


050424 


CPA 


.♦52B 


NO, 1*1? 


0434 


75100 


002001 


RSS 




YES 


0435 


75101 


027122 


JMP 


CHAN3 


NO 


0436 


75102 


060030 


IDA 


LTgMP 


GET USER'S ID 


0437 


75103 


010602 


AND 


BJ777 


CONVERT 


0438 


75104 


006400 


CUB 




IT 


0439 


75105 
75106 


100400 
000437 


oiv 


• 100 


TO 


0440 


75107 
75U0 


100200 
000437 


MPY 


,100 


ID 


0441 


75ui 


064000 


LDB 


A 


OF 


0442 


75112 


060732 


IDA 


M2000 


GROUP 


0443 


75U3 


010030 


AND 


LTEMP 


LIBRARIAN 


0444 


75114 


030001 


IOR 


B 


AND 


0445 


75115 


002001 


RSS 






0446 


75u6 




CHAN2 EQU 


* 




0447 


75H6 


060612 


ID* 


A000 


SET UP FOR PUBLIC LIBRARY 


0448 


75117 


070030 


SjA 


LjEMP 


SAyE ID 


0449 


75120 


035256 


JS2 


TEMP4 


BUMP SOURCE POINTER 


0450 


75121 


035410 


ISZ 


TPRME 


BUMP LENGTH 


0451 


75122 




CMAN3 EqU 


* 




0452 


75122 


061410 


LDA 


TPRME 




0453 


75123 


040361 


ADA 


,♦7 




0454 


75124 


002020 


SSA 




LENGTH > 6? 


0455 


75125 


002400 


CIA 




YES, SET TO 6 


0456 


75126 


040343 


ADA 


,-7 


NO 


0457 


75127 


071410 


STA 


TPRME 




0458 


75130 


071406 


STA 


TNULL 




0459 


75131 


060520 


LDA 


DLTEM 




0460 


75132 


002004 


INA 






0461 


75133 


001000 


ALS 






0462 


75134 


071272 


STA 


TEMP5 


DESTINATION POINTER 


0463 


75135 


061004 


LDA 


FCUCA 


UPPER CASE ONLY 


0464 


75136 


015350 


JSB 


TRSTR 


TRANSFER STRING 


0465 


75137 




CHAN4 EQU 


* 




0466 


75137 


007400 


CCB 




SET FLAG FOR NO LINE NUMB 


0467 


75140 


061613 


LDA 


TEMPI 




0468 


75141 


051334 


CPA 


PRGCT 


END OF STATEMENT? 


0469 


75142 


027147 


JMP 


CHAN5 


YES 
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0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0466 

0487 

0488 

0469 

0490 

049i 

0492 

0493 

0494 

0495 

0496 

0497* 

0498* 

0499* 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510* 

0511* 

0512* 

05i3 
0514 

0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 

"523 
0524 



75143 
75144 
75145 
75146 
75147 
75U7 
75150 
75151 
75152 
75153 
75154 
75155 

75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 
75166 
75i67 
75170 
75171 
75172 
75173 
75174 



015356 
015342 
065032 
006004 

077426 
061577 
073427 
116005 
00200i 
027421 
064035 
044356 
160001 
002021 
027166 
160036 
050030 
036435 
027421 
036435 

036435 

044350 
160001 
002020 
027421 
036435 



JSB 
J38 
LDB 
INB 

Chans equ 

STB 

LDA 

STA 

JSB 

RSS 

JMP 

LUB 

ADB 

LDA 

SSA, 

JMP 

lda 

CPA 
ISZ 
JMP 
CHN14 ISZ 
ISZ 
ADB 

LOA 
SSA 
JMP 
ISZ 



FETCH 
SBFlX 
DVSRS 



PKCNT 
SPROG 
INWRO 
DLOKP,I 

CHAN7 

CMNPD 

.♦4 

B,I 

RSS 

CHN14 

CHNI,I 

LTEMP 

SCHLO 

CHAN7 

SCHLQ 

SCHL8 

t «2 

Ul 

CHAN7 
SCHLO 



IF ENTRY IS ON DISC, START SEEK 



75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 



044357 
160001 
002002 
02720T 
070215 
060001 
002004 
114212 
102030 
102031 



ADB 
LDA 
SZA 
JMP 
STA 
LDA 

INA 
JSB 

HLT 
hLT 



.+5 

M 

CHN10 
MWORD 
B 

DISCA f I 

30B 

318 



NO, GET LINE NUMBER 
ROUND TO INTEGER 
ILLEGAL LINE NUMBER 
READJUST 

SAVE THE LINE NUMBER 



SEARCH DIRECTORY FOR PROGRAM 

PROGRAM NOT FOUND 
CHECK ILL-STORED 
PROGRAM FLAG 

UNSUCCESSFULLY STORED? 
NO, CONTINUE 
GET USER'S ID 
DOES HE OWN THE PROGRAM? 
YES, BUMP 70 ILL-STORED MESSAGE 
NO, PRINT NONEXISTENT PROGRAM 
PAST SECOND ERROR 
AND ERROR 2,5 



ENTRY IS A FILE 
PAST THIRD ERROR 



GET DRUM 

ADDRESS 
PROGRAM QN 0RUM? 
YES, DON'T flOTHEH SEEKING 
STORE WORD COUNT 
DI3C ADDRESS ADDRE S S 

TO A REG 
INITIATE SEEK 

driver busy 

BLQCH OUT OF R*N e E 



FOUND CORRECT ENTRY, FIRST CHECK TO SEE IF IT FITS 



75207 044344 CHNj0 ADB 

75210 160001 LDA 

75211 070031 STA 

75212 044354 ADB 

75213 160001 LDA 

75214 070040 STA 

75215 006004 JNB 

75216 160001 LDA 1,1 

75217 001665 FLA, CLE, ERA 

75220 070041 STA LIBSP 

75221 044361 ADB ,*7 

75222 160001 LDA 1,1 



,»6 
B,I 

LTEMP+l 
,*2 

Wl 

LlBSC 



■> FIRST WORD OF NAME 

MOVE PROTECTED BIT 
TO SAFE PLACE 

»> IHIrD wqRD gF NAME 

SAVE SEMI- 
COMPILED FLAG 

SAVE START-QF- 

PROGRAM POINTER 
GET PROGRAM LENGTH 
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0525 


75223 


070042 


8TA CHNLN 






0526 


75224 


003004 


CmA,InA 


COMPUTE FIRST 




0527 


75225 


040041 


ADA |„IBSP 


UNUSED WORD 




0526 


75226 


070045 


STA uIBPB 






0529 


75227 


003004 


CMA,JNA 


COMPUTE NEGATIVE 




0530 


75230 


064040 


LOB LIB3C 






0531 


75231 


006021 


S3&,RS8 


SEMICOMPILED? 




0532 


75232 


»27237 


JMP CHN18 


NO 




0533 


75233 


040462 


ADA LWAUS 






0534 


75234 


002021 


SSA,RSS 






0535 


75235 


027246 


JMP CHNU 


OK 




0536 


75236 


027242 


JMP CHN19 


TOO BIG 




0537 


75237 




CHN18 EQU * 






0536 


75237 


040654 


ADA LW97 


TOTAL LEN G Th 




0539 


75240 


002021 


SSA,RSS 


COMPARE WITH MAX ALLOWEU 


054^ 


75241 


027246 


JMP CHN11 






0541 


75242 




CHN19 EUU * 






0542 


75242 


060214 


IDA MBUSY 


MAKE SURE 




0543 


75243 


002020 


SSA 


DISC DRIVER 




0544 


75244 


027242 


JMp *«2 


18 THH0U6H 




0545 


75245 


027421 


JMP QHAN7 


PROGRAM TOO LARGE 




0546 


75246 




CHNU EQU * 






0547 


75246 


036435 


I3Z SCHUQ 


Past fourth error 




054e 


7524 7 


0160 7 6 


JSB DATE 


SET NEW DATE 




0549 


75250 


064035 


LOB CHNPD 


INTO 




0550 


75251 


044357 


AOB ,+5 


DIRECTORY 




0551 


75252 


170001 


STA 1,1 






0552 


75253 


044354 


AOB *2 
LOA 6,1 


SET PROGRAM 




0553 


75254 


160001 


DRUM ADDRESS 




0554 


75255 


070044 


8TA CHNU 






0555 


75256 


006004 


INB 


ALSO 




556 


75 2 57 
75260 


104200 
100001 


OLD B,I 


DISC 




0557 


7526j 
75262 


104400 
000046 


DST CHNOI 


ADDRESS 




0558 


75263 


160034 


LOA CHNP,1 


WRITE DIRECTORY 




0559 


75264 


070072 


STA WORD 


BACK TO 




0560 


75265 


060034 


lda chnp 


DISC 




0561 


75266 


040360 


AgA ,+6 






0562 


75267 


160000 


LOA 0,1 






0563 


75270 


064562 


LOB LIBO 






0564 


75271 


016231 


JSB DRUML 






0565 


75272 


027415 


JMP CHN16 


CAN'T, GO SET UP FOR 


SALVAGE 


0566 


75273 


064273 


LOB m LInK+1 


SET TO NULL PROGRAM 




0567 


75274 


044340 


AOB ,+?PRQg« 


»?LINK 




0568 


75275 


160001 


LDA B#I 


save current 




0569 


75276 


070037 


STA CHNC 


PROGRAM BOUND 




0570 


75277 


063427 


LOA InWRO 






0571 


75300 


170001 


STA l,j 






0572 


75301 


016047 


JSB RDPRG 


READ IN FIXED AREA 




0573 


75302 


064042 


LOB CHNLN 






0574 


75303 


060044 


LDA CHNU 


GET pRUM AduRESS 




0575 


75304 


002002 


SZA 


PROGRAM ON DRUM? 




0576 


75305 


027327 


JrtP CHN12 


YES, GO GET IT 




0577 


75306 


074215 


STb mword 


NO! 
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0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
05 8 7 
6)588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
599 
0600 
0601 
0602 
0603 
0604 

0605 
0606 

0607 

0608 

0609 

0610 

06U* 

0612* 

0613* 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 
0622 

0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 



75307 
7 5310 
75311 
75312 
75313 
75314 
75315 
75316 
75317 
/5320 
75321 
75322 
75323 
75324 
75325 
75326 
75327 
75330 
75331 
75332 
75333 
75334 
75335 
75336 
75337 
75340 
75341 
75342 
75343 
75344 

75345 
75346 
75347 
75350 
75351 



064041 
045036 
063424 
114212 
027312 
102031 
060214 
002020 
027315 
002003 
027334 
064273 
044340 
060037 
170001 
027421 
074072 
064041 
045036 
016231 

027322 
160036 
034036 
064031 
050030 
005665 
174036 
034036 
104200 
000032 
10440O 
100036 

036435 
016710 
016658 



SET TO RUN 



75352 
75353 
75354 
75355 
75356 
75357 
75360 
75361 
75362 

75363 
75364 

75365 
75366 
75367 
75370 
75371 
75372 



103100 
064257 
160001 
030372 
030445 
170001 
102100 
065577 
054055 

027404 
061575 
002003 
060056 
067426 
006020 
027376 
015314 



CHN15 



CHN12 



CHN13 



LOB LIBSP 




AOB BIT15 


READ 


LOA CHNDP 


PROGRAM 


J38 DI$CA,I 




JmP *•! 




HUT 31B 


FROM 


LOA MBgsY 




S8A 




JMP *»2 




SZAfKSS 


DISC 


JMP CHN13 




LOB MUNK+J 




AOB t *?PROG« 


•?UNK 


LOA CHNQ 




STA B,I 




JMP CHAN7 




STB WQRO 




LOB LIBSP 


»> START OF PROGRAM 


AOB BIT15 




J38 ORUML 


READ PROGRAM FROM DRUM 


JMP CHN15 




LOA CHNI, I 


GET USER'S ID 


I8Z CHNI 


TO FIRST WORD OF NAME 


LOB LTEMP+i 


GET FIRST WORD 


CPA LTEMP 


IF PROGRAM OWNER CLEAR 


EL8,CLE,ERB 


RUN„QNLy BIT 


STB CHn1,I 


STORE FIRST WORD OF NA*E 


I8Z CHNI 


BUMP POINTER TO NEXT WORD 


OLD LTEMP+2 


GET LAST 2 WORL S OF NAME 


DST CHNI,! 


STORE IN TABLE 


ISZ SCH^Q 




J3B StMIC 




JSB ABCHK 


ABORT ATTEMPT? 


CLF 




LOB MAIN 




loa 1,1 


DON'T ALLOW 


IOR UNABT 


ABORTS 


XOR CHNFG 




STA 1,1 


during compile 


STP 




LOB SPROG 


NULL 


cpb pbptr 


PROGRAM? 


JMP CHAN9 


YES 


LOA SYMTB 




S Z A,RSS 


UNCOMPILED? 


lda pbptr 


yes, use pbptr 


LOB PKCNT 


LINE NUMBER 


SSB 


8PECIFIED7 


JMP CHAN6 


NO 


JSB FNDPS 


FINO REFERENCED STATEMNET 
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0631 75373 027404 

0632 75374 000000 

0633 75375 002001 

0634 75376 

0635 75376 065577 

0636 75377 075334 

0637 75400 036435 

0638 75401 

0639 75401 060412 

0640 75402 071573 

0641 75403 026510 

0642 75404 016656 

0643 75405 060445 

0644 754(96 003000 

0645 75407 064257 

0646 75410 103100 

0647 75411 110001 
0646 75412 170001 

0649 75413 102100 

0650 75414 027401 

0651 75415 164034 

0652 75416 060034 

0653 75417 040360 

0654 75420 116016 

0655 75421 016047 

0656 75422 016656 

0657 75423 026510 
0656 75424 000046 

0659 75425 020040 

0660 75426 000000 

0661 75427 000000 

0662 75430 000000 

0663 75431 073353 

0664 00034 

0665 00035 

0666 00036 

0667 00037 
0666 00042 

0669 00044 

0670 00046 
0671* LTEMP*15 
0672 75432 



JMP CHAN9 
NOP 

R3S 

CHAN6 EQU * 

LOB SPROC 
8TB PRGCT 
ISZ SCHLQ 

CHAN8 EUU * 

IDA ,+40B 
STA BLANK 
JMP 8CHBL 

CHAN9 J3B ABCHK 
LOA CHNFG 
CMA 
LOB MAIn 

CLF 
AND B,I 

STA B,l 
3TF 
JMP CHAN8 

CHN16 LOB CHNP, I 
LDA CHNP 
ADA ,4-6 
J3B 3AtVP,I 

CHAN7 JSB RqPRC 
JS6 ABCHK 
JMP 8CHBL 
DEF CHNOI 
lr 



chnop 

TWOSP 

PKCNT 

INWRD 

INQHR 

LCDP 

CHNP 

CHNPD 
CHNI 
CHNC 
CHNLN 
CMNO 
CHNOI 
IS USED 
SCHN 



ASC 
BS3 1 

BSS 1 
BSS 1 
DEF LCO 

eou ltemp+4 
eQu ltemp*s 

EqU LTEMP+6 
EQU LTEMP+7 
EQU LTEMP+10 
EOU LTEMP+12 
EQU LTEMP+14 

HERE A L 80 
EQU * 



BAD LINE NUMBER 



DEFAULT LINE NUMBER 
SAVE FIRST STATEMENT 



CLEAR CHAIN FLAG 



REAq BACK USER PROGRAM 

ABORT ATTEMPT? 

NO 
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0002* 
0603* 
0004* 
0005* 
0006* 
0007* 
0008* 

0009* 
0010* 
0011* 
0012* 
0013* 
0014* 
0015* 



THE SAVE COMMAND I S USED TO SAVE PrOGrAM$ IN THE U$ER LIBRARY, 
ThE PROCEDURE IS AS fQLLOWSl 

1) CHEQK TH A T PROGR A M IS LIST A BlE (OR ID«A000), HaS A NaME, 
AND ISN'T NULL. 

2) decompile, 

3) Check for iot or adt overflow, 

4) CHECK FOR DUPLICaTELY NaMED PROGRAM. 

5) update directory, 

6) update idt and adt, 

7) move program to l ibrary area, 

step 5 is written as an overlay/ which is called whenever the par' 
ticular directory track needed is already full, its job is 10 gar. 
bage collect the directory tracks. 



0017 75000 



ORG LIBRA 



0019 
0020 
0021 
00 2 2 
0023 
0024 
0025 
0026 

0027 

0026 

0029 

0030 

0031 

0032 

0033 

0034* 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044* 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 



75000 
75001 
75002 

75003 
75004 

75005 
75006 
75007 
75010 

750H 
75012 
75013 
75014 
75015 

75016 
75017 

75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 

75043 
75044 

75045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 



064273 

044341 
074050 
044351 
074042 
044351 
074043 
104200 
100050 
006002 
054570 
027557 
164042 
060337 
054702 
027560 

016047 
064042 
044347 
160001 
010354 
002003 
027044 
027043 
000000 

015322 
065577 
054702 
015520 
064056 
174042 
007004 
045221 
074072 
160043 



SAV0 



S AV5 



LDB MLINK + 1 b"»UNK WORD. 

AD8 .♦?ID»?LINK ID LOCN, 

STB MOVES 

AOB .♦?PRQG*?ID 

STB SAVP 

AOB ,*?DISC»?PROG 

STB 3AVD 

DLD MOVES, I A»I0,B*1ST WORD OF NAME, 



TEST FOR NO PROGRAM NAME 



SZB 




CPB 


A3CBB 


JMP 


SAV3 


LDB 


SAVP f I 


LDA 


,•11 


CPB 


PBUFF 


JMP 


SAV4 



TEST FOR NULL PROGRAM, 



J88 RDPRG READ PROGRAM TO CORE 
LDB SAVP TEST FOR COMPILED, 
ADB ,+?FLAG*?p R QG 

lda 1,1 
and cflag 

SZA,RSS 
JMP S A V5 
JMP SAV5-1 
BSS H 



NOT cOMPILEO. 

ROOM f-OR CSAVE CQDE 



JSB DCMPL 
LDB sPrOG 
CPB PBUFF 
JSB ALCOM 
LDB PBPTR 
STB SAVP, I 
CMB,INB 
ADB USE 
STB WORD 
LDA sAVD,I 



DECOMPILE IT, 
COMMON 

ALLOCATED? 
NO—DO IT 

reset program bound 
Into tab l e 

COMPUTE * 
OF WORDS 

GET DRuM ADDRcgS 
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0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 

0066 

0067 

0068 

0069 

0070 

0071* 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 



0088* 
0069* 
0090* 

00»1 
0092 

0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 



75 55 
75056 
75057 
75060 
75061 
75062 
75063 



75 
75 
75 
75 

75 
75 
75 
75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 



06 
07 
10 
11 
12 

13 
14 

15 
16 

17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 

33 

34 

35 
36 
37 
40 
41 
42 
43 
44 
45 
46 



010317 
170043 
065221 
016231 
026071 
027106 
000000 
164042 
007004 
045577 
074040 
101030 
007004 
076025 
065577 
074042 

016107 
044361 
160001 
042025 
003004 
044351 
000040 
140001 
002040 
027147 
067134 
060327 
026432 
075135 
005114 
044502 
051101 
051)31 
020123 
050101 
041505 
020106 
052514 
046040 



AND 
8TA 
100 
JSB 
JMp 

SAV50 JMP 
BSS 

3A V 5i LDB 
CMB 
ADB 

STB 
A8R 
CM8 
STB 
LOB 
STB 



SAV9 



M32 

SAVD,I 

USE 

ORUML 

RDpRj 

8AV51 

19 

SAyPrl 
,INB 
8PR0G 

savhd 

8 
,INB 
SAVIN 
SPROG 
SAVP 



8ET BACK TO SWAP 

TRACK ORIGIN 
WRITE OUT 

TO DRUM 
Go OUMp THIS ILL-FATED USER 

room *or csave code 

COMPUTE 

Program 

LENGTH 

save in 

negative words and 

POSITIVE 
BLOCKS 
SAVt START-QF* 
PROGRAM POINTER 



RDIDT 
.♦7 



JSB 
ADB 

LD* i#I 
ADA sAVLN 

CMA,I N A 



READ IN AN ID 
GET DISC USED 



TRACK 
TO DATE, 



GET TOTAL 
USED AS 



AMOUNT TO 
A N EGA]IVE 



QUA N TlTY 



ADB 
CLE 
ADA 
SEZ 
JMP 
LDB 
LDA 
JMP 
DEF 
OCT 
ASC 



.-1 

Irl 

SAV6 
**3 
,-19 
LIBER 

♦ ♦1 

5114 

9,I8RARY 



COMPARE WITH ALLOTMENT, 



OK, 



LF«L 
SPACE 



FULL 



SEARCH ADT FOR SPACE TO PUT THE PROGRAM, 



75147 
75147 
75150 
75151 
75151 
75152 
75153 
75154 
75155 
75156 
75157 



060342 
070044 

062010 
002004 
053601 
063600 
072010 
040362 
070043 



SAV6 



SAVBA 



EUU 
LDA 
STA 
EUU 
L DA 
INA 
CPA 
LDA 
STA 
ADA 
STA 



* 

,.8 

SAVOF 

* 
RKCYP 

EALNA 
EALCA 
RKCYP 



,+DADLN»DADLC 
SAVD 



SET COUNT 01- POSSIBLE DISK AOTS 



GET CYClIC POINTER 
AND ADVANCE 
IT TO THE 
NEXT ENTRY 

IN THE TABLE 
*» LENGTH WORD 



PACE 0396 #36 SAVE 



0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0116 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0126* 

0129 

0130 

0131 

0132 

0133 

0134 
0135 



0136* 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0J.44 

0145 



75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 
75175 
75176 
75177 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75207 
75210 

75211 
75211 
75212 
75213 
75214 
75215 
75216 
75217 
75220 
75221 
75222 
75223 
75224 

75225 
75226 

75227 
75230 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 



160043 
002003 
027207 
070072 
162010 
064566 
016231 
027207 
007400 
160043 
100400 
000355 
070041 
064562 
044354 

160001 
003100 
042025 
002041 
027244 
044355 
034041 
027177 

034044 
027151 



060332 
067214 
026432 
075215 
005123 
054523 
052105 
046440 
047526 

042522 
046U7 
040504 

060214 
002020 
027225 
060332 
067233 
026432 
075234 
005J04 
052520 
0461U 
041501 
052105 
020105 



IPA 

SZA, 

JMP 

S T A 

IDA 

LOB 

J SB 

JMP 

CCB 

IDA 

DIV 



SAVD,1 

RSS 

SAVBF 

WORD 

RKCYP,X 

LIBDI 

DRUML 

SAV8F 

SAVD,I 
,♦3 



STA 
UOB 
AOB 

SAVBO E8U 
LDA 
CMA 
AOA 
SEZ 
JMP 
AOB 
ISZ 
JMP 

SAVBF EQU 
ISZ 
JMP 



SAVC 
LIBD 

.+2 

* 

,CLE 
SAVLN 

,R3S 
SAV7 
,♦3 
SAVC 
SAVBD 
* 

SAVDF 
SAVBA 



18 This disk available 
zero sez no a d t table 
3O we advance to next disk 
otherwise, save leng t h 
set drum address of adt 

read it in 

orum error| ignore track for now 

compute the 

ENTRY 
COUNT 

AND SAVE 
*> FIRST ENTRY 
«* LENGTH WORD 

TEST THIS ENTRY FOR BIG ENOUGH 



SKIP IF TOO 8M0RT 

GOTCHA 

ADVANCE TO NEXT ENTRY 

DECREMENT ENTRY COUNT 

PROCESS NEXT ENTRY 

PROCESS NEXT TRACK 

TRIED ALL DISKS FOR ROOM? 

NO, TRY THE NEXT ONE 



SAV23 EQU * 

LDA ,«16 

LD8 *+2 

JMP LIBER 

DEF *+l 

OCT 5j23 LF-S 

A3C 7,YSTEM OVERLOAD 



PRINT "SYSTEM OVERLOAD" 



SAV12 LDA MBU3Y 

SSA 

JMP *»2 

LDA ,.16 

LDB *+2 

JMP LIBER 

DEF *+l 

OCT 5104 



MAKE SURE 
DISC IS 
IDLE 

PRjNT "DUPLICATE ENTRY" 



LF-D 



ASC 7,UPLICATE ENTRY 
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75242 


047124 










75243 


051131 








0149* 












0147 


75244 




SAV7 tUU 


* 




0148 


75244 


062025 


LOA 


SAVLN 


SAVE 


0149 


75245 


003004 


CMA, 


>INA 


NEGATIVE NUMBER OF 


0150 


75246 


140001 


ADA 


B,I 


SECTORS LEFT 


0151 


75247 


070044 


STA 


8AVDF 




0152 


75250 


044350 


ADB 


.-2 


SAVE LOCAUUN OF 


0153 


75251 


074041 


STB 


savc 


DiSK ADf *.NTRY 


0154 


75252 
75253 


104200 
100001 


DID 


B,I 


GET DISK ADDRESS 


0155 


75254 


104400 


D8T 


savds 


AND SAVE 




75255 


000036 






/ 


0156 


75256 


006400 


CLB 




START SEEK 


0157 


75257 


074215 


STB 


MhQRD 


TO CORRECT 


0156 


75260 


063603 


LDA 


savdp 


DISC (WITH A "C") 


0159 


75261 


114212 


J3b 


DISCA,I 


ADDRESS 


0160 


75262 


102030 


HIT 


30B 


ORIVER BUSY! HALT 


0161 


75263 


102031 


HLT 


31B 


DISC NOT PRESENT! HALT 


0162* 












0163 


75264 


002400 


CLA 




SET DRUM 


0164 


75265 


070045 


STA 


SAVDU 


DRUM ADDRESS 


0165 


75266 


060520 


LDA 


DLTEM 


MOVE ID/NAME ENTRY TO 


0166 


75267 


070051 


STA 


MOVED 


LTEMP(0!3), 


0167 


75270 


064346 


LOB 


• -4 




0166 


75271 


016257 


JSB 


MQVEW 




0169 


75272 


027275 


SAV10 JMP 


3AVU 


ROOM FOR CSAVE CODE 


0170 


75273 


000000 


BSS 


2 




0171* 












0172 


75275 




SAVil EQU 


* 




0173 


75275 


116005 


JSB 


DLOKP,I 


SEARCH FOR ENTRY 


0174 


75276 


027225 


JMP 


8AV12 


fcNTRY FQUNp-*ILLEGAL. 


0179* 












0176 


75277 


164034 


LOB 
CpB 


3AV1,I 


IF TRA C K IS FULL, GO 


0177 


75300 


054714 


M 8184 


OVERLAY SECTION, 


0178 


75301 


027573 


JMP 


SAV98 




0179* 












0180 


7g302 


007000 


CMB 




SET UP SOURCE FOR 


0181 


75303 


044562 


ADB 


LIBD 


MOVE. 


0162 


75304 


074050 


S T 6 


MOyES 




0183 


75305 


044366 


ADB 


.♦12 


SET UP DESTINATION 


0184 


75306 


074051 


STB 


MOVED 




0185 


75307 


007000 


CMB 




COMPUTE LENGTH, 


0186 


75310 


044402 


ADB 


.♦24 




0187 


75311 


044035 


ADB 


SAV3 




0188 


75312 


016243 


JSB 


MOVEB 




0109* 












0190 


75313 


060520 


LDA 


D U TEM 


MOVE 5 WORDS IN FOR 


0191 


75314 


070050 


STA 


MOVES 


NEW ENTRY, 


0192 


75315 


060035 


LDA 


SAVS 




0193 


75316 


040366 


ADA 


,♦12 




0194 


75317 


070051 


STA 


MOVED 




0195 


75320 


064346 


LDB 


, »»4 




0196 


75321 


016257 


JSB 


MOVEW 
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0197 
019« 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
020B 
0209 

0210 

0211 
0212 
0213 
0214 

0215* 

0216 

0217 

021a 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0226 

0229* 

0230 

0231 

0232* 

0233 

0234 

0235 
0236 

«>237 

023a 

0239* 

0240 

0241 

0242 

0243 

0244* 

0245* 

0246 

0247 

024a 

0249 



75322 
75323 
75324 
75325 
75326 
75327 
75330 
75331 
75332 
75333 
75334 
75335 
75336 
75337 
75340 
75341 
75342 
75343 
75344 
75345 

75346 
75347 
75350 
75351 
75352 
75353 
75354 
75355 
75356 
75357 
75360 
75361 
75362 

753 6 3 
75364 

75365 
75365 
75366 
75367 

75370 
75371 

75372 
75373 
75374 
75375 



060042 
170051 
016076 
034051 
170051 
034051 
060201 
170051 
034051 
002400 
170051 
034051 
104200 
000036 
104400 
100051 
064051 
044355 

060040 
170001 

160034 
040336 
170034 
070072 
060034 
002004 
070051 
040357 
160000 
064562 
074050 
016231 
116017 

06*346 
016257 



016107 
044361 
062025 
140001 
170001 

J60075 

064562 
016231 
116017 



SAV21 



LDA 8 A VP 
STA MOVED, I 
JSB DATE 
ISZ MOVED 
STA MOyED,l 
ISZ MOVED 
LDA DATIM 
STA MOyED,I 
ISZ MOVED 
CLA 

STA MOVED,! 
ISZ MOVED 
OLD SAVD3 

DST MOVED,! 

IDB MOVED 
ADB t ^3 

LDA SAVWD 
STA 6,1 



IDA 
ADA 
STA 
STA 
LDA 
INA 
STA 
ADA 
LDA 
IDS 
STB 
JSB 
JSB 



EQU 

js 8 

ADB 
LDA 
ADA 
STA 



SAVI,1 

,-12 

SAVI,I 

WORD 

SAyl 

MOVED 

.♦5 

0,1 

LIBD 

MOVES 

DRUML 

DEADP, I 



LDB .«4 

JSB MOyEw 



RDIDT 

.♦7 

SAVLN 

B,I 

1,1 



75376 160043 

75377 070072 

75400 162010 

75401 064566 



LDA IDLCPri 
LDB LIBD 
JSB DRUML 
JSB DEADP, I 



LDA SAVD,1 
3TA WORD 
t.DA RKCYPf! 
LDB LIBDI 



STORE STaRT»QF- 

PROGRAM POINTER 
STORE DATE IN ALSO, 

LAST REFERENCE DATE 

GET HOUR OF YEAR 
LAST CHANGE DATE 



CLEAR DRUM /.DDRESS (>»ORD 7) 
GET DISK ADDRESS FOR 
WORUS 8 AND 9 



*> WORD 11 

GET THE LENGTH WORD FOR 
WOhD 11 

ADJUST 
DIRECTORY 
LENiiTHt 

WRITE DIRECTORY BACK OyT, 



WRIfE OUT 
ERROK, FORGET IT 

RESET DIREC. 



READ IN THE IDT 

ADJUST AMOUNT 

OF DISK SPACE USED 



GET DRUM ADDRLSS 
TO WRITE IDT BACK 
TO THE DRUM 
ERROR, FORGET IT 



fetch the Length of the 

adt track 
get the drum address 

A N D READ In THE 
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6)250 
0251 

0262* 

0253 

0254 
0255 
0256* 

0257 
0256 
0259 
0250 
0261 
0262 
0263 
0264* 

0265 
0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276* 

0277 

0278 

027g 
0280 
0261 
0282 
0283 

0284 

0285 

0286 

0287 

0206* 

0289 

0290 

0291 

0292 

0293 

0294* 

0295 

0296 

0297 

0298 

0299 

0300* 

0301 

0302 



75402 016231 JSB DRUML 

75403 027425 JMP 8AV30 



75404 064044 
7540.6 006002 
75406 027431 



LD8 SAVOF 

SZB 

JMP 8AVCF 



75407 064041 LOB SAVC 

75410 074051 8TB MOVED 

75411 044355 ADB ,+3 

75412 074050 STB MOVES 

75413 044674 A0B MLIBp 

75414 044072 At>0 WORD 

75415 016257 JSB MOVEW 

754U 060355 LOA .*3 

75417 164043 LDB SAVDfl 

75420 044000 AOB A 

75421 174043 STB 8AVD,I 

75422 040072 ADA WORD 

75423 070072 8TA WORD 

75424 027445 JMP SAVcG 

75425 002400 SAV30 Ct A 

75426 170043 $TA SAVD,I 

75427 172010 8TA RKCyPrl 

75430 027461 JMP SAV31 

76431 3AVCF EQU * 

75431 104200 OLD SAVC, I 

75432 100041 

75433 000040 CUE 

75434 046025 AOB SAVIN 

75435 002040 SEZ 

75436 002004 INA 

75437 104400 OST SAVC, I 

75440 100041 

75441 064041 LOB SAVC 

75442 044354 AOB «+2 

75443 060044 LOA 3AVOF 

75444 170001 8TA B,j 

75445 SAVCG EOU * 

75445 162010 LDA RKCYP,I 

75446 064562 LOB LZBO 

75447 016231 JSB ORUML 

75450 027425 JMP SAV30 

75451 016047 SAV3I JSB ROPRG 

75452 060040 LQA SAVNq 

75453 070215 STA MWORO 

75454 027477 SAV24 JMP 8AV25 

75455 000000 B3S 16 

75477 SAV25 EQU * 

75477 063603 LOA SAVDP 



ADT TRACK AGAIN 
CAN'T, MAKE IT DISAPPEAR 



AOT ENTRY COMPLETELY USEO? 
NO# SHORTEN IT 

Y£S, REMOVE IT 

SET UP POINTERS FOR MOVE 

CALCULATE THE NEEDED 
WORD COUNT 

SHORTEN THE APPROPRIATE COUNTS 
SHORTEN THE TABLE ENTRY 
AND THE DRUM DRIVER COUNT 



ZERO LENGTH 
jERO ADDRESS 



MOVE UP THE DISK ADDRESS 



BY 8AVLN BLOCKS 
CHECK FOR OVERFLOW 



AND UPDATE THE COUNT 
*> LENGTH WORD 
GET SAVEO LENGTH 

anO plug IN 



GET DRUM ADDRESS 

AND WRITE THE DISK ADT 
BACK TO THE DRUM 
CANiT, MAKE IT DISAPPEAR 

READ USER PROGRAM AGAIN 
WRITE IT OUT, 

TO LIBRARY 
ROOM FOR CSAVE CODE 
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0303 


75500 


064042 


LDB 


SAVP 




0304 


75501 


114212 


JSB 


DI8CA,I 


WHITE TO DISK 


0305 


75502 


027501 


JMP 


*m\ 


TRY AGAIN IF BUSY 


0306 


75503 


102031 


HIT 


3lB 


DISC NOT PRESENT! MALI 


0307 


75504 


060214 


UOA 


M0U3Y 


WAIT FOR 


0306 


75505 


002020 


SSA 




TRANSFER TO 


0309 


75506 


027504 


JMP 


*«2 


COMPLETE 


03^0 


75507 


002003 


SZA, 


RS3 


TRANSFER SUCCESSFUL? 


0311 


75510 


026226 


JMP 


LLEND 




0312* 












0313 


75511 


116005 


JSB 


DLOKP,I 


NO, GO GET DIRECTORY fcNT 


0314 


75512 


002001 


RS3 




FOUND IT 


0315 


75513 


102032 


HUT 


DEATH+32B 


NOT FOUND: TROUBLE 


0316 


75514 


064035 


L 08 


LTEMP+5 


GET POINTER TO ENTRY 


0317 


75515 


044356 


AqB 


.♦4 


m> END OF COMMON POINTER 


0318 


75516 


160001 


IDA 


B,I 


SET BIT 15 TO 


0319 


75517 


031036 


IOR 


BIT15 


INDICATE BADLY SAVED 


0320 


75520 


170001 


STA 


B,I 


PROGRAM 


0321 


75521 


060034 


IDA 


LTEMP+4 


WRITE OUT 


0322 


75522 


040360 


ADA 


,♦6 


DIRECTORY 


0323 


75523 


160000 


tOA 


A, I 


TRACK 


0324 


75524 


064562 


LOB HBO 




0325 


75525 


016231 


JSB 


DRUML 




0326 


75526 


027553 


JMP 


3AV32 


BLEW IT, TRY TO SALVAGE 


0327 


75527 


0&3$05 


LDA 


SM31 




0328 


75530 


067532 


LDB 


♦ ♦2 




032» 


75531 


026432 


JMP 


LIBER 


PRINT FAILURE 


0330 


75532 


075533 


D6F 


**1 




0331 


75533 


005125 


OCT 


5125 


LF«U 


0332 


75534 


0471 2 3 


ASC 


UNSUCCESSFUL* KILL AND REPEAT, 




75635 


052503 










75536 


041505 










75537 


051523 










75540 


043125 










75541 


046073 










75542 


020113 










75543 


044514 










75544 


046040 










75545 


040516 










75546 


042040 










75547 


051105 










75550 


050105 










75551 


040524 










75552 


027040 








0333 


75553 


060034 


SAV32 ll)h 


LTtMP*4 


GET POINTER TU 


0334 


75554 


040360 


ADA 


,♦6 


DRUM aODRESS 


0335 


75555 


064072 


LDB 


WORD 


GET IRACK LENGTH 


0336 


75556 


116016 


JS B 


S A LVP,1 


GO GRAB A NEW TR A C* 


0337 


75557 


060332 


SAVi IDA 


• *J6 




0338 


75560 


067562 


SAV4 LOB 


**2 




0339 


75561 


026432 


JMP 


LIBER 




0340 


75562 


075563 


DEF 


**1 




0341 


75563 


005116 


UCT 


5116 


LF-N 


0342 


75564 


047440 


ASC 


7,0 PROGRAM NAME 




75565 


050122 









AGAIN 
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75566 


047507 










75567 


051101 










75570 


046440 










75571 


047101 










75572 


046505 








0343 


75573 




8AV98 


EQU 


* 


0344 


75573 


063604 




LOA 


8M507 


0345 


75574 


070072 




8TA 


WORD 


0346 


75575 


163602 




IDA 


SAyOVf I 


0347 


75576 


064504 




LOB 


#LIBI 


0348 


75577 


027773 




JMP 


SAV99 


0349 


75600 


000115 


EALCA 


DEF 


DADtC 


0350 


75601 


000125 


EAtNA 


OEF 


DADI.N 


0351 


75602 


072044 


SAVOV 


DEF 


SAV0+C0M6 


0352 


76603 


000036 


SAVOP 


OEF 


SAVOS 


0353 


75604 


177005 


SM507 


DEC 


»507 


0354 


75605 


177741 


SH31 


DEC 


-31 


0355* 












0356 


00034 




SAVI 


EQU LTEMP+4 


0357 


00035 




SAVS 


EQU 


LTEMp+5 


035b 


00036 




3AVDS 


EQU 


LTEMP+6 


0359 


00040 




SAVWO 


EQU 


LTEMP+8 


0360 


00041 




SAVC 


EQU 


LTEMP+9 


0361 


00042 




SAVP 


EQU 


LTEMP+10 


0362 


00043 




SAVD 


EQU 


LTEMP*U 


0363 


00044 




8AVOF 


EQU 


LTEMP*12 


0364 


00045 




SAVOU 


EQU 


LTEMP+13 


0365 


74025 




SAVLN 


EQU 


T35CQ 


0366* 












0367* 












0366 


75773 






OrG 


LI6rA*507 


0369 


75773 




SAV99 


Equ 


* 


0370 


75773 


016231 




JSB 


ORUML 


0371 


75774 


116015 




JSB 


SICKP^I 


0372 


75775 


027000 




JMP 


LIBRA 


0373 


75776 


027365 




JMP 


SAV21 


0374 


75777 


027211 




JMP 


SAV23 


0375 


76000 




SSAV 


EQU 


* 



SET UP 
OVERUAY, 



«> DISK ADDRESS 



6 & 7 ARE THE DISK ADDRESS 
LENGTH IN WORDS OF PROGRAM 



CALL IN OVERlAy 

BLEW IT, GO HOME QUIETLY 

NORMAL RETURN 
ERROR RETURN 
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0377* 
0378* 

0379* 
0380* 
0381 
0382 

0383* 
0384 

0385 
0386 

0387 
0388 

0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404* 

0405 
0406 
0407 
0406 
0409 
0410 
0411 
0412 
0413 
0414 

0415 
0416 
0417 



THE CSAVE c 0MM * N I s USED -TO SAVE PROGRAMS IN THE USER LIBRARY 
IN SEMICOMPILED FORM, CSAVE BORROWS CODE FROM SAVE AND MUST 
FOLLOW IT, 



0418 
0419 
0420 
0421* 

0422 
0423 
0424 



75000 

75000 064273 



75025 
75025 
75026 
75027 
75030 

75031 
75032 
75033 
75034 
75035 
75036 
75037 
75040 
75041 

75042 
75043 
75044 
75045 
75046 
75047 

75062 
75062 

75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75 73 
75074 
75075 
75076 
75077 
75100 
75101 
75102 
75103 
75104 
75105 
75105 
75106 



002032 
027042 

065577 

054702 
015520 
065577 
075334 
060412 

071573 

002400 
071575 
127041 

036071 
061230 
002002 
015522 
002400 
071230 
065504 



065504 
04436) 
007004 
044462 
006021 
027105 
060330 
067073 
026432 
075«74 
005120 
051117 
043522 
040515 
020124 
047517 
020114 
040522 
043505 

065504 
044361 



ORG LIBRA 
LOB MLINK+i 



ORG 
SZA 
JMP 
LOB 
CPB 
JSB 
LOB 
STB 
LOA 
STA 
CIA 
STA 
JMP 
DEF 

CSAVi LOA 
SZA 
JSB 

C3AV2 CLA 
STA 
LOB 



SAV0 

C8Ayl 
SPROG 
PBUFF 
ALCOM 
SPROG 
PRGCT 
,♦408 
BLANK 

3YMTB 

*M»1 
CMP00 
SPTR 

RSTPT 

SPTR 
FILTB 



ORG SAV50 
LOB FILTB 
AqB ,*7 
CMB,INB 
AOB LWAUS 
SSB,RSS 
JMp CSAV4 
LOA ,-18 
LOB **2 
JMP LIBER 
DEF *♦! 
OCT 5120 



COMPILED? 

yES 

NO; COMMON 

ALLOCATED? 
NQ-*DO IT 
SET PROGRAM 

COUNTER 
TURN ON 

BLANK SUPPRESSION 
CLEAR OUT, OF 

STORAGE FLAG 
GO COMPILE IT 



SEMI-COMPILED? 

RESTORE SYMBOL TABLE POINTERS 

FLAG As 

SEMICOMPILED 



TOO BIG? 

NO 
YES 



LF-P 



asc 8,rqGram Too large 



75272 

75272 060033 

75273 031036 



CSAV4 EQU * 

LOB FILTB 
AOB ,*7 

ORG SAyl0 
LOA LTEMP+3 
IOR BIT15 



FLAG NAME 

TU INDICATE 
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04^5 


75274 


070033 


STA 


LTEMP+3 


SEMI-COMPILED 


0425* 












0427 


75454 




OKG 


3AV24 




042B 


75454 


061504 


LOA 


FILTB 


»> FIRST WORD AFTER SYMBOL TABLE 


0429 


75455 


065575 


LOB 


SYMTB 


SAVE E n D«qF 


0430 


75456 


174000 


STB 


0,1 


PROGRAM POINTER 


0431 


75457 


002004 


Ina 






0432 


75460 


065606 


LOB 


PILCT 


SAVE * OF 


0433 


7546J 


174000 


STB 


0fl 


<FILES STATEMENTS* 


0434 


75462 


064452 


LOB 


OFILT 


SAVE 


043§ 


75463 


075605 


STB 


FILPT 




0436 


75464 


064346 


LOB 


Sptr 




0437 


75465 


075230 


STB 


POINTERS 


0438 


75466 


002004 


CSAy3 INA 






0439 


75467 


165605 


LOB 


FILPT, I 




0440 


75470 


174000 


STB 


0r I 


TO <FILES 


0441 


75471 


035605 


ISZ 


FILPT 




0442 


75472 


035230 


ISZ 


SPTR 




0443 


75473 


027466 


JMP 


CSAV3 


STATEMENTS* 


0444 


75474 


002004 


INA 




SAVE 


0445 


75475 


065607 


LOB 


USESN 


'USING 


0446 


75476 


174000 


8TB 


0,1 


SEEN' FLAG 
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0002* 

0003* 

0004* 

0005* 

0006* 

0007* 

0008* 

0009* 

0010* 

0011 

0012* 

0013 

0014* 

0015* 

0016* 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037* 

0036 

0039 

0040 

0041 
0042 

0043 

0044 

0045 

0046 

0047 

0046 

0049 

0050 

0051* 

0052 

0053 

0054 



ThE save overlay routine is called 8Y The save and open routines 

* WHENEVER THEY KANT TO MAKE A DIRECTORY ENiRY ON A TRACK THAT IS 
ALREADY FULL, THE FOLLOWING LOCATIONS MUST BE APPROPRIATELY SET! 

LUMP(0»3)« l ST 4 WORDS OF ENTRY, 

LTEMP ( 4I5J*SAME AS LEFT 8Y DLODIC 

LTEMp(6l7)»DlSC ADDRESS 

LTeMP(13)«oRUM A D qR£SS 

LTEMP(e)pWORO COUNT 

LTEMP(10)«START OF PROGRAM POINTER OR RECORD SIZE 
75000 ORG LIBRA 



75000 063651 



LOA SDIK0 



GET FIRST DIRECTORY TRACK PTR 



COMPUTE TOTAL * OF WORDS IN DIRECTORIES, 



75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75wl5 
75016 
75017 
75020 
75020 
75021 
75022 
75023 

75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 
75040 
75041 
75042 



04^360 
164000 
040344 
006003 

027020 
164000 
006103 
027017 
047657 
077657 
067656 
002041 
044351 
077656 
037661 

053652 
027024 
040367 
027002 

063657 
067656 
100400 
000366 
007400 
100400 
075661 
053644 
006003 
053645 
027634 
040351 
073657 
044351 
077661 



SUP! 



SUp2 



ADA 

LOB 

ADA 

SZB, 

JMP 

LDB 

CLE, 

JMP 

AD6 

STB 

LDB 

8EZ, 

ADB 

STB 

1SZ 

EqU 

CPA 

JMP 

ADA 

JMP 



.♦6 

0,1 

* **6 

RSS 

SUP2 

0,1 

SZB,RS3 

SUP2-1 

SUPS 

SUPS 

SUPS-l 

RSS 

,-l 

SUPS-l 

SUPB 

* 

SDIRL 

*+3 

,♦13 

SUP! 



LDA SUPS 
LOB SyPS-1 
DIV ,*12 

CCB 

DIV 3UPB 



CPA 
SZB, 

CPA 
JMP 
ADA 
STA 
ADB 
STB 



M682 
RSS 
M683 
SUP3 

,•1 
SUPS 

.-1 

SUPB 



75043 067651 

75044 044360 

75045 160001 



SUP4 



LDB SDIR0 
ADB ,+6 
LOA 1,1 



■> DIRECTORY DRUM ADDRESS 
GET IT IN 8, 

TEST FOR NQNEXIST ENT DIRECTORY, 

GET DIrECiOrY LENGTH, 
LENGfH ZERO? 
YES 

ADD TO 
TOTAL, 

INCREMENTING DOUBLE WORD UUANTIT 



BUMP DIRECTORY TRACK COUNTER, 

LAST DIRECTORY TRACK? 

YES 

NQ*"^ TO N fc XT UN 6 ^ 



get total # of directory words, 
get Entry c unt In * 

COUNT « 65535 

COMPUTE # IN EACH DIRECTORY, 

TEST FOR FULL UP. 



INCREA3E » OF EN Tr IE 8 /TkACK BY 1 

AND SAVE IN 3, 
LET B COUNT HOW MANY WILL HAVE 

THIS LARGER SIZE, 

GET POINTER TO FIRST TRACK AGAIN 
POINT TO ITS DISC ADDRESS, 
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0055 


75046 


002003 




SZA, 


RSS 


IF OON'T GIVE IT ANYTHING, 


0056 


75047 


027060 




JMP 


8UP5 




0057 


75050 


037661 




ISZ 


SUPB 


TEST FOR ANY MORE BIG TRACKS, 


0058 


75051 


002001 




RSS 




yes*»domt switch. 


0059 


75052 


037657 




ISZ 


SUPS 


SWITCH TO SMALLER SIZE 


0060 


75053 


063657 




LDA 


SUPS 


GET •« OF ENTRIES ON TRACK, 


0061 


75054 


001020 




ALS, 


rALS 


CONVERT 


0062 


75055 


073656 




STA 


SUPS-1 


* 4 


0063 


75056 


001000 




ALS 




To words, 


0064 


75057 


043656 




ADA 


SUPS-l 


* 12 


0065 


75060 


173662 


SUP5 


STA 


SUPP, I 


STORE IN T#8LE, 


0066 


75061 


044344 




AOB 


,«6 


test For done, 


0067 


75062 


057652 




CPB 


SDIRL 




0066 


75063 


027067 




JMP 


3UP6 




0069 


75064 


044367 




AOB 


t*i3 


BUMP TO NEXT TRACK, 


0070 


75065 


03*562 




ISZ 


SUPP 


BUMP TABLE POINTER ALSO, 


0071 


75066 


027045 




JMP 


3UP4 




0072* 


TABLE 


NN NOW 


CONTAINS THE NEW LENGTHS OF THE 4 01- 


0073* 


RECTORY TRACKS, 








0074* 














0075 


75067 


063641 


3 UP 6 


LOA 


DEFNN 


SET UP POINTER 


0076 


75070 


073662 




STA 


SUPP 


TO NN AGAIN, 


IA977* 














0076* 


SQUEEZE ALL THE DIRECTORY ENTRIES 


ONTO THE LASTMOST OF THE 


0079* 


AVAILABLE TRACKS, 








0000* 














0081 


75071 


063652 




LDA 


SDIRL 


»> 1ST TRACK 


0062 


75072 


073664 




STA 


SUPK1 


FOR REAO 


0083 


75073 


040360 




ADA 


• ♦6 




0084 


75074 




SUP20 


EQU 


* 




0085 


75074 


164000 




LOB 


A, I 


GET ADDRESS 


0086 


75075 


006002 




8Z6 




ZERO? 


0087 


75076 


027101 




JMP 


8UP21 


NO 


0088 


75077 


040343 




ADA 


.-7 


YES 


0089 


75100 


027074 




JMP 


SUP20 




0090 


75101 




SUP21 


EQU 


* 




0091 


75101 


040344 




ADA 


,•6 


«> 1ST TRACK 


0092 


75102 


073666 




STA 


SUPLl 


FOR WRITE 


0093 


75103 


002400 




CLA 




* OF WORDS 


0094 


75104 


073665 




STA 


8UPK2 


IN BUFFER 


0095* 














0096 


75105 


063664 




LDA 


SUPK1 




0097 


75106 




SUP22 


EQU 


* 




0096 


75106 


164000 




LOB 


Afl 


GET LENGTH FOR REaD 


0099 


75107 


006003 




SZB, 


,RSS 


ZERO? 


0100 


75110 


027237 




JMP 


SUP27 


YES 


0101 


75111 


047665 




ADB 


SUPK2 


N0# ADD In * OF WORDS IN BUFFER 


0102 


75H2 


047647 




ADB 


88184 




0103 


75U3 


006020 




SSB 




»8184? 


0104 


75114 


027145 




JMP 


3UP23 


YES 


0105 


75115 


164000 




LOB 


A, I 


NO, SET 


0106 


75U6 


074072 




STB 


WORD 


UNSTH 


0107 


75117 


047665 




A B 


8UPK2 


UPDATE # OF 


0106 


75120 


077665 




STB 


SUPK2 


WOROS IN CORE 


0109 


75121 


044530 




AOB 


LULEN 
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0110 


75122 


045036 


ADB 


BIT15 


CORE 


ADDRESS 


0111 


75123 


040360 


ADA 


• ♦6 






0112 


75124 


160000 


IDA 


A, I 


DRUM 


ADDRE3S 


0113 


75125 


016231 


JSB 


DRUML 






0114 


75126 


116017 


JSB 


DEADP,I 






0115* 














0116 


75127 


063665 


LDA 


SUPK2 






0117 


75130 


050714 


CPA 


M8184 


EXACTLY 8104 


0118 


75131 


002001 


RSS 




YES 




0119 


75132 


027237 


JMP 


SUP27 


NO 




0120 


75133 


0700T2 


STA 


WORD 






0121 


75134 


067666 


LOB 


SUPL1 


SET LENGTH 


0122 


75135 


170001 


STA 


B,I 


IN 


OIrEC 


0123 


75136 


044360 


ADB 


.♦6 






0124 


75137 


160001 


LOA 


b,I 


DRUM 


ADDRESS 


0125 


75140 


067650 


LOB 


X2056 


CORE 


ADDRESS 


0126 


75141 


016231 


JSB 


DRUML 






0127 


75142 


116017 


JSB 


DEADP,I 






0128 


75143 


006400 


ClB 




BUFFER NUw EM 


0129 


75144 


077665 


STB 


SUPK2 






0130 


75145 


027226 


JMP 


SUP24 






0131* 














0132 


75146 




SUP23 EQU 


* 






0133 


75146 


007004 


CMB, 


INB 






0134 


75147 


005121 


BRS, 


BRS 


COMPUTE 


0135 


75150 


005121 


6RS1 


'BRS 


# ( 


JF 


0136 


75i5i 


005121 


BRS/ 


BRS 


EXTRA 


0137 


75152 


077671 


STB 


SUPES 




SECTORS 


0138 


75153 


005700 


BLF 




n qF 




0139 


75154 


005222 


RBLi 


-PBL 


EXTRA 


0140 


75155 


077670 


STB 


3UPEX 


1 


OORDS 


0141 


75*56 


144000 


ADB 


a,: 


* OF 


WORDS 


0142 


75i57 


074072 


STB 


WORD 


TO 


READ 


0143 


75160 


047665 


AOB 


SUPK2 






0144 


75161 


044530 


AuB 


LULEN 






0145 


75162 


074050 


STB 


MOVES 






0146 


75163 


045036 


AUB 


BIT15 


CORE 


address 


0147 


75164 


040360 


ADA 


,♦6 






0148 


75165 


160000 


LDA 


A, I 


DRUM 


ADDRESS 


0149 


75166 


043671 


ADA 


SUPES 






0150 


75167 


016231 


JSB 


DRUML 






0151 


75170 


116017 


JSB 


DEADP,I 






0152* 














0153 


75171 


060714 


LDA 


MB184 


U OF 


WORDS 


0154 


75172 


07^(67? 


STA 


WORD 


TO 


WRITE 


0155 


75173 


067666 


LD8 


3UPL1 






0156 


75174 


170001 


STA 


B,I 


SAVE 


IN DIrEC 


0157 


75175 


044360 


ADB 


,♦6 






0158 


75176 


160001 


LDA 


B,I 


DRUM 


ADDRESS 


0159 


75177 


067650 


LDB 


X2056 


CORE 


ADDRESS 


0160 


75200 


016231 


JSB 


DRUML 






0161 


75201 


116017 


JSB 


deadp,i 






0162* 














0163 


75202 


067650 


LDB 


X20&6 


n of 




0164 


75203 


007004 


CMB, 


rINB 


EXTRA 



WORDS? 
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0165 


75204 


044050 


A06 


MOVES 


WORDS 


0166 


75205 


077665 


STB 


8UPK2 


TO MOVE 


0167 


75206 


060530 


LOA 


LULEN 




0168 


75207 


040001 


ADA 


B 




0169 


75210 


070051 


8TA 


MOVED 


DESTINATION POINTER 


0170 


75211 


016257 


JSB 


MOVEW 


MOVE THEM 


9171* 












0172 


75212 


067670 


LDB 


SUPEX 


# OF WORDS 


0173 


75213 


007004 


CMB, 


rINB 


TO READ FROM 


0174 


75214 


074072 


STB 


WORD 


PARTIAL TRACK 


0175 


75215 


047665 


ADB 


SUPK2 




0i76 


7521ft 


077665 


8TB 


3UPK2 


# OF WORDS IN BUFFER 


0177 


75217 


044530 


AOB 


LULEN 




0178 


75220 


045036 


ADB 


BIT15 


CURE ADDRESS 


0179 


75221 


063664 


LOA 


SUPKl 




0180 


75222 


040360 


ADA 


,♦6 




0iei 


75223 


1^0000 


LDA 


A, I 


DRUM ADDRESS 


0182 


75224 


016231 


JSB 


DRUML 




0183 


75225 


116017 


JSB 


DEADPfl 




»I84* 












0185 


75226 




SUP24 EQU 


* 




0186 


75226 


003400 


CCA 




BUMp TO NEXT 


k)187 


75227 


043666 


ADA 


SUPLi 


TRACK TO WRITE 


0188 


75230 




SUP25 EQU 


* 




0189 


75230 


164000 


LDB 


A, I 


GET ADDRESS 


0190 


75231 


006002 


SZB 




ZErq? 


0191 


752 3 2 


027235 


JMP 


SUP26 


NO 


0192 


75233 


040343 


ADA 


i" 7 


YES, MOVE TO NEXT ONE 


0193 


75234 


027230 


JMP 


SUP25 




0194 


75235 




SUP26 EQU 


* 




0195 


75235 


040344 


ADA 


,-6 


BUMP TO LENGTH WORD 


0196 


75236 


073666 


SIA 


SUPL1 


SAVE POINTER 


0197* 












0198 


75237 




SUP27 EQU 


* 




0199 


75237 


063664 


LDA 


SUPKl 


P> CURRENT READ 1RACK 


0200 


75240 


053651 


CPA 


8DIR0 


LAST ONE 


0201 


75241 


027245 


JMP 


SUP28 


YES 


0202 


75242 


04«343 


ADA 


."7 


NO, BUMP TO NEXT ONE 


0203 


75243 


073664 


STA 


SUPKl 




0204 


75244 


027106 


JMP 


SUP22 




0205 


75245 




SUP28 EQU 


* 




0206* 












0207 


75245 


063665 


IDA 


SUPK2 


# OF WORDS IN BUFFER 


0206 


75246 


002003 


SZA, 


,RSS 


ZERO? 


0209 


75247 


027266 


JMP 


SUP30 


YE8 


0210 


75250 


070072 


STA 


WORD 


NO, MUST WRITE OUT BUFFER 


0211 


75251 


067666 


LDB 


8UPL1 


SET LENGTH 


0212 


75252 


170001 


STA 


B,I 


IN DIREC 


0213 


75253 


044360 


ADB 


.♦6 




0214 


75254 


160001 


LDA 


B,I 


DRUM ADDRESS 


0215 


75255 


064072 


LDB 


WORD 




0216 


75256 


044530 


ApB 


luuen 


CORE A DD R£SS 


0217 


75257 


016231 


JSB 


DRyML 




0218 


75260 


116017 


JSB 


DEADP,X 




0219* 
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0220 

0221 

0222 

0223 

"224 

0225 

0220 

0227 

0226 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236* 

0237* 

0236* 

0239* 

0240* 

0241* 

0242* 

k)243* 

0244* 

0245* 

0246* 

0247* 

0246* 

0249* 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257* 

0258 

0259 

0260 

0261 

0262* 

0263 

0264 

0265 

0266 

0267 

0266 

0269 

0270 

0271 

0272 

0273 

0274 



75261 
75262 
75262 
75263 
75g64 
75265 
75266 
75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 
75276 



063666 

053651 
027277 

040343 

002001 

063666 

040360 
164000 
040344 
006003 
027262 
006400 
174000 
027262 



LDA 
SUP29 EQU 
CPA 
JMP 
ADA 
RSS 
SUP30 EQU 
LDA 
APA 
LDB 
ADA 

SZBr 

JMP 

CLB 

STB 

JMP 



SUPLl 

.* 

3DIR0 
3UP31 
.-7 

* 

SUPLl 

,♦6 

A, I 

R *6 

RSS 

SUP29 

A, I 
SUP29 



LAST WfllTE TRACK7 

YES, DONE 

NO, BUMP TO NEXT ONE 



SET ADDRESS 

ZERO? 
YES 

NO, SET 
LENGTH »0 



THE MAIN PART OF THE ALGORITHM CONSISTS OF TWO SECTIONS. IN THE 
FIRST SECTION WE READ AS POSSIBLE INTO THE SWAP AREA, IN THE 2ND 
SECTION WE WRITE OUT AS MUCH AS POSSIBLE, THE ENTIRE PROCEDURE IS 
THEN REPEATED UNjIL WE ARE FINISHED, THE FOLLOWING MEANINGS ARE 
ASSOCIATED WjTH THESE VARIABLES! 

SUPKH»DIREC ENTRY FOR TRACK BEING READ, 
SUPL1«»DIREC ENTRY FOR TRACK BEING WRITTEN, 
SUPK2»# OF WORDS READ SO Mr FrOM Ki, 

supl2«# of words written so far on li. 
SUP «# of words in core. 

SUPP ■> •« OF WORDS TO BE WRITTEN ON Ll. 



75277 3UP31 £QU * 

75277 002400 CLA 

75300 073665 STA SUPK2 

75301 073667 STa SUPL2 

75302 063651 LDA sDIr0 

75303 073664 STA SUPKl 

75304 073666 STA SUPLl 

75305 063667 SUP7 LDA SUPL2 

75306 003004 CMA,INA 

75307 153662 CPA SUPP, I 

75310 027502 JMP SUP10 

75311 063660 SUp8 LDA SUP 

75312 043655 ADA STLE 

75313 002021 8$A,RSS 

75314 027513 JMP SUP11 

75315 070072 STA WORD 

75316 067664 LDB SUPKl 

75317 057653 CPB SDIRU 

75320 027513 JMP SUPll 

75321 163664 LDA SUPKl, I 

75322 043665 ADA SUPK2 

75323 002002 SZA 

75324 027331 JMP SUP9 



INITIALIZE 
LENGTH 
WORDS 

Initialize 

direc 
pointers 

is * of words written so far on 
ll*# of words to be written? 

yes— go advance h9 

is the swap area full 



Y£3-»GQ TO WRITE SECTION. 
NO»*SAVE ■•* OF COREWORDS AVAIL. 
HAVE WE READ ALL OF THE TRACKS? 

YE3»-G0 TO WRITE SECTION, 
A«»# OF WORDS ON THIS TRACK, 
A*«* NOT *EAD YET. 
ENTIRE TRACK READ? 

NO, 
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0275 


75325 


044361 


0276 


75326 


077664 


0277 


75327 


073665 


0278 


75330 


0273U 


0279* 






0280 


75331 


070001 


0281 


75332 


007004 


0282 


75333 


044072 


0283 


75334 


008020 


0284 


75335 


027341 


0265 


75336 


060072 


0286 


75337 


040734 


0287 


75340 


010610 


0288 


75341 


002003 


0289 


75342 


027513 


0290* 






0291 


75343 


070072 


0292 


75344 


063665 


0293 


75345 


006400 


0294 


75346 


101026 


0295 


7 534 7 


06766* 


0296 


75350 


044360 


0297 


75351 


140001 


0296 


75352 


064566 


0299 


75353 


047660 


0300 


75354 


016231 


0301 


75355 


116017 


0302* 






0303 


7535$ 


0$40 7 2 


03<<M 


75357 


007004 


0305 


75360 


047680 


0306 


75361 


077660 


0307 


75362 


064072 


0308 


75363 


007004 


0309 


75364 


047665 


0310 


75365 


077665 


03ll* 






0312 


75366 


063663 


0313 


75367 


002002 


0314 


75370 


027311 


0315 


75371 


063667 


03*6 


75 3 7 2 


006400 


0317 


75373 


100400 




75374 


000366 


0318 


75375 


080001 


0319 


75376 


007004 


0320 


75377 


077670 


0321 


75400 


043660 


0322 


75401 


006400 


0323 


75402 


100400 




75403 


000366 


03«4 


75404 


100200 




75405 


000366 


0325 


75406 


040562 


0326 


75407 


043670 



AOB ,+7 

STB SUPK1 

8TA 8UPK2 

JMP 8UP8 

8UP9 8TA 1 

CMB, INB 

AOB WORD 
8SB 

JMP *+4 

LDA wORD 

ADA B77 

AND M64 

S*A,RSS 

JMP SUPU 

8TA WQRO 

LDA SUPK2 
CLB 

A8R 6 

LDB SUPK1 

ADB ,+6 

ADA 1,1 

LDB LIBUI 

ADB SgP 

JSB DRUML 

J8B PEADP f I 



LDB 

CMB, 

ADB 

8TB 

LDB 

CMB, 

ADB 

8T6 



WORD 

INB 

SUP 

SUP 

WORD 

INB 

SUPK2 

SUPK2 



LDA SUPTG 

SZA 

JMP SUP8 

LDA 8UPL2 

CLB 

DIV f *12 

LDA B 

CMB, INB 

STB SUPEX 

ADA SUP 

CLB 

DIV f *l2 

MPY ,*12 

ADA LIBD 
ADA SUPEX 



YE3—8UKP ki to next track, 

SET # OF WORDS READ TO 0, 

TESj this track, 

Bn.ft OF WORDS NOT YET READ ON Kl 

MAKE POSITIVE, 

IS # OF W0RD8 ON TRACK> # OF 

WORDS WE HAVE ROOM FORI 
NO^.REAO IN ENflRE TRACK, 
GET»# M E HAyE ROOM FOR, 
REDUCE TO NEXT SMALLER 

SECTOR SIZE. 

if we can't read in any, go tq 
write section, 

set word • •# of words to read, 
get # of words read so far, 
divide by 64 to get 

sector address, 
get directory 
track address, 

compute core LqCatIon 
to read in t 0, 
read it in 
drum error, forget it 

update * of words 

IN CORE, 



UPDATE # OF WORDS 
READ FROM !U, 



HAVE WE INSERTED THE NEW ENTRY 
YE T ? 

Yes««go try to Read more. 

get the amount already written 

on this track 
find excess over even entry 



GET THE COUNT 

OF WORDS IN CORE 
CONVERT TO ENTRY COUNT 

AND BACK TO WORD COUNT 

SO THAT WE LOOK AT 
AN EVEN BOUNDARY 
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0327 


75410 


006003 


8Z8, 


RSS 






0328 


754U 


040336 


ADA 


,•12 






0329 


75412 


073670 


STA 


SUPEX 






0330 


75413 


064520 


LOB 


DLTEM 


O ID/NAM£ OF NEW ENTRY 




0331 


75414 


117654 


JSB 


DlRCSfl 


Go CoMpARE 




0332 


75415 


027311 


JMP 


SUPS 


DOESN'T GO ON THIS TRACK 




0333 


75416 




SUP32 EQU 


* 






0334 


75416 


067670 


LDB 


SUPEX 


GOES ON TMIS 




0335 


75417 


077671 


STB 


SUPES 


TRACK, SO 




0336 


75420 


044336 


AOB 


.-12 


SEARCH BACKWARDS 




0337 


75421 


077670 


STB 


SUPEX 


TO UNO 




0338 


75422 


044674 


AOB 


MLIBD 






0339 


75423 


006020 


SSB 




no skip i f search done 




0340 


75424 


027431 


JMP 


SUP33 






0341 


75425 


067670 


LPB 


SUPEX 






0342 


75426 


060520 


IDA 


DLTEM 


OUT WHERE 




0343 


75427 


117654 


J9B 


DIRC3, I 


COMPARE TMIS ENTRY 




0344 


75430 


027416 


JMP 


SUP32 


NOT THjS ONE 




0345* 














0346 


75431 




SUP33 EQU 


* 






0347 


75431 


037663 


ISZ 


SUPT6 


SET TOGGLE TO SAY WE'VE i 


INSERTED 


0348 


75432 


060562 


LDA 


LIBD 


COMPUTE DESTINATION 




0349 


75433 


043660 


ADA 


SUP 


OF WORDS TO BE 




0350 


75434 


064000 


LDB 


A 


MOVED 




0351 


75435 


040365 


ADA 


.♦U 






0352 


75436 


070051 


STA 


MOVED 






0353 


75437 


040336 


ADA 


.-12 


COMPUTE SOURCE 




0354 


75440 


070050 


STA 


MOVES 






03g5 


75441 


007004 


CMBi 


-INB 






0356 


75442 


047671 


AOB 


SUPES 






035 7 


7 5443 


016243 


JSB 


MOVEB 


CALL REVERSE MOVER. 




0358* 














0359 


75444 


063671 


LOA 


SUPES 


■> HOLE 




03 6 


75445 


070051 


STA 


MOVED 






0361 


75446 


060520 


L0 A 


DLHM 


SET SOURCE AT LTeMP. 




0362 


75447 


070050 


STA 


MOVES 






0363 


75450 


064346 


LDB 


«"4 


MOVE IN FIrst 4 




0364 


75451 


016257 


JSB 


MUVEW 


WORDS, 




0365 


75452 


060042 


LDA 


savp 


STORE STaRT.QF* 




0366 


75453 


170051 


STA 


MQVEO,! 


PROGRAM POINTER 




03 6 7 


75454 


034051 


ISZ 


MOVED 






0368 


75*55 


016076 


JSB 


DATE 


INSERT DATE IN WORD 5 




0369 


75456 


170051 


STA 


MOyED,I 






0370 


75457 


034051 


ISZ 


MOVED 


ANO 




0371 


754g0 


060201 


LOA 


DATIM 


GET HOUR OF YEAR FOR 




0372 


75461 


170051 


STA 


MOVED, I 


WORD 6 




0373 


7 5462 


034051 


ISZ 


MOVED 






0374 


75463 


060045 


LDA 


SAVDU 


set drum 




0375 


75464 


170051 


STA 


MOVED, I 


ADDRESS 




0376 


754 6 5 


034051 


ISZ 


MOVED 






0377 


75466 
75467 


104200 
000036 


OLD 


SAVDS 


GET THE DISK ADDRESS AND 


SET IT 


0378 


75470 
75471 


104400 
100051 


DST 


MOVED, I 


INTO WORDS 8 AND 9 




0379 


75472 


064051 


LDB 


MOVED 
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0380 

0381 

0382 

0383 

0384 

0385 

0386 

0987* 

0388* 

0389* 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 



75473 
75474 

75475 
75476 

75477 
75500 
75501 



044355 
060040 
170001 
063660 
040366 
073660 
027311 



COME HERE WHEN CURRE 



76502 
75503 
75504 
75505 
75506 
75507 
75510 
75511 
75512 



063666 
053652 
027621 
040361 
073666 
002400 
073667 

037662 

027305 



3UP10 



ADB 


• ♦3 


LDA 


SAVWO 


STA 


B,I 


LDA 


3UP 


ADA 


,♦12 


STA 


8UP 


JMP 


SUPB 


NT OUTPUT 


LOA 


SUPU 


CPA 


SDIRL 


JMP 


SUP16 


ADA 


.♦7 


STA 


supu 


CLA 




STA 


SUPU2 


ISZ 


SUPP 


JMP 


SUP7 



»> WORD 11 
GET LENGTH 
AND STOKE AWAY 
UPDATE THE COUNT OF WOROS 
IN CORE BY TWELVE 



TRACK HAS BEEN FILLED, 

TEST FOR LAST TRACK, 

ALL DONE— GO CLEAN UP DIREC. 
BUMP TO NEXT TRACK, 

SET # OK WORDS WRITTEN 9O FAR 

TO 0, 
BUMP POINTER TO WORDS TO BE 

WRITTEN, 



0400* THE NE X T SECTION IS THE OUTPUT SECTION, W E ONLy COME TO THIS SEC* 

0401* TION WHEN WE HAVE DETERMINED THAT NO MOrE CAN BE READ, IN T^IS 

0402* PART WE WRITE OUT A3 MUCH A3 POSSIBLE UnTIl wE HAVE EXHAUSTED All 

0403* W t HAVt IN CORE OR W E R E ACh THE POINT WH£N FURTHER OUTPUT WOULD 

0404* DESTROY INFORMATION NOT YET REaD, IN THIS SECTION, THE VARIABLE 

0405* SUPS ■ » OF WORDS THAT HAVE BEEN OUTPUT FROM THE CURRENT CORE 

0406* LOAD, 



0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
04^4 
0425 
0426 
0427 
0428 
0429 
0430 
0431 



75513 
75514 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 

7553 1 
75532 

75533 
75534 
75535 
75536 

755 3 7 

75540 
75541 
75542 



002400 
073657 
063667 
143662 
067666 
057664 
027335 
067657 
007004 
047660 
077661 
044900 
006021 
027544 

063661 
010$10 
003004 
027544 
067667 
007004 

047665 
044000 
007025 
040001 



SUpll 
SUP15 



3UR13 



SUP12 



CLA 

STA 

LDA 

ADA 

LOB 

CPB 

JMP 

LDB 

CmB, 

ADB 

STB 

ADB 

S3B, 

JMP 

LDA 

AND 

CMA, 

JMP 

LDB 

CMB, 

ADB 

ADB 

CMB, 

ADA 



SUPS 

3UPL2 

SuPP,I 

SUPLl 

SUPK1 

SUP12 

SUPS 

Inb 
sup 

SUPB 



RSS 

SUP14 

SUPB 

M$4 

INA 

SUP14 

SUPL2 

INB 

SUPK2 



SSB,InB, 

1 



SET n QF WORDS OUTPUT SQ FAR To 

ZERO, 
SET WORD ■ »# OF WORDS LEFT 

TO BE WRITTEN ON Ll, 
TEST FOR HRiTjNG ON A TRACK NOT 

COMPLETELY READ, 
WE ARE 
3ET B*J OF WORDS l*FT IN CoRE, 



SAVE IN B, 

COMPAhE WITH # Mi WANT TO NR*T*t 

HAVE ENOUGH, -# IS IN A, 
ONLY WRITE *HAT WE HAVE, 
USE ONLY FULL SECTOR'S WORTH 
MAKE NEGATIVE, 

jF WR X TING ON UNREAD TRACK, MArE 
SURE W E OON'T GO INTO UNReAD 

AREA, 



RSS 



Change a to avoid overlay. 
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0432 


75543 


027522 




JMP 3UP13 




0433* 












0434* 


A NOW CONTAINS „# 


OF WORDS WE 1 


»RE GOING TO WRiTE, 


0435* 












0436 


75544 


070072 


8UP14 


STa word 


IF NO WORDS TO BE 


0437 


75545 


002003 




SZA,RSS 


WRITTEN GO TO SLIDE CORE FOR 


0438 


75546 


027604 




JMP 3UP17 


NEW INPUT, 


0439 


75547 


003004 




CMA,INA 




0440 


75550 


073661 




STA 3UPB 




0441 


75551 


063667 




LDA 8UPL2 


TEST FOR FIRST WRITE ON THIS 


0442 


75552 


002002 




SZA 


TRACK, 


0443 


75553 


027565 




JMP SUP18 




0444* 












0445 


75554 


063666 




LOA SUPL1 


IF f-IRST WRITt, 


0446 


75555 


002004 




JNA 




0447 


75556 


070051 




STA MOVED 


ADJUST DIREC TO TELL 


0440 


75557 


060562 




LDA LIBD 


NEW FIRST ENTRY ON THAT 


0449 


75560 


043657 




ADA SUPS 


TRACK, 


0450 


75561 


070050 




STA MOVES 




0451 


75562 


064346 




LDB ,-4 




0452 


75563 


016257 




J30 MqvEW 




0453 


75564 


002400 




CLA 




0464* 












0455 


75565 


006400 


SUP t 8 


CUB 


CONVERT W0RD8 TO SECTOR 


0456 


75566 


101026 




ASR 6 


ADDRESS, 


0457 


75567 


067666 




LDB SUPL1 


ADD IN TRACK ADDRESS, 


0456 


75570 


044360 




ADB ,*6 




0459 


7557i 


140001 




ADA i,i 




0460 


75572 


064562 




LDB LIBD 


COMPUTE CORE 


0461 


75573 


047657 




ADB SUPS 


ADDRESS, 


0462 


75574 


016231 




JSB DRUML 


OUTPUT TO DRUM 


0463 


75575 


116017 




JSB DEADP,! 


URUM ERROR, NO CHANCE FUR RECOVE 


0464 


75576 


063661 




lda supb 


ADJUST # OF WORDS OUTPUT TO 


04 6 5 


75577 


043 66 7 




ADA SUPL2 


TRACK, 


0466 


75600 


073667 




STA SUPL2 




0467 


75601 


063661 




LOA SUPB 


ADJUST # Of CORfc WORDS Wr;TT£n 


046 8 


75602 


043657 




ADA SUPS 


OUT SO FAR, 


U469 


75603 


027514 




JMP SUP15 


LOOP FOR ANY MORE WRITING, 


0470* 












0471* 


COME 


HERE WHEN WE 


CAN'T WRITE 


ANYMORE, 


0472* 












0473 


75604 


053657 


SUP17 


CPA SUPS 


IF NOTHING WRITTEN AT ALL, GO TO 


0474 


75605 


027305 




JMP SUP7 


TRY AND READ AGAjN, 


0475 


75606 


067657 




LDB SUPS 


ADJUST * OF WORDS IN CORE, 


0476 


75607 


007004 




CMBrlNB 




0477 


75610 


047660 




ADB SUP 




0478 


75611 


077660 




STB SUP 




0479 


7 5 6 12 


007004 




CMBrlNB 


MAKE NEGATIVE FOR CORE MOVE, 


0480 


75613 


060562 




LOA LIBD 


SET DESTINATION AND SOURCE, 


0481 


75614 


070051 




STA MOVED 




0482 


75615 


043657 




AqA sups 




0483 


75616 


070050 




S|A MOyES 




0484 


75617 


016257 




JSB MOVEW 




0465 


75620 


027305 




JMP SUP7 




0486* 
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0487* 
0488* 
0499* 

049k) 
049i 
0492 

0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 



ALL TRACKS WRITTEN BACK, NOW UPDATE HOrD COUNTS IN 
DlRECt 



75621 SUP16 EQU * 

75621 063642 LOA M80 

75622 073660 STA SUP 

75623 067651 LOB SDIR0 

75624 8UPLL EQU * 

75624 163641 LOA DEFNN,I 

75625 170001 STA 8,1 

75626 037641 IS* DEFNN 

75627 044361 ADB ,+7 

75630 037660 IS* SUP 

75631 027624 JMP 3UPLL 

75632 063646 LOA SUPRl 

75633 073772 STA 3UPR 

75634 SUP3 EQU * 

75634 063643 LOA SM504 

75635 070072 STA wORD 

75636 16026tf LOA LIB, I 

75637 064504 LDB #LIBI 

75640 027770 JMP 9 gPRR 

75641 073571 OEFNN DEF FILBF 

75642 177660 M80 DEC -80 

75643 177010 SM504 DEC -504 

75644 176626 M682 DEC «682 

75645 176525 M683 DEC *683 

75646 027776 SypRi JMP LIBRA+510 

75647 V1777V S8184 DEC 8184 

75650 000240 X2056 DfcF LiBUS*UL£N 

75651 030000 SDIR0 DEF OIrEC 

75652 031051 sDIrL DEF DIrEL 

75653 031060 SOIRU DEF OIREU 

75654 03U76 DIRCS DEF DIRCM 

75655 154024 STL^ ABS -UlEN+20 

75656 177777 OCT »1 

75657 177764 SUPS DEC -12 

75660 000000 SUP OCT 

75661 000000 SUpB OCT 

75662 073571 SUPP DEF FILBF 

75663 000000 SUPTC OCT 

75664 000000 SUPK1 BSS 1 

75665 000000 3UPK2 BSS 1 

75666 000000 SUPul BSS 1 

75667 000000 SUPL2 BSS 1 

75670 000000 SUPEX BSS 1 

75671 000000 SUpES BSS 1 

75770 ORG LlBRA*504 

75770 SUPRR EUU * 

75770 016231 JSB ORUML 

75771 116017 J3B DEADp,I 

75772 $27777 SyPR JMP LIBRA+511 

75773 SSSAV EQU * 



SET COUNT 

OF DIRECTORY TRAX 
■> FIRST OIREC ENTRY 

COPY NEW LENGTH WORDS INTO 

THE DIREC TABLE ENTRIES 
WIPE OUT "CONSTANT" 
ADVANCE DIrEC POINTER 



SET UP RETURN ADDRESS, 

SET wORO COUNT 
GET DISC ADDRESS, 



JyMP FOR NORMAL REtuRN 
8184 



OVERLAY WITH ORIGlNAj. ROUTINE 
CAN'T GET IT BACK, ARRGHJ 
SET FOR ERROR ROyTINE 
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0002* THE GET ROUTINE JS RESPONSIBLE FOR LOADING A PROGRAM FROM THE 

0003* USER LIBRARY, IT CAN BE USED TO LOAD FROM EITHER THE USER'S 

0004* PRIVATE LIBRARY, THE GROUP LIBRARY, OR THE PUBLIC LIBRARY, 

0005* IF THE PROGRAM 1$ T Q BE FROM jHE ySER'S GROuP LIBRARY, THE 

0006* PRuGRAM NAME SHqULD BE PRECEDED BY A SNgMFLAKE (*), IF IT IS To 

0007* BE FROM THE PUBLIC LIBRARY, THE PROGRAM NAME SHOULD BE PRECEDED 

0008* BY A DOLLAR SIGN ($), 



0010 


75000 




0012 


75000 


060273 


0013 


75001 


040341 


0014 


75002 


070036 


0015 


75003 


160000 


0016 


75004 


070030 


0017 


75005 


060520 


0018 


75006 


002004 


0019 


75007 


070034 


0020 


75010 


060347 


0021 


75011 


070037 


0022 


75012 


016164 


0023 


75013 


027035 


0024 


75014 


050416 


0025 


75015 


027050 


0026 


75016 


050424 


0027 


75017 


027055 


0028 


75020 


001727 


0029 


75021 


170034 


0030 


75022 


016164 


0031 


75023 


060412 


0032 


75024 


130034 


0033 


75025 


170034 


0034 


75026 


034034 


0035 


75^27 


016164 


ttu36 


75030 


060412 


0037 


75031 


034037 


0038 


75032 


027020 


0039 


75033 


W 5 0412 


0040 


75034 


027074 


0041* 






0042 


75035 


060335 


0043 


75036 


067040 


0044 


75037 


026432 


0045 


75040 


075041 


0046 


75041 


005111 


0047 


75042 


047126 




75043 


040514 




75044 


044504 




75045 


020116 




75046 


040515 




75047 


042440 


0048* 






0049 


75050 


060612 


0050 


75051 


070030 


0051 


75052 


016164 



GET 3 



GET1 



ORG %IBRA 




lda mlink*i 


GET USER'S ip, 


ADA ,*?ID»?LINK 


STA GET! 




LDA 0,1 




STA LTEMP 


STORE IN LTEMP, 


LDA DLTEM 


SET UP POINTER FOR NAME, 


INA 




STA GETP 




LDA t „3 


SET UP COUNTER, 


STA GETC 




J38 lchar 


GET FIRST INPUT CHAR, 


JMP GETl 


ERROR IF NONE, 


CpA ,+44B 


IF $ GO TO SET Up FOR 


JMP GET2 


SEARCHING PUBLIC LIBRARY, 


CPA ,*52B 


IF * GO TO SET UP FOR 


JMP 6ETJ4 


SEARCHING GROUP LIBRARY 


ALF,ALF 


SAVE CHARACTER IN TABLE, 


STA GETP, I 




JS8 LCHAR 


GET RIGHT CHARACTER* 


LDA »*40B 


IF END CHANGE TO BLANK, 


IOR GETP, I 




STA GETP^I 




ISZ GETP 


BUMP POINTER, 


jSb LCHAR 


GET NEXT CHARACTER, 


LDA +408 




IS Z GETC 


DO WE WANT IT? 


JMP GET3 


YES. 


CPA ,*40B 


NQ*"*A SHOULD NOW BE BLANK, 


JMP GET4 




LDA -13 




LDB *+2 




J M P LIBER 




D£F *+l 




OCT 5111 




A3C 6,NVALID 


NAME 



GET2 



LDA A000 
STA LTEMP 
JSB LCHAR 



SET gP FOR PoBLIC LIBRARY SEARCH 
GET FIRST CHAR OF NAME, 
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0052 
3053 
0054 
0055 
0056 
0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067* 

0068 

0069 
0070 
0071 
0072 
0073* 

0074 
0075 

0076 
0077 
0078 
0079 



0080 
0081 
0082 
0083 
0084 
0085 



0086 
0087 
0088 
0089 
0090 



75053 
75054 
75055 
75056 
75057 
75060 

75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 

75074 
75075 
75076 
75077 
75100 

75i0i 
75102 
75103 
75104 
75 t 05 
75106 
75107 
75U0 

75U1 
75U2 

75U3 
75114 
75115 
75U6 
75117 
75120 
75121 

75i22 
75123 
75124 
75125 
75126 
75127 
75130 
75131 
75132 
75133 
75134 
75135 
75136 
75137 



027035 
027020 
060030 
010602 
006400 
100400 

000437 
100200 
000437 

064000 
060732 
010030 
030001 
070030 
016164 
027035 
027020 

016047 

061&77 
070043 
116005 
027133 

060332 
067104 

026432 
075105 
005n6 
047440 
051525 
041510 
020120 
05U17 
043522 
040515 
06032? 
067120 
026432 

075121 
005111 
046n4 
026523 
052117 
051105 
042040 
050122 
047507 
051101 
046440 
064035 
044356 
160001 
002021 
027144 



GET14 



JMP 
JMP 
IDA 
AND 
CUB 
DIV 



GET1 
GET3 
LTEMP 
B1777 

.100 



MPY ,100 

LDB A 
LDA M2000 
AND LTEMP 
IOR B 
STA LTEMP 
J3B LCHAR 
JMP GETl 
JMP GET3 



FAIL IF NONE, 

GET USER'S ID 

ISOLATE NUMERICAL PART 

DIVIDE BY U0 AND 

MULTIPLY BACK, DROPPING REMAIN 

SAVE RESULTING MULTIPLE OF 100 
GET UPPER 6 BITS MASK 
GET ALPHABETIC PART OF ID 
MERGfc NEW NUMERICAL PaRT 
STORE LIBRARIAN ID 
GET FIRST CHAR OF NAMt 
FAIL IF NONE 
ELSE, CONTINUE 



GtT4 



JSB 
LDA 
STA 
JSB 

JMP 



ROPRG 
3PR0G 
GETS 
DLOKP, 1 
GET18 



SAVE END-OF- 

COMMON POINTER 
SEARCH DIRECTORY 



FOR PROGRAM 



GETi9 LDA ,»i6 

LDB *+2 

J M p LIBER 

DEF *♦! 

OCT 5M6 

A3C 7,0 SUCH PROGRAM 



GET22 



LDA ,»19 
LDB *«2 
J M p LIBER 

DfcF *+l 

OCT 5111 

ASC 9 # LL»STURED 



PROGRAM 



G£T1B 



LDB GETPD 
AOB ,44 
LDA B,I 
SSA,RSS 
JMP GET9 



CHECK ILL-STORED 
PROGRAM FLAG 

UNSUCCESSFULLY 3TQRE0? 
NO, CONTINUE 



PAGE 0418 #36 GET 



0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099* 

0100 

0101 

0102 

0103 

0104 

0105 



0106* 

0107* 
0108* 

0109 
0110 
0111 
0112 

"113 
0114 

0116 
0116 
0117 
0118 

0U9* 

0120* 
0121* 

0122 
0123 
0124 
0125 
0126 
0127 
0126 
0129 
0130 
0131 

0i32 
0133 
0134 
0135 
0136 
0137 
0I38 
0139 



7&140 
75141 

75142 
75143 
75144 
75145 
75146 
75147 

75150 
75151 
75152 
75153 
75154 
75155 
75156 
75157 
75l6« 
75161 
75162 
75163 



160036 
050030 

027115 
027101 
044350 
160001 
002021 
027164 

060332 
067153 
026432 
075154 
005105 
047124 
051131 
020111 
051440 
040440 
043111 
046105 



GET9 



LOA GETI,I 
CPA LTfcMP 
JMP GET22 
JMP GET19 
AOB ,«2 

SSA,RSS 
JMP 6ET10 



LOA 
LDB 
JMP 
DEF 
OCT 
ASC 



t"l6 

•♦2 
LIBER 

♦ ♦1 
5105 

7,NTRY 



IS 



IF PROGRAM IS ON UISC, START SEEK, 



75164 
75165 
75166 
75167 
75i70 
75171 

75172 
75173 
75174 
75175 



044357 
160001 

002002 
027176 
070215 
060001 
002004 
114212 
102030 
102031 



GET10 



AOB 
LOA 
SZA 
JMP 
STA 
LDA 
INA 
JSB 
HLT 
H LT 



B,I 

GET15 
MWORD 
B 

DISCA,I 

30B 

31B 



YES, GET USER'S ID 

DQfcS HE (0« SHE) OWN THE PROG? 
YES, PRINT ILL-STORED PROGRAM 
NO, PRINT NO SUCH PROGRAM 
TEST F R FILE 



LF*E 
A FILE 



DRUM ADDRESS WORD 

GET DRUM ADDRESS 

IS PROGRAM ON DRUM? 

YES, DON'T BOTHER SEEKING 

ZERO WORD COUNT 

A REG GETS POINTER 

TO DISC ADDRESS 
GO INITIATE SEEK ON OISC 
DrIvEr BUSY! HALT 
RECORD OUT OF rAnSEI HALT 



FOUND CORRECT ENTRY. FIRST CHECK TO SEE IF IT FITS 



75176 044344 GET15 ADB -6 

75177 160001 LDA 5,1 

75200 070031 STA LTEMP+1 

75201 044354 AUB ,*2 

75202 160001 LDA l,j 

75203 070040 STA |_IBSC 

75204 006004 INB 

75205 160001 LDA 1,1 

75206 001665 ELa,CLE,ERa 

75207 070041 STA LIB3P 

75210 4436i ADB ,+7 

75211 160001 LDA 1,1 

75212 070042 STA GETLN 

75213 003004 CMA,INA 

75214 040041 ADA LIB3P 

75215 070045 STA HBPB 

75216 003004 CMA,INA 

75217 064040 LDB LIBSC 



■> FIRST WORD OF NAMt 
MOVE WITH PROTECTED FLAG 
TO SAFE PLACE 

»> third word o f NAHt 

SAVE SEMI* 

COMPILED f"L*G 

retrieve start- 
of»progRam 

POINTER 
GET PROGRAM 
LENGTH, 

COMPUTE FIRST 
UNUSED WORO 

COMPUTE NEGATIVE 
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0140 


75220 


006021 


SSB, 


,RSS 


StMUCOMPILEO? 


0141 


75221 


027226 


JMP 


GET25 


NO 


0142 


75222 


040462 


ADA 


LWAUS 




0143 


75223 


002021 


ss A , 


rRSS 


TOO BIG? 


0144 


75224 


027251 


JMP 


GET13 


NO 


0145 


75225 


027231 


JMP 


GET26 


YES 


0146 


75226 




GET25 EQU 


* 




0147 


75226 


040654 


ADA 


LW»7 


TOTAL LENGTH 


0148 


75227 


002021 


SSA, 


rRSS 


COMPARE WITH MAX ALLOWED 


0149 


75230 


027251 


JMP 


GET13 


UK 


0150 


75231 




GET26 EUU 


* 




0151 


75231 


060214 


LDA 


MBUSY 


MAKE SURE 


0152 


75232 


002020 


SSA 




Disc driver 


0153 


75233 


027231 


JMP 


*«2 


IS FINISHED 


0154 


75234 


060330 


LDA 


.-18 




0155 


75235 


067237 


LOB 


* + 2 




0156 


75236 


026432 


JMP 


LIBER 




0157 


75237 


075240 


de'f 


* + l 




0158 


75240 


005120 


OCT 


5120 


LF-P 


0159 


75241 
75242 
75243 
75244 
75245 
75246 
75247 
75250 


«»5m7 

043522 
040515 
020124 
047517 
020114 
040522 
043505 


ASC 


b/ROGRAM 


TOO LARGE 


0160* 












0l6l 


75251 


0l6«76 


GET13 JSB 


DATE 


SET NEW DATE 


0162 


75252 


064035 


LDB 


GETPD 


INTO 


0163 


75253 


044357 


ADB 


,♦5 


DIRECTORY, 


0164 


75254 


170001 


8TA 


1»I 




0165 


75255 


044354 


ADB 


,♦2 


GET PROGRAM 


0166 


75256 


160001 


LDA 


B,I 


DRUM ADDRESS 


0167 


75257 


070044 


STA 


GETD 




0168 


75260 


006004 


INB 




ALSO SAVE 


0169 


75261 
75262 


104200 
100001 


DLO 


BrJ 


disc 


0170 


75263 
75264 


104400 
000046 


D8T 


GETDI 


ADDRESS 


0171* 












0172 


75265 


160034 


LDA 


GETP,1 


WRITE DIRECTORY 


0173 


75266 


070072 


STA 


WORD 


BACK TO 


0174 


75267 


060034 


LDA 


GETP 


DRUM 


0175 


75270 


040360 


ADA 


,♦6 




0l76 


7527i 


160000 


LDA 


0,1 




0177 


75272 


064562 


LDB 


LXBD 




0178 


75273 


016231 


JSB 


DRUML 




0179 


75274 


027357 


JMP 


GET21 


BLEW IT, TRY TO SALVAGE 


0180* 












0181* 












0182 


75275 


064273 


LDB 


MLINK+1 


SET To NULL PROGRAM 


0183 


75276 


044340 


ADB 


.♦7PROG" 


?LINK 


0184 


75277 


160001 


LDA 


B/I 


SAVE PROGRAM 


0185 


75300 


070037 


STA 


GETC 


LENGTH 



PAGE 0423 #38 GET 



0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 



0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 



75301 
75302 
75303 

753^4 
75305 
75306 
75307 
75310 
75311 
75312 
75313 
75314 
75315 
75316 
75317 
75320 
75321 
75322 
75323 
75324 
75325 
75326 
75327 
75330 
75331 
75332 
75333 
75334 
75335 
75336 
75337 

75340 
75341 
75342 
75343 
75344 
75345 
75346 
75347 
75350 
75351 
75352 
75353 
75354 
75355 
75356 
75357 
75360 

75361 
75362 
75363 
75364 
75365 
75366 
75367 



060043 
170001 
016047 
064042 
060044 
002002 
027363 
074215 
064041 
045036 
063405 
114212 
027314 
102031 
060214 
002020 
027317 
002003 
027370 
064273 
044335 
074257 
044355 
060037 
170001 
016047 
060317 
067336 
026432 
075337 
005125 
047101 
041114 
042440 
052U7 
020122 
042524 
051111 
042526 
042440 
043122 
047515 
020114 
044502 
051101 
05U31 
060034 
040360 
164034 
116016 
074072 
064041 
045036 
016231 
027324 



LDA 
STA 
JSB 
LDB 
LDA 
SZA 
JMP 
STB 
LDB 
ADB 
LDA 
JSB 
JMp 
HLT 
LDA 
SSA 
JMp 
SZA, 
JMP 
GET20 t,DB 
ADB 
STB 
ADB 
LDA 
STA 
JSB 
LDA 
LDB 
JMP 
DEF 
OCT 
ASC 



GET21 



GET16 



GETS 

i»I 

R|)PRG 
GETLN 
GETD 

GET16 

MWORD 

LIB3P 

BIT15 

GETDP 

DISCA, I 

*-l 

31B 

MBUSY 

*-2 
RSS 
GET17 

ML*NK+1 
,«?LINK 
MAIN 

♦7PR0G 
GETC 
B,I 
RDPRG 
M32 

♦♦2 
LIBER 

♦ ♦1 

5125 

l5,NABLE 



REAo IN CURRENT USER PROGRAM, 

GET WORD COUNT 

GET DRUM ADDRESS 

FILE ON DISC Or DrUM? 

DRUM, GO GET FROM DRUM 

DISC, STORE WORD COUNT 

GET START OF PROGRAM POINTER 

AND READ BIT 
GET PTR TO DISK ADDRESS 
GO DO READ FROM DISC 
DISC DRIVER IS CALLED 
DIRECTLY HERE BECAUSE IT 
IS PROBABLY STILL BUSY 
DOING THE ADVANCE SEEK 
AND SO A 
JMp **1 IS PUT In THE 
"DRIVER BUSY" RETURN LOC 



LF«U 
TO RETRIEVE FROM LIBRARY 



LDA 


GETP 


ADA 


,♦6 


LDB 


GETP, I 


JSB 


SALVP,I 


STB 


WORD 


LDB 


LIB3P 


ADB 


BIT15 


JSB 


DRUML 


JMP 


GET20 



STORE WORD COUNT FOR DRUM 
GET START OF PROGRAM POINTER 
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0227 
>228 
0229 
0230 
0231 
0232 
0233 
0234 

0235 

0236 
0237 
0238 
0239* 

0240 
0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248* 

0249 



75370 

75371 
75372 
75373 
75374 

75375 
75376 
75377 
75400 
75401 
75402 
75403 
75404 
75405 



160036 
1334036 
064031 
050030 
005665 
174036 
034036 
104200 
000032 
104400 
100036 
016710 

026226 
000046 



00034 
00035 
00036 
00037 
00042 
00043 
00044 
00046 

l.TEMP+15 
75406 



GET17 LQA GETi/I 

ISZ GET! 

LOB LTEMPn 

CPA LTEMP 

EtB,CLEfEKB 

STB GET!, I 

I8Z GETI 

DUD LTEMP+2 

DST GETI, I 

J3B SEMiC 

JMP LLEND 

GETDP OEF GETDI 

GETP EOU LTEMP+4 

GETPO EQU LTEMP+5 

GETI EQU LTEMP+6 

GtTC e«U LTEMP+7 

GEjLN EgU LtEMP+10 
GETS EQU LTEMP+H 

GETD EUU LTEMP+12 

GETDI EUU UTEMP+14 
IS USED HERE Al.Su 

$GET EUU * 



GET USER'S Id 

FIRST WORD OF NAME. 

GET IT 

if PROGRAM OWNER C^EAR 

RUN^UNLY BIT. 
STORE FIRST WORD OF NAME. 
BUMP POINTER TO NEXT WORD, 
GET LAST 2 *ORDS OF NAME, 

STORE IN TABLE, 



TERMINATE. 

»> DISK ADDRESS 
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0251* 

0252* 
0253* 
0254* 
0255* 
0256* 
0257* 
0258* 

02&0 

0261 

0262 

0263* 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 



0277* 

0278 

0279 

0280 
0281 
0282 
0283 

0284 
0285 
0286 
0287 
0288 
0289 
0290 



THE APPEND COMMAND ALLOWS A USfcR TO APPEND A UBKaHY PROGRAM ON TO 
THE END OF HIS CURRENT PROGRAM, THE FIRST STATEMENT OF THE NEW 
PROGRAM MUST HAVE A SEQUNCE NUMBER GREATER THAN THAT OF THELA8T 
STATEMENT OF THE OrIGINAL PrOGrAM, IF THE NEW SECTION Is PrOtECTED 

the Entire program will be protected. semI-CompIlEd programs and 

PROGRAMS WITH COMMON MaY NOT BE APPENDED 

THE CODE FOR APPEND MUST FOLLOW THE CODE FOR "GET', 



75000 
75000 
75176 

75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75210 
752H 
75212 
75213 
75214 
75215 
75216 
75217 
75220 
75221 
75222 
75223 

75224 

75225 
75226 
75227 
75230 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 
75244 
75245 
75246 



060273 



044346 
160001 
002021 
027224 
060214 
002020 
027202 
060324 
067210 
026432 
0752H 
005123 
042515 
044455 
041517 
046520 
044514 
042504 
020120 
051117 
043522 
040515 

006004 
160001 
050702 
027253 
060214 
002020 
027230 
060323 
067236 
026432 
075237 
005H6 
047440 
041517 
046515 
047516 
020101 
051105 
040440 



ORG LIBRA 
LDA MLINK+I 
ORG GET15 

AOB ,»4 

LDA 1,1 

SSA,RSS 
JMP APP0J 
LOA M8USY 
SSA 

JMp *«2 
LDA ,-22 
LDB **2 
JMP LIBER 
DEF **i 
OCT 5123 



APP01 



ASC l0,EMI»C o MpILED pRqGRAM 



THE CODE IS IDENTICAL TO "GET" 
UP TO LOCATION GET15 

»> THIRD WORD OF NAME 

SEMICOMPILED? 
NO 

YES, MAKE SURE 
DISC DRIyER 
IS FINISHED 



LF«S 



INB 




LDA 1,1 




CPA PBUFF 


COMMON AREA? 


JMP APP02 


NO 


LDA MbUSY 


MAKE SURE 


SSA 


DISC DRIVER 


JMP *«2 


IS FINISHED 


LDA ,.23 




LOB **2 




JMP LlBfcR 




DEF *+l 




OCT 5116 


LF"N 


ASC 11,0 COMMON AREA ALLOWED 



PAGE 0423 #38 APPEND 





75247 


040514 










75250 


04611? 










75251 


053505 










75252 


042040 








0291 


75253 


016076 


APP02 JS8 


DATE 


SET DATE OF LAST REFERENCE 


0292 


75254 


064035 


LDB 


6ETPD 


INTO DIRECTORY ENTRY, 


0293 


75255 


044357 


ADB 


,♦5 




0294 


75256 


170001 


STA 


hi 




0295 


75257 


044346 


ADB 


.•4 


SAVE LIST BIT, 


0296 


75260 


160001 


LDA 


1,1 




0297 


75261 


070036 


STA 


APPLS 




0296 


75262 


044360 


ADB 


,♦6 


GET PROGRAM DRUM ADDRESS 


0299 


75263 


160001 


LDA 


B,I 




0300 


75264 


070044 


STA 


GETO 


SAVE IT 


0301 


75265 


006004 


IN8 




SAVE ALSO 


0302 


75266 
75267 


104200 
100001 


DUD 


B,I 


DISC 


0303 


75270 
75271 


104400 
000046 


D3T 


GETDI 


ADDRESS 


0304 


75272 


064035 


LDB 


GETPD 


AND 


0305 


75273 


044363 


ADB 


.♦11 




0306 


75274 


160001 


LDA 


Bfl 


PROGRAM 


0307 


75275 


070042 


STA 


GETLN 


LENGTH 


0308* 












0309 


75276 


160034 


LDA 


GETP,X 


WRITE DIRECTORV 


0310 


75277 


070072 


STA 


WORD 


BACK TO DRUM 


0311 


75300 


060034 


LDA 


GETP 




0312 


75301 


040360 


ADA 


,+6 




0313 


75302 


1 60000 


LDA 


0/1 




0314 


75303 


064562 


LDB 


LIBD 




0315 


75304 


016231 


JSB 


DRUML 




0316 


75305 


02/343 


JMP 


APP10 


DRUM ERROR, GO TRY TO SALVAGE 


0317* 












0318 


753 6 


016047 


JSB 


RDPRG 


READ IN USER'S PROGRAM AND 


0319 


753«>7 


015322 


JSB 


DCMPL 


DECOMPILE IT, 


0320* 












0321 


75310 


060042 


LDA 


GETLN 


TEST FOR PROGRAM TOO 


0322 


75311 


003004 


CMA, 


, INA 


LArGE, 


0323 


75312 


040056 


ADA 


PBPTR 


LAST WORD+1 OF COMBINED PROGS, 


0324 


75313 


070045 


STA 


LIBPB 




03 2 5 


753*4 


003004 


CMA. 


-INA 


COMPUTE NEGATIVE 


0326 


75315 


040654 


ADA 


LW97 


TOTAL LENGTH 


0327 


75316 


002021 


SSA, 


rRSS 


COMPARE WITH MAX ALLOWED, 


0328 


75317 


027347 


JMP 


APP1 


O.K. 


0329 


75320 


060214 


LDA 


MBUSY 


MAKE SURE 


0330 


75321 


002020 


SSA 




DISC DRIyER 


0331 


75322 


027320 


JMp 


*"2 


IS IDLE 


0332 


75323 


060273 


LDA 


ML1NIU1 


SET MAIN TO SAY PROGRAM IN 


0333 


75324 


040335 


ADA 


.•7LINK 


CORE, 


0334 


75325 


070257 


STA 


MAIN 




0335 


75326 


060330 


LDA 


.•l8 




0336 


75327 


067331 


LDB 


*+2 




0337 


75330 


026432 


Jmp 


LIBER 




0336 


75331 


075332 


DEF 


• ♦1 




0339 


75332 


005l 2 


OCT 


5120 


LF-P 
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0340 



0341 
0342 

0343 
0344 

0345* 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365* 

0366* 
0367* 

0368 
0369 
0370 

*>37l 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0301* 

0362 

0383 

0384 
0385 
0386 
0387 



75333 
75334 
75335 
75336 
75337 
75340 
75341 
75342 
75343 
75344 
75345 
75346 

75347 
75350 
75351 
75352 
75353 
75354 
75355 
75356 
75357 
75360 
75361 
75362 
75363 
75364 
75365 
75366 
75367 
75370 
75371 



051117 
043522 
040515 
020124 
047517 
020114 
040522 
043505 
060034 
040360 
164034 
116016 

064042 
060044 
002002 
027364 
074215 
070261 
064056 
045036 
063533 
114212 
027360 
102031 
027372 
074072 
006400 
074214 
064056 
045036 
114770 



ASC 8,R0GR*M TOO LARGE 



APP10 IDA GETP 

ADA ,*6 

LOB GETPrl 

jSB SALVP,! 



APPi 



APP7 



LDB 
LoA 
SZA 
JMP 
STB 
STA 
LOB 
AOB 
LOA 
JSB 
JMp 

HLT 
JMP 
STB 
CLB 
STB 

LOB 
AOB 

JSB 



GETLN 
GETo 

APP7 

MWQRD 

ENDkM 

P8PTR 

BITlC 

APPDP 

DISCA,I 

*-l 

31B 

APP8 

WORD 

MBU3Y 
P8PTR 
BIT15 
DRUM, I 



get length of program to be appo 

get drum address 

disc or drum address? 

drum, go 00 drum read 

disc* store word count 

fake "drum successful" 

INITIATE 

DISK 
READ 
WAIT UNTIL DRIVER FREE 



STORE WORD COgNT FOR DRuM 
FAKE 

"DISC SUCCESSFUL" 



INITIATE DRUM READ 



SCAN ORIGINAL PROGRAM TO DETERMINE LAST SEQUENCE NUMBER, 



75372 
75373 
75374 

75375 
75376 
75377 
75400 
75401 
75402 
75403 
75404 

75405 
75406 

75407 
75410 

754*1 
75412 
75413 
75414 



061577 
002004 
064056 
00^004 
050001 
027422 
003004 
040001 
002021 
027407 
060056 
071577 
027422 

061577 

002004 
070037 

140000 
050001 
002001 



APP8 



APP5 



LDA 8PR0G 

INA 

LDB PBPTR 

INB 

CPA 1 

JMP APP2 

CMA,INA 

ADA B 

S3A,RSS 

JMP APP5«! 

LDA PBPTR 

STA SPROG 

JMP APP2 

LDA SPROG 

INA 

STA APPS 

ADA 0,1 

CPA 1 

RSS 



OF 



SO 



SET A TO POINT AT LENGTH OF 

FIRST STATEMENT, 
SET B TO POINT AT LENGTH 

FIRST NEW PROGRAM, 
IF EQUAL, PROGRAM IS NULL, 

IT'S OK, 



IS 3PR0G>PBPTR? 

NO 

YES, RESET SPROG 



RESTORE 

(A) 
SAVE LOCN OF THIS STATE, LENGTH, 
LINK TO NEXT ONE, 
IF SAvE AS B, APPS«»LASt SjAjE, 
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0388 


75415 


027411 


0389* 






0390 


75416 


003400 


0391 


75417 


040037 


0392 


75420 


160000 


0393 


75421 


003001 


0394 


75422 


003403 


0395* 






0396 


75423 


064261 


0397 


75424 


006020 


0398 


75425 


027423 


0399 


75426 


006002 


0400 


75427 


027463 


0401 


75430 


064214 


0402 


75431 


006020 


0403 


75432 


027430 


0404 


75433 


006002 


0405 


75434 


027463 


0406* 






0407 


75435 


140056 


0408 


75436 


002021 


0409 


75437 


0275U 


0410* 






0411 


75440 


060273 


0412 


75441 


040335 


0413 


75442 


070257 


0414 


75443 


060322 


0415 


75444 


067446 


0416 


75445 


026432 


0417 


75446 


075447 


U418 


75447 


005123 


0419 


75450 


042521 




75451 


052506 




75452 


047103 




75453 


042440 




75454 


047125 




75455 


046502 




75456 


042522 




75457 


020117 




75460 


053105 




75461 


051114 




75462 


040520 


0420* 






0421 


75463 


006400 


0422 


75464 


074261 


0423 


75465 


060273 


0424 


75466 


040335 


0425 


75467 


070257 


0426 


75470 


060317 


0427 


75471 


067473 


042g 


75472 


026432 


0429 


75473 


076474 


0430 


75474 


005125 


0431 


75475 


047101 




75476 


041114 



APP2 



APP9 



JMP APP5 

CCA 

ADA APPS 

LOA 0,1 

CMA,R33 

CCA 

L.DB ENDRM 

SSB 

JMP *-2 

SZB 

JMP APP9 

UDB MBUSY 

SSB 

JMP *•» 

SZB 

JMP APP9 

ADA PBPTR,! 
S8A,R3S 
JMP APP3 

loa mlJnk+i 

ADA ,«?LINK 
STA MAXN 
LOA ,«24 
LOB **2 
JMP LjBER 
DEF *♦! 
OCT 5i23 



OtHERkIsE, LOOP, 

GET SEQUENCE # OF LAST STATE* 

MEN T , 
MAKE NEGATIVE AND SUBTRACT 

ONE, 
SET TO »1 (S£QNO*0) IF NO PROG, 

WAIT FOR DRUM TO TERMINATE Ok 



WAIT FOR 0I3C 
TO 

TERMINATE 
WITHOUT 



CHECK THAT FIRST SEQUENCE » IS 
GREATER THAN LAST ONE OF OLD 
PROGRAM, 

SET MAIN TO SAY PROGRAM IN 
CORE, 

ERROR, 



LF-S 



ASC H f EQUENCE NUMBER OVERLAP 



CLB 

STB ENORM 
LOA MLINK*! 
AQA ,-TLINK 
STA MAIN 
LOA m32 
LOB **2 
JMP LIBER 
DEF **i 
OCT 5125 



CLEAR DRUM DRIVER 
BUSY FLAG 



LF»U 



ASC 15,NA6LE TO RETRIEVE FROM LIBRARY 
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0432* 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449* 

0450 

0451 

0452 



75477 
75500 
75501 
75502 
75503 
75504 
75505 
75506 
75507 
76510 
75511 
75512 
75513 

75514 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75533 

00036 
00037 
75534 



042440 
052U7 
020122 
042524 
0511U 
042526 
042440 
043122 
047515 
020114 
044502 
051101 
051131 



060045 
070056 
064273 
044341 
160001 
006004 
050030 
027530 
060036 
011036 

130001 
170001 
044345 
074257 
026226 
000046 



APP3 LOA 
STA 
LOB 
ADB 
LOA 
INB 
CPA 
JMP 
LOA 

ANO 
IOR 
STA 
APP6 ADB 
STB 
JMP 

appdp DEF 



LIBPB SET NEW VALUE OF 
PBPTR PBPTR, 
MLJNK+1 GET USER ID, 
,*?ID.?LINK 

1,1 

SET POINTER TO NAME, 

TESj FOR SPECIAL 

USER, 
IF NO T , Gfc T LISj BIT 

AND MERGE INTO N A ME, 



ltemp 

APP6 

APPLS 

BIT15 

lfl 

,„?NAMfc 
MAIN 
LLEND 
GETDl 



SET MAIN, 
TERMINATE, 



APPLS EQU LTEMP*6 
APP 8 EQU LtEMP+7 
$App EQU * 
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0002* THE HELLO COMMAND 13 US£D TO LOG A USER ON TO THE SYSTEM, IT 
0003* PERFORMS THE FOLLOWING FUNCTIONS: 
0004* 1) IF A USER IS ALREADY ON, HE IS 
0005* 2) READ USER 10 AnD PASSWORD, AND 



LOGGED OFF, 

Enter into tty table. 



0007 


75000 




000B 


75000 


060273 


0009 


75001 


070037 


0010 


75002 


043527 


0011 


75003 


006400 


0012 


75004 


100400 




75005 


000375 


0013 


75006 


070031 


0014 


75007 


154036 


0015 


75010 


027042 


0016* 






0017 


75011 


060732 


0016 


75012 


070072 


0019 


75013 


16054" 


0020 


75014 


064566 


0021 


75015 


016231 


0022 


75016 


116015 


0023* 






0024 


75017 


060031 


0025 


75020 


001720 


0026 


75021 


040562 


0027 


75022 


070030 


0020* 




' 


0029 


75023 


002400 


0030 


75024 


064317 


0031 


75025 


170030 


0032 


75026 


034030 


0033 


75027 


006006 


0034 


75 30 


027025 


0035* 






0036 


75031 


160540 


0037 


75032 


064562 


003^ 


75033 


016231 


0039 


75034 


116015 


0040* 






0041 


75035 


064273 


0042 


75036 


044336 


0043 


75037 


160001 


0044 


7&040 


030240 


0045 


75041 


114500 


0046* 






0047 


75042 




0040 


75042 


160036 


0049 


75043 


002003 


0050 


75044 


027124 


0051* 






0052* 






0053 


75045 


060273 


0054 


75046 


040336 



ORG LIBRA 

LDA MLINK*! 

STA HElTP 

ADA HELST 

CLB 

DIV ,*TTY0J«TTY00 



GET HELID TM# 

STARTING TIME, 
COMPUTE PORT NUMBER, 



ADA ,)«ID**LI 



STA HELPT 
CPB HE L ID,I 
JMP HEL7 

LDA M2000 
STA WORD 
LDA FUSS, I 
LDB LIBDI 

JSB druml 

J3B 3ICKP,I 

LDA HELPT 
ALF,ALS 
ADA LIBD 
STA LTEMP 

CLA 

LDB M32 
STa LTEMP, I 
ISZ LTEMP 
INB,SZB 
JMP *»3 

LDA FUSS, I 
LDB LIBD 
JSB DRUML 
JSB SICKP,I 



SAVE IT, 

TEST FOR USER In core, 

GO INPUT IDT, 

INPUT FUSS TA B LE 



IT'S STyCK ON THE DRyM 
COMPUTE LOCATION OF USER'S 



ZERO OUT HiS SECTION, 



WRITE BACK TO 
DISC, 

IT'S STUCK IN CORE 



LDB MUINK+1 

ADB .♦?tnum- ? link 

LDA 1,1 TELL 2114 THAT 
IOR NUC NEW USER CALLED 

JSB S14SCrI 



HEL7 EOU * 

LDA HELID, I 
SZA,RSS 
JMP HEU 



GET CURRENT ID, 

IF 0, NO LOGOFF IS NECESSARY, 



LDA MllNK+1 DOES THIS 

ApA ,*?tnum*?link USER have 
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0055 
0056 
0057 
0058 
0059 

0060 

0061 
0062 

0063 
0064 
0065 

0066 

0067 
0068 
0069 

0070 
0071 

0072 
0073 
0074 
0075 
0076 

dd77 

0078 

0079* 

0080 

0081 

0082 

0083* 

O084 

0085* 

0086 

0087 

0066 

0089 

0090 

0091 

0092 

0093* 

0094 

0095 

0096 

0097 

0098* 

0099 

0100* 

0101* 

0102* 

0103 

0104 



75047 
75050 
75051 
75052 
75053 

75054 
75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 
75103 

75104 
75105 
75106 



050255 
002001 
027056 
060247 
114500 

002400 
070255 
104200 

100037 
003004 
007004 
104400 
000040 
104200 
000201 
040040 
000040 
044041 
074041 
100200 
000724 
070040 
060041 
002041 
007400 
100400 
000456 
040040 
070040 

160036 
031036 
017470 



75107 016107 



75II0 
75111 
75112 
75H3 
75114 
7&U5 
75H6 

75117 
75120 
75121 
75122 



044*57 

0000^0 

160001 
040040 
002040 
003400 
170001 

160075 
064562 
016231 
027261 



CPA PRI3T 

RSS 

JMP HEL7A 

IDA IPO 

J3B S14SCI 

cu 

STA PRIST 
HEL7A OLD HELTP,I 

CMA,INA 
CMB,INB 
D8T HELTM 

OLD DATIM 

ADA HELTM 

CLE 

AOB HElTM+1 

STB HELTM+1 

MPY D60 

STA HELTM 

LDA HEi.TM+1 

SEZ,RSS 

CCB 

DIV 0600 

ADA HELTM 
STA HELTM 

LDA HELID,I 
IOR BIT15 
J3B HELU6 

JSB RDIDT 

ADB ,*g 

CLE 

LDA 1,1 

ADA HELTM 

SEZ 

CCA 

STA i,I 

LDA IDLCP,I 
LOB LIBD 
JSB DRUML 
JMP HEl.10 



THE LINE 
PRINTER? 
NO 

YES » GET OPCODE 
TELL I/O PROCESSOR 
REMOVE 
USER 
GET STARTING TIME, 

MAKE BOTH PARTS NEGATIVE, 

SAVE, 

GET CURRENT TIME, 

COMPUTE DIFFERENCESiAMOF HR8, 
B«0 OF 100 MS UNITS, 

E INDICATES SIGN OF B, 
SAVE UNITS, 
CHANGE HRS TO MINS, 

GET UNIT COUNT, IF E«0 
THEN COUNT AS NEGATIVE, 

CHANGE TO MINUTES, 

ADD PREVIOUS COMPUTATION +\ 

SET UP LOGOFF 
ENTRy, 

READ IN PROPER TRACK OF IDT 
COMPUTE NEW TOTAL TIME, 

IF OVERFLOW, USE MAXIMUM, 



GET DRUM ADDRESS 

AND CORE OUTPUT ADDRESS 
REWRITE TO DRUM 
DRUM ERROR, TRY TO SALVAGE 



75123 170036 
CONVERT ID 

75124 016315 

75125 002001 



STA HELID,! REMOVE USER'S ID FROM TABLE, 



HEL1 



JSB GETID 
RSS 



TRANSLATE ID, 
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0105 


75126 


026425 




JMP 


6TFER 


ERRQR»*NO COMMA 


0106 


75127 


050426 




CPA 


,♦548 




0107 


75130 


002001 




RSS 






0106 


75131 


026425 




JMP 


GTFER 


ERROR.^NO COMMA, 


0109* 














0110 


75132 


160076 




IDA 


IDLNP,I 


GET ID TABLE LENGTH 


»111 


75133 


d7Q®7% 




STA 


WORD 


SAVE FOR DRUM DRIVER 


0112 


75134 


160075 




LDA 


IDLCP,! 


GET DRUM AODRESS 


0113 


75135 


064566 




IDB 


LIBDI 


AND CORE INPUT ADDRESS 


0114 


75136 


016231 




J88 


DRUML 


AND READ IN THE PROPER TR 


0115 


75137 


116015 




JSB 


SICKP,! 


DRUM ERROR, DIE GRACEFULLY 


0116 


75140 


064072 




LDB 


WORD 


SEARCH IDT f-OK 


0117 


75141 


007004 




CMB, 


rlNB 


NEW USER'S ID, 


0116 


75142 


044562 




AOB 


LIBD 




0119 


75143 


060052 




LDA 


ID 




0120 


75144 


054562 


H£ U 2 


CPB 


LIBD 




0121 


75145 


027256 




JMP 


HELF 


NOT THERE, 


0122 


75146 


044342 




AOB 


,•6 




0123 


75147 


150001 




CPA 


1,1 




0124 


75150 


002001 




RSS 




FOUND 


0125 


75I5I 


027144 




JMP 


HEL2 




0126* 














01 2 7 


75152 


060347 




LDA 


.-3 


CHECK PASSWORD, 


0128 


75153 


070042 




STA 


HELC 




0129 


75154 


074043 




8TB 


HELP 




0130 


75155 


034043 


HEL3 


ISZ 


HELP 


bump to next password entry. 


0131 


75156 


067536 




LDB 


HFLG 




0132 


75157 


006002 




SZB 




comma encountered previously? 


0133 


751 6 


027170 




JMP 


HEL3C 


YES, 


0134 


75161 


016164 




JSB 


LCHAR 


NO, GET 1ST CHAR, 


0135 


75162 


027170 




JMP 


HEL3C 


CR, 


0136 


75163 


006404 




CLBi 


-INB 


NO CR. 


0137 


75164 


050426 




CPA 


.♦54B 


COMMA? 


0I38 


75165 


002001 




RSS 






0139 


75166 


027171 




JMP 


HEL3G 


NO, 


0140 


75167 


077536 




STB 


HFLG 


YE8, SET FLA3, 


0141 


75170 




HSU3C 


fcQU 


* 




0142 


75170 


002400 




CU 






0143 


75171 




HEL3S 


EQU 


* 




0144 


75171 


001727 




ALF, 


r ALF 


FIRST CHAR, ON LEFT, 


0145 


75172 


070044 




STA 


H^LGT 




0146 


75173 


067536 




LDB 


HFLG 




0147 


75174 


006002 




SZB 




COMMA ENCOUNTERED PREVIOUSLY? 


0148 


75175 


027205 




JMP 


HEL3D 


YES, 


0149 


75176 


016164 




JSB 


LCHAR 


NO, GET 2ND CHAR, 


0150 


75177 


027205 




JMP 


HEL3D 


CR. 


0151 


75200 


006404 




CUB« 


>INB 


NO cR. 


0152 


75201 


050426 




CPA 


.+54B 


COMMA? 


0153 


75202 


002001 




RSS 






0154 


75203 


027206 




JMP 


HEL3H 


NO, 


0155 


75204 


077536 




STB 


HPL6 


YES, SET FLAG. 


0156 


75205 




Hfct30 


EUU 


* 




0157 


75205 


002400 




CLA 






015b 


75206 




HEL3H 


tuu 


* 




0159 


75206 


040044 




ADA 


HELGT 
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0160 


75207 


150043 




CPA 


HELP, I 


COMPARE, 


0161 


75210 


002001 




RSS 






0162 


75211 


027256 




JMP 


HELF 


DOES NOT COMPARE, 


0163 


75212 


034042 




ISZ 


HELC 


COMPARES, BUMP CHAR, COUNTER, 


0164 


75213 


027165 




JMP 


HEL3 


GET NEXT CHAR, 


0165* 














0166 


75214 


067536 




LOB 


HFLG 




0167 


75215 


006002 




SZ8 




COMMA ENCOUNTERED PREVjQUSlY? 


016a 


75216 


027224 




JMP 


HEL3F 


YES, 


0169 


75217 


016164 




JSB 


LCHAR 


NO. GET NEXT CHAR, 


0170 


75220 


027264 




JMP 


HEL3A 


CR, SUBTYPE #1 1 


0171 


75221 


050426 




CPA 


,♦548 


NO CR, COMMA? 


0172 


75222 


002001 




RSS 






0173 


75223 


026425 




JMP 


GTFER 


NO, ERROR! 


0174 


75224 




HEL3F 


EQU 


* 




0175 


75224 


016164 




JSB 


LCHAR 


GET NEXT CHAR, 


0176 


75225 


026425 




JMP 


GTFER 


CR, ERROR1 


0177 


75226 




HEL3I 


EQU 


* 




0178 


75226 


040316 




ADA 


M72B 


NO CR, DIGIT* 


0179 


75227 


002021 




SSA, 


,RSS 




0180 


75230 


026425 




JMP 


GTFER 


NO, ERRORl 


0181 


75231 


040364 




ADA 


, + 10 


MAY BE, 


0182 


75232 


002020 




SSA 






0183 


75233 


026425 




JMP 


GTFER 


NQN-DIGITJ 


0184 


75234 


073540 




STA 


HTEMP 


DIGIT! SAVE, 


0185 


75235 


063537 




LDA 


HTYPE 


UPDATE TYPE VARIABLE, 


0186 


75236 
75237 


100200 
000364 




MPY 


,♦10 




0187 


75240 


043540 




ADA 


HTEMP 




0186 


75241 


073537 




STA 


HTYPE 




0189 


75242 


016164 




JSB 


LCHAR 


GET NEXT CHAR, 


0190 


75243 


002001 




RSS 






0191 


75244 


027226 




JMP 


HEL3I 


NO CR, 


0192 


75245 


063537 




L OA 


HTYPE 


CR, TYPE»6? 


0193 


75246 


040343 




ADA 


,-7 




0194 


75247 


002021 




SSA, 


rRSS 




0196 


75250 


026425 




JMP 


GTFER 


YES, ERRORl 


0196 


75251 


040360 




ADA 


,♦6 


NO, RESTORE TO(ORIG, INPUT-! ) , 


0197 


75252 


002020 




SSA 




WAS INPUT? 


0198 


75253 


026425 




JMP 


GTFER 


YES, ERRORl 


0199 


75254 


001722 




ALF, 


-RAL 


NO, ROTATE INTO POSITION, 


0200 


75255 


027265 




JMP 


HEL3B 




0201 


75256 


060332 


HELF 


LDA 


,-16 


PRINT ILLEGAL ACCESS MESSAGE, 


0202 


75257 


066541 




LD8 


MELK 




0203 


75260 


026432 




JMP 


LIBER 




0204 


75261 


060075 


HEL10 


LDA 


IDLCP 




0205 


75262 


064072 




LOB 


WORD 




0206 


75263 


116016 




JSB 


SAL V P,1 




0207* 














0208* 


PASSWORD OK, 










0209* 














0210 


75264 




MEL3A 


EQU 


* 




0211 


75264 


002400 




CLA 




3UBTYPE#ll 


0212 


75265 




HEL3B 


EQU 


# 




0213 


75265 


032774 




IOR 


STP 


MERPE OPCODE, 
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0214 


75266 064273 


LOB 


MLJNK4-1 




0215 


75267 044336 


A08 


t *?TNUM« 


•?LINK 


0216 


75270 130001 


IOR 


B,I 


MERGE PORT NR, 


0217 


75271 H4500 


JSB 


314SC,I 


TELL 2114 TO SET UP DELAYS, 


021** 










0219 


75272 034043 


ISZ 


HELP 


COMPUTE 


0220 


75273 104200 

75274 100043 


OLD 


HELP,1 


ALLOWED TIME»TIME TO DATE, 


0221 


75275 003104 


CMA, 


>CLE,INA 




0222 


75276 040001 


ADA 


1 




0223 


75277 002040 


SEZ 






0224 


75300 027346 


JMP 


HELG 


NO TIME LEFT, 


0225* 










0226 


75301 064273 


LDB 


MLINK+1 




0227 


• 5302 044335 


AOB 


,-?LlNK 


BO ?FLAG 


0223 


75303 060446 


LDA 


CBFLG 


CLEAR 


0229 


75304 003000 


CMA 




CBFLG 


0230 


75305 110001 


AND 


B,I 




0231 


75306 170001 


STA 


B,I 


BIT, 


0232 


75307 006004 


INB 




B«> ?TNUM 


0233 


75310 160001 


LDA 


1,1 


TELL 2114 


0234 


75311 030233 


IOR 


ULO 


THAT USER 


0235 


75312 114500 


JSB 


S14SCI 


LOGGED ON 


0236 


75313 060052 


LDA 


ID 


MAKE LOG ENTRY, 


0237 


75314 017470 


JSB 


HELOG 




0236 


75315 104200 

75316 000201 


OLD 


DATIM 


SET STARTING TIME AND ID 


2 39 


75317 104400 
75320 100037 


D3T 


HELTP,! 


INTO TABLE. 


0240 


75321 060052 


LDA 


ID 


INSERT NEW 10 AND CLEAR 


024! 


75322 006400 


CLB 




NAME, 


0242 


75323 104400 

75324 100036 


DST 


HEL1D,I 




0243 


75325 060702 


LDA 


PBUPF 


ALSO SCRATCH 


0244 


75326 064273 


LDB 


MLINK+J 




0245 


75327 044340 


ADB 


,*?PROg« 


?LINK 


0246 


75330 170001 


8TA 


1,1 




0247 


75331 104200 

75332 075532 


OLD 


2999 


MOVE SETUP FOR HELLO 


0246 


75333 104400 

75334 000030 


DST 


LTEMP 


PROGRAM INTO LTEMP(0; 3 ) 


0249 


75335 104200 

75336 075534 


OLD 


HELM+i 




0250 


75337 104400 
75340 000032 


DST 


LTEMP+2 




0251* 










0252 


75341 116005 


JSB 


dlokp,i 


SEARCH FOR PROgRAM IN LlBRAR 


0253 


75342 027351 


JMP 


HEL6 


FOUNO IT, 


0254* 










0255* 










0256 


75343 060344 HEL4 LDA 


v »6 


OUTPUT READY MESSAGE 


0257 


75344 064266 


LOB 


READY 




0256 


75345 026432 


Jmp 


LIBER 




0259 


75346 060334 HELG LDA 


,•14 




0260 


75347 066552 


LDB 


HELH 
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0261 


75350 


026432 


JMp LIBER 




0262* 










0263* 










0264* 










0265* 


SET UP USER TO RUN HEUO PROGRAM. 


0266* 










0267 


75351 


064035 


HEL6 LOB LTEMP+5 




0268 


75352 


044356 


AOB ,+4 


IS HELLO PROGRAM 


0269 


75353 


160001 


LOA B,I 


ILL-STORED? 


0270 


753&4 


002020 


SSA 




0271 


75355 


027343 


JMP HEL4 


YES 


0272 


75356 


044350 


AOB ,«2 


NO, TEST FOR FILE 


0273 


75357 


160001 


LOA 1,1 




0274 


75360 


002020 


SSA 




2 75 


75361 


027343 


JMP HEU 




0276* 










0277 


75362 


006004 


INB 


■> THIRD WOKD OF NAME 


0278 


75363 


160001 


LOA 1,1 


SAVE SEMI. 


0279 


75364 


070040 


STA LIB8C 


COMPILED FLAG 


028() 


75365 


006004 


INB 




0281 


75366 


160001 


LOA l,; 


SAVE START-OF- 


0282 


75367 


001665 


Ei A,Ci E,ERA 
STA l'BSP 




0283 


75370 


070041 


PROGRAM POINTER 


0284 


75371 


044355 


AOB ,*3 


GET PROGRAM ORUM ADOR 


0285 


75372 


160001 


LOA BrI 




0286 


75373 


070043 


STA HELP 


SAVE DRUM ADDRESS 


0287 


75374 


006004 


INB 


SAVE ALSO 


0288 


75375 
75376 


104200 

100001 


DLO B,j 


PROGRAM 


0289 


75377 

75400 


104400 
000046 


D8T HELOI 


DISC ADDRESS 


0290 


75401 


064035 


LDB LTEMP+5 


GET 


0291 


75402 


044365 


AOB .+11 


PROGRAM 


0292 


75403 


164001 


LOB BrI 


LENGTH 


0293 


75404 


074042 


STB HELC 


STORE LENGTH, 


0294 


75405 


007004 


CMB,INB 


COMpuTE FIRST 


0295 


75406 


044041 


AOB LIBgP 


U*USED wOrD 


10296 


75407 


074045 


ST B LIBPB 




0297 


75410 


007004 


C M B,I N B 


test FoR overflow. 


0298 


75411 


060040 


LOA LIB3C 




0299 


75412 


002021 


SSA f RSS 


semicompiled? 


0300 


75413 


027420 


JMP HEL12 


NO 


0301 


75414 


044462 


ApB LWAUS 




0302 


75415 


006021 


SSB,R3S 




0303 


75416 


027423 


JMP HEH3 


OK 


0304 


75417 


027343 


JMP HEL4 


TOO BIG 


0305 


75420 




HE U 12 EOU * 




0306 


75420 


044654 


AOB LW97 




0307 


75421 


006020 


SSB 




0308 


75422 


027343 


JMP HEL4 




0309* 










0310* 










0311 


75423 




HEL13 EQU * 




0312 


75423 


016047 


JSB RDpRG 


READ In FIXED AREA, 


0313 


75424 


064042 


LDB HELC 


GET HELLO PROGRAM LEN 
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0314 

»3l5 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 

033S 

0336 

0337 

0336 

033y 

0340 

0341 

0342 

0343 

0344 

.0345 

0346 

0347 

0348 

0349* 

0350 

0351 

0352 

0353 

0354 

0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 

0364 

0365 

0366 



75425 
75426 
75427 
75430 
75431 
75432 
75433 
75434 
75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 
75445 
75446 
75447 
75450 
75451 

75452 
75453 
75454 
75455 
7 5456 
75457 
75460 
75461 
75462 
75463 
75464 
75465 
75466 
75467 

75 4 70 
75471 
75472 
75473 
75474 

75475 
75476 
75477 
75500 
75501 
75502 
75503 
75504 
75505 
75506 
75507 
75510 
755U 
75512 



060043 
002002 
027437 
074215 
064041 
045036 
063531 
114217 
027343 
027444 
074072 
064041 
045036 
016231 
027343 
016710 
103100 
064273 
044335 
160001 
030356 
170001 
044366 
060357 
170001 
034264 
065577 
054056 

127530 
075334 
060412 
071573 

102100 
127467 
036045 

000000 
064604 
054412 
2747 t 

064620 

006004 
054630 
064626 

103100 
074620 
170620 
060201 
006400 
100400 
000402 
060001 
100200 
000724 
070044 



HEL8 



HEL9 



IDA 
SiA 
JMP 
STB 
LOB 
AUB 
LOA 
JSB 
JMP 
JMP 
8tB 
LOB 
ADB 
J8B 
JMP 
JSB 

CLF 
LOB 
AOB 

loa 

IOR 
8TA 
AOB 
LOA 

ST* 
I3Z 
LOB 

CPB 
JMP 
STB 
LOA 
STA 
STF 
JMP 
DEF 



HtLOG NOP 

LUB 
CPB 
JMP 

LOB 
JNB 
CPB 

LUB 
CLF 

STB 
STA 
LOA 

CUB 

OIV 



HELP 

HEL8 

MWORo 

LlBSP 

BIT15 

HELDP 

OlgCZ/I 

HEL4 

HEL9 

WORD 

LIBSP 

BIT15 

DRUML 

HEL4 

9EMIC 



MLINIU1 

,.?LINK 

HFLAG 
1,1 

f *?3TAT 
XSYNT+1 

1,1 

TIMEF 

3PR0G 

PBPTR 

HELRT,! 

PRGCT 

.♦40B 

BLANK 



* + !,! 
CMP14 



LOGCT 
,♦32 

L0GP2 

LOGNO 

LOGbG 



L0GP2 

L0GP2,j 

OATjM 

t*24 



and drum address 
program on drum? 
yes, go get it 

no, store word count for pisc 
get start of program pointer 

and read bit 
get pointer to disk address 

disk error 

store worc count for drum 
get start cf program pointed 



DRUM ERROR, 60 OUTPUT "READY" 
PLAY SApE, 

SET 
HELLO 
FLAG 

SET STATUS TO RUN, 

SET FLAG FOR TIMING, 

NULL PROGRAM 
YES 

INTERRUPT BACK ON, 



MAKE ENTRY IN LOG TABLE, 
WAIT UNTIL 
THERE'S ROOM 

SET POINTER TO NEXT LOG. 
IN LOG QUEUE, 



INHIBIT INTERRUPT, 

ENTER iD, 

GET DAY COUNT, 

GET HOURS OF TODaY. 



LOA j 

MPY D60 

8TA HELGT 



CONVERT TO MINS, 
SAVE, 
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B367 
0368 
0369 

H37e 
0371 

0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0360 
0381 
0382 



0363 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394* 

0395 



75513 

755U 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75533 
75534 
75535 
75536 
75537 
75540 
00031 
00036 
00037 
00040 
00042 
00043 
00044 
00046 

I 
75541 



060202 

04^704 
100400 

000456 

040044- 

034620 

001722 

030031 

170620 

034604 

102100 

127470 

116642 

041675 

000046 

065747 

044105 

046114 

047440 

0000P0 

000000 

000000 



IDA UATXM+1 
ADA D36K 
DIV 0600 



GET UNIT COUNTER, 

ADJUST, 

GET IN MINUTES. 



HE^ST 
HEURT 
WEJ.DP 
Z999 

HELM 



PUT IN QUEUE, 

MERGE IN PORT NUMBER 



ADA MEIGT 

I3Z L0GP2 

ALF,RAL 

I'OR HELPT 

STA LQGP2,I 

ISZ LOGCT 

8TF 

JMP HELQG»I 

AOS »TTY00«?TlME 

DEF EXIT3 

DEF HElDI •> DISK ADDRESS 

OCT 65747 USER NUMBER 2999 

ASC 3/HELLQ 



TEMP+15 



HFLG 
MTYPE 
HTEMP 
HEUPT 
HELIO 
HELTP 
HELTM 
HEUC 
HELP 
HELGT 
HELDI 
IS USED 
SHEL 



BUMP COUNT 
INTERRUPT BACK 
RETURN, 



ON, 



OCT 
OCT 
BSS 1 
EQU LTEMP+l 

equ ltemp*6 
equ ltemp*7 
equ ltemp+8 
equ ltemp+10 
equ ltemp+11 
equ ltemp+12 
equ ltemp+14 
here also 

EQU * 
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0397* THE BYE COMMAND IS USED TO LOG A USER OFF, BYE MUST PERFORM THE 

0398* FOLLOWING FUNCTIONS! 

0399* 1) OfcTERMlNfc AMOUNT OF CONSOLE TIME USeO 

0400* 2) UPDATE USER'S CLOCK IN ID«TaBLE 

0401* 3) SET FLAG FOR SYSTEM TO UNHOOK, 

0402* 4) OUTPUT TERMINATION MESSAGE 



0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 

0423 
0424 
0425 
0426 
0427 
0428 
0429 

043^ 

0431* 

0432 

0433 

0434 

0435 

0436 
0437* 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446* 

0447 

0446 

0449 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
750U 
75014 
75015 
75016 
75017 
75020 
75021 

75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 

75032 
75033 
75034 
75035 
75036 
75037 

75040 
75041 
75042 
75043 
75044 
75045 
75046 
75047 



060273 
040336 
050255 
002001 
027011 
060247 
114500 
002400 
070255 
064273 
044335 
060412 
003000 
110001 
170001 
044356 
160001 
002003 
027207 
074030 
060732 
070072 
160640 
064566 
016231 
116015 

060273 
0432 6 1 
006400 
100400 
000375 
070034 

001720 
040562 
070031 
060317 
174031 
034031 
002006 
027044 



ByE2 



ORG 

LDA 

ADA 

CPA 

RSS 

JMP 

LDA 

JSB 

CLA 

STA 

LDB 

ADB 

LDA 

CMA 

AND 

STA 

ADB 

LOA 

8ZA, 

JMP 

STB 

LDA 

8TA 

LDA 

LDB 

JSB 

JSB 



LIBRA 

MLINK+1 

,+?TNgM» 
PRIST 

BYE2 

LPD 

Sl4SC f I 

PRIST 

MLINK*! 

,*?flag*. 

OUTWT 

1,1 
1,1 
,*?ID,?F 

1,1 

RSS 

BYBY 

BYEID 

M2000 

^ORD 

FUSS, I 

LlBDi 

DRyML 

SICKP,I 



DOES THIS 
?LINK USER HAVE 
THE LINE 
PRINTER? 
NO 

YESwGET OPCODE 
TELL I/O PROCESSOR 
rEMqVE 

USER 

?link b «> flag *qrd 

REMOVE 

OUFWT BIT 
F«OM 

STATUS, 
LAG 

(JET ID 

IF lD»0' US E R N£V£R 

LOGGED ON, SO EXIT 
SAVE POINTER TO ID 
INPUT FUSS TABLE 



IT'S STUCK ON THE DRUM 



LOA HL*NK*1 COMPUTE USER'S PORT NO, 

ADA BYESP 

CLB 

DIV *TTY0l*TTY00 



75050 160540 

75051 064362 

75052 016231 



STA BYEPT 

ALF,ALS 

ADA LIBD 

STa LTEMP+l 

LDA M32 

STB LTEMP*1,I 

ISZ LTEMP+1 

INA,3zA 

JfiP **3 

LDA FUSS, I 
LDB LIBD 
JSB DRUML 



COMPUTE LOCATION OF USER'S FUSS 



CLEAR USER'S FUSS 



WRITE FUSS 
BACK TO DRUM 
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0450 


75053 


116015 


0451* 






0452* 






0453 


75054 


060273 


0454 


75055 


040345 


0455 


75056 


104200 




75057 


100000 


04 5 6 


75060 


003004 


0457 


75061 


007004 


0458 


75062 


104400 




75063 


000031 


0459 


75064 


104200 




75065 


000201 


0460 


75066 


040031 


0461 


75067 


000040 


0462 


75070 


044032 


0463 


75071 


074032 


0464 


75072 


100200 




75073 


000724 


0465 


75074 


070031 


0466 


75075 


060032 


0467 


75076 


002041 


0468 


75077 


007400 


0469 


75100 


100400 




75101 


000456 


0470 


75102 


040031 


0471 


75103 


070031 


0472* 






0473 


75104 


060604 


0474 


75105 


050412 


0475 


75106 


027104 


0476 


75107 


060620 


0477 


75H0 


002004 


0478 


75111 


050630 


0479 


75112 


060626 


0480 


75113 


070620 


0481 


75114 


160030 


0482 


75115 


031036 


0483 


75116 


170620 


0484 


75117 


034620 


0485 


75120 


104200 




75121 


000201 


0486 


75122 


074032 


0487 


75123 


006400 


0488 


75124 


100400 




75125 


000402 


0489 


75126 


060001 


0490 


75127 


100200 




75130 


000724 


0491 


75131 


070033 


0492 


75132 


060032 


0493 


75133 


040704 


0494 


75134 


100400 




75135 


000456 


0495 


75136 


040033 



J3B 8iCKP#I IT'S STUCK IN CORE 



IPA MLINK+1 
ADA .♦fTIME' 
DLO 0fl 

CMA,INA 

CMB,INB 
OST BYETM 

DID DATIM 

ADA BYETM 

CLE 

AOB BYETM+1 

STB BYETM+l 

MPy D60 

STA BYETM 

|_DA BYETM*1 

SEZ,R8S 

CCB 

OIV D600 

ADA BYETM 
STA BYETM 

LDA logct 

CPA ,+32 

JMP **2 
LDA L0GP2 
INA 

CPA LOGNO 
LQA LOG8G 
STA LqGr2 
LDA BYEID#I 
IQR BIT15 
STA L0GP2,! 
ISZ L0GP2 
DLD DATIM 

STB BYETM+i 

CLB 

DlV ,4-24 

LDA J 

MPY D60 

STA BYET 
L.DA BYETM+1 
ADA 036K 
DIV D600 

ADA BYET 



?UNK SET POINTER TO STaRT TIME, 
GET STARTING TIME, 

SET BOTH PART3 NEGATIVE, 

SAVE 

NOW GET CURRENT TIME 

COMPUTE DIFFERENCES* A«« OF MRS, 
B«* OF 100 MS UNITS, 

E INDICATES SIGN OF B, 
SAVE UNITS, 
CHANGE HRS JO MINS, 

GET UNIT COUNT, IF Ep0 

Then count A3 negative, 

CHANGE TO MINUTES, 

ADD PREVIOUS COMPUTATION PLUS 

CHECK FOR ROOM IN LOG TABLE 



SET L0GP2 TO NEXT LOCATION IN 
LOG TABLE, 



PLACE ID IN LOG T A BLE AND 
SAY LOGOFF, 



COMPuTE TIKE OF DAY, 

SAVE UNIT CQUNTEN, 
GET ft OF MRS ;iN B By MODUNG 
FF THE DAY CqUNT, 



CONVERT TO MINS, 

SAVE THAT, 
GET UNIT COUNTER, 
A0JU8T 
GET MINUTES, 

PACK TOGETHER AND PUT IN LOG 
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0496 


75137 


001722 


0497 


75J40 


030034 


0498 


75141 


170620 


0499 


75142 


034604 


0500* 






0501 


75143 


015107 


0502* 






0503 


75144 


044357 


0504 


75145 


000040 


0505 


75146 


160001 


0506 


75147 


040031 


0507 


75150 


002040 


0506 


75151 


003400 


0509 


75152 


170001 


0510* 






05J1 


75153 


160075 


0512 


75154 


064562 


0513 


75155 


016231 


0514 


75156 


027240 


0515* 






0516 


75157 


002400 


0517 


75160 


170030 


0516* 






0519 


75161 


060364 


0520 


75162 


016132 


0521* 






0522 


75163 


060031 


0523 


75164 


006400 


0524 


75165 


100400 




75166 


000437 


0525 


75167 


074033 


0526 


75170 


040432 


0527 


75171 


016132 


052S 


75172 


060033 


0529 


75173 


006400 


0530 


75i74 


100400 




75175 


000364 


0531 


75176 


074033 


0532 


75177 


040432 


0533 


75200 


016132 


0534 


75201 


060033 


0535 


75202 


040432 


0536 


75203 


016132 


0537* 






0538 


75204 


060321 


0539 


75205 


067243 


0540 


75206 


016156 


0541 


75207 




0542 


75207 


064273 


0543 


75210 


044336 


0544 


75211 


160001 


0545 


75212 


030253 


0546 


75213 


114500 


0547 


75214 


102311 


0548 


75215 


027214 



BYBY 



AUFfRAL 
IOR BYEPT 
3TA LQGP2,I 
I3Z LOGCT 

JSB RDIDT 

ADB , + 5 

CLE 

IDA 1,1 

ADA BYETM 

SEZ 

CCA 

8TA 1,1 

LDA IDLCP,I 
LDB LIBD 
JSB DRUML 
JMP BYE1 

CLA 

STA B Y EID,I 

IDA ,*12B 
JSB LOUT 

LDA BYETM 

CLB 

OIV ,100 

STB BYET 

ADA ,+60B 

JSB LOUT 

LDA BYET 

CLB 

DIV ,*10 

STB BYET 
ADA ,*60B 

JSB LOUT 
LDA BYET 
ADA ,*60B 
JSB LOUT 

LDA ,-25 
LDB BYEM 
JSB LTYPE 
EQU * 

LOB MLINK*! 
ADB ,*?TNUM- 
LDA If I 
IOR WTP 
JSB 814SC,J 
3FS CH2 
JMP *»i 



TABLE, 

bump counter, 

read idt track for this user's i 

compute new tutal time, 

if overflow, use maximum, 

get drum address 

and white out modified track 
blew it, try to salvage 

remove user's id 
from table 



Output * °* minutes. 



HUNDREDS 



TEN 8 



UNITS, 

OUTPUT THE REST OF 
THE MESSAGE, 



?LINK 

ASK FOR TERMINAL TYPE. 
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0549 
0550 
055i 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0566 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 



0578 
0579 



75216 
75217 
75220 
75221 
75222 
75223 
75224 
75224 
75225 
75226 
75226 
75227 
75230 
75231 
75232 
75233 

75234 
75235 
75236 
75237 
75240 
75241 
75242 
00030 
00031 
00033 
00034 
75243 
75244 
75245 
75246 
75247 
75250 
75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 
75262 



1025U 
002002 
027224 
160001 
030234 
027226 

160001 
030235 

114500 
160001 
030232 
114500 
044351 

060447 

003000 
110001 
170001 
026226 
060075 
064072 
116016 



075244 
020115 
044516 
052524 
042523 
020117 
043040 
052105 
051U5 
044516 
040514 
020124 
044515 
042456 
116635 



BYE3 



BYE4 



8YE1 



BYElO 

BYETM 

BYET 

8YEPT 

ByEM 



LIA 
SZA 
JMP 
LDA 
IOR 
JMP 
EQU 
LDA 
IOR 
EQU 
jSB 
LDA 
IOR 
J3B 
AD8 
LDA 
CMA 
AND 
STA 
JMP 
LDA 
LDB 
J96 
EQU 
EQU 
EQU 
EQU 
DEF 
A3C 



Ch2 

BYE3 
1,1 
ECO 
BYE4 

* 

1,1 

ECF 

* 

S14SCI 

Ul 

HUU 

S14SC/I 

,»?TNUM 

B30M 



QET type, 

WHICH? 

typem. Turn echo on. 



TYPE #2, TURN ECHO OFF, 



DISCONNECT 

USER 
B«» ?FLAli 
CLEAR CBFL6 



AND 



B,I 

B,I 

LLEnD 

IDLCP 

WORD 

SALVP,I 

LTEMP 

LTEMp+1 

LTEMP+3 

LTEMP+4 

* + i 

13, MINUTES 



PBF[.C bits. 



OF TERMINAL TiME, 



BYESP AB8 -TTYBa-fLiNK 
$6YE EQU * 
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0581* THE KILL ROUTINE 13 USED TO DELETE A PROGRAM f"ROM THE USER 

0582* LIBRARY, THE PROCESS IS AS FuLLQWSl 

0583* 1) CHECK FORMAT AND DETERMINE PROGRAM NAME, 

0584* 2) SEARCH DIRECTORY FOR ENTRY, 

0585* 3) OBTAIN LOCATION AND LENGTH, 

0586* 4) COLLAPSE DIRECTORY, 

0587* 5) UPDATE ADT AnD IDT, 



0589 


75000 


ORG 


LIBRA 




0591 


75000 003400 


CCA 




SET FLAG TO SAY He HAVE TO C 


0592 


75001 070036 


8TA 


KILTS 


FOR SUSY PILE, 


0593 


75002 060273 


LDA 


MLINK+l 


GET USER'S ID, 


0594 


75003 040341 


ADA 


,*?ID«?LINK 


0595 


75004 160000 


LDA 


0,1 




0596 


75005 070030 


STA 


LTEMP 


STORE IN LTEMP, 


0597 


75006 060520 


LDA 


DLTEM 


SET UP POINTER FOR 


0598 


75007 002004 


INA 




NAME, 


0599 


75010 070034 


STA 


KILp 




0600 


75011 06034? 


LDA 


,*»3 


SET UP COUNTER, 


0601 


75012 070042 


STA 


KILC 




0602 


75013 016164 KIU JSB 


lchar 


GET LEFT ChAR. 


0603 


75014 060412 


LDA 


• ♦40B 


BLANK IF NONE, 


0604 


75015 001727 


ALF, 


-ALF 




0605 


75016 170034 


STA 


KILPfl 




0606 


75017 016164 


JS8 


LCHAR 


GET RIGHT CHAR, 


0607 


75020 060412 


LDA 


,+40B 




0608 


75021 130034 


IOR 


KILPrI 




0609 


75022 170034 


STA 


KILPfl 




0610 


75023 034034 


ISZ 


KILP 


BUMP POINTER. 


06u 


75024 034042 


ISZ 


KJLC 


ANY MORE? 


0612 


75025 027013 


JMP 


KILl 


YES, 


0613 


75026 060031 


LDA 


LTEMP+1 




0614 


75027 050570 


CPA 


ASCBB 




06l5 


7 5 3 027033 


JMP 


KIL2 


NO CHARS—ERROR, 


06l6 


75031 0l6l64 


JS8 


LCHAR 


TEST FOR TOO MANY, 


0617 


75032 027046 


JMP 


KIL3 


O.K. 


0618* 










0619 


75033 067036 KIL2 LDB 


•♦3 




0620 


75034 060335 


LDA 


,-13 




0621 


75035 026432 


JmP 


LIBER 




0622 


75036 075037 


DEF 


*♦! 




0623 


75037 005111 


OCT 


5111 




0624 


75040 046114 

75041 042507 

75042 040514 

75043 020116 

75044 040515 

75045 042440 


ASC 


6,LLEGAL 


NAME 


0625* 










0626 


75046 KIL3 ECU 


* 




0627 


76046 116005 


JSB 


DLUKP,! 


SEARCH DIRECTORY FOR PROGRAM 


0628 


75047 027063 


JMP 


KIL10 


FOUND, 


0629* 










0630 


75050 060334 


LDA 


,*U 
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0631 


75051 


067053 


0632 


75052 


026432 


0633 


75053 


075054 


0634 


75054 


005116 


0635 


75055 


047440 




75056 


051525 




75057 


041510 




75060 


020105 




75061 


047124 




75062 


051131 


0636* 






0637* 


FOUND 


ENTRY, 


0630* 






0639 


75063 


064035 


0640 


75064 


074051 


0641 


75065 


044361 


0642 


75066 


160001 


0643 


75067 


070044 


0644 


75070 


006004 


0645 


75071 


104200 




75072 


100001 


0646 


75073 


104400 




75074 


000046 


0647 


75075 


064035 


064» 


75076 


044365 


0649 


75077 


160001 


0650 


75100 


064000 


0651 


75101 


005222 


0652 


75102 


074045 


0653 


75103 


002021 


0654 


75104 


027113 


0655 


75105 


007400 


0656 


75106 


101026 


0657 


75107 


003004 


0653 


75H0 


070045 


0659 


75111 


040355 


0660 


75112 


001121 


0661 


75113 




0662 


75113 


070043 


0663* 






0664 


75U4 


034036 


0665 


75115 


027211 


0666 


7 5116 


064035 


0667 


75H7 


044354 


0668 


75120 


160001 


0669 


75121 


002021 


0670 


75122 


027211 


0671* 






0672 


75123 


060732 


0673 


75124 


070072 


0674 


75125 


070042 


0675 


75126 


16^540 


0676 


75127 


064566 


0677 


75130 


016231 


0678 


75131 


116015 



LDB 
JMP 
DEF 
OCT 
A9C 



♦ ♦2 
LIBER 

**l 
5116 
6,0 SUCH 



NOW REMOVE IT, 



KIL10 



KIlll 



LDB 
ST8 
AD8 
LOA 
STA 
INB 
DUD 



KILPD 
MOVED 
.♦7 

KILO 

B,I 



D8T KILDI 

LDB KILPD 
AOB ,+11 
LDA 8,1 
LDB A 
RBL,RBL 
STB KILDF 
S8A,R88 

JMP ki l ii 

CCB 
A SR 6 
CMA,INA 
STA KILDF 
ADA ,*3 
ARS,AR8 
EQU * 
STA KILN 

ISZ KILTS 
JMP KIL18 
LOB KILPD 
ADB ,*2 
LDA 1,1 

SSAfRSS 
JMP KIL18 

LDA M2000 
STA WORD 
STA KILC 
LOA FUSS, I 
LOB LIBDI 
J8B DRUML 
JSB SICKP,! 



Entry 



GET LOCATION OF DISC ADDRESS, 

b »> drum address 
a « orum address 

SAVE THEM, 

B *> DISK ADDKESS 

AB * OISK ADDRESS 

SAVE DISK ADDRESS 

B ** OIR ENTRY 

B •> LENGTH 

A » LENGTH OF FILE 



set drum sector Count 

SKIP IF LENGTH I N WORDS CnEGATIV 
l EnGTH IS P08XTIVE B L QCK CqUnT 

/ 64 TO GET DRUM SECTOR COUNT 
MAKE INTO POSITIVE COUNT 



SAVE LENGTH 

TEST FOR UK TO KILL, 

K 

TEST FOR FILE, 



NOT a FILE. 
INPUT FUSS TA 8 LE 
SAVE IN KILC ALSO, 

IT IS STUCK ON THE DRUM 
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0679* 

0680 

0681 

0682 

0683 

0684 

0685 

0686 

0687 

0686 

0689 

0690 

0691 

0692* 

0693* 

0694* 

0696 

0696 

0697 

0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 

0708 

0709 

0710 

0711 

0712* 

0713 

0714 

0715 

0716 

0717 

0718 

0719* 

0?20 

0721 

0722 

07 23 

07 2 4 

0729* 

0726 

0727 

072a 
0729 

0730 
0731 



75132 
75133 
75134 
7513s 
75136 
75137 
75140 
75141 
75142 
75143 
75144 
75145 



060273 
040336 
160000 
001727 
001722 
040562 
070045 
060317 
174045 
034045 
002006 
027142 



ida muink+1 compute user's 

ADA t *?TNUM«?LlNK 



IDA A'l 
ALF,ALF 
ALF,RAL 
ADA LIBD 
STA KILDF 
LDA M32 
STB KILOF,I 
ISZ KILDF 
INA,SZA 
JMP *»3 



USER * IN BITS 12 * 8 
RIGHT JUSTIFY USER NUMBER 
COMPUTE LOCATION OF 

USER'S FUSS. 
ZERO OUT USER'S FUSS, 



SEARCH FUSS TABLE TO SEE IF FILE IS BEING USED 



75146 
75147 

75l5 
75151 
75152 
75152 
75153 
75154 

75155 
75156 
75157 
75160 
75160 
75161 
75162 
75163 
75164 
75165 

75166 
75166 
75167 
75170 
75171 
75172 

75j7 2 
75i73 
75174 
75175 
75176 

75177 
75200 
75201 
75202 

75203 
75204 
75205 



064562 
074042 
10 4 200 
000046 

150042 
027166 
031036 
150042 
027166 
034042 

034042 
06e536 
050042 
027172 
060046 
027152 



034042 
154042 
027177 
027160 



l6 540 
064562 
016231 
116015 
027046 

060336 
067202 
026432 
075203 

005106 
044514 
042440 



LD8 LIBD 
STB KILC 
OLD KILDl 



KILAD 



KILAE 



EQU 
CPA 
JMP 

IOR 
CPA 
JMP 
ISZ 
EQU 
ISZ 
LDA 
CPA 
JMP 
LDA 
JMP 



* 

KILC. I 

KILAF 

BiT15 

KILC, I 

KILAf 

KILC 

* 

KILC 

U024 

KILC 

KILAJ 

KILDI 

KILAD 



KILAF EQU * 

ISZ KILC 
CPB KILC,! 
JMP KIL19 
JMP KILAE 

K Ii.Aj EQU * 



KILl9 



LDA 
LD8 
JSB 
JS8 
JMP 

LOA 
LDB 
JMp 

DEF 

OCT 
ASC 



FUSS, I 
LIBD 
DRUML 
SICKP,I 

KIL3 



• •12 

♦ ♦2 
LIBER 
**1 
5106 
5,ILE 



B *> BEGINNING OF TABLE 
GET DISK AOORESS TO AB 



ARE THE UPPER WORDS EQUAL? 

yES, CHECK LOWER WORDS 

PLUG IN WRjTt PROTECT BlT AnD 

ChECk FOR ThAT EQUAL 

EQUAL, CHECK LOWER WORD 



ADVANCE POINTER TO NEXT ENTRY 
GET ENDING ADDRESS AND 

SEE IF M E ARE THERE yET 
NOT IN FySS TABLE 
MUST SEARCH ON, RESTORE UPPER WO 



ADVANCE TO SECOND WORD 
CHECK LOWER WORD 
CANiT KILL - - FILE IS IN USE 
GO TRy NExT ENTRy 



WRITE BACK FUSS TABLE, 



NOW IT'S STUCK IN CORE 
GO GET DIRECTORY AGAIN, 



IN 



LF«F 
USE 
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0732* 
0733 

0734 

0735 

0736 

0737 

0738 

0739* 

0740 

0741 

0742 

07^3 

0744 

0745 

0746 

V747 

0748 

0749 

0750 

0751 

0752 

0753 

0754* 

0755 

0756 

0757 

0758 

0759 

0760* 

076i 

0762 

0763 

0764 

0765 

0766 
0767 
0768 

0769 

H77^ 

%77\ 

U772 

0773* 

0774 

0775 

0776 

0777* 

U77** 

0779* 

0780* 

0781 

0782 

0783 



75206 044516 

75207 020125 
75210 051506 



75211 

75212 
75213 
75214 
75215 
75216 

75217 
75220 
75221 
75222 
75223 
75224 
75225 
75226 
75227 
75230 
75231 
75232 
75233 
75234 

75235 
75236 
75237 
75240 
75241 

75242 
75243 
75244 
75245 
75246 
75247 
75250 
75251 
75252 

7525 3 
75254 

75255 



064035 
044366 
074050 
144034 
044674 
016257 

160034 
040366 
170034 

070072 

060034 
002004 
070051 
040357 
073337 
160000 
064562 
074050 
016231 
027326 

060034 
002004 
07005* 
064346 
016257 

016107 
060043 
003004 
044361 
140001 
170001 
060075 
073337 

160075 
064562 
016231 
027326 



75256 060^44 

75257 002003 
75260 027276 



KIL18 



LDB 
AOB 
STB 
AOB 
AOB 
JS8 

LDA 
ADA 
STA 
STA 
IDA 
INA 
STA 
ADA 
STA 
LDA 
LDB 
STB 
J8B 
JMP 

LDA 
INA 
STA 
LDB 
JSB 

J8B 

LDA 

CMA, 

ADB 

ADA 

STA 

LDA 

STA 

LDA 

LDB 

JSB 

JMP 



KILPD 

.♦12 

MOVES 

KILp,I 

MLIBD 

MQVEW 

KILP, I 

.♦12 
KILP,! 
WORD 
KILP 

MOVED 

,*5 

KILRD 

0,1 

LIBD 

MOVES 

DRUML 

KILRC 

KILP 

MOVED 
v «»4 
MOVEW 

RDIDT 

KILN 

INA 

,*7 

B,I 

l'I 

IDLCP 

KILrD 

IDLCP, I 
LIBD 
DRUML 
KILRC 



LDA KILD 
3ZA,RS8 
JMP KILB 



SET UP PARAMETERS FOR MOVE. 



REDUCE DIRECTORY LENGTH BY 8, 



WRITE DIRECTORY BACK OUT, 



ADJUST WORDS 1-4 OF DIREC. 



READ IN IDT 

GET PROGRAM LENGTH, 

ADJUST IDT 



RESTORE UPDATED 
IDT TO 
ThE DRUM 



CHECK DRUM ADDRESS 

TO SEE IF FILE IS SANCTIFIED 

NO, UONE 



RESTORE SPACE USED BY SANCTIFIED 
FILE TO THE DRUM ADT 



75261 060113 

75262 070072 

75263 060H2 



LDA ADLEN GET AD TRACK LENGTH *URD 
STA WORD SET DRUM DRIVER WORD COUNT 
LDA AOLOC GET AD TRACK DRUM ADDRESS 
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0704 


75264 064566 




LOB 


HBOI 




kJ785 


75265 016231 




J3B 


DRUML 


READ TRACK IN 


0786 


75266 027276 




JMP 


KXLB 




0787 


75267 116012 




JSB 


R3F3P,I 


PUT DRUM SPACE BACK 


0788 


75270 060113 




LOA 


ADLEN 


WRITE THE ADT 


0789 


75271 070072 




STA 


WORD 




0790 


75272 060U2 




LOA 


AOLQC 


TO THE DRUM 


0791 


75273 064562 




LOB 


LIBD 




0792 


75274 016231 




JSB 


DRUML 




0793 


75275 U60i5 




JSB 


SICKP,I 




0794* 












0795* 


NOW RESTORE THE 


DISK SPACE TO 


THE APPROPRIATE 


0796* 


DISK ADT 










0797* 












»796 


7527b 


KILB 


E9U 


* 




0799 


75276 116007 




JSB 


FADTP,I 


FIND THE COKHECT DISK 


0800* 












0801 


75277 160045 




LOA 


KILDF,I 


GET LENGTH OP DISK ADT 


0802 


75300 070072 




STA 


WORD 


SET FOR DRUM DRIVER 


0803 


75301 160044 




LOA 


KILD,1 


A * DRUM ADDRESS OF DISK ADT 


0804 


75302 002003 




SZA, 


rRSS 


CHECK EXISTANCE 


0809 


75303 026226 




JMP 


LLEND 


NO SUCH ADT - «• QUIT 


0806 


75304 064566 




LOB 


LIBOI 


GET CORE ADDRESS AND INPUT bIT 


0807 


75305 016231 




JSB 


DRUML 


READ THE DISK ADT IN 


0808 


75306 027315 




JMp 


KILLS 


ca n »t, forget ab ut returning it 


0809 


75307 116011 




JSB 


RAOTPfJ 


PUT SPACE FOR THIS ENTRY BALK 


0010 


75310 027315 




JMP 


KILCS 


SKIP REWRITE 


0811 


75311 160044 




L DA 


KILO, I 


a* drum address 


0812 


75312 064862 




LOB 


LIBD 




0813 


75313 016231 




JSB 


DRUML 


rt RITE OUT UPDATED ADT 


0814 


75314 027333 




JMP 


KILDM 


CAN«T, MAKE IT DISAPPEAR 


0815 


75315 


KltCS 


EUU 


* 




0816* 












0817 


75315 060036 




LDA 


KILTS 


DID WE JUST KILL A 


0818 


7531a 002003 




SZA, 


rRSS 


HLE? 


0819 


75317 026226 




JMP 


LLEND 


NO, 


0820 


75320 016^47 




JSB 


RDPRG 


IF WE DID, WE HAVE TO DECOMPILE 


0021 


7 5321 015322 




JSB 


DCMPL 


THE GUY TO MAKE SURfc HE DOESN'T 


0822 


75322 060273 




lda 


mlInk*i 


USE IT, 


0823 


75323 040335 




ADA 


,*?LINK 


LEAVE USER J .M CORE, 


0824 


75324 070257 




STA 


MAIN 




0825 


75325 026226 




JMP 


LLEND 


TERMINATE, 


0826 


75326 064346 


KILRC 


LOB 


,"4 




0827 


75327 016257 




JSB 


MOVEW 


REStT DIREC 


0828 


75330 064072 




LOB 


WORD 




0029 


75331 063337 




LDA 


KILRD 




0030 


75332 116016 




JSB 


SALVP,! 




0031 


75333 002400 


K1LOM 


CLA 






0032 


75334 170044 




8TA 


KILO, I 


ZERO DRUM address 


0033 


75335 170045 




STA 


KILOF,I 


ZErO LENGTH 


0034 


75336 027315 




JMp 


KILLS 




0835 


75337 000000 


KURD 


BSS 


1 




0836 


00034 


KILP 


EOU LTEMP+4 




0837 


00035 


KILPO 


EQU 


LTEMP+5 




0038 


00036 


KILTS 


EQU 


LTEMP+6 
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0839 00042 KILC EUU LTfcMP+10 

0840 00043 KXI.N EQU LTEMP+U 

0841 00044 K1UD EQU LTEMP+12 

0842 00045 KItDF EQU ITEMP+13 

0843 00046 KiUOI EQU LTEMP+14 
0844* LTEMP+15 13 USED HERE ALSO 
0845 75340 $KIL EQU * 



PACE 0445 #463 REnUm^ER 



0002* THE RENUMBER ROUTINE 13 CALLED BY A U3£R TO ASSIGN NEW 

fc>003* SEQUENCE NUMBERS TO ALL OR A PART OF A PROGRAM, THE FORMAT OF 

0004* THE COMMAND ISl 

0005* REN-»M,N(.P,Q 

0006* M IS THE NEW INITIAL SEQUENCE NUMBER 

0007* N IS THE NEW INCREMENT 

0008* P IS THE FIRST STATEMENT TO BE RENUMBERED 

0009* Q IS THE LAST STATEMENT TQ BE RENUMBERED, 

0010* DEFAULT VALUES ARE ASSIGNED AS J-OLLOWSl 

0011* M»10 f N*10, P. FIRST STEATMENT, Q.LAST STATEMENT 

0012* 



0014 


75000 




ORG 


LIBRA 




0015 


75000 


060273 


loa 


MLINK+1 




0016 


75001 


040340 


ADA 


.♦?PROG- 


•?LINK 


0017 


75002 


164000 


LDB 


0,1 




0018 


75003 


054702 


CPB 


PBUFF 


NULL PROGRAM? 


0019 


75004 


026226 


JMP 


LLEND 


YES 


0020 


75005 


016047 


J3B 


RDPRG 


READ IN USER PROGRAM, 


0021 


75006 


064273 


LDB 


MLINK+t 


COMPUTE 


0022 


75007 


044335 


ADB 


,-?LINK 




0023 


75010 


060354 


LDA 


CFLAG 


PKOGRAM 


0024 


750U 


110001 


AND 


1^1 




0025 


75012 


064056 


LDB 


PBPTR 


STATE mND 


0026 


75013 


070033 


STA 


RENC 




0027 


75014 


002002 


SZA 




End of program 


0026 


75015 


065575 


LDB 


SYMTB 




0029 


75016 


074040 


STB 


RENEN 


POINTER 


0030* 












0031* 


SET UP INITIAL 


SEQUENCE NUMBER 


AND INCREMENT 


0032* 












0033 


75017 


061577 


LDA 


SPROG 




0034 


75020 


070037 


3TA 


RENBA 


INITIALIZE 


0035 


75021 


074045 


STB 


REnlA 




0036 


75022 


060364 


LDA 


,♦10 


DEFAULT 


0037 


75023 


070031 


STA 


RENM 




0038 


75024 


070032 


STA 


RENN 


VALUES 


0039 


75025 


017417 


JSB 


RENUM 


PARAMETER? 


0040 


75026 


027134 


JMP 


REN1 


NO 


0041 


75027 


074031 


3TB 


rENM 


YE S / RECORD it 


0042 


75030 


050367 


CPA 


,♦158 


end of record? 


0043 


7503 1 


027134 


JMP 


REN1 


YE8 


0044 


75032 


050425 


CPA 


,♦548 


NO# COMMA? 


0045 


75033 


017417 


JSB 


RENUM 


DEMAND SECOND 


0046 


75034 


027454 


JMP 


RENFl 


NONE FOUND 


0047 


75035 


074032 


StB 


RENN 


RECORD It 


0046 


75036 


050367 


CpA 


.♦15B 


End of record? 


0049 


75037 


027134 


JMP 


REN1 


YES 


0050 


75040 


050426 


CPA 


.♦54B 


NO, COMMA? 


0051 


75041 


017417 


JSB 


RENUM 


YES, DEMAND THIRD 


0062 


75042 


027464 


JMP 


RENFl 


NOT FOUND 


0053 


75043 


074037 


3TB 


RENBA 


RECORD IT 


0054 


75044 


050367 


CPA 


.♦15B 


end of record? 


0055 


75045 


027075 


JMP 


REN22 


YES 
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0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063* 

0064* 

0065* 

0066* 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085* 

0086* 

0087* 

0088* 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 



75046 
75047 
75050 
75051 
75052 
75053 
75 5 4 



050426 
017417 
027454 
074045 

050367 
002001 
0274^4 



CPA 


,*54B 


NO, COMMA? 


JSB 


RENuM 


DEMAND FOURTH 


Jmp 


re n fi 


NQNfc FOUND 


STB 


renla 


RECORD IT 


CPA 


• *15B 


ENp OF RECORD? 


RSS 






JMP 


RENF1 


NO, ERROR 



FIND THE LAST SEQUENCE NUMBER LESS THAN 

OR EQUAL TO RENLA, ANO SET RENLA TO POINT TO IT 



75055 
75056 
75057 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 
75073 
75074 



065577 

074030 

054040 
027073 
160001 
003004 
040045 
002020 
027073 
074030 
060001 
002004 
144000 
027057 

064030 
074045 



LDB 
STB 

REN20 EQU 
CPB 
JMP 
LDA 
CMA, 
ADA 
SSA 
JMP 
STB 
LOA 
INA 
ADB 
JMP 

REN21 EQU 
LDB 
STB 



SPROG 

RENL 

* 

RENEN 

REN21 

B,I 

INA 

RENLA 

REN21 

REnL 

B 

A, I 

REN20 

* 

RENL 
RENLA 



START WITH FIP8T PROGRAM WORD 



PROGRAM EXHAUSTED? 
YES 

CURRENT SEGUENCE 
NUMBER GREATER 
THAN RENLA? 

YES 

NO, SAVE POINTER TO STATEMENT 

SET (B) TO 
NEXT PROGRAM 
STATEMENT 



FIND THE FIRST SEQUENCE NUMBER GREATER THAN 

OR EQUAL TO RENBA, ANO SET RENBA TO POINT TO IT 



75075 
75075 
75076 
75077 
75100 
75101 
75102 
75102 
75103 

75104 
75105 
75106 
75107 
75110 
75111 
75112 
75113 
75H4 
75115 
75115 
75116 
75117 



060037 
003004 
070037 
065577 

074030 

054040 
027115 

160001 
040037 

002021 
027115 
060001 
002004 
074030 
144000 
027102 

054040 
027366 
074037 



REN22 EQU 
LDA 
CMA, 
STA 
LDB 
SjB 

REN23 EQU 
CPB 
JMP 
LDA 
ADA 
SSA, 
JMP 
LDA 
INA 
STB 
ADB 
JMP 

REN24 EQU 
CPB 
JMp 
STB 



* 

HENBA 

INA 

RENBA 

SPROG 

RENL 

* 

RENEN 

REN24 

B,I 

RENBA 

RSS 

REN24 

B 

RENL 
A, I 
REN23 

* 

RENEN 
REn13 
RENBA 



START WITH FIRST WORD OF PROGRAM 



PROGRAM EXHAUSTED? 

YES 

CURRENT SEQUENCE 

NUMBER GREATER THAN 
UR EQUAL TO RENBA? 
YES 
NO, 

SET (B) 
TO NEXT 
PROGRAM 
S1ATEMENT 

SEQ NBR BtyOND PROGRAM? 
YES, SO FINISHED 
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0111 


75120 


055577 




C PB 


3PR0G 


1ST STATEMENT 


0112 


75121 


027127 




JMP 


REN29 


YES 


0113* 














0U4* 


TEST 


FOR SEQUENCE 


NUMBER OVERLAP 


AT RENBA 


0115* 














0116 


75122 


060031 




IDA 


RENM 


LOAD NEW BA SEQ NBR 


0117 


75 t 23 


003004 




CMA, 


.INA 


GET OLD 


0118 


75124 


140030 




ADA 


RENL,I 


SEQUENCE NUMBER 


0119 


75125 


002021 




SSA, 


>RSS 


OVERLAP? 


0120 


75126 


027372 




JMp 


RENF2 


YES 


0121 


75127 




RfcN29 


EQU 


* 




0122 


75127 


060037 




EDA 


RENBA 


RENLA 


01 2 3 


75ljtf 


003004 




CMA ( 


■ INA 


GKtATER 


0124 


75131 


040045 




ADA 


RENLA 


THAN OR 


0125 


75132 


002020 




SSA 




EUAL TO RENBA? 


0126 


75133 


027454 




JMp 


RE N F1 


NO> FAIL 


0187* 














0128* 


GET NUMBER OF STATEMENTS IN PROGRAM 


0129* 














0130 


75134 




RfcNl 


EQU 


* 




0131 


75134 


002400 




CIA 




INITIALIZE 


0132 


75135 


070041 




STA 


RENNS 


COUNTER 


0133 


75136 


065577 




LDB 


3PR0G 




0134 


75137 




REN27 


EQU 


* 




0135 


75137 


054040 




CPB 


RENEN 


DONE? 


0136 


75140 


027146 




Jmp 


REN2 


YES 


0137 


75141 


060001 




tOA 


B 


ADVANCE 


0138 


75142 


002004 




JNA 




TO 


l3 9 


75t43 


144000 




ADB 


Afl 


NEXT 


0140 


75J44 


034041 




ISZ 


RENNS 


STATEMENT 


0141 


75145 


027137 




JMP 


REN27 




0142* 














0143* 


GET 1 


rH£ NUMBER OF 


STATEMENTS FROM RENBA TO RtNLA 


0144* 














0145 


75146 




REN2 


EQU 


# 




0146 


75146 


002400 




CLA 




INITIALIZE 


0147 


75147 


070030 




STA 


RENL 


STATEMENT COUNTER 


0148 


75150 


064037 




LDB 


RENBA 


Starting Statement 


0149 


75151 




REN25 


EQU 


* 




0150 


75151 


054045 




CPB 


Renla 


PROGRAM EXHAUSTED 7 


0151 


75152 


027160 




JMP 


REN26 


YES 


0j52 


75i53 


060001 




LDA 


B 


NO 


0153 


75154 


002004 




INA 




SET Cfl) 


0154 


75155 


144000 




ADB 


A, I 


TO NEXT 


0155 


75156 


034030 




I3Z 


RENL 


PROGRAM 


0156 


75157 


027151 




JMp 


REN25 


STATEMENT 


0167* 














0158* 


TEST 


FOR SEQUENCE 


NUMBER OVERLAP 


AT RENLA 


0159* 














0160 


75160 




REN26 


EQU 


* 




0161 


75160 


060030 




LDA 


RENL 


COMPUTE 


0162 


75161 


064045 




LDB 


RfcNlA 


HEN 


0163 


75162 


054040 




CPB 


RENEN 


HIGHEST 


0164 


75163 


040351 




ADA 


»*i 


SEQUENCE 


0165 


75164 


100200 




MPY 


RENN 


NUMBER 
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0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0160 
0161 
0182 
0183 
0164 
0185 

0186 

0187 

0186 

0189 

0190* 

0191 

0192 

0193 

0194 

0195 

01^6 

0197 

0198 

0199 

0200 

0201* 

0202* 

0203* 

0204* 

0205* 

0206* 

0207* 

0208 

0209 

0210 

0211 

0212 

0213 

0214* 

0215 

0216 

0217 

0218 



75165 
75166 
75167 

75*70 
75171 
75172 
75173 
75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75210 
75211 
75212 

75213 
75214 
75215 

75216 
75217 

75220 
75221 

75222 
75223 
75224 
75225 
75226 
75227 
75230 



000032 
002021 
006002 
027372 
040031 
070030 
040716 
002021 
027372 
060045 
050040 
027213 
054000 
006004 
140001 
050040 
027213 
164000 
007004 

044030 
006021 
027372 

064033 
006002 
027332 

060041 
100400 
000412 
007000 
00 2 003 
006004 
002004 
070042 
074043 
064544 
074046 



REN3 



S8A,RS8 




SZB 




JMP RENF2 


OVERFLOW 


ADA RENM 




STA RENL 


SAVE IT 


ADA MAXSN 


IN 


S8A,RSS 


LEGAL RANGE? 


JMp RENF2 


NO 


LDA RE N LA 


Yt3 


CPA RENEN 




JMP REN3 




LOB A 


MOVE 


IN8 


POXNTER TO 


ADA 8,1 


NEXT STATEMENT 


CPA REnEn 


beyono program? 


JMP REN3 


YeS, DON'T BOTHER ABOUT OVERLAP 


LUB Arl 


GET FOLLOWING 


CMB^INB 


OLD SEQ NBR 


AOB RENL 


TEST FOR OVERLAP 


SS8,RS8 




JMP RENF2 


FAIL 


LUB RENC 


PROGRAM 


SZB 


CqMrILED? 


JMP REN» 


YE8 


LOA RENNS 


GET # OF STATEMENTS IN PROGRAM, 


OIV ,+32 


DIVIDE INTO 32 PARTS, 


CMB 


SET B»-l-#OF OVENSIZE GROUPS, 


SZA,R8S 


BUT IF <3 2 STATEMENTS USE «#, 


INB 




INA 


SET A TO SIZE OF LARGER GROUP, 


STA RENCl 


SET COUNTER, 


STB R ENC2 




LOB ERSCA 


SET INITIAL POINTER TO ERSEC, 


8T B REN S N 





NOW 8UILD A TABLE IN ERSEC HAVING TH FOLLOWING STRUCTURE* 

ER3EC(0131) ARE SEQUENCE NOS, OF STATEMENTS WHICH DIVIDE 
T HE PROGRAM INyO 32 ALMQSt EQoAL PARjS, ERSEC(32»63) ARE THE ABSO» 
LUTE ADDRESScS o^ THESE STATEMENTS, ER3ECC0) IS THE SEQ, No, qF THE 
FIRST STATEMENTS, 



75231 
75232 
75233 
75234 
75235 
75236 



061577 

044412 
170001 
164000 
174046 
034046 



REM5 



LOA 
ADB 
STA 
LDB 
STB 
I3Z 



SPROG 
,♦32 
1,1 
0#I 

RENSNf I 
RENSN 



75237 034043 

75240 006401 

75241 007400 

75242 044042 



ISZ RENC2 

CLBtRSS 

CCB 

AOB RENCl 



set absolute a dd ress into ta 8 le. 
set sequence * into table, 

bump pointers, 

test for any more 0ver8ize 

GROUPS 
COMPUTERIZE OF NEXT GROUP, 



PA(j£ 0449 #40 RfcNUMBfcR 



0219 

0220 

0221 

0222* 

0223 

0224 

0225 

0226* 

0227 

0226 

0229 

0230 

0231 

0232 

0233* 

0234* 

0235* 

0236* 

0237* 

0230* 

0239 

0240 

0241 

0242 

0243* 

0244 

0245 

0246* 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257* 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0260 

0269 

0270 

0271 

0272 

0273 



75243 074042 

75244 007000 

75245 074044 

75246 064046 

75247 054644 
75250 027257 



75251 
75252 
75253 
75254 
75255 
75256 



034044 
002005 
027232 
140000 
040351 
027251 



STB RENCl 

CMB 

STB RENC3 

LOB REN8N 
CPB ERS32 
JMP REN14 

182 RENC3 
INA,RSS 
JMP REN15 
ADA 0,1 
ADA ,»i 
JMP *«5 



TEST FOR DONE, 



COMPUTE 1ST STATEMENT IN 
NEXT GROUP. 



SCAN THROUGH PROGRAM FOR SEQUENCE NUMBER REFERENCES, 
FOR EACH ONE, DETERMINE ABSOLUTE ADDRESS OF THE LABEL 
AND REpLACE IT WITH THAT ADDRESS, IF LABEL Is NqNEXISTEN"? , 
PLACE Th£ NEGATIVE LABEt IN TO INDjCATE THIS FACT. 



75257 061577 

75260 070035 

75261 040351 

75262 070034 

75263 B17467 

75264 027332 



75265 
75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 
75276 

75277 
75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 
75311 
75312 
75313 

753U 
75315 
75316 



064544 
160001 

003000 
140034 
002024 
027302 
005004 
054644 
002001 
027266 

0444H 
060056 
027311 
044412 
002003 
027324 
054644 
027326 
160001 
044351 
164001 
070042 
160034 

006004 
144001 
044351 



REN14 



REN4 



REN7 



LDA SPROG 
SjA RENQ 
ADA a «l 
STA RENP 

J3B RENSK 
JMP REN9 

LDB ErsCA 

LDA i, X 

CMA 

ADA RENP, I 

SSA,INA 

JMP REN5 

INB 

CPB ERS32 

RSS 

JMP REN7 



ADB 
LDA 
JMP 
RE»5 ADB 
SZA, 
JMP 
CPB 

Jmp 

LDA 

A B 

REN6 LDB 

STA 

LDA 

REN16 INB 

ADB 

ADB 



.♦31 

PBPTR 

REN6 

.♦32 

RSS 

REN18 

ERS32 

RE N 17 

WI 
t *"l 

iri 

RENCl 
RENP, I 

1,1 



INITIALIZE POINTERS 
FOR HEN3K, 



GET NEXT STATEMENT REFERENCE, 
NONE LEFT, 



First statement >«sought state,? 
found one, 

TEgT FOR DONE, 

STATEMENT IS IN LAST GROUP, 

B»»FIR3T STA1E M E N T In GROUP, 
TEST FOR FOUND, 

TEST FOR NOT THERE, 

SET A»>FIRST WORD BEYOND GROUP, 
AT FIRST WORo BeYONq GROUP, 

SAVE END TEST, 

GET SEQUENCE NUMBER, 

BUMP STATEMENT POINTER. 
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0274 

0275 

0276 

^277 

0276 

0279* 

0280 

0261 

0262 

0283 

02q4 

0285 

0286* 

0287* 

0288* 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0296 

0299 

0300 

0301 

0302 

0303 

030 4 

0305* 

0306* 
0307* 
0306* 

0309 

0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
03i 8 
031o 
0320 

0321 
0322 
0323 
0324 
032 5 
0326 
0327 
0328 



75317 054042 

75320 027326 

75321 150001 

75322 027330 

75323 027314 

75324 164001 

75325 027330 

75326 164034 

75327 045036 

75330 174034 

75331 027263 



CPB 
JMP 
CPA 
JMP 
JMP 



RENC1 
REN17 
If I 
REN8 
REN16 



TEST FOR DONE, 
TEST FOR FOUND, 



REN18 LOB lil 
JMP **3 

REN17 LOB RENP,I 
AOB BIT15 

REN8 8TB RENP,I 
JMP REN4 



SET BIT15 FOR 
UNDEFINED LABELS, 



NOW CHANGE ALL LABELS TO THEIR NEK VALUES, 



75332 
75332 
75333 
75334 
75334 
75335 
75336 
75337 
75340 
75341 
75342 
75343 
75344 
75344 
75345 
75^46 



060037 
064031 

050045 
027344 
174000 
044032 
002004 
140000 
040351 
027334 

050040 
002001 
174000 



REN9 



REN10 



REn28 



EQU 
LOA 
LOB 
EQU 
CPA 
JMP 
STB 
AOB 
INA 
ADA 

ADA 
JMP 
EQU 

CP* 
RSS 
STB 



* 

RENBA 

RENM 

* 

RENLA 

REN26 

A, I 

RENN 

.-1 

REN10 

* 

RENEN 

A, I 



DONE? 
YES 

NOr RECORD NEW SEQUENCE NUMBER 
INCREMENT TO NEXT LINE NUMBER 
MOVE 
TO 
NEXT 

STATEMENT 



RECORD LAST SE'J NBR 



SCAN REFERENCES AGAIN, IF ABSOLUTE ADDRESS IS THfRE, 
REPLACE BY NEW LABEL, OTHERWISE REPLACE BY OLD LABEL, 



75 34 7 
75350 
75351 
75352 

75353 
75354 
75355 
75356 
75357 
75360 
75361 

75362 
75363 
75364 
75365 
75366 

75367 
75370 
75371 
75372 



060033 

002002 
027366 
06^577 
070035 
040351 
070034 
017467 
027366 
160034 
001275 
002001 
I60000 
170034 
027356 
060273 
040335 
070257 
H26226 



RENH 



REN12 



REN13 



RENF2 



LOA RENC 


IS PROGRAM 


SZA 


COMPILED* 


JMP REN13 


yes 


LDA SPROG 




8TA RENQ 




ADA ,«1 




STA ReNP 


SEEK EMBEDDED 


JSB RfcNSK 


STATEMENT R^feReNC^S 


JMP REN13 


NONE LEFT 


LDA RENP,I 


IF REFERENCE IS 


RAL,CLE,SLA> 


ERA NEGATIVE, CLEAR BIT 15, 


RSS 


OTHERWISE, REPLACE IT, 


LDA 0,1 


WITH THE NEW 


STA RENP,I 


LINE NUMBER 


JMP RENJ2 




LDA MLINK+1 


SET FLAG TO SAY 


ADA ,-?LINK 


'USER PROGRAM TO CORE' 


STA MAIN 




JMP LLEND 




EQU * 
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0329 
0330 
0331 
0332 
0333 
0334 



75372 
75373 
75374 
75375 
75376 
75377 
75400 
75401 
75402 
75403 
75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 
75416 



0339* 

0336* 

0337* 

033tt* 

0339* 

0340* 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

03 6 4 

«365 

0366 

0367 

0368 



063604 
067375 
026432 
075376 
005123 
042521 
052505 
047103 
042440 
047125 
046502 
042522 
020117 
053100 
051106 
046117 
053457 
047526 
042522 
046101 
050040 



IDA LENT 
LOB REN0 
JMP LIBER 
REN0 DEF *+i 

OCT 5123 LF-8 
ASC 16,EQUENCE number 



OVErFLqW/oVEnLAp 



RENUM SCANS INPUT BUFFER FOR A NUMBER. IF IT FINDS NOThlNCJ 
IT RETURNS WITHOUT SKIPPING, IF IT FINDS A LEGAL LABEL 
(1-9999) IT RETUNNS WITH It IN B AND THE NEXT CHARACTER, IN A, 
AND S«IPS»ON THE WAY BACK. If IT FInDS An ERRQH IT GqES TO KEnF, 



75417 
75420 
75421 
75422 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 
75434 
75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 
75445 
7544$ 
75447 
75450 
75451 
75452 



000000 
002400 
070030 
016164 
127417 
040316 
002021 
027447 
040364 
002020 
027447 
064030 
047605 

006021 
027454 

064030 
005222 
044030 
005200 
040001 
070030 
016164 
027450 
027424 

040432 
064030 
037417 
006002 



RENUM 



RENU1 



RENUj 



NOP 




CLA 


INITIALIZE INTEGER 


ST A RENL 


TO zERO 


JSB LCHAR 


ANY CHARACTERS? 


JMP REN|jM,I 


NO 


ADA M72B 


YES, IS IT 


SSA,RSS 


< ASCII 72 ? 


JMP RENgZ 


NO 


ADA ,+10 


YES> 


ss A 


> ASCII 57 ? 


JMP R£NU2 


NO 


LDB RENL 


YES, PREVIOUS 


ADB ,1000 


Integer 


SSBfRSS 


< 1000 ? 


JMP RENF1 


NO 


LDB RENL 


YES 


RBL,RBL 


MULTIPLY 


ADB RENL 


BY 


RBL 


10 


ADA 1 


ADD In 


STA RENL 


NEW DiG;T 


JSB LC H AR 


FETC H NEXT 


JMP **3 


CHARACTER 


JMP RENU1 




ADA ,+60B 


RESTORE ANY LEGAL 


LDB RENL 




ISZ RENUM 




SZB 


NON-ZERO INTEGER? 
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0369 


75453 


127417 


JMP 


RENUM,I 


YES 


0370 


75454 


060334 


RENFi LDA 


,-14 




037J 


75455 


067*57 


LOB 


* + 2 




0372 


75456 


026432 


JMP 


LIBER 




0373 


75457 


075460 


DEF 


*♦! 




0374 


75460 


005102 


OCT 


5102 


LF-B 


0375 


75461 


040504 


A3C 


6, AD PARAMETER 




75462 


020120 










75463 


040522 










75464 


040515 










75466 


042524 










75466 


042522 








0376 


75467 


000000 


RENSK NOP 






0377 


75470 


034034 


I8Z 


RENP 


INCREMENT POINTER 


1*376 


75471 


064035 


LDB 


RENO 




0379 


75472 


034036 


I3Z 


RENR 


<USXNG STATEMENTS 


0380 


75473 


002001 


R38 




NO 


0381 


75474 


027502 


JMP 


REN32 


YES 


0382 


75475 


054034 


CpB 


RENp 


STATEMENT FINISHED? 


0383 


75476 


027502 


Jmp 


REN32 


YES 


0384 


75477 


037467 


RtNSl isz 


RENSK 


NOf RETURN WITH RENP 


0385 


75500 


127467 


JMp 


REnSK,! 


SET TO NEXT REFERENCE 


0386 


75501 


074035 


STB 


RE N Q 


UPDATE TO NEXT STATEMENT 


0387 


75502 


054056 


RENS2 CPB 


PBPTR 


PROGRAM EXHAUSTED? 


0388 


75503 


127467 


JMP 


RENSK, I 


YES 


0389 


75504 


002400 


CLA 




CLEAR USING 


039a 


75505 


070036 


STA 


RENR 


FLAG 


0391 


75506 


034035 


ISZ 


RENq 




0392 


75507 


064035 


LOB 


RENO 




0393 


75510 


034035 


ISZ 


RENO 


EXTRACT 


0394 


75511 


160035 


LD* 


RENQ, I 


STATEMENT 


0395 


75512 


010664 


AND 


OPMSK 


TYPE 


0396 


75513 


144001 


AOB 


1,1 


SET (B) to 


0397 


75514 


044351 


ADH 


,•1 


NEXT STATEMENT 


0398 


75515 


053576 


CpA 


rEsop 


<RESTORE STATEhEnT> ? 


0399 


75516 


027573 


JMP 


RENS5 


YES 


0400 


75517 


0535 7 7 


CPA 


GOTOP 


NO, <GOTU STATEMENT ? 


0401 


75520 


02756*3 


JMP 


RENS3 


YES 


0402 


75521 


053600 


CPA 


GOSOP 


NO, «GOSUB STATEMENT ? 


0403 


75522 


027560 


JMP 


REN33 


YES 


0404 


75523 


053601 


CPA 


iFOP 


NO, <jF STATEMENT*? 


0405 


75524 


027557 


JMP 


RENS3-1 


YES 


0406 


75525 


053602 


CPA 


MTOPR 


NO, <MAT STATEMENT*? 


04^7 


75526 


002001 


R3S 




YES 


0408 


75527 


027533 


JMP 


RENS6 


NO 


0409 


755313 


034035 


ISZ 


RENQ 




0410 


75531 


160035 


LDA 


RENO, I 


GET NEXT 


0411 


75532 


010664 


AND 


OPMSK 


OPERATOR 


0412 


75533 




RENS6 EQU 


* 




0413 


75533 


050656 


CPA 


PRTOP 


<PRINT STATEMENT? 


0414 


75534 


002001 


RSS 




YES 


041 5 


75535 


0275^1 


JMP 


RENS2-1 


NO 


0416 


75536 


034035 


I3Z 


RENQ 




0417 


75537 


160035 


LOA 


RENQ, I 


GET NEXT 


0418 


75540 


010664 


AND 


OPMSK 


OPERATOR 
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0419 


75541 


050776 




CPA 


USEOP 


<USINQ STATEMENT? 


0420 


75542 


002001 




RSS 




YES 


0421 


75543 


027501 




JMP 


RENS2*l 


NO 


0422 


75544 


120035 




XOR 


RENQ,! 


GET OPERAND 


0423 


75545 


050670 




CPA 


INTFL 


INTEGER FOUCWS? 


0424 


75546 


002001 




RSS 




YES 


0425 


75547 


027501 




JMP 


RENS2-1 


NO 


0426 


75550 


003400 




CCA 




SET USING 


0427 


75551 


070036 




STA 


RENR 


FUG 


0426 


75552 


060035 




LDA 


RENQ 


SET 


0429 


75553 


002004 




Ina 




REFERENCE 


0430 


75554 


070034 




STA 


RENP 


POINTER 


14431 


75555 


074035 




STB 


RENQ 


SET POINTER TO NEXT STATEMENT 


0432 


75556 


027477 




JMP 


RENS1 




0433 


75557 


063603 




LDA 


THNOP 


LOAD 1THEN1 


0434 


75560 


030670 


RtNS3 


IQR 


intfl 


CREATE REFERENCE HEADER 


0435 


75561 


074035 




STB 


RfcNQ 


SET PQiNTER TO NEXT STATEMENT 


0436 


75562 


044351 




AqB 


.-1 


SET POINTER TO 


0437 


75563 


074034 


RfcNS4 


STB 


renp 


PR0Sp tC Tiv e reference 


0438 


75564 


044351 




AOB 


.-t 


PRECEDED aY 


0439 


75565 


150001 




CPA 


1,1 


REFERENCE HEADER? 


0440 


75566 


027477 




JMP 


REN31 


YES 


0441 


75567 


060706 




IDA 


OFOP 


NO, LOAD HEADER FOR 


0442 


75570 


150001 




CPA 


1,1 




0443 


75571 


027477 




JMP 


rensi 




0444 


75572 


027563 




JMP 


R£NS4 


reference list 


0445 


75573 


150035 


REN35 qPA 


RENQrl 


ANY REFERENCE? 


0446 


75574 


027501 




JMP 


RENS2-1 


NO 


0447 


75575 


0275^0 




JMP 


RENS3 


YES 


0446 


00030 




RENL 


EQU 


LTEMP 




0449 


00031 




Renm 


EBU 


LTeMP+1 




0450 


00032 




renn 


EQU 


LTEMP+2 




0451 


00033 




RENC 


EQU 


LjEMP*3 




0452 


00034 




RENP 


EQU 


UTEMP4.4 




0453 


00035 




RENO 


EQU 


LTEMP+S 




0454 


00036 




RENR 


EQU 


ITEMP+6 




0455 


00037 




RENBA 


EQU 


UTEMP*7 




0456 


00040 




RENEN 


EQU 


LTEMP+8 




0457 


00041 




RENNS 


EQU 


LTEMP+9 




0458 


00042 




RENC1 


EQU 


LTEMP*10 




0459 


00043 




RENC2 


EQU 


UTEMP+it 




0460 


00044 




RENC3 


EQU 


LTEMP*12 




0461 


00045 




RENLA 


EQU 


LTEMP+13 




0462 


00046 




RENSN 


EQU 


LTEMP+14 




0463 


75576 


066000 


RESOP 


qCT 


66000 




0464 


75577 


052000 


GOTOP 


OCT 


52000 




0465 


75600 


056000 


GOSOP 


OCT 


56000 




0466 


75601 


053000 


IFOP 


OCT 


53000 




0467 


75602 


067000 


MTOPR 


OCT 


67000 




0466 


75603 


075000 


Thnop 


OCT 


75000 




0469 


75604 


177737 


LENT 


DEC 


•33 




0470 


75605 


176030 


• 1000 


DEC 


• 1000 




0471 


75606 




$REN 


EQU 


# 
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0473* THE NAME ROUTINE ALLOWS A USER TO ASSIGN HIS PROGRAM A NAME, 



0475 


75000 




ORG 


LIBRA 




0477 


75000 


060273 


LDA 


MLINK+i 


SET POINTER TC NAME, 


0478 


75001 


040342 


ADA 


,+?NAmE« 


?link 


0479 


75002 


070030 


STA 


LTEMP 




0480 


75003 


070033 


STA 


LTEMP+3 


SAVE NAME POINTER IN LTEM 


0431 


75004 


160000 


IDA 


0,1 


SAVE RuN-ONLY BIj IN LjEM 


0482 


75005 


011036 


AND 


BIT15 




0483 


75006 


070034 


STA 


LTEMP+4 




0484 


75007 


060347 


LOA 


,«»3 


SET COUNTER, 


0485 


75010 


070031 


STA 


LTEMP+1 




0485 


75011 


002400 


CLA 




SET FLAG TO SAY 


0487 


75012 


070032 


STA 


LTEMP+2 


first character 


0488 


75013 


017055 


NAMEl J3B 


NAMER 


GET A CHAR, 


0489 


75014 


001727 


ALF, 


.ALF 




0490 


75015 


170030 


STA 


LTEMP,! 




0491 


75016 


017055 


JS8 


NAMER 


GET 2ND CHAR, 


0492 


75017 


130030 


IOR 


LTEMP, I 




0493 


75020 


170030 


STA 


LTEMP, I 




0494 


75021 


034030 


m 


LtEMP 


BU*P NAME POlNjER, 


0495 


75022 


034031 


IS? 


LTEMP+1 


TEST FOR DONE, 


0496 


75023 


027013 


JMP 


NAME! 




0497 


75024 


160033 


LOA 


LTEMP+3, 


i get First word of name 


0498 


75025 


030034 


IOR 


LTEMP+4 


MERGE IN RUN-ONLY BIT, 


0499 


75026 


170033 


STA 


LTEMP+3, 


I 


0500 


75827 


017055 


JS8 


NAMER 


TEST FOR ONLY * CHARS, 


0501 


75030 


050412 


CPA 


,♦408 




0502 


75031 


026226 


JMP 


LLENO 




0503* 












0504 


75032 


063054 


LOA 


NAM27 




0505 


75033 


067035 


LOB 


*+2 




0506 


75034 


026432 


JMP 


HB£« 




0507 


75035 


075036 


DEF 


♦ ♦1 




0508 


75036 


005U7 


OCT 


5117 


LF»0 


0509 


75037 
75040 
75041 
75042 
75043 
75044 
75045 
75046 
75047 
75050 
75051 
75052 
75053 


047114 

054440 
033040 
041510 
040522 
040503 
052106 
051123 
020101 
041503 
042520 
052105 
042040 


ASC 


13 f NLY 6 


CHARACTERS ACCEPTED 


0510 


75054 


177745 


NAM27 DEC 


•27 




0511* 












S i 2 


75055 


000000 


NAMER NOP 




GETS NEXT NAME CHARACTER, 


0513 


75056 


016164 


JSB 


LCHAR 




0514 


75057 


060412 


LDA 


,+40B 


USE BLANK IF feND OF LINE, 


0515 


75060 


070001 


STA 


1 


HOLD IN 8, 
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0516 


75061 


010730 


AND 


.140 


TEST FOR CONTROL CHAR. 


0517 


75062 


002002 


SZA 






0518 


75063 


050730 


CPA 


,140 




0519 


75064 


027056 


JMP 


NAMER+1 


SKIP CONTROL CHARS, 


0520 


75065 


060001 


LOA 


1 


GET IN A AGAIN, 


0521 


75066 


064032 


LOB 


LTEMP+2 


GET 1ST CHAR FLAG, 


0522 


75067 


034032 


I3Z 


LTEMP+2 




0523 


75070 


050416 


CPA 


,♦448 


IF * 


0524 


75071 


002001 


RSS 






0525 


75072 


050434 


CPA 


,♦528 


OR IF * 


0526 


75073 


006002 


SZB 




AND FIRST CHARACTER 


0527 


75074 


027115 


JMP 


NAME2 




0528* 












0529 


75075 


060322 


LOA 


.•24 


PRINT ERROR 


0530 


75076 


067100 


LOB 


**2 




0531 


75077 


026432 


JMP 


LIBER 




0532 


75100 


075101 


DEF 


*+l 




0533 


75101 


005111 


OCT 


6111 


LF-I 


0534 


75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75H3 
75114 


046114 
042507 
040514 
020106 
044522 
051524 
020103 
044101 
051101 
041524 
042522 


ASC 


11,LLEGAL 


FIRST CHARACTER 


0535 


75115 


050426 


NAME2 CPA 


.♦54B 


IS CHARACTER A COMMA? 


0535 


75116 


002001 


RSS 






0537 


75H7 


127055 


JMP 


NAMER,I 


no, return character. 


0538 


75120 


060347 


LOA 


« «3 


YES, 8LA N K 


0539 


75121 


070030 


STA 


LTEMP 




0540 


75122 


064273 


LOB 


MLINK+l 


OUT 


0541 


75123 


044342 


AOB 


, + ? N AME.-?H N K 


0542 


75124 


063132 


LDA 


NAMBL 


ILLEGAL 


0543 


75125 


170001 


NAMFL STA 


Bfl 




0544 


75126 


006004 


INB 






0545 


75127 


034030 


ISZ 


LTEMp 




0546 


75130 


027125 


JMP 


NAMFL 


NAME, 


0547 


75131 


026430 


JMP 


ILFER 


OUTPUT ERROR MESSAGE, 


054a* 












0549 


75132 


020040 


NAMBL ASC 


I, 




0550 


75133 




$NAM EQU 


* 
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0002* 

0003* 

0004* 

0005* 

0006* 

0007 

0008* 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

001U 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037* 

0036 

0039 

0040 

0041 

0042 

0043 

0044* 

0045 

0046 

0047 

0048 

0049 

0050 

0051* 

0052 

0053 

0054 

0055 

0056 



CATALOG PRINTS A LIST OF USER PROGRAMS AND FILES ON THE USER 
TELETYPE, IT PRINTS THESE, 4 PEr LINE, ALONG WITH THEIR LENGTHS 

and an indication op piles, csaved programs, protected entries, 
and sanctified entries, library must follow catalog in sequence, 



75000 

75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75010 
75011 
75012 
75013 
75014 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 

75032 
75033 
75034 
75035 
75036 
75047 

75050 
75051 
75052 
75053 

75"5 4 
75055 

75056 
75057 

75060 
75061 
75062 



ORG LIBRA 



002400 
070031 
070032 
070033 
060364 
016132 
060346 
070036 

060341 
070037 
063346 
070044 

160044 
001727 
010443 
016132 
160044 
010443 
016132 
034044 
034037 
027014 
034036 
027010 
060367 
016132 

060273 
040341 
160000 
027047 
000000 
070030 

060346 
070037 
002400 
070036 

06^364 
016132 

116005 
000000 
160034 
003004 
040562 



CLA 
STA 
STA 
STA 
LOA 
JSB 
LDA 
STA 
CAT00 EQU 
LDA 
STA 
LDA 
STA 
CAT01 EGU 
LDA 
ALF, 
AND 
JS8 
LDA 
AND 
JSB 
ISZ 
ISZ 
JMP 

ISZ 

JMP 
LDA 
JSB 



LTEMP+1 
LTEMP*2 
LTEMP+3 
,*12B 
LOUT 

CATJ 

* 

CATN 
CATTP 

CATS 

* 

CATS, I 

ALF 

B377 

LOUT 

CATS, I 

B377 

LOUT 

CATS 

CATN 

CAT01 

CATJ 

CAT00 

,*15B 

LOUT 



FIRST TIME IN, SET LT£MP( 1 i3)*0, 
*E WILL HAVE TO LOCATE ThE FI*ST 
DIRECTORY ENTRy FOLLOWING 
LTEMP(0i3). 
LF 



OUTPUT LEFT CHARACTER 



OUTPUT RIGHT CHARACTER 
BUMP TO NEXT HEADING WORD 



CR 



CA T 1 LDA MLI N K + 1 S ET USER II>.I n Tq LTEMp, 

ADA t+ 7ID„?LINK 

LDA fI 

JMP CAT2 

BSS 9 SPACE FqR ID CALCS I N OR Up 

CAT2 STA LTEMP RENDEZVOUS KITH "LIBRARY", 



LDA ,»4 
STA CATN 
CLA 

ST A CATJ 
LDA .+12B 
JSB LOUT 

JSB DLOKPfl 

NOP 

LDA CATI,I 

CMA,INA 

ADA LIBD 



SET N TO COUNT * OF NAMES ON 

THIS LINE, 

SET J*0 TO INDICATE THAT NO 

DIRECTORY TRaC* H A 3 BEEN EXaMED 
EMIT A LINE FEED, 



find last entry <» last one 

OUTPUT, 

COMPUTE last -address 

IN TRACK, 
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0057 

0006* 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

00^6 

0067* 

0068 

0069 

0070 

0071* 

0072 

0073 

0074 

0075 

0076 

\d^77 

0078 

0079 

0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
00»6 
0097 
0098 
0099 
0100 

0101 
0102 

0103 
0104 

0105 
0106 
0107 
0108 
0109 
0110 
0111 



75063 070041 



75064 
75065 
75066 
75067 
75070 

75071 
75072 

75 73 

75074 
75075 
75076 

75077 
75100 
75101 
75102 
75103 

75104 
75105 
75106 

75107 
75110 
751U 
75112 
75113 
75H4 

75115 
75116 
75H7 
75120 
75121 
75122 
75123 
75124 
75125 
75126 
75127 
75130 
75131 
75132 
75U3 
75134 
75135 
75136 
75137 

75U0 
75141 
75142 

75l4 3 
75144 
75145 
75146 



060035 
040366 
070035 
050041 
027275 
160035 
050030 
027077 

060367 
016132 
026226 

027104 
000000 
000000 
000000 
000000 
060347 
070042 
034035 

160035 
001727 

016132 
160035 

016132 
034042 
027106 
060412 

016132 
160035 
002021 
027i25 
063342 
027135 
007400 
044035 
160001 
002021 
027134 
0633 4 3 
002001 

060412 
016132 

064035 
044350 
160001 
002021 
027145 

063344 
002001 
060412 
016132 



8TA CATQ 

CAT22 LOA CATP 

ADA ,+12 

CAT10 S7A CATP 

CPA CATQ 

JMP CATU 

LOA CATP, I 

CPA ltemp 

JMP CAT12 

CATI3 LOA ,*15B 
J3B LOUT 
JMP LLEND 



CAT12 JMP 
Ngp 
NOP 
NOP 
NOP 

CAT2 3 LOA 
8TA 

CAT15 ISZ 
LOA 
ALF, 
J3B 
LOA 
J3B 
ISZ 
JMP 
LOA 
JS8 
LOA 
S3A, 
JMP 
LDA 
JMP 

CAT20 CCB 
AOB 
LOA 
S3A, 
JMP 
LOA 
RSS 
LDA 

CAT21 J8B 
LDB 
AOB 
LDA 
SSA, 
JMP 
LDA 
R8S 
LOA 
JSB 



CAT23 



• ■3 
CATC 
CATP 
CATP, I 
ALF 
LOUT 
CATP, I 
LOUT 
CA'C 
CAT15 
.♦40B 
LOUT 
CATP, I 
RSS 
CAT20 
ASCC 
CAT21 

CATP 

BfX 

RSS 

#♦3 

A8CF 

.♦40B 

LOUT 

CATP 

• •2 

B,I 
RSS 

• + 3 
ASCP 

.♦400 

LOUT 



SET P TO NEXT 
ENTRY 

IF PiQ, WERE DONE WITH THIS 
TRACIU-GO LOOK AT NfcXT ON£ 
TEST FOR ENTRY BELONGING TO THIS 
USEH"-»IF NOT, WE'RE D°NE. 



EMIT CRLF 



this space 13 reserved 
for the iu»stqred 
program check in 

LIBRA** AND GROUP, 
SET UP COUNTER FOR 

PRINTING NAME, 
BUMP P TO NEXT W(jRD» 

GET LEFT CHAR, 
PRINT IT, 
OUTPUT IT 

TEST FOR 6 CHARS OUT. 

OUTPUT * BLANK, 

G £ T THIRD WORD Of NAmE 

SEMI-cOMFILEO* 
NO 

YES, OUTPUT A "C" 



GET SECOND WORD OF NaME 

FILE? 

NO 

YES, OUTPUT ""F" 

NEITHER, OUTPUT " " 

POINTER TO 

FIRST WORD OF NaME 
GET IT 
PROIECTED? 
NO 
YES, OUTPUT "P» 
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0112 


75147 


064035 


LDB 


CATP 


POINTER TO 


0113 


75150 


044356 


aDB 


.♦4 


DRUM ADDRESS 


«U4 


75151 


160001 


LDA 


B,I 


GET IT 


0115 


75152 


002003 


SZA, 


,R38 


SANCTIFIED? 


0116 


75153 


027156 


JMP 


* + 3 


NO 


0117 


75l5 4 


06334g 


LDA 


ASCS 


YES/ OUTPUT ■$» 


0118 


75155 


002001 


R38 






0119 


75156 


060412 


LOA 


.♦40B 


OUTPUT " " 


0120 


75157 


016132 


JSB 


LOUT 




0121 


75160 


060035 


LDA 


CATP 


BUMP TO PROGRAM LENGTH 


0122 


75161 


040362 


ADA 


.♦« 




01 2 3 


75162 


070035 


STA 


CATP 




0124 


75163 


002400 


CLA 




INITIALIZE 


0125 


75164 


070045 


STA 


CATZS 


zero suppress flag 


0126* 












0127 


75165 


160035 


LOA 


CATP, I 


GET LENGTH 


0128 


75166 


002020 


S8A 




MAKE POSITIVE IF NECESSARY 


0129 


75167 


003004 


CMA, 


,INA 




0130 


75170 


006400 


CLB 






0131 


75171 
75172 


100400 
001032 


oiv 


DVSKS 


DIVIDE IT BY 10000 


0132 


75173 


017256 


JSB 


CAT24 


OUTPUT THE FIRST CHARACTER 


0133 


75174 
75175 


100400 
001033 


DIV 


DVSRS+1 


UlV BY 1000, 


0134 


75176 


017256 


JSB 


CAT24 


OUTPUT THE SECOND DIGIT 


0135 


75177 
75200 


100400 
001034 


DIV 


DVSRS+2 


DIV BY 100 


0136 


75201 


017256 


JSB 


CAT24 


OUTPUT THE THIPO DIGIT 


0137 


75202 
75203 


100400 
000364 


DIV 


, + 10 




0138 


75204 


017256 


JSB 


CAT24 


OUTPUT THE FOURTH DIGIT 


0139 


75205 


040574 


ADA 


ASC00 




0140 


75206 


016132 


JSB 


LOUT 




Ul4l 


75207 


060412 


LDA 


,♦408 


OUTPUT A BLANK 


0142 


75210 


016132 


JSB 


LOUT 




0i43 


75211 


060412 


LOA 


.♦40B 


AND ANOTHER 


0144 


75212 


016132 


JSB 


LOUT 




0145 


75213 


060412 


LDA 


, + 40B 


AND ANOTHER 


0146 


75214 


016132 


JSB 


LOUT 




0147* 












0148 


75215 


034035 


ISZ 


CATP 


BUMP POINTER T(J NEXT ENTRY 


0149 


75216 


060035 


LDA 


CATP 




0190 


75217 


034037 


ISZ 


CATN 


END UF LINE? 


0151 


75220 


027066 


JMP 


CAT10 


NO, 


0152 


75221 


040337 


ADA 


,-11 


*» FIRST WORD OF LAST NAME 


0153 


75222 


064273 


LDB MLINK+1 




0154 


75223 


044355 


ADB , 


,*?TfcMP»1 


LINK 


0155 


75224 


07^036 


STB CATJ 


POINTER FOR STORING NAME 


0156 


75225 


064347 


LDB 


• 3 




0157 


75226 


074037 


STB CATN 




0158 


75227 




CAJ30 tQU 


* 




0159 


75227 


164000 


LDB Arl 


SAVE A WORD 


0160 


75230 


174036 


STB CATJ, I 


OF THE NAME 


0161 


75231 


034036 


ISZ CATJ 




0162 


75232 


002004 


IN A 
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0169 

0164 

0165* 

0166 

0167 

0166 

0169* 

0170* 

0171* 

0172* 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0162 

0163 

0184 

0185 

0186 

0187 

0186 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 
0199 

0200 

0201 

0202 

0203* 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

21 7 



75233 034037 

75234 027227 

75235 060367 

75236 016132 

75237 116023 



ISZ QATN 
JMP CAT30 

IDA .+15B 
J3B LOUT 
JSB SCHqU,! 



OUTPUT CR. 
OUTPUT WAIT, 



READ THE LAST ENTRY OUT OP THE TTY 
TABLE AND PUT IT INTO LTEMPC1131 



75240 
75241 
75242 
75243 
75244 
75245 
75246 
75247 
75247 
75250 
75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 
75262 
75263 
75264 
75265 
75266 
75267 
752 7 
75271 
75272 
75273 
75274 

75275 
75276 

75277 
75300 
75301 
75302 
75303 
75304 
75305 
75306 
753 7 
75310 
75311 

75312 



060520 
002004 
064347 
074037 
064273 
044355 
074036 

164036 
174000 
002004 
034036 
034037 
027247 
027032 
000000 
074043 
002002 
027267 

064045 
006002 
027270 
060412 
027271 
070045 
040574 
016132 

060043 
006400 
127256 

060034 
040361 

0704,34 

164000 
006003 
027276 
074072 
007004 
044562 
074041 
002004 
164000 
054030 
00200J 



LDA 
INA 
LDB 
STB 
LDB 
ADB 
STB 
CAT29 E8U 
LOB 
STB 
INA 
ISZ 
ISZ 
JMP 
JMP 
CAT24 NOP 
STB 
SZA 
JMP 
LUB 

8ZB 
JMP 

LOA 
JMP 

9 T 
AD 
JS6 
LDA 
CLB 
JMP 



CA T 27 
CAT25 
CAT26 



OLT£M 

»*»3 

CATN 
MLINK*1 
,*?TEMP» 
CATJ 

CATJ,I 
A»I 

CATJ 
CATN 
CAT29 
CAT1 

CATLN 

CAT27 
CATZS 

CAT25 
• +40B 
CAT26 
A CAtZS 
A ASC00 
LOUT 
CATLN 

CAT24, I 



PUT 



'LINK 



RESTORE A 
OF THE NAMfc 



CAT11 LDA CATI 
ADA ,+7 

STA CATI 
LDB 0,1 
SZB,RSS 
JMP CATiUl 
STB WORD 
CMB,INB 
ADB LIBD 
STB CATQ 
INA 

LDB 0,1 
CPB LTEMP 
RSS 



WORD 



GO TO START. 

8AVE REMAINDER 
IS DIGIT ZERO? 
NO, GO PRINT IT 
YES 

IS IT A LEADIN6 ZERO? 
NO, GO PRINT IT 
YES, SUPPRESS IT AND 
PRINT " H 

nonzero t he Suppress flag 

CONSTRUCT Trie CHARACTER 

put out Character 
get remainder 

PREPARE f-OR DIVIDE 
RETURN 

TEST FOR USER DIRECTORY CONTIN, 
U EO ON NEXT DIRECTORY TRACK, 



NEXT TRACK EMPTY, THERE, RON, 



DOES NEXT TRACK BEGIN WITH 
THIS USER? 

YES 



pAGE 0460 #41 CATALOG 



0218 


75313 


027074 




JMP 


CAT13 


0219* 












0220 


7531 4 


0403§7 




ADA 


.♦5 


0221 


75315 


160000 




LOA 


0rl 


0222 


75316 


064566 




LOB 


LIBDI 


0223 


75317 


016231 




JSB 


DRUML 


0224 


75320 


027323 




JMP 


CAT28 


0225 


75321 


060562 




LDA 


LJBO 


0226 


75322 


027066 




JMP 


CAT10 


0227 


75323 


060324 


CAT28 


LOA 


,»22 


0228 


75324 


067326 




LD8 


♦ ♦2 


0229 


75325 


026432 




JMP 


UBfcR 


0230 


75326 


075327 




DEF 


**1 


0231 


75327 


006412 




OCT 


6412 


0232 


75330 
75331 
75332 
75333 
75334 
75335 
75336 
75337 
75340 
75341 


041501 
047047 
052040 
051105 
040504 
020104 
044522 
042503 
052117 
051131 




A3C 


10,CAN«T 


0233 


00034 




CATI 


sou 


LT£MP*4 


0234 


00035 




CAjP 


EQU 


LTEMP*5 


0235 


00036 




CATJ 


EQU 


LTEMP*6 


0236 


00037 




CATN 


EQU 


LTEMP+7 


0237 


00041 




CATQ 


EQU 


LTEMP*9 


0238 


00042 




CATC 


EQU 


LTEMP+10 


0239 


00043 




CATLN 


EQU 


LTEMP+u 


0240 


00044 




CATS 1 


EQU LTEMP+12 


0241 


00045 




CATZS 


EQU 


LTEMP+13 


0242 


75342 


000103 


A S CC 


OCT 


103 


0243 


75343 


000106 


ASCF 


OCT 


106 


0244 


75344 


000120 


ASCP 


OCT 


120 


0245 


75345 


000123 


ASCS 


OCT 


123 


0246 


75346 


075347 


C ATTP 


OfcF 


CATXT 


0247 


75347 
75350 
75351 
75352 
75353 
75354 
75355 
75356 
75357 


020116 
040515 
042440 
fc20040 
020114 
042516 
043524 
044040 
020040 


CATIT 


asc 


g, NAME 


0248 


75360 




SCAT 


EQU 


* 



N0««"QUIT, 

GET DIRECTORY DRUM ADDRESS 



READ DIRECTORY 

ARRGH, GO INFORM GUY (OR GAL) 



LENGTH 
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0250* LIBRARY IS IDENTICAL TO CATALOG EXCEPT ThAT IT USES A000 
0251* AS ID RATHER TH A N THE USER 10, AND PROGR A MS WITH EMBEDDED 
0252* tRROR MESSAGES ARE NOT LISTED, IT MUST BE LOADED IMMEDIATELY 
0253* AFTER CATALOG, GROUP MUST FOLLOW LIBRARY IN SEUUENCE, 



0255 


75000 


ORG LIBRA 




0256 


75000 002400 


CLA 




0257 


75032 


ORG CAT! 




0256 


75032 060612 


LDA A000 




0259 


75033 027047 


JMP CAT2 




0260 


75077 


ORG CAT12 




0261 


75077 060035 


LDA CATP 


CHECK FOR 


0262 


75100 040356 


ADA ,*4 


ILL-STORED 


0263 


75101 160000 


LDA A f I 


PROGRAMS 


0264 


75102 002020 


8SA 




0265 


75103 027064 


JMP CAT22 


DON'T LIST T 
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0267* GROUP IS IDENTICAL TO LIBRARY EXCEPT TH A T IT USES THE 
0268* GROUP LIBRARIAN'S ID INSTEAD OF A000. IT MUST BE LOADED 
0269* IMMEDIATELY AFTER LIBRARY, 



0271 


75000 




ORG 


LIBRA 




0272 


75000 


002400 


CLA 






0273 


75032 




ORG 


CAT1 




0274 


75032 


064273 


LDB 


MLINK* 


1 GET USER ID 


0275 


75033 


044341 


AOB 


.♦?ID« 


?LINK 


0276 


75034 


160001 


LDA 


8,1 




0277 


75035 


010732 


AND 


M2000 


ISOLATE AND 


0278 


75036 


070030 


STA 


LTEMP 


SAVE ALPHABETIC PART 


0279 


75037 


160001 


LDA 


fa, I 




0280 


75040 


010602 


AND 


Bi777 


ISOLATE NUMERICAL PART 


0281 


75041 


006400 


CLB 






0282 


75042 
75043 


100400 

000437 


DIV 


.100 


GET RID 0^ 


2 83 


75044 
75045 


100200 
000437 


MPY 


.100 


TENS AND ONES 


0284 


75046 


030030 


IOR 


LTEMP 


merge in letter 
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0286* 
0287* 
0288* 

0289* 

0290* 

0291* 

0292* 

0293* 

0294* 

0295* 

0296* 

0297* 

0298* 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 



0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
032g 
0326 
0327 

032a 

0329 
033(3 
0331* 

0332 



THE DIRECTORY COMMAND IS AVAILABLE TO USER A000, IT CAUSES THE 
CONTENTS Of THE DISC DIRECTORY TO BE PRINTED ON THE USER'S CONSOLE 
JN THE FOLLOWING FORMAT! 

<ID> <NAME> <PURGE DATE> <FLA63> <LENGTH» <DI3C ADR> <DRUM ADR> 

THE PURGE DATE IS PRINTED AS A 3-01611 INTEGER INDICATING THE DAY 
OF THE YEAR AND A 2-DIGIT INTEGER INDICATING THE YEAR. THE DRUM 
ADDRESS CONSISTS OF 3 INTEGERS INDICATING ORUM, TRACK, 
THE DISC ADDRESS IS A LOGICAL BLOCK NUMBER, THE LENGTH 
FOR PROGRAhS, RECORDS FOR FIi.ES, THESE ARE A^l PRINTED 
TYPING DlR-lD WILL START THE LISTING WITH THAT I D . 



AND SECTOR, 
IS IN WOrDS 
IN DECIMAL, 



75000 
75000 
75001 
75002 
75003 
75004 

75005 
75006 
75007 
75010 
75011 

75012 
75013 
75014 

75015 
75016 
75017 
75020 
75021 
75022 
75 B 23 
75023 
75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75036 

75037 
75040 

75041 
75042 
75043 
75044 



064273 
044341 
160001 
050612 
027023 

060327 
067010 
026432 
075011 
005120 
05U11 
053111 
046105 
043505 
042040 
041517 
046515 
040516 
042040 

002404 
070052 
016164 
027036 
064273 
044336 
160001 
0302sl 
114500 
016315 
026430 

003400 
040052 
064273 
044354 

170001 
116022 
116023 



ORG LIBRA 
LOB MLlNK+1 
AOB .♦?ID-?LINK 



6ET USER'S JO 

A000? 

YES 

NO, NOT ALLOWED 



UDA B,i 

CPA A000 

JMP UDIRI 

LDA ,»19 

LDB **2 

JMP LIBER 

DEF *-U 

OCT 5120 

ASC 9fRIVILEGED COMMAND 



UDIRI EQU * 

CLA,INA 

STA ID 

JSB LCHAR 

jMP UDjR2 

LDB MLINK+1 

ADB ,*?TNUM*?LINK 



INITIALIZE IS IN CASE 

NONE IS SPECIFIED 
GET A CHAR 
CR « START A BEGINNING OF DjR 



BACKSPACE 
BUFFER 
POINTER 
6ET THE ID 

CR must follow 



LDA It I 
IOR BKS 
JSB S14SCrI 
JSB GETID 
JMP ILFER 
UDIR2 EQU * 
CCA 

ADA ID 
LDB MLJNK+1 
ADB ,*7RTIM-?LINK 
STA B,I SAVE PREVIOUS ID 
JSB UHDBA,I OUTPUT THE HEADING 
JSB SCHQU,! AND SUSPEND 



75045 060321 



LDA ,»25 



25 WORDS IN 
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0333 


75046 


070030 


8TA LTEMP 


HEADING 


0334 


75047 


063511 


IDA UDHDA 




0335 


75050 


070031 


sta ltemp+i 




0336 


75051 




UDJR3 EQU * 




0337 


75051 


160031 


LOA LTEMP+l, 


I OUTPUT 


0338 


75052 


001727 


AIF,ALF 




0339 


75053 


010443 


AND B377 


THE 


0340 


75054 


016132 


J38 LOUT 




0341 


75055 


160031 


LOA LTEMP+i, 


I DIRECTORY 


0342 


75056 


010443 


AND B377 




0343 


75057 


016132 


J38 LOUT 


HEADING 


0344 


75060 


034031 


ISZ LTEMP+1 




0345 


75061 


034030 


ISZ LTEMP 




0346 


75062 


027051 


JMP UDIR3 




0347 


75063 


115023 


JS8 SCHQU,! 


3U6PEN0 


0348* 










0349 


75064 


060274 


LOA INF 


SET UP LTEMP10I3J FOR 


0350 


75065 


070031 


STA LTEMP*1 


INITIAL SEARCH 


0351 


75066 


070032 


STA LTEMP+2 




0352 


75067 


070033 


STA LTEMP+3 




0353 


75070 


064273 


L08 MLINK+1 




0354 


75071 


044354 


ADB ,*?RTIM- 


?HNK 


0355 


75072 


160001 


LOA b,i 


RETRIEVE 


0356 


75073 


070030 


8TA LTEMP 


STARTING 10 


0357* 










0358 


75074 




U0IR4 EQU * 




0359 


75074 


116005 


JSB OLOKP,I 


SEARCH OIRECTORY FOR 


0360 


75075 


000000 


NOP 


PREVIOUS ENTRY 


0361 


75076 




UPIR5 EUU * 




0362 


75076 


060035 


LOA LTEMP+5 


MOVE 


0363 


75077 


040366 


AOA ,+12 


TO NEXT 


0364 


75100 


070035 


STA LTEMP+5 


ENTRY 


0365 


75101 


140034 


AOA LTEMP+4, 


I 


0366 


75102 


040674 


ADA MLIBD 




0367 


75103 


002002 


SZA 


END OP TRACK 


0368 


75104 


027123 


JMP U0XR5 


NO 


0369* 










0370 


75105 


064034 


LOB i.TEmP + 4 


YES, BUMP TO 


0371 


75106 


044361 


AOB .+7 


NEXT ONE 


0372 


75107 


150001 


CPA B,I 


LOOP IF EMPTY 


0373 


75110 


027106 


JMP *«2 




0374* 










0375 


751H 


074034 


STB LTEMP+4 




0376 


75U2 


160001 


LOA B,l 




0377 


75113 


070072 


STA WORD 


LENGTH OF TRACK 


0378 


75114 


044360 


ADB ,*6 




0379 


75U5 


160001 


LDA B,I 


DRUM ADDRESS 


0380 


75116 


064566 


LDB LIBOI 


CORE ADDRESS 


0381 


75H7 


016231 


JSB DRUML 


READ IT 


0382 


75120 


027415 


JMP U0jl3 


REAU failure 


0303* 










03s4 


75121 


0605^2 


LOA LIBD 


SET POINTER 


0385 


75122 


070035 


STA LTEMP*5 


TO PlRSf ENTRY 


0366* 










0387 


75123 




U0IR6 EQU * 





PAGE 
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• user console 




0388 


75123 


027130 


JMP UDIR7 


SPACE 




0389 


75124 


000000 


NOP 






0390 


75125 


000000 


NOP 


FOR 




0391 


75126 


000000 


NOP 






0392 


75127 


000000 


NOP 


8DIRECT0RY 




0393 


75130 


UDIR7 


EUU * 






0394 


75130 


160035 


LOA LTEMP+5,1 


GET USER ID 




0395 


75131 


064273 


LOB MLlNK+1 






0396 


75132 


044354 


AD8 ,+?RTlM~?LlNK 




0397 


75133 


170001 


STA B,I 


SAVE IT 




039B 


75134 


050351 


CPA ,«1 


END OF DIRECTORY? 




0399 


75135 


026226 


JMP LLEND 


YES 




0400 


75136 


050030 


CPA UTEMP 


NO, SAME A3 PREVIOUS ONE? 


0401 


75137 


027160 


JMP U0JR8 


YES 




0402* 












0403 


75140 


001323 


RARrRAR 


NO, POSITION 




0404 


75141 


001727 


ALF.ALF 


LETTER 




0405 


75142 


010411 


ANO ,*37B 


KEEp ONLY 5 BUS 




0406 


75143 


040772 


ADA Bi00 


CONVERT TO ASCII 




0407 


75144 


016132 


JSB LOUT 


OUTPUT IT 




0408 


75145 


160035 


LOA LTEMP+5,! 


GET ID AGAjN 




0409 


75146 


010602 


AND B1777 


NUMERICAL PART 




0410 


75147 


006400 


CLB 






0411 


75150 
75151 


100400 
000437 


OjV ,100 


First digit in a, last 


2 


0412 


75152 


074040 


STB LT£MP*8 






0413 


75153 


040432 


ADA . f *«03f.: 


CONVERT TO ASCII 




0414 


75154 


016132 


JSB LOUT 


ANO OUTPUT 




0415 


75155 


060340 


LOA LTEMP+8 


OUTPUT LAST 




0416 


75156 


017434 


JSB UOINM 


TWO DIGITS 




0417 


75157 


027164 


JMP UDIR9 






0418* 












0419 


75160 


U0IH8 


EQU * 






0420 


75160 


063512 


LDA UOISS 


REPLACE 




0421 


75161 


017447 


JSB UOIOW 


ID WITH 




0422 


75162 


063512 


LOA UOISS 


FOUR 




0423 


75163 


017447 


JSB UOJUW 


BLANKS 




0424* 












0425 


75164 


UDIR9 


EUU * 






0426 


75164 


064273 


LDB MUNK*1 






0427 


75165 


044355 


AOB ,+?TEMP^?LINK 




0428 


75166 


074040 


STB LTEMP+8 


•> into tty table 




0429 


75U7 


063&U 


LDA UOISS 


2 BLANKS 




0430 


75170 


017447 


JSB UDIQW 






0431 


75171 


034035 


ISZ LTEMP+5 






0432 


75172 


160035 


LOA LTEMP+5, I 


OUTPUT 3 WOROS 




0433 


75173 


170040 


STA LTEMP+8, I 






0434 


75174 


017447 


JSB UOIOW 






0435 


75175 


034040 


ISZ LTEMP+8 






0436 


75176 


034035 


ISZ LTEMP+5 


OF NAME WHILE 




0437 


75177 


160035 


LDA LTEMP+5, I 






0438 


75200 


170040 


STA LTEMP+8, I 






0439 


75201 


017447 


JSB UOIOW 






0440 


75202 


034040 


ISZ LrEMP*8 


SAVING THEM IN 




0441 


75203 


034035 


ISZ LTEMP+5 







*?■ 
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0442 


75204 


160035 


LDA 


LTEMP+5,1 




0443 


75205 


170040 


STA 


LTEMP+8,1 




0444 


75206 


017447 


JSB 


UDjQW 


"JSER'S 1TY TABLE 


0445 


75207 


063512 


IDA 


UDISS 


2 BLANKS 


0446 


75210 


017447 


JSB 


UDIOW 




0447* 












044a 


75211 


064035 


L08 


LTEMP+5 




0449 


75212 


044354 


ADB 


.♦2 




0450 


75213 


074035 


STB 


LTfcMP+b 


»> DATE 


0451 


75214 


160035 


(.DA 


LtEMP+5,1 




0452 


75215 


010502 


AND 


B777 


GET DAY OF YEAR 


0453 


75216 


00g400 


CLB 






0454 


75217 
75220 


100400 
000364 


DIV 


,♦10 


1ST 2 DIGITS "N A, LAS 


0455 


75221 


074040 


STB 


LTEMP+8 




0456 


75222 


017434 


JSB 


UDINM 


OUTPUT FIRST 2 


0457 


75223 


060040 


LDA 


LTEMP+8 


GET LAST UNE 


0456 


75224 


040432 


ADA 


,♦608 


CONVERT TO ASCII 


0459 


75225 


016132 


JSB 


LOUT 


AND output 


0460 


75226 


060431 


LDA 


,♦578 


»/' 


0461 


75227 


016132 


JSB 


LOUT 




0462 


75230 


160035 


LDA 


ltemp+6,i 




0463 


75231 


001727 


A L F, 


,A L F 


POSITION 


0464 


75232 


001300 


RAR 




YEAR ANu 


0465 


75233 


010441 


AND 


B177 


MASK 


0466 


75234 


017434 


JSB 


UDJNM 


output it 


0467* 












0468 


75235 


063512 


LDA 


UDXSS 


2 BLANKS 


0469 


75236 


017447 


JSB 


UDjQW 




0470 


75237 


064035 


LDB 


LtEMP+5 




0471 


75240 


044347 


ADB 


• -3 


*> SECOND WORD OF NAht 


0472 


75241 


160001 


LOA 


B,I 




0473 


75242 


006004 


IN8 






«474 


75*4^ 


002021 


SSA, 


.RSS 


FILE? 


0475 


75244 


027247 


JMP 


UDI10 


NO 


0476 


75245 


063513 


L DA 


UDIRF 


YES, GET A N »f» 


0477 


75246 


027255 


JMP 


UOIH 




0478 


75247 




UDI10 EQU 


* 




0479 


75247 


160001 


LDA 


B,I 




0480 


75250 


002021 


SSA, 


-RSS 


semi-compiled? 


0481 


75251 


027254 


JMP 


UDIUM 


NO 


0482 


75252 


063514 


LDA 


UDIRC 


YES, GET A 'C« 


0483 


75253 


002001 


R3S 






0484 


75254 


060412 


LDA 


,♦408 


A BLA N K 


0485 


75255 




UDIH tau 


* 




0486 


75255 


044350 


ADB 


.-2 




0487 


75256 


074035 


STB 


LTEMP+B 


■> ist word of name 


0488 


75257 


016132 


JSB 


Lout 


OUTPUT A CHAR 


0489 


75260 


164035 


LDB 


LTEMP+5,1 




0490 


75261 


006021 


SSB, 


'RSS 


protected? 


0491 


75262 


027265 


JMP 


♦ ♦3 


NO 


0492 


75263 


0635j5 


LDA 


UDIRP 


YES, GET A *P« 


0493 


75264 


002001 


RSS 






0494 


75265 


060412 


LDA 


,♦408 


A BLA N K 


0495 


75266 


016132 


JSB 


LOUT 


OUTPUT CHAR 



LAST ONE IN 8 
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0496 

049; 
049a* 

0499 
0500 
0601 
0502 
0503 
0504 
0505 
0506 
0507 

0506 
0509 
0510 
0511 
0612 
0513 

0514 
0515 
0516 
0517 

0510* 

0519 

0520 
0521 
0522 
0523 
0524 

0525 
0526 
0527 
0528 
0529 

0530 

0531 

0532 

0533 

0534* 

0535 

0536 

0537 

0536 

0539 

0g40 

0541 

0542 

0543 

0544 

0545 

0546 



75g67 060412 
75270 016132 



75271 

75272 
75273 
75274 
75275 
75276 
75277 
75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 

75311 
75312 
75313 
75314 
75315 

75316 
75317 
75320 
75321 
75322 
75323 
76324 
75325 
75326 
75327 
75330 
75331 
75332 
75333 
75334 
75335 
75336 

75337 
75340 
75341 
75342 
75343 
753^4 
75345 
75346 
75347 
75350 
75351 
75352 



064035 
044364 
160001 
044347 
074035 
002020 
003004 
006400 
100400 
001032 
074040 
040432 
016132 
060040 
006400 
100400 
000437 
074040 
017434 
060040 
017434 

063512 
017447 
164035 
034035 
160035 
100400 

001032 
074040 
017434 
060040 
006400 
100400 
000437 
074040 
017434 
060040 
017434 

064035 
044350 
074035 
160035 
002003 

027376 
063512 
017447 
169035 

001222 
010355 
040432 



LDA ,*40B 
JSB LOUT 

LOB LTEMP+5 

AOB .+10 

IDA B,I 

Ai)B f »3 

STB LTEMP+5 

SSA 

CMArlNA 

CLB 

DIV DVSRS 

STB LTEMP+8 

ADA ,+60B 

JSB LOUT 

LDA LTEMP+8 

CLB 

DjV ,100 

STB LTEMP+8 
JSB UDINM 
LDA LTEMP+8 
JSB UDJNM 

LDA UDISS 
JSB UDJOW 
LDB LtEMP*5,I 
ISZ LTEMP+5 
LDA LTEMP+5, I 
DIV DVSRS 

STB LTtrtP+6 

JSB UDINM 

loa LTEMP+8 

CLB 

DIV ,100 

STB LTEMP+8 
JSB UDINM 
LDA LTEMP+8 
JSB UDINM 



A BLANK 



•> LENGTH 



L08 

ADB 

STB 

LDA 

3ZA, 

JMP 

LDA 

JSB 

LDA 

ral, 

AND 
ADA 



LTEMP+5 
.-2 

LTEMP+5 

LjEMP+5,1 

RSS 

UDI12 

UDISS 

UDIOW 

LTfcMP«5#l 

RAL 

.♦3 

• +60B 



COMPLEMENT 
IP NEGATIVE 

FIRS1 DIGIT IN A, LAST 4 IN B 



CONVERT TO ASCII 
AND OUTPUT 



digits 2*3 in a, 4«b in b 

OUTPUT 2-3 

OUTPUT 4«5 

2 BLANKS 

GET 
DISC 

ADDRESS 
1ST 2 DIGITS IN A, LAST 4 IN B 

OUTPUT FIRST 2 

DIGITS 3-4 IN A, 5-6 IN 

OUTPUT 3-4 
OUTPUT 5»6 

•> DRUM ADDRESS 



SKIP PRINTING IF ZERO 
2 BLANKS 



drum number 

in lowest 2 bits 
convert to ascxi 
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0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 

0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0566 
0569 

0570 
0571 

0572 
0573 
0574 
0575 
0576 
0577 
0576 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 



75353 
75354 
75355 
75356 
75357 
75360 
75361 

75362 
75363 
75364 
75365 
75366 
75367 

75370 
75371 
75372 
75373 
75374 
75375 
75376 

75376 
75377 

75400 
75401 
75402 
75403 
75404 
75405 
7540g 
75407 
75410 
75411 
75412 
75413 
75414 
75415 

754*5 
75416 
75417 
75420 
75421 
75422 
78423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 



016132 
060431 
016132 
160035 
001727 
010734 
017434 
060431 
016132 
160035 
010441 
006400 
100400 
000437 
074040 
040432 
016132 
060040 
017434 

060375 
016132 
060367 
016132 

060364 
016132 
116023 
064520 
074051 
064273 
044354 
074050 
064346 
016257 
027074 

060324 
067420 
026432 
07542 A 
006412 

041S01 
047047 

052040 
05H05 
040504 
020104 
044522 
042503 
052117 
051131 



J8B LOUT 

LDA ,+57B 

JSB LOUT 

LOA LTEMP+5,1 

ALF,ALP 

AND B77 

UDINM 

.♦57B 

LOUT 

LTEMP+5,i 

B177 



AND 



OUTPUT 



JSB 
LDA 
JSB 
LDA 

AND 
CLB 



STB 
ADA 
JSB 
LDA 
JSB 
UDI12 EQU 
LDA 

JSB 
LDA 

JSB 
LDA 
JSB 
JSB 
LDB 

STB 
L DB 
ApB 
STB 
LDB 
JSB 
JMp 
UDX13 EOU 
LDA 
LDB 
JMp 

DE F 
OCT 
ASC 



.100 



TRACK NUMBER IN 
LOWEST 6 BITS 
OUTPUT IT 
«/• 

SECTOR NUMBER xN 
LOWEST 8 BIT3 

1ST DiGjT JN A, CAST 2 IN B 



CONVERT 1ST DIGIT 

TO ASCII AND OUTPUT 
DvT PyT LAST 2 



X-OFF 



LTEMP+8 

.+60B 

LOUT 

LTEMP+8 

UDINM 

* 

.♦23B 
LOUT 
. + 15B 

LOUT 

.♦128 

LOUT 

SCHQUfl 

DLTEM 

MOVED 
MLlNK+1 
,*?RTIm^?LINK 
MOVES 

,<»4 

MQVEW 

U0IR4 

# 

.-22 

**2 

LIBER 

* + l 

6412 

10, CAN'T READ DIRECTORY 



CR 
LF 

SUSPEND 

MOVE NAME 



FROM TTY 
TABLE TO 
LTEMPIgl3J 



0588* 

0589* 
0590* 
0591 



UDINM CONVERTS A #<100 TO ASCII AND OUTPUTS IT 
75434 000000 UDINM NOP 
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(9592 
0593 

0594 
0595 
0595 
0597 
0598 
0599 

0600 

06101* 

0602* 
0603* 

0604 
0605 
0606 
0607 
0606 
0609 
0610 
0611 
0612 
0613 
0614 



0615 



0616 
0617 
0618 
0619 
06g0 
0621 
0622 
0623 



75435 
75436 

75437 
75440 
75441 
75442 
75443 
75444 
75445 
75446 



006400 
100400 

000364 
074043 
040432 
016132 
060043 
040432 
016132 
127434 



CL8 
DIV 

STB 

ADA 
J3B 
IDA 
ADA 
J3B 
jrtP 



,♦10 

UTEMP+il 

,♦608 

LOUT 

LTEMP+il 

,+60B 

LOUT 

UDINM,I 



UDIOW OUTPUTS THE TWO CHARACTERS OF A WORD 



75447 
75450 
75451 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 
75463 
75464 
75465 
75466 
75467 
75470 
75471 
75472 

75473 
75474 
75475 
75476 
75477 
75500 
75501 
75502 
75503 
75504 
75505 
75506 
75507 
75510 
75511 
75512 

75513 
75514 
75515 
75516 



000000 
070043 
001727 
010443 
016132 
060043 
010443 
016132 
127447 
005040 
044504 
020040 
020040 
047101 
046505 
020040 
020040 
042101 
052105 
020040 
020040 
020114 
042516 
043524 
044040 
020040 
042111 
051503 
020040 
020040 
020104 
051125 

046423 
006412 

075460 

020040 

000106 

000103 

000120 



UDIOW NOP 

sta ltemp+11 
alf,alf 

AND B377 
JSB LOUT 
LDA LTEMP+11 
AND B377 

JSb LOUT 
JMP UDIUW,I 
gOIHD OCj 5040 
A3C 9,iD 



LF. 

NAME 



• BLANK 
DATE 



ASC l3r 



LENGTH DISC 



ORU 



UDhDA 
UDXSS 
UDIRF 
UOIRC 
UDIRP 
SOIRI 



OCT 
OCT 

D fc F 
ASC 
OCT 
OCT 
OCT 
EOU 



46423 
6412 

UDIHD 

If 

106 
103 
120 

* 



rt-XOFF 
CR-LF 



PAGE 0470 #41 SDIRECTQRY • USER CONSOLE 



0625* 
0626* 

0627* 

0626* 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 



SOiR E CTORY IS AVAILABLE TO US£R A000 AND CAUSE& THE 3 A «E PRINTOUT 
A S DIRECTORY, EXCEPT TH A T ONLY S A NcTJFIED PROGRAMS aNO FILES 
(THOSE CURRENTLY RESIDING ON THE DRUM) ARE U3TED, SDIRECTORY 
HUST FOLLOW DIRECTORY, 



75000 
75000 
75123 
75123 
75124 
75125 
75126 
75127 



064273 

060035 
040361 
160000 
002003 
027076 



ORG LIBRA 
L&B MLlNK+l 
ORG UDIR6 
LDA LTEMP+5 
ADA ,*7 
ID* A, I 
SZA'RSS 
JMP UDIR5 



IS 

THIS 
ENTRY 

SANCTIFIED? 
NO# LOOK AT NEXT ONE 
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0002* 
0003* 
0004* 

0005* 

0006* 

0007 
0006 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 



0019 
0020 

0021 
0022 
0023 
0024 
0025 
0026 
0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038* 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 



THE REPORT COMMAND IS AVAILABLE TO USER A000 AND CAUSES IDT INFO 
TO BE LISTED UN THE USER CONSOLE, EACH USER ID Is LISTED, ALONG 
WITH THE DISC AND TImE USEO TU DATE. DISC STORAGE IS L^TED In 
WORDS, AND TIME IS LISTED IN MINUTES. 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
7501b 
75016 
75017 
75020 
75021 
75022 
75023 
75023 
75024 
75025 
75026 
75027 
75030 
75031 

75<332 
75033 
75034 
75035 
75036 
75036 
75037 
75040 
75041 
75042 
75043 

75044 
75045 
75046 
75047 
75050 
75050 
75051 
75052 
75053 
75054 



064273 
044341 
160001 
050612 
027023 
060327 
067010 
026432 
075011 
005120 
051111 
053U1 
046105 
043505 
042040 
041517 
046515 
040516 
042040 

002404 
070052 
016164 
027036 
064273 
044336 
160301 
0302 5 1 
114500 
016315 
026430 

060052 
064273 
044354 
170001 
116022 
116023 

063353 

070040 
063314 
070041 

160041 
001727 

010443 
016132 
160041 



ORG 
LDB 
ADB 
LDA 
CPA 

JMP 
LDA 

LOB 
JMP 
DEF 
OCT 
ASC 



UREPl 



UREP2 



LIBRA 

MLINK+1 

.♦?ID-?LINK 



A000 
UREpl 
19 



GET |D 
A000? 
YES 
NU, NOT 



• ♦2 
LIBER 

*+l 

5120 

9,RlVlLEGED COMMAND 



ALLOWED 



EGU * 
CLA,INA 
STA ID 



JSB 
JMp 
LDB 
ADB 
LOA 
IOR 
JSB 
JSB 
JMP 
EQU 
LDA 
LDB 
AdB 
STA 
JSB 
JSB 



DEFAULT ID 

OF t«l 
GET FIRS T CR 
CR 



LCHAR 

UREp2 

MLINK+1 

.♦?TNUM«?LINK 

B,I BACKSPACE 

BKS IN BUFFER 

S14SC,I 

GETID 

ILFER 

* 

ID 

MLlNK+1 

t +?RTIM-?LINK 

BrI " 

OUTPOT HEADING 
AND SUSPEND 



GET THE STARTING ID 



SAVE 
ID 



STARTING 



UHDBA,I 
SCHOU,I 



30 WORDS 

IN HEADING 
*> FIRST ONE 



LDA URE30 

STA LTfcMP+8 

LDA URHDA 

STA lTEmP*9 

UREP3 EUU * 

LDA LTEMP+9,i OUTPUT 

AlF,AlF 

AND B377 

JSB LOUT REPORT 

LDA LTEMP*9,I 
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0049 


75055 


010443 




AND 


8377 




0050 


75056 


016132 




JSB 


LOUT 


HEADING 


0051 


75057 


034041 




ISZ 


LTEMP+9 




0052 


75060 


034040 




I3Z 


LTEMP+8 




0053 


75061 


027050 




JMP 


UREP3 


AND SUSPEND 


0054 


75062 


116023 




JSB 


SCHOU,I 




0055* 














0056 


75063 




URE22 


EQU 


* 




0057 


75063 


064273 




LDB 


MLXNK+1 




0056 


75064 


044354 




A08 


.♦?RUM- 


7LINK 


0059 


75065 


160001 




IDA 


B,I 


RETRIEVE 


0060 


75066 


070052 




STA 


ID 


STARTING ID 


0061 


75067 


016370 




JSB 


GTJL 


FIND WHAT TRACK IT'S ON 


0062 


75070 


060347 




LDA 


.-3 


3 ID'S 


0063 


75071 


070035 




STa 


LTEMP+5 


PER LINE 


0064 


75072 


060076 




IDA 


IOLNP 


GET POINTER TO LENGTH WORD 


0065 


75073 




UREp4 


EQU 


* 




0066 


75073 


070030 




STA 


LTEMP 


SAVE LIVE TABLE ENTRr 


0067 


75074 


164000 




LOB 


A, I 


GET TRACK LENGjH 


0066 


75075 


006002 




SZB 




SKIP I? ZkSU 


0069 


75076 


027103 




JMP 


UREP5 




0070 


75077 




URE21 


EQU 


* 




0071 


75077 


053354 




CPA 


URDCL 


LAST ID TRACKV 


0072 


75100 


027256 




JMp 


URE15 




i0fd7i 


75101 


040355 




ADA 


.♦3 


NO» ADVANCE TO NEXT ONE 


0074 


75102 


027073 




JMP 


UREP4 




0075 


75103 




UKEP5 


EQU 


* 




0076 


75103 


074072 




STB 


WORD 


SAVE ACTUAL LENGTH 


fd\677 


75104 


007004 




CMB, 


INB 




0078 


75105 


044562 




AOB 


LIBD 


MAKE POINTER TO LAST ENTRY 


0079 


75106 


074032 




STB 


LTEMP+2 




0080 


75107 


003400 




CCA 






0081 


75110 


040030 




ADA 


LTEMp 




0082 


75111 


160000 




LOA 


A»t 


GET DRUM address 


0063 


75112 


064566 




l ob 


LlBDi 




0084 


75113 


016231 




JSB 


DRgML 


READ IT IN 


0085 


75114 


116015 




JSB 


SICKP,I 




0086 


75U5 


060562 




LOA 


LIBO 




0087 


75116 




UREP6 


EQU 


* 




0088 


75116 


050032 




CPA 


LTEMP+2 


ChECk FOR END 


0089 


75117 


027127 




JMP 


UR£25 


NOT ON THIS TRACK 


0090 


75120 


164000 




LOB 


A, I 


GET ID 


0091 


75121 


007000 




CMB 






0092 


/5122 


044052 




ADB 


ID 




0093 


75123 


0060 2 




SSB 




ARE WE PAST YET? 


0094 


75124 


027144 




JMP 


UREP9 




0095 


75125 


040362 




ADA 


,♦8 




0096 


75126 


027116 




JMP 


UREP6 




0097 


75127 




URE25 


EQU 


* 




0098 


75127 


060030 




LDA 


LTEMP 




0099 


75130 


027077 




JMP 


URE21 




0100 


75131 




UkEn 


EQU 


* 




0101 


75131 


074072 




STB 


WORD 


SAVE LENGTH 


0102 


75132 


007004 




CMB, 


,INB 




0103 


75133 


044562 




AOB 


LIBD 


MAKE POINTER TO LAST WORD 
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0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112* 

0113 

0114 

0115 

0116 

0117 

0116 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0126 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0136 
0139 
014tf 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0146 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 



75134 
75135 
75136 
75137 
75140 
75141 
75142 
75143 

75144 
75144 
75145 
75146 
75147 
75150 

75151 
75152 
75153 
75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75210 
75211 
75212 
75213 
75214 
75215 
75216 
75217 
75220 



074032 
003400 
040030 
160000 
064566 
016231 
116015 
060562 



070034 
160034 
064273 
044354 
170001 
001121 
001727 
010411 
040772 
016132 
160034 
010602 
006400 
100400 
000437 
074040 
040432 
016132 
060040 
017261 
060034 
040357 
070034 
060412 
016132 
160034 
017274 
034034 
034034 
060412 
016132 
160034 
017274 
060412 
016132 
060412 
016132 
060412 
016132 
060412 
016132 
060034 
002004 
050032 
002001 



USER CONSOLE 




8?B LTEMP+2 




CCA 




AQA LTEMP 




IDA A, I 


DRUM ADDRESS 


LOB LIBDI 


CORE ADDRESS 


JSB DRUML 




JSB SICKP,I 




LOA HBO 





UREP9 EQU * 

STA LTEMP+4 

LDA LTEMP*4,I GET ID 

LDB MUNK + 1 

ADB ,+?RTlM-?LlNK 



STA ti,l 
ARS,ARS 
ALF,ALF 
AND ,+37B 
ADA Bigg 
JSB LOUT 



SAVE ID 
SHIFT 
LETTER 
TO 4.0 
ASCII OFFSET 
OUTPUT IT 



LDA LTEMP+4,1 GET ID AGAIN 



AND B1777 

CLB 

DIV ,100 

STB LTEMP+8 
ADA .4-60B 
JSB LOUT 
LDA LTEMP+8 
JSB URENM 
LDA LTEMP+4 
ADA ,+5 
STA LTEMP+4 
LDA ,+406 
JSB LOUT 
LDA LTEMP+4,1 
JSB URETK 
I3Z LTEMP+4 
I3Z LTEMP*4 
LDA ,+40B 
JSB LOUT 
LDA LTEMP*4,I 

JSB URETR 
L DA t *40B 

J3B LOUT 
tDA ,+40B 

JSB LOUT 
LDA ,+40B 

JSB LOUT 
UOA ,*40B 

JSB LOUT 
LDA LTEMP+4 

INA 

CPA LTEMP+2 

RSS 



MASK NUMBER PART 

1ST DIGIT IN A, LAST 2 IN 6 



OUTPUT 1ST 

OUTPUT L A ST 2 
*> TIME 
USED 
AREA 
BLANK 

GET TIME 

OUTPUT IT 
■> DISC 

USED 
BLANK 

GET DISC 
OUTPUT IT 
FOUR 



BLANKS 



BUMp To NEXT ID 

DONE? 

YES 
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0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 

8166 
0167 
0166 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 

0193 
0194 

0195* 
0196* 
0197* 

0198 
0199 

2 00 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208* 

0209* 

0210* 

0211 



75221 
75222 
75222 
75223 
75224 
75225 
75226 
75227 
75230 
75231 
75232 
75233 
75234 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 
75244 
75245 
75246 
75247 
75247 
75250 
75251 
75252 
75252 
75253 
75254 
75255 
75256 
75256 
75257 
75260 



027247 

060030 
053354 
027252 
040355 
070030 
16400B 
006003 

027222 

034035 
027131 

060375 
016132 
060367 
016132 
060364 

016132 
064273 
044354 
134001 
116023 
027063 

034035 
027144 
027234 

060375 
016132 
060367 
016132 

060364 
016132 
026226 



URE10 



UKE13 



URE12 



UHE14 



URE15 



JMP 

EQU 
LDA 
CpA 
JMP 

ADA 
8TA 

LOB 
SZB 
JMP 
I3Z 
JMP 
EQU 
LDA 
JSB 
LOA 
JSB 
LDA 
JSB 
LDB 
ADB 
I3Z 
JSB 
JMP 
EQU 
X 8Z 
JMP 
JMP 
EQU 
LDA 
JSB 
LDA 
JSB 
EQU 

LDA 
JSB 

JMP 



URE12 

* 

ltemp 

URDCL 
URE14 
.♦3 
LTEMP 
A'l 
,RS3 
UR&10 
LTEMP+ 

URUl 

* 

,♦238 

LOUT 

, + 15B 

LOUT 

.♦12B 

LOUT 

MLINK+ 

.♦?KTJ 

B,I 

SCHOU, 

URE22 

* 

LTEMP* 

URgP9 

URE13 

* 

,♦238 

LOUT 

.♦15B 

LOUT 

* 

, + i2B 

LOUT 
LLEND 



NO, GO CHECK FOR ROOM 

NO, LAST 

ID TRACK? 
YES, DONE 
NO, ADVANCE TO 

next iDEc entry 

GET COUNT ON THIS TRaCK 
IF ZERO, CHECK 
NEXT ONE 
5 ANY ROOM LEFT ON LINE 
YES 

XOFF 

CR 

LF 

1 

M»?HNK 

BUMP ID 
I SUSPEND 



END OF LINE 

NO, yO ANOTHER ENTRY 

YES, GO SUSPEND 

X-QhF 
CR 



LP 

U F AND END 



URENM CONVERTS * #«lfc)0 TO ASCII AND OUTPUTS IT 



75261 
75262 

75263 
75264 
75265 
75266 
75267 
75270 
75271 
75272 
75273 



000000 
006400 
10040U 
000364 
074043 
040432 
016132 
060043 
040432 
016132 
127261 



URENM 



NOP 
CLB 

UIV 

STB 

ADA 

JSb 
LDA 

ADA 
JSB 
JMP 



.♦10 

LTEMP+11 

,+60B 

LOUT 

LTEMP+11 

• ♦60B 

LOUT 

URENM,! 



URETR OUTPUTS A 5-DIGIT NUMBER 
75274 000000 URETR NOP 
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0212 


75275 


006400 




CLB 






0213 


75276 
75277 


100400 
001032 




DiV 


DVSRS 




0214 


75300 


074044 




STB 


LTEMPM2 




0215 


75301 


040432 




ADA 


, + 6tfB 




0216 


75302 


016132 




JSB 


LUUT 


1ST DIGIT 


0217 


75303 


060044 




LDA 


LTEMPM2 




0218 


75304 


006400 




CUB 






0219 


75305 
75306 


100400 
000437 




DIV 


• 100 




0220 


75307 


074044 




STB 


LTEMP+12 




0221 


75310 


017261 




J36 


URENM 


DIGITS 2-3 


0222 


75311 


060044 




LDA 


LTEMP+12 




0223 


75312 


017261 




JS B 


URENM 


DIGITS 4-5 


0224 


75313 


127274 




JMP 


URETR, I 




0225 


75314 


075315 


URHDA 


DEF 


URPHD 




0226 


75315 


005040 


URpHO 


OCT 


5040 




0227 


75316 


044504 




ASC 


20, id time space 




75317 


020040 












75320 


0521U 












75321 


046500 












75322 


020040 












75323 


051520 












75324 


040503 












75325 


042440 












75326 


020040 












75327 


020040 












75330 


044504 












75331 


020040 












75332 


052111 












75333 


046505 












75334 


020040 












75335 


051520 












75336 


040503 












75337 


042440 












75340 


020040 












75341 


020040 










0228 


75342 


0445^4 




ASC 


7, ID TIME SPAC 




75343 


020040 












75344 


052111 












75345 


046505 












75346 


020040 












75347 


051520 












75350 


040503 










022 9 


75351 


0424g3 




OCT 


042423 


E«XOFF 


0230 


75352 


006412 




OCT 


6412 


LR-LF 


0231 


75353 


177742 


URE30 


DEC 


.30 




0232 


75354 


000110 


URDCL 


DEF 


IOEC+8 




0233 


7535b 




SREPS 


EQU 


* 





ID TIME SPACE 
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0235* 


THE STATUS COMMAND, 


AVAILABLE TO 


USER A000, PRINT 


0236* 


SYSTEM RESOURCES, A NO THE EXTENT 


OF THEIR UTILIZa 


0237* 


USER ( 


:onsqle. 








0238* 












0239 


75000 




ORG 


LIBRA 




0240 


75000 


064273 


lob 


MLJNK+1 




0241 


75001 


044341 


ADB 


,+?id«?link 


0242 


75002 


160001 


loa 


B,I 


GET ID 


0243 


75003 


050612 


CPA 


A000 


A000? 


0244 


75004 


027023 


JMP 


USTA0 


YES 


0245 


75005 


060327 


LDA 


,-19 


NO# NOT ALLOWED 


0246 


75006 


067010 


LOB 


*♦? 




0247 


75007 


026432 


JMP 


LIBER 




0248 


75010 


0750U 


DEF 


**i 




0249 


750U 


005120 


OCT 


5120 




0250 


75012 


051111 


ASC 


9,RIVILEGE0 COMMAND 




75013 


053111 










75014 


046105 










75015 


043505 










75016 


042040 










75017 


041517 










75020 


046515 










75021 


040516 










75022 


042040 








0251 


75023 


USTA0 


EQU 


* 




0252 


75023 


116022 


JSB 


UHDBA,I 


PRINT HEAUING 


0253 


75024 


116023 


JSB 


SCMOU,i 


AND SUSPEND 


0254* 












0255 


75025 


017656 


JSB 


USTST 


LPfMAG* 


0256 


75026 


005115 


OCT 


5115 




0257 


75027 
75030 


040507 
036440 


AsC 


2,AG» 




0258 


75031 


000000 


OCT 







0259 


75032 


060176 


LOA 


MAGSC 


MAGTAPE 


0260 


75033 


017701 


J8B 


USTOC 


SELECT COOE 


0261 


75034 


064176 


LOB 


MAGSC 




0262 


75035 


060424 


LOA 


,♦528 


• *• 


0263 


75036 


006020 


SSB 




SKIP IF 3030 


0264 


75037 


016132 


JSB 


LOyT 


SNQwFLAKE FOR 7 


0265 


75040 


017656 


JSB 


USTST 




0266 


75041 
75042 
75043 
75044 


020040 
042122 
052515 

036440 


ASC 


4, DRUM" 


i 


0267 


75045 


000000 


OCT 







0268 


75046 


060346 


LOA 


,•4 


DRUM 


0269 


75047 


070036 


STA 


LTEMP+6 


COUNTER 


0270 


75050 


U8TA1 


EGU 


* 




0271 


75050 


060036 


LOA 


LjEMP+6 




0272 


75051 


040356 


AOA 


.♦4 




0273 


75052 


040676 


ADA 


7ATBL 




0274 


75053 


160000 


LOA 


0.1 


GET SELECT COOE 


0275 


75054 


010734 


AND 


B77 


mask and 


0276 


75055 


017701 


JSB 


USTQC 


OUTPUT 


0277 


75056 


060412 


LOA 


,♦408 


BLANK 



A SUMMARY Of 
:ON, ON THE 



7970 



PAGE 


047/ #42 STATUS - USER 


consou 




0278 


75057 


016132 


JSB 


LOUT 




0279 


75060 


034036 


ISZ 


LTEMP+6 


DONE? 


0280 


75061 


027050 


JMP 


USTA1 


NO 


0281 


75062 


017745 


JSB 


XCRLF 




0282 


75063 


U6023 


JSB 


SCHUU,I 


SUSPEND 


0283 


75064 


017656 


JSB 


U8TST 




0284 


75065 


005104 


OCT 


5104 


LF»0 


0285 


75066 
75067 


044523 
041523 


ASC 


2,1SCS 




0286 


75070 


01U15 


OCT 


1U15 


XQFF-CR 


0287 


75071 


005040 


OCT 


5040 


LF-8LANK 


0288 


75072 


020114 


ASC 


19, LOGICAL SELECT 




75073 


047507 










75074 


044503 










75075 


040514 










75076 


020040 










75077 


051505 










75100 


046105 










75101 


041524 










75102 


020040 










75103 


020125 










75104 


047111 










75105 


052040 










75106 


020040 










75107 


0431U 










75110 


051123 










75111 


052040 










75112 


020040 










75113 


046101 










75U4 


051524 








0289 


75115 


011415 


OCT 


11415 


X«»Qf-F»CR 


0290 


75116 


005040 


OCT 


5040 


LF. BLANK 


0291 


75117 
75120 
75121 
75122 
75123 
75124 
75125 
75126 
75127 
75130 
75131 
75132 

75133 
75134 
75135 
75136 
75137 
75140 
75141 
75142 


020040 
052516 
044524 
020040 
020040 
020103 
047504 
042440 
020040 
047125 
046302 
042522 
020040 
04U14 
047503 
045440 
020040 
041114 
047503 
045440 


AsC 


20, UNIT 


CODE 


0292 


75143 


000000 


OCT 







0293 


75144 


017745 


JSB 


XCRLF 


X 0FF«CR-LF 


0294 


75145 


116023 


JSB 


SChOU, I 


SUSPEND 



UNIT FIRST LAST 



NUMBER BLOCK tiLOCK 



page 


0478 #42 STa 


TUS m USER 


CONSOLE 




0295 


75146 


002400 


CLA 




FOR LOGICAL 


0296 


75147 


070030 


STA 


LTEMP 


DISC 


0297 


75150 




USTA4 EUU 


* 




0298 


75150 


060030 


LDA 


LtEMP 


FINISHED 


0299 


75151 


050362 


CpA 


,♦8 


ALL DISCS? 


0300 


75152 


027266 


JMp 


USTA5 


YES 


0301 


75153 
75154 


100200 
000360 


MPY 


.♦6 


NO 


0302 


75155 


040210 


ADA 


mhad 




0303 


75156 


040354 


AOA 


• ♦2 




0304 


75J57 


164000 


LDB 


A, I 




0305 


75160 


164001 


LDB 


6,1 


GET SELECT CODE 


0306 


75161 


006003 


SZB, 


RSS 




0307 


75162 


027264 


JMP 


USTA5-2 


SKIP IF ZERO 


0308 


75163 


070031 


STA 


LTEMP*1 




0309 


75164 


017666 


J98 


UST8T 


4 BLANKS 


0310 


75165 
75166 


020040 
020040 


ASC 


2, 




0311 


75167 


000000 


OCT 







0312 


75170 


060412 


IDA 


,♦408 


BLANK 


0313 


75171 


016132 


JSB 


LOUT 




0314 


75172 


060030 


LDA 


LTEMP 


LOGICAL DISC NUMBER 


0315 


75173 


017710 


JSB 


USTDG 




0316 


75174 


017656 


JSB 


USTST 


6 BLANKS 


0317 


75175 
75176 
75177 


020040 
020040 
020040 


ASC 


3, 




0318 


75200 


000000 


OCT 







0319 


75201 


060412 


LDA 


,♦408 


BLANK 


0320 


75202 


016132 


JSB 


LOUT 




0321 


75203 


160031 


LDA 


LTEMP*1,I 




0322 


75204 


160000 


LDA 


A, I 




0323 


75205 


001727 


ALF, 


ALF 




0324 


75206 


010734 


and 


B77 




0325 


75207 


017701 


jSB 


USTOC 


SE L ECT CODE 


0326 


75210 


017656 


JSB 


USTST 


6 B U A N KS 


0327 


75211 
75212 
75213 


020040 
02004f 
020040 


ASC 


3, 




0328 


75214 


000000 


OCT 







0329 


75215 


160031 


LDA 


LTEMP+1,1 




0330 


75216 


160000 


LDA 


A, I 




0331 


75217 


010355 


And 


.+3 




0332 


75220 


017710 


JSB 


USTDg 


UNIT NUMBER 


0333 


75221 


017656 


JSB 


USTST 


4 B U An*8 


0334 


75222 
75223 


020040 
020040 


ASC 


2, 




0335 


75224 


000000 


OCT 







0336 


75225 


060412 


LDA 


,♦408 


BLANK 


0337 


75226 


016132 


JSB 


LOUT 




0338 


75227 


060031 


LDA 


LTEMP*! 


GET SECTOR 


0339 


75230 


040350 


ADA 


.-2 




0340 


75231 


164000 


LDB 


A/ I 


AOURESS OF 


0341 


75232 


002004 


INA 






<>342 


75233 


160000 


LOA 


A, I 


THIS DISC 
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0343 


75234 


004065 


cut, 


-ERB 


CONVfcRT 


0344 


75235 


001540 


ERA* 


-CLE 


TO BLOCKS 


0345 


75236 


040356 


ADA 


.♦4 


FIRST AVAILABLE 


0346 


75237 


002040 


SEZ 




BLOCK IS #4 


0347 


75240 


006004 


IN8 






0348 


75241 


017716 


JSB 


UST6D 


FIRST BLOCK 


0349 


75242 


017656 


JSB 


USTST 


2 BLANKS 


0350 


75243 


020040 


ASC 


I, 




0351 


75244 


000000 


OCT 







0352 


75245 


060031 


LOA 


LTEMP+i 


GET SECTOR 


0353 


75246 


040356 


AOA 


,♦4 




0354 


75247 


164000 


LDB 


A, I 


ADDRESS OF 


0355 


75250 


002004 


INA 






0356 


75251 


160000 


LDA 


A,l 


NEXT DISC 


0357 


75252 


004065 


CLE, 


-ERB 


CONVERT 


0356 


75253 


001540 


ERA, 


-CLE 


TO BLOCKS 


0359 


75254 


040351 


ADA 


t-1 


LAST BLOCK 


0360 


75255 


002041 


SEZ, 


-RSS 


IS 1 LESS 


0361 


75256 


044351 


ADB 


.-1 




0362 


75257 


017716 


JSB 


UST6D 


LAST BLOCK 


0363 


75260 


017745 


JSB 


xcrlf 


XOFF»CR-lF 


0364 


75261 


017755 


JSB 


USTSV 


SAVE VARIABLES 


0365 


75262 


116023 


JSB 


SCHOU,I 


SUSPEND 


0366 


75263 


017766 


JSB 


USTRV 


RETRIEVE VARIABLES 


0367 


75264 


034030 


ISZ 


LTEMP 




0368 


75265 


027150 


JMP 


USTA4 




0369 


75266 




USTA5 EQU 


* 




0370 


75266 


017656 


JSB 


USTST 




0371 


75267 


005114 


OCT 


5114 




0372 


75270 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 


047503 
045505 
042040 
042122 
052515 
020124 
051101 
041513 
051440 


ASC 


9,0CKED 


DRUM TRACKS 


0373 


753idl 


000000 


OCT 







0374 


75302 


017745 


JSB 


XCRLF 




0375 


75303 


002400 


CIA 






0376 


75304 


070030 


STA 


LTEMP 


TRACK « (0.63) 


0377 


75305 


070032 


8TA 


LTEMP*2 


DRUM « (0.3) 


0378 


75306 


002404 


CIA, 


rINA 




0379 


75307 


070031 


STA 


LTEMP+1 


MASK 


0380 


75310 




USTA6 EQU 


# 




0381 


75310 


060676 


LDA 


7ATBL 




0382 


75311 


040032 


ADA 


LTEMP*2 




0383 


75312 


164000 


LOB 


A, I 


is drum 


0384 


75313 


006003 


8ZB, 


-RSS 


PRESENT? 


0385 


75314 


027410 


JMP 


UST15 


NO 


0386 


75315 




USTA7 EQU 


* 




0387 


75315 


002400 


CLA 




YES, INITIALIZE 


0388 


75316 


070034 


STA 


LTEMP+4 


COUNT OF ENIRIES 


0389 


75317 




USTA8 EQU 


* 
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0390 


75317 


017604 


JSB U3TTZ 


TEST THIS TRACK 


0391 


75320 


002001 


RSS 


UNLOCKED 


0392 


75321 


027325 


JMP USTA9 


LOCKED 


0393 


75322 


017621 


J3B USTBP 


BUMP POINTERS 


0394 


75323 


027401 


JMP UST14 


END OF DRuM 


0395 


75324 


027317 


JMP USTA8 




0396 


75325 




USTA9 EQU * 




0397 


75325 


002400 


CUA 




0398 


75326 


050034 


CPA LtEMP*4 


FIRSj ENTRY ON LINE? 


0399 


75327 


002001 


RSS 


Y68 


0400 


75330 


027335 


JMP UST10 


NO 


0401 


75331 


060032 


LOA LTEMP+2 


. OUTPUT 


0402 


75332 


017710 


jSB USTDG 


DRUM # 


0403 


75333 


060436 


IOA B72 


•J' 


0404 


75334 


016132 


JSB LOUT 




0405 


75335 




UST10 EQU * 




0406 


75335 


017656 


JSB USTST 


2 BLANKS 


0407 


75336 


020040 


A3C J, 




0408 


75337 


000000 


OCT 




0409 


75340 


060030 


LOA LTEMP 


OUTPUT TRACK « 


0410 


75341 


017672 


JSB UST8D 




0411 


75342 


034034 


I3z LTEMP*4 




0412 


75343 


017621 


jSB USTBP 


BUMP POINTERS 


0413 


75344 


027401 


JMP UST14 


END OF DRUM 


0414 


75345 


017604 


JSB USTTZ 


TEST nE*T TRACK 


0415 


75346 


027362 


jMP UST12 


UNLOCKED (ONLY ONE) 


0416 


75347 




USTH EQU * 




0417 


75347 


017621 


JSB USTBP 


LOCKED, BUMP POINTERS 


0418 


75350 


027376 


JMP UST13 


END OF DRUM 


0419 


75351 


017604 


JSB USTTZ 


TEST NEXT TRACK 


0420 


75352 


002001 


RSS 


UNLOCKED 


0421 


75353 


027347 


JMP USUI 


LOCKED, CO TO NEXT ONE 


0422 


75354 


060427 


LOA ,*55B 


'-' 


0423 


7 5355 


016132 


JSB LOUT 




0424 


7 5356 


003400 


CCA 




0425 


75357 


040030 


AD* LTgMP 


OUTPUT TRACK # 


0426 


75360 


017672 


JSB UST20 




0427 


75361 


034034 


I8Z LTgMP+4 




0428 


75362 




UST12 EQU * 




0429 


75362 


017621 


JSB USTBP 


BUMP POINTERS 


0430 


75363 


0274el 


JMP uBt! 4 


END OF DRyM 


0431 


75364 


060034 


lda LTIMP+4 


MORE ROOM 


0432 


75365 


040332 


ADA ,.16 


ON THIS 


0433 


75366 


002020 


S3A 


LINE? 


0434 


75367 


027317 


JMP USTA8 


YES 


0435 


75370 


017745 


JSB XCRLF 


NO 


0436 


75371 


017755 


jSB USTSV 


3AVE VARIABLES 


0437 


75372 


116023 


JSB SCHOU,I 


SUSPEND 


0438 


75373 


017766 


JSB USTRV 


RETRIEVE VARIABLES 


0439 


75374 


027315 


JMP USTA7 




0440 


75375 




UST13 EQU * 




0441 


75375 


060427 


LOA •♦65B 


• • • 


0442 


75376 


016132 


JSB LOUT 




0443 


75377 


063634 


LDA US. 63 


LAST TRACK IS 63 


0444 


75400 


017672 


JSB UST2D 
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0445 
0446 
0447 
0446 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 



0464 
0465 
0466 
0467 
0466 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 

0477 
0478 
0479 
0480 
0481 

0482 
4 83 
0484 
0485 
0486 
0487 

0488 
0489 



75401 
75401 
75402 
75403 
75404 
75405 
75406 
75407 
75410 
75410 
754U 
75412 
75413 
75414 
75415 
75416 
75416 
75417 
75420 
75421 
75422 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 
75434 
75435 
75436 
75437 
75437 
75440 
75441 
75442 
75443 
75444 

75445 
75446 
76447 

75450 
75450 
75451 
75452 

7545 3 
75454 

75455 
75456 
75457 
75460 
75461 
75462 



060034 
002003 
027410 
017745 
017755 
116023 
017766 

060032 
002004 
050356 
027416 
070032 
027310 

017656 
005114 

047503 
045505 
042040 
042111 
051503 
020102 
046117 
041513 
051440 

000000 
017745 

116023 
002400 
070034 
060210 

070030 
060562 
070031 
060030 
040354 
164000 

164001 
00§003 

027551 

104200 
100030 
000065 

00t540 
044355 

002040 

002004 

104400 
000046 
060762 
070215 



UST14 EOU * 

IDA LTEMP+4 

SZA,RSS 

JMP UST15 

JSB XCRIF 

JStJ USTSV 

JSB SCHqU/I 

J$B USTRV 
UST15 £QU * 

LDA LTEMP+2 

INA 

CPA ,+4 

JMP UST16 

STA LTEMP+2 

JMP USTA6 
UST16 EQU * 

JSB UST8T 

OCT 5114 

ASC 9,QCKED DISC BLOCKS 



skip printing blank line 
save variables 

SU3p£ N D 

RETRIEVE VARIABLES 



BUMP DRUM « 
DONE 



UST17 



UST18 



OCT 




JSB yCRLF 


X 0FF«CR^LF 


JSB SCMOU,I 


SUSPEND 


CLA 




STA LTEMP+4 




LUA MHAD 


• > HRS1 DISC 


EQU * 




STA LTEMP 




LDA LIBD 


INITIALIZE 


STA LTEMP+t 


BUFFER POINTER 


LDA LTEMP 




ADA f+ 2 




LDB A, I 




LDB B,I 


GET SELECT CODE 


SZB,RSS 




JMP UST22 


DISC NOT PRESENT 


EUU * 




OLD LTEMP,! 


COMPUTE 


CLE, ERA 




ERB,CLE 


ADDRESS 


ADB ,+3 




SEZ 


OF BAD 


INA 




DST LTEMP*U 


BLOCKS 


LDA M256 




STA MWORD 
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0490 


75463 


063777 


UOA U0L14 




0491 


75464 


064566 


LDB LIBDI 




0492 


75465 


114217 


J3B DlSCZrl 


READ BAD BLOCKS 


0493 


75466 


027641 


JMP USTER 




0494 


75467 


002400 


CLA 


PUT ZERO AT 


0495 


75470 


173636 


ST* UST«V,I 


buffer end 


0496 


75471 




UST19 EQU * 




0497 


75471 


160031 


LDA LTEMP+l,I 


GET LOCKED BLOCK ADDRESS 


0498 


75472 


002004 


SZA,NS5 




0499 


75473 


027551 


JMP uST22 


IF ZERO, FINISHED TABLE 


0500 


75474 
75475 


104200 
100030 


DLO LTEMp,I 


COMPUTE 


0501 


75476 


000069 


CLE, ERA 




0502 


75477 


005540 


ERB,CL£ 


LOGICAL 


0503 


75500 


144031 


ADB LT£MP*1,I 




0504 


75501 


002040 


SEZ 


BLOCK 


0505 


75502 


002004 


INA 




0506 


75503 


101100 


SWP 


ADDRESS 


0507 


75504 
75505 


104400 
000040 


DST UEMp+14 




050a 


75506 


017716 


J8B U3T6D 


FIRST BLOCK 


0509 


75507 


034031 


I3Z LTEMP+1 




0510 


75510 


003400 


CCA 




0511 


75511 


140031 


ADA LT£MP*1,I 




0512 


75512 


002003 


SZA,RSS 


IF ONLY ONE EloCk, DON'T 


0513 


75513 


027527 


JMP UST20 


print second address 


0514 


75514 


070035 


3TA lTfcMP*5 




0515 


75515 


0604S7 


IDA ,*55B 


t.t 


0516 


75516 


016132 


JS8 LOUT 




0517 


75517 
75520 


104200 
000046 


Oi.0 tTEMP+14 


COMPUTE 


0518 


75521 


000040 


CUE 


LAST 


0519 


75522 


040035 


AOA ITEMP+5 


BLOCK 


0&20 


75523 


002040 


SEZ 


ADDRESS 


0521 


75524 


006004 


INB 




0522 


75525 


017716 


JSB UST60 


OUTPUT IT 


0523 


75526 


002404 


CIA, INA 


UPDATE 


0524 


75527 




UST20 EQU * 




0525 


75527 


002004 


INA 


COUNT OF 


0526 


75530 


040024 


ApA LT£MP*4 




0527 


75531 


070034 


SJA LTEMP+4 


ENxRIEg ON LINE 


0528 


75532 


034031 


I3Z LTEMP+1 




0529 


75533 


040342 


AOA ,»e 




0530 


75534 


002021 


SSA,RSS 




0531 


75535 


027542 


JMP UST21 


PRINT FULL LINE 


0532 


75536 


017656 


JSB USTST 


2 BLANKS 


w533 


75537 


020040 


ASC l, 




0534 


75540 


000000 


OCT 




0535 


75541 


027471 


JMP U3Tl» 




0536 


75542 




U3T21 EQU * 




0537 


75542 


017745 


j38 XCRLF 


xqpf*cr*lf 


0538 


75543 


017755 


J3» U3T3V 


SAVE VARIABLES 


0539 


75544 


116023 


J3B SCHOU,I 


SUSPEND 


0540 


75545 


017766 


JSB USTRV 


RESTORE VARIABLES 


0541 


75546 


002400 


CLA 


rD8£T ENTRY 
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0542 
»543 
0544 
0545 
0546 
0547 
0546 
0549 

0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 



0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566* 

0567* 

0566* 

0569* 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583* 

058^* 

0585* 

0566* 
0587 

0586 
0589 
0590 



75547 

75550 
75551 
75551 
75552 
75553 
75554 
75555 
75556 
75557 
75560 
75561 
75562 
75563 
75564 
75565 
75566 
75567 
75570 
75571 
75572 
75573 
75574 
75575 
75576 
75577 
75600 
75601 
75602 
75603 



070034 
82/450 

060030 
040360 
064210 
044432 
050001 
002001 
027437 
060034 
002002 
017745 
017656 
005H4 
044516 
042440 
050122 
044516 
052105 
051040 
036440 

000000 
103100 
064273 
044351 
134001 
060506 
002004 
127635 



UST22 



STA 

JMP 
EQU 
LDA 
ADA 
LOB 
AD8 
CPA 
RSS 
JMP 
IDA 
SZA 
JSB 
JSB 
OCT 
A3C 



LTEMP+4 
UST18 
* 
LTEMP 

.♦5 

MHAD 

,+48 
8 

USTi7 
LTEMP+4 



COUNTER 



NEXT DISC 



FINISHED 

YES 

NO 



ALL b 



XCRLF 
USTST 
5114 

7, Ink 



NON-BLANK LINE 



PRINTER ■ 



OCT 
C U F 
LDB 
ADB 

ISZ 

LDA 

INA 
JMP 





MLINK+i 

t *?STAT*?LlNK 

&,l SET S1 A TU3 TO OVERLAY 

#HB# RESTART ADDRESS 

SO #OUTC WILL WORK 
USTSO,I 



USTTZ TESTS 
IF 1. 



THE CURRENT TRAX POSITION, EXIT TO (P*l) If- 0, (P + 2 ) 



75604 
75605 
75606 
75607 
75610 
75611 
75612 
75613 
75614 
75615 
75616 
75617 
75620 



000000 
064032 
005222 
044512 
060030 
001121 
001121 
044000 
160001 
010031 
002002 
037604 
127604 



USTTZ NOP 

LDB LTEMP+2 
RBLrRBu 
ADB DTRAx 
LOA LTEMP 
ARS,ARS 
ARS,ARS 



ADB 
LDA 
AND 
SZA 
ISZ 
JMP 



A 

U'l 
LTEMp+1 

USTTZ 
USTTZ, I 



DRUM # 

MULTJPLY SY 4 

p> 1ST TRA X ELEMENT 



POSITION IN TRAX 

MASK 

EXISTS TO P*l 

1 EXISTS TO P*2 



USTBP BUMPS THE POINTERS TO THE TRaX TABLEt IT EXITS TO (P*l) IF 
A DRUM IS FINISHED, OTHERWISE TO CP*2), 



75621 000000 

75622 06003; 

75623 001200 

75624 070031 



USTBP 



NOP 
LDA 

RAL 
STA 



LTEmP+1 
LTEMP+1 



MASK 
ROTATE IT 
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0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 



75625 
75626 
75627 
75630 
75631 
75632 
75633 

75634 
75635 
75636 



060030 
002004 

050772 
002401 
037621 
070030 
127621 

mmn 

071662 
001630 



US.63 
USTSO 
USTUV 



LOA LTEMP 

INA 

QPA Bl00 

CLA,R§S 

I3Z USTBP 

STA LTEMP 

JMP USTBP,! 

DEC 63 

UEf SCHSQ 

DEF LlBUS+256 



BUMp TRACK 
FINISHED A 
YES, SET 
NO, EXIT 



# 

DRUM? 
TRACK M TO ZERO 
TO (P*g) 
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0602 
0603 
0604 
0605 
0606 
0607 
0608 



0609* 

0610* 

0611* 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624* 

0625* 

0626* 

0627 

0628 

0629 

0630 

0631 

0632 

0633* 

0634* 

0635* 

0636 

0637 

0638 

0639 

0640 

0641 

0642* 

0643* 

0644* 

0645 

0646 

0647 



ORG UBRA*512«95 
USTER lOA ,«18 
LOB *+2 
JMP LIBER 
OEF **i 
OCT 6412 
ASC 8, CAN'T READ TABLE 



75641 

75641 060330 

75642 067644 

75643 026432 

75644 075645 

75645 006412 

75646 041501 

75647 047047 

75650 052040 

75651 051105 

75652 040504 

75653 020124 

75654 040502 

75655 046105 



USTST OUTPUTS A STRJNG 

75656 000000 USTST NOP 

75657 163656 LDA USTST,! 

75660 002003 SZAfRSS 

75661 127656 JMP USTST, I 

75662 001727 ALF,ALF 

75663 010443 AND 8377 

75664 016132 JSB LOUT 

75665 163656 LOA USTST, I 

75666 010443 AND B377 

75667 016132 JSB LOUT 

75670 037666 jSZ USTST 

75671 027657 JMP USTST*1 

UST2D OUTPUTS A 2.DIGIT NUMBER 



ZERO IS 
END 



RIGHT CHAR 



75672 
75673 
75674 
75675 
75676 
75677 
75700 



000000 
006400 
100400 
000364 
017710 
017710 

127672 



UST20 



NOP 
CLB 
OIV 

JSB 
JSB 
JMP 



,♦10 

USTOG 
U3TDG 
UST2U,I 



USTOC OUTPUTS A 2»OIGIT OCTAL INTEGER 



75701 000000 USTOC NOP 



75702 
75703 
75704 
75705 
75706 
75707 



006400 
100400 
000362 
017710 
017710 
127701 



CLB 
DIV 

JSB 
JSB 
JMP 



UST DG OUTPUTS A DIGIT 



75710 000000 

75711 074040 

75712 040432 



USTDG 



NOP 
STB 
ADA 



.♦8 

USTOG 
USTOG 
USIOC, 



LTEMP+8 
,+608 
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0648 

0649 

0650 

0651* 

0652* 

0653* 

0654 

0655 

0656 
065; 
0658 
0659 
0660 

0661 

0662 

0663 

0664 

0665 

0666* 

0667* 

0668* 

0669 

0670 

0671 

0672 
0673 

0674 

0675 

0676 

0677* 

0678* 

0679* 

0680 

0681 

0682 

0683 
0664 

0685 

0686 

0687 

0686* 

0689* 

0690* 

0691 

0692 

0693 

0694 

0695 

0696 

1*697 

0696 

0699 



75713 
75714 
75715 



016132 
060040 
127710 



J8B 

LDA 
JMP 



LOUT 

LTEMP+8 

USTDG,! 



UST60 OUTPUTS A 6„DIGIT NUMBER 



75716 
75717 
75720 
75721 
75722 
75723 
75724 
75725 
75726 
75727 
75730 
75731 
75732 
75733 



000000 
100400 
001032 
074037 
017672 
060037 
006400 
100400 
000437 
074037 
017672 
060037 
017672 
127716 



U8T60 NOP 

OIV DV8RS 

ST8 LTEMP+7 

J8B U8T20 

LOA LTEMP+7 

CLB 

pIV ,100 

STB LTEMP+7 

JSB UST2D 

LOA LTEMP+7 

JSB U8T2D 

JMP U3T6D,I 



DIGITS 1-2 



DIGITS 5-6 



UST30 OUTPUTS A 3-OIGIT NUMBER 



75734 000000 

75735 006400 

75736 100400 

75737 000437 

75740 017710 

75741 017672 

75742 604l2 

75743 016132 

75744 127734 



UST30 



NOP 
CLB 
DIV 



100 



JSB USTOG 
JSB U3T20 
LOA .+40B 
JSB LOUT 
JMP U3T3D,J 



DIGIT 1 
DIGITS 2-3 

BLANK 



XCRLF OUTPUTS X-QFF, CARRIAGE RETURN AND LINEFEED 



75745 

75746 
75747 

75750 
75751 

75752 
75753 
75754 



000000 XCRLF NOP 



06»375 
016132 

060367 
016132 

060364 
016132 
127745 



LDA ,*2 3 B 
JSB LOUT 
LOA ,*l5B 

JSB LOUT 
LDA ,*12B 

JSB LOUT 
JMP XCRLFfI 



XQFF 

CR 

CF 



USTSV SAVES STATUS VARIABLES 



75755 000000 

75756 064273 

75757 044355 

75760 07405J 

75761 064520 

75762 07*050 

75763 064347 

75764 016257 

75765 127755 



USTSV NOP 

LOB mLInK+1 

adb ,*?tEmp-?link 

stb moved 

lob dltem 

stb moves 

LDB ,.3 

JSB MOVEW 

JMP USTSV, I 
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0700* 
0701* 


USTRV 


RESTORES STATUS VARIABLES 


0702* 










0703 


75766 


000000 


USTRV 


NOP 


0704 


75767 


064273 




LOB MLlNK+i 


0705 


75770 


044355 




A|)B ,4.?TEMP-?UNK 


0706 


75771 


074050 




STB MOVES 


V7Q7 


75772 


064520 




LOB DLTEM 


0708 


75773 


074051 




STB MOVED 


0709 


75774 


064347 




LOB ,„3 


0710 


75775 


016257 




JSB MOVEW 


0711 


75776 


127766 




JMP USTRV, I 


0712 


75777 


000046 


UDL14 


DEF LTEMP+14 


0713 


76000 




$8TA$ 


EQU * 
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0002 


75000 




ORG 


LIBRA 




0003 


75000 


060250 


LDA 


LPS 


GET THE WINE 


0004 


75001 


114500 


jSB 


S14SCI 


PRINTER STATUS 


0005 


75002 


102311 


SF3 


Ch2 


FROM ThE I/O 


0006 


75003 


027002 


JMP 


*«1 


PROCESSOR 


0007 


75004 


1025H 


HA 


CH2 


A * STATUS 


0008 


75005 


070030 


STA 


LTEMP 




0009 


75006 


010734 


AND 


B77 


A • SELECT CODE 


0010 


75007 


017701 


JS8 


U3T0C 


OUTPUT THE 3C 


0011 


75010 


060424 


LDA 


.♦52B 


A i '*' 


0012 


75011 


064030 


LOB 


LT&MP 


B » LP STATUS 


0013 


75012 


006020 


SSB 




CHECK FOR 2610A LP 


0014 


75013 


016132 


JSB 


LOUT 


Yg8 • OUTPUT •*' 


0015 


75014 


060424 


LOA 


,+528 


A ■ «*' 


0016 


75015 


064030 


LOe 


LTEMP 




0017 


75016 


005200 


R»l 






0018 


75017 


006020 


SSB 




CHECK FOR 2767a LP 


0019 


75020 


016132 


J3B 


LOUT 


YES « OUTPUT '*' 


0020 


75021 


017656 


jSB 


U8TST 




0021 


75022 


020040 


ASC 


5, USER • 




75023 


020040 










75024 


052523 










75025 


042522 










75026 


020075 








U022 


75027 


000000 


OCT 







0023 


75030 


064255 


lob 


PRIST 


GET USER INOICATOR AnO 


0024 


75031 


006003 


SZB, 


,RS3 


check fur use 


0025 


75032 


027036 


JMP 


USTA2 


no 


0026 


75033 


160001 


LDA 


B,I 


YES, 


0027 


75034 


001727 


ALF, 


.ALF 


OUTPUT 


0028 


75035 


017672 


JSB 


UST20 


USER TTY# 


0099 


75036 


017745 


USTAg JSB 


XCRLF 




0030 


75037 


017686 


JSB 


U8TST 




0031 


75040 


006111 


OCT 


5111 




0032 


75041 
75042 


042124 
020040 


ASC 


2,DT 




0033 


75 43 


000000 


OCT 







0034 


75044 


060347 


LOA 


,w3 


3 IDT 


0035 


75045 


070033 


STA 


LTEMP+3 


TRACKS 


0036 


75046 


067631 


LOB 


USTID 




0037 


75047 


074034 


STB 


LTEMP+4 




0038 


75050 




UST30 EQU 


* 




0039 


75050 


160034 


LOA 


LTEMP+4, I 


GET ADDRESS 


0040 


75051 


034034 


isz 


LTEMP+4 




0041 


75052 


002003 


SZA, 


,HSS 




0042 


75053 


027056 


JMP 


UST31 


SKIP IF gERO 


0043 


75054 


164034 


L08 


LTEMP+4, I 


GET LENGTH 


0044 


75055 


017447 


JSB 


USTLL 


OUTPUT THEM 


0045 


75056 




UST31 EQU 


* 




0046 


75056 


034034 


IsZ 


ltemp+4 




0047 


75057 


034034 


ISZ 


LTEMP+4 




0048 


75060 


034033 


m 


LTtMP+3 




0049 


75061 


027050 


JMP 


U3T30 




0050 


75062 


017745 


JSB 


XCRLF 


XOFF-CR-LF 


0051 


75063 


017656 


JSB 


USTST 
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0052 


75064 


006412 


OCT 


6412 


CR-LF 


0053 


75065 
75066 


040504 
052040 


ASC 


2,ADT 




0054 


75067 


000000 


OCT 







0055 


75070 


060112 


IDA 


ADLOC 


OUTPUT AQT 


0056 


75071 


064113 


LDB 


AOLEN 


AOORESS AND 


0057 


75 72 


017447 


JSB 


USTLL 


LENGTH 


0058* 












0059 


75073 


017745 


JSB 


XCRLF 




0060 


75074 


017666 


J SB 


USTST 




0061 


75075 


005104 


OCT 


5104 




0062 


75076 


044523 


ASC 


4, ISC ADTS 




75077 


041440 










75100 


040504 










75101 


052123 








0063 


75102 


000000 


OCT 







0064 


75103 


017745 


JSB 


XCRLF 




0065 


75104 


116023 


JS6 


SCHQU,I 




0066 


75105 


060346 


IDA 


,«4 


4 PER 


0067 


75106 


070033 


STA 


LTEMP+3 


LINE 


0066 


75107 


067626 


LOB 


USTDC 


•> 1ST DISC ADT 


0069 


75110 




UST32 EQU 


* 




0070 


75110 


074030 


STB 


Ltemp 




0071 


75111 


160030 


LDA 


LTEMP,I 


GET ADDRESS 


0072 


75112 


002003 


S*A, 


,RSS 




0073 


75113 


027125 


jmp 


US T 33 


SKIP IF ZERO 


0074 


75114 


064030 


LOB 


LTEMP 




0075 


75115 


044362 


ADB 


.♦DADLN. 


DADLC 


0076 


75116 


164001 


LDB 


8a 


GET LENGTH 


dfi77 


75H7 


017447 


JSB 


USTLL 


OUTPUT THEM 


0078 


75120 


034033 


XSZ 


LTEMP+3 


LINE FULL 


0079 


75121 


027125 


JMP 


UST33 


NO 


0080 


75122 


0J7745 


JSB 


XCRLF 


Y ES 


0081 


75123 


060346 


LDA 


f mA 




0082 


75124 


07e033 


STA 


LTEMP+3 




0083 


75125 




UST33 Euu 


* 




0084 


75125 


064030 


LDB 


LjEMP 




0085 


75126 


006004 


INB 






0086 


75127 


057632 


CPB 


uStdl 


FINISHED AuL DISC ADiS? 


0087 


75130 


002001 


RSS 




YES 


0088 


75131 


027110 


JMP 


UST32 


NO 


0089 


75132 


060033 


LDA 


LTEMP+3 




0090 


75133 


050346 


CPA 


.-4 




0091 


75l3 4 


002001 


RSS 




SKIP BLANK LINE 


0092 


75135 


01774s 


JSB 


XCRLF 




0093 


75136 


116023 


JSB 


SCHQU,! 




0094* 












0095 


75137 


017696 


JSB 


USTST 




0096 


75U0 


005104 


OCT 


5104 




0097 


75141 
75142 


044522 
042503 


ASC 


2,IREC 




0098 


76143 


000000 


OCT 







0099 


75144 


017745 


JSB 


XCRLF 




0100 


75145 


060346 


LDA 


.-4 


4 PER 


0101 


75146 


070033 


8TA 


LTEMP+3 


LINE 
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0102 


75^7 


067624 


LDS 


UST06 


*> 1ST DIREC ENTRY 


0103 


75150 




UST34 EQU 


* 




0104 


75150 


074030 


STB 


LTEMP 




0105 


75151 


160030 


IDA 


ltemp,i 


qET address 


0106 


75152 


002003 


SZA, 


>RSS 




0107 


75153 


027170 


JMP 


UST35 


SKIP IF ZERO 


0108 


75154 


064030 


ldb 


LTEMP 




0109 


75155 


044344 


A08 


,-6 




0110 


75156 


164^01 


LDB 


B,I 


QET LENGTH 


0111 


76167 


017447 


JSB 


USTLL 


OUTPUT THEM 


0112 


75160 


034033 


ISZ 


LTgMP+3 


UNe FULL 


0113 


75161 


027170 


JMP 


UST35 


NO 


0114 


75162 


017745 


JSB 


XCRLF 


Y E3,X0FF»CR«CF 


0115 


75163 


017755 


JSB 


U3T8V 




0116 


75164 


116023 


JS8 


SCMOU,! 


SUSPEND 


0117 


75165 


017766 


JSB 


U3TRV 


RESTORE VARIABLES 


0118 


75166 


060346 


LDA 


.•4 




0119 


75167 


070033 


STA 


LTEMP+3 




0120 


75170 




UST35 EQU 


* 




0121 


75170 


064030 


LOB 


LTEMP 




0122 


75171 


044361 


AOB 


.♦7 




0123 


75172 


057625 


CPB 


U3T0U 


FINISHED A LL DiREC ENTRIES? 


0124 


75173 


002001 


RSS 




YES 


0125 


75174 


027150 


JMP 


UST34 


NO 


0126 


75175 


060033 


to* 


LTEMP+3 




0127 


75176 


050346 


CPA 


.-4 




0128 


75177 


002001 


RSS 




SKIP PRINTING OF BLANK LINE 


0129 


752019 


017745 


JSB 


XCRLF 




0130 


75201 


017656 


JSB 


UST8T 




0131 


75202 


005123 


OCT 


5123 




0132 


75203 
75204 
75205 


054523 
052105 

046440 


ASC 


3,YSTEm 




0133 


75206 


000000 


OCT 







0134 


75207 


002400 


CUA 






0135 


75210 


070033 


STA 


LTEMP+3 


SET COMPARE DRUM ADDRESS 


0136 


752H 


067627 


LOB 


U3TTB 


B *> BEGINNING OF COM TABLE 


0137 


75212 




UST50 EQU 


* 




0138 


75212 


074034 


SjB 


LtEMP+4 




0139 


75213 


160001 


LDA 


B,I 


GET THE NEXT U8ED DRUM ADDRESS 


0140 


752J4 


010764 


AND 


M128 


MASK OFF THE StCTOR PART 


0141 


75215 


050033 


CPA 


LTEMP+3 


IS IT ALREAOY PRINTED? 


0142 


75216 


027221 


JMP 


U3T36 


YES 


0143 


75217 


070033 


STA 


LTEMP+3 


NO 


0144 


75220 


017464 


JSB 


USTDS 




0145 


75221 




UST36 EQU 


* 




0146 


75221 


06403^ 


LOB 


LTEMP+4 


GET COM TABLE POINTER 


0147 


75222 


006004 


INB 




ADVANCE TO NEXT ENTRY 


0148 


75223 


057630 


CPB 


U3TTE 


CHECK FOR END OF TABLE 


0149 


75224 


002001 


RSS 






0150 


75225 


027212 


JMP 


UST50 


SCAN ON 


0151 


75226 


017746 


JSB 


XCRLF 




0152 


75227 


017656 


JSB 


U3T8T 




0153 


75230 


005125 


OCT 


5125 




0154 


75231 


051505 


ASC 


2,SERS 
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75232 


051123 










0155 


75233 


000000 


OCT 









0156 


75234 


017745 


JSB 


XCRLF 






0157 


75235 


116023 


JSB 


8CHOU,I 






0158 


75236 


060342 


LDA 


,-8 


8 PER 




0159 


75237 


070033 


STA 


LTEMP+3 


LINE 




0160 


75240 


067633 


LDB 


U3T8W 


i> DISC ADDRESS FOR 


TTY00 


0161 


75241 




UST37 EQU 


* 






0162 


75241 


074030 


3T8 


LTEMP 






0163 


75242 


160030 


IDA 


LTEMP, I 


SET ADDRESS 




0164 


75243 


002003 


SZA, 


,RSS 






0165 


75244 


027263 


JMP 


UST39 


DONE IF ZERO 




0166 


75245 


017464 


JSB 


USTDS 


OUTPUT IT 




0167 


75246 


034033 


ISZ 


LTEMP+3 


LINE FULL? 




0168 


75247 


027256 


JMP 


U3T38 


NO 




0169 


75250 


017745 


JSB 


XCRLF 






0170 


75251 


017755 


JSB 


USTSV 


YES 




0171 


75252 


116023 


JSB 


SCMQU,I 






0172 


75253 


017766 


JSB 


USTRV 






0173 


75254 


060342 


IDA 


t "® 






0174 


75255 


070033 


STA 


LTEMP+3 






0175 


75256 




U3T38 EQU 


* 






0176 


75256 


064030 


LDB 


LTEMP 






0177 


75257 


044375 


AOB 


.+TTY01* 


TTY00 




0178 


75260 


057634 


CPB 


USTU3 


FINISHED ALL USERS 




0179 


75261 


002001 


RSS 




YES 




0180 


75262 


027241 


JMP 


UST37 


NO 




0181 


75263 




UST39 EQU 


* 






0182 


75263 


060033 


IDA 


LTEMP+3 






0183 


75264 


050342 


CpA 


,-8 






0184 


75265 


002001 


RSS 




SKIP BLANK LINE 




0185 


75266 


017745 


JSB 


XCRLF 






0186* 














0187 


75267 


017656 


JSB 


USTST 






0188 


75270 


005104 


OCT 


5104 






0189 


75271 


044523 


ASC 


7, ISC ALLOCATION 






75272 


04144k) 












75273 


040514 












75274 


046117 












75275 


041501 












75276 


052111 












75277 


047516 










0190 


753*0 


011415 


OCT 


1U15 


XOFF»CR 




0191 


75301 


005012 


OCT 


5012 


LF.LF 




0192 


75302 
75303 
75304 


020040 
044504 
052040 


ASC 


3, IOT 






01»3 


75305 


000000 


OCT 









0194 


75306 


017745 


JSB 


XCRLF 






0195 


75307 


017554 


JSB 


USTDR 


REAO OAT 




0196 


75310 


060347 


IDA 


• -3 


3 ENTKIES 




0197 


75311 


064356 


LOB 


.♦4 


•> 1ST IDT ENTRY 




0198 


75312 


017505 


JSB 


USTDA 


PRINT IDT 




0199 


75313 


116023 


JSB 


8CH0U,I 


SUSPEND 




0200 


75314 


017656 


JSB 


USTST 
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0201 


75315 


005040 


OCT 


5040 




0202 


75316 


020104 


A3C 


5, DISC AOT 




75317 


044523 










75320 


041440 










75321 


040504 










75322 


052040 








0203 


75323 


000000 


OCT 







0204 


75324 


017745 


JSB 


XCRLF 




0205 


75325 


017554 


JSB 


U8TDR 


READ OAT 


0206 


75326 


060342 


LOA 


,«8 


S ENTRIES 


0207 


75327 


064367 


LOB 


. + 13 


«> 1st oisc apt entry 


020S 


75330 


017505 


JSB 


USTOA 


SET Up BUFFER FqR AOT 


0209 


75331 


017656 


JSB 


USTST 




0210 


75332 


005040 


OCT 


5040 


LF-BLANK 


0211 


75333 
75334 
75335 


020104 
044522 
042503 


A3C 


3, OIREC 




0212 


75336 


000000 


OCT 







0213 


75337 


017745 


JSB 


XCRLF 


XOFF-LR-LF 


0214 


75340 


116023 


JSB 


3CMQU,I 


SUSPEND 


0215 


75341 


017554 


JSB 


U8T0R 


READ DAT 


0216 


75342 


060342 


LOA 


,•8 


8 rEr 


0217 


75343 


070033 


STA 


LTEmP*3 


LIn& 


0218 


75344 


064562 


LOB 


LIBO 




0219 


75345 


044417 


AOB 


,♦37 


*» 1ST OiREC EaiTRY 


0220 


75346 




UST40 fcUU 


* 




0221 


75346 


017520 


JSB 


UST3R 


call save room subroutine 


0222 


75347 


027361 


JMP 


UST41 


ZERO OISC A00RE3S 


0223 


75350 


034033 


I3Z 


LTEMP+3 


LINE FULL? 


0224 


75351 


027361 


JMP 


UST41 


NO 


0225 


75352 


017745 


JSB 


XCRLF 


ves 


0226 


75353 


01775b 


JSB 


usrsv 




0227 


75354 


116023 


J3B 


SCHqU,! 


SUSP^D 


0228 


75355 


017766 


JSB 


USTRV 




0229 


75356 


060342 


LpA 


.-8 




0230 


75357 


070033 


STA 


LTEMp+3 




0231 


75360 


017554 


J 3 B 


USTDK 


READ OAj AGAIN 


0232 


75361 




UST41 EQU 


* 




0233 


75361 


064030 


LDB 


LjEMP 




0234 


75362 


044355 


AUB 


.♦3 




0235 


75363 


060207 


lda 


datln 




0236 


75364 


003004 


CMA, 


-INA 




0237 


75365 


002004 


INA 






0238 


75366 


040562 


AOA 


UtiD 




0239 


75367 


054000 


CPB 


A 


FINISHED ALL ENTRIES? 


0240 


75370 


002001 


RSS 




YES 


0241 


75371 


027346 


JMP 


UST40 


NO 


0242 


75372 


060033 


LOA 


LTEMP*3 




0243 


75373 


050342 


CpA 


,-* 




0244 


75374 


002001 


RS3 




SKIP BLANK LINfc 


0245 


75375 


017745 


JSB 


XCRLF 




0246 


75376 


017656 


JSB 


USTST 




0247 


75377 


005040 


OCT 


5040 




0248 


75400 
75401 


020123 
054523 


ASC 


4, SYSTEM 
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75402 




75403 


0249 


75404 


0250 


75405 


Id25l 


75406 


0252 


75407 


0253 


75410 


0254 


75411 


0255 


75412 


0256 


75413 


0257 


75414 




75415 


0258 


754*6 


0259 


754*7 


0250 


75420 


0261 


75421 


0262 


75422 


0263 


75423 


0264 


75424 


0265 


75425 


0266 


75426 


0267 


75427 


0268 


7543" 


0269 


75431 


0270 


75432 


0271 


75433 


0272 


75434 


0273 


75435 


0274 


75436 


0275 


75437 


0276 


75440 


0277 


75441 


0278 


75442 


0279 


75443 


0280 


75444 


0281 


75445 


0282 


75446 



052105 

046440 

000000 
017745 

116023 
017554 
064562 
160001 
070033 
006004 
104200 
100001 
101100 

017716 
060412 
016132 
060033 
017734 
017656 
020040 
000000 
064205 

044355 
074030 

060346 
017573 
017755 
116023 
017766 
060345 
017573 
017755 
116023 
0J7766 
060346 
017573 
026226 



OCT 




JSB xCRLF 




JSB SCMQU,I 




JSB USTDR 


GET OAT BACr, 


105 1150 




LOA B,I 




SjA LjEMP+3 


SAVE LENGTH 


INB 




DUO B,J 


GET ADDRESS OF 


SWP 


SYSTEM LIBRARY 


JSB USTfcD 


OUTPUT IT 


LOA ,*40B 


BLANK 


JSB LOUT 




LOA LTEMP+3 


OUTPUT 


JSB UST30 


LENGTH 


JSB U3TST 


2 bla n ks 


ASC if 




OCT 




LOB LOBSA 


GET POINTER 


ADB ,+3 


TO 1ST DISC 


STB LTEMP 


ADDRESS IN SST 


LOA ,-4 




JSB USTSS 


SEGMENTS 1»4 


JSB USTSV 




JSB SCHOU,I 




JSB USTRV 




LOA ,„5 




JSB USTSS 


3EGMENTS 5»9 


JSB USTSV 




JSB SCHOU,I 




JSB USTRV 




LOA t ,4 




JSB uStSS 


SEGMENTS 10-13 


JMP LLfcNO 
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0284* 

0288* 

0286* 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 
0295 

0296 

0297 

0298 

0299* 

0300* 

0301* 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310* 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319* 

0320* 

0321* 

0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 

0330 

0331 

0332 

0333 

0334 

0335* 

0336* 

0337* 



USTU OUTPUTS A DRUM LOCATION AND LENGTH 



75447 
75450 
75451 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 
75463 



000000 
074035 
017464 
060035 
003004 
006400 
100400 
001033 
017710 
017734 

060412 
016132 

127447 



USTLL NOP 

STB LTEMP*5 

JSB USTOS 

LDA LTEMP*5 

CMA,INA 

CIS 

DIV DVSRS*1 

JSB USTDG 

JSB UST3D 

LOA ,*40B 

JSB LOUT 

JMP USTLLfJ 



SAVE LENGTH 
OUTPUT ORUm ADDRESS 
GET LENGTH 
HAKE pOslTlVE 



1ST DIGIT 
LAST 3 0IGIT8 
BLANK 



USTOS OUTPUTS A DRUM ADDRESS AS 8 CHARS FOLLOWED BY A BLANK 



754©4 
75465 
75466 
75467 
75470 
75471 
75472 
75473 
75474 

75475 
75476 
75477 
75500 
75501 
75502 
75503 
75504 



000000 
070036 
001222 
010355 
017710 
060431 
016132 
060036 
001727 

010734 
017672 

060431 
016132 
060036 
010441 
017734 
127464 



USTDS NOP 
STA 
RAL 
AND 
JSB 
LDA 
JSB 

IDA 
ALF 
AND 
JSB 
LDA 
JSB 
LDA 
AND 
JSB 
JMP 



LT£MP*6 
,RAL 

t*3 

USTDG 

.♦57B 

LOUT 

LTEMP*6 
,ALP 

B77 

USTjjD 

,*07B 

LOUT 

LTEMP+6 

B177 

UST3D 

USTDS, I 



GET DRUM* 
•/• 

GET TRACK* 
GET SECTOR * 



USTDA PRINTS DISC ALLOCATION FOR TMfe IOT AND DISC ADT 



75505 
75506 

75507 
75510 
75510 
75511 
75512 
75512 

75513 
75514 

75515 
75516 
75517 



00000)0 
070033 
044562 

017520 
000000 

064030 
044355 
034033 
027510 
017745 
127505 



USTOA NOP 
STA 
AqB 

USTD1 EUU 
JSB 
NOP 

USTD2 EQU 
LOB 
ADB 
ISZ 
JMP 
JSB 
JMP 



LTEMP+3 

USD 

* 

USTSR 

* 
LTEMP 

.♦3 

LTEMP*3 

USTDl 
XCRLF 
USTDA,I 



OF ENTRIES 

*> 1ST ONE WE WANT 

CALL SUBROUTINE THAT SaVES ROOM 



*» NEXT ONE 

FINI8HE0* 

NO 

YES 



SUBROUTINE TO SAVE ENOUGH ROOH YHAT THIS ROUTINE NIIL PIT 
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0336 


75520 


000000 


USTSR 


NOP 




0339 


75521 


074030 




STB LTEMP 




0340 


75522 
75523 


104200 
100030 




OLD LTEMP,! 


GET DISC ADDRESS 


0341 


75524 


002003 




SZA,R3S 




0342 


75525 


006002 




SZB 




0343 


75526 


002001 




RSS 




0344 


75527 


127520 




JMP USTSR, I 




0345 


75530 


101100 




SWP 




0346 


75531 


017716 




JSB UST6D 


OUTPUT IT 


0347 


75532 


017656 




JSB USTST 


2 BLANKS 


034a 


75533 


020040 




A3C 1, 




0349 


75534 


000000 




OCT 




0350 


75535 


037520 




ISZ USTSR 




0351 


75536 


127520 




JMP USTSR, I 




0352* 












0353* 


USTBR 


READS THE BOOTSTRAP 




0354* 












0355 


75537 


000000 


USTBR 


NOP 




0356 


75540 


060750 




LDA M512 




0357 


75541 


070215 




STA MWQRD 


LENGTH 


0358 


75542 


002400 




CLA 




0359 


75543 


006404 




CLB, INB 




0360 


75544 
75545 


104400 
000046 




D8T L1£MP*14 


disc address 


0361 


75546 


064205 




LDB LDBSA 


CORE ADDRESS 


0362 


75547 


045036 




AOB BIT15 




0363 


75550 


063777 




LDA UDL14 




0364 


75551 


114217 




JSB DIsCZ,I 


READ It 


0365 


75552 


027641 




JMp USTER 




0366 


75553 


127537 




JMp USTBR, I 




0367* 












0368* 


USTDR 


READS THE DISC ALLOCATION ' 


TABLE 


0369* 












0370 


75554 


000000 


USTDR 


NOP 




0371 


75555 


017537 




JSB USTBR 


READ BOOTSTRAP 


0372 


75556 


064206 




LD B LSTd a 




0373 


75557 


044354 




ADB ,*2 




k)374 


75560 
75561 


104200 
100001 




OLD 8,1 




0375 


75562 
75563 


^04400 
000046 




D3T LTEMP*j4 


ADDRESS OF DAT 


0376 


75564 


063777 




LDA UDL14 


*> DISC ADDRESS 


0377 


75565 


064207 




LDB DA T LN 




0378 


7^66 


074215 




STB MWORD 


LENGTH 


037 9 


75567 


064566 




LDB LIBDI 


CORE ADDRESS 


0380 


75570 


114217 




JSB ISCZ,I 


RE.Au IT 


0381 


75571 


027641 




JMP USTER 




0382 


75572 


127554 




JMP USTDR,i 




0383* 












0364* 


USTSS 


FILLS THE BUFFER WITH SYSTEM SEGMENT 


0385* 


AUDRESSES AND 


LENGTHS 




0366* 












0387 


75573 


000000 


USTSS 


NOP 




0366 


75574 


070033 




STA LTEMP+3 


SAVE # (JF SEGMENTS 
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0389 


75575 


017537 




J3B 


U8TBR 


READ BOOTSTRAP 


0390 


75576 




UST81 


EQU 


* 




0391 


75576 
75577 


104200 
100030 




OLD 


LTEMP, I 


SET DISC ADORESS 


0392 


75600 


101100 




3WP 






0393 


75601 


017716 




JSB 


UST6D 


OUTPUT IT 


0394 


75602 


060412 




IDA 


,♦408 


BLANK 


0395 


75603 


016132 




JSB 


LOUT 




0396 


75604 


064030 




LOB 


LTEMP 




0397 


75605 


044350 




AOB 


t-a 




039* 


75606 


160001 




LOA 


B,I 


SET LENGTH 


0399 


75607 


044360 




AOB 


.♦8 




0400 


75610 


074030 




STB 


LTEMP 




0401 


756U 


001727 




ALF, 


>ALF 


CONVERT 


0402 


75612 


030762 




IOR 


HIM3K 




0403 


75613 


003004 




CMA, 


,INA 


To 8LQCK3 


0404 


75614 


017734 




JSB 


UST3D 


OUTPUT IT 


0405 


75615 


017656 




JSB 


USTST 


2 BLANKS 


0406 


75616 


020040 




A3C 


If 




0407 


75617 


000000 




OCT 







0408 


75620 


034033 




182 


LT6MPO 




0409 


75621 


027576 




JMP 


U3T81 




0410 


75622 


017745 




JSB 


XCRLF 




0411 


75623 


127573 




JMP 


USTSS,! 




0412 


75624 


030006 


U8T06 


DEF 


UIREC+6 




0413 


75625 


03106S 


U8T0U 


DEF 


DIREU+6 




0414 


75626 


000115 


ustdc 


DEF 


DADLC 




0415 


75627 


072034 


USTTB 


D EF 


C0H6 




0416 


75630 


072137 


U8TTE 


DEF 


COMTE 




0417 


75631 


000101 


USTID 


DEF 


IDEC+1 




0418 


75632 


000125 


ustou 


DEF 


DADLN 




0419 


75633 


061130 


UST3H 


DEF 


TTY00*?OISC 


0420 


75634 


062270 


U3TU8 


DEF 


TTY32*^ l) "C 
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0422* jHE DELETE COMMAND ALLOWS A u»ER T^ DELETE A SECTION OF His 

0423* PROGRAM IN A SInGlE L*nE, THE FORMAT IS* 

0424* DELETE«M,N 

0425* OR 

0426* DELETE*M 

0427* WITH THE FIRST FORMAT, ALL LINES FROM M THROUGH N ARE 

0428* DELETED. WITH THE SECONO, ALL LINES FROM M TO THE END OF 

0429* THE PROGRAM ARE DELETED, 



043i 


75000 




0432 


75000 


017074 


0433 


75001 


070030 


0434 


75002 


063126 


0435 


75003 


054426 


0435 


75004 


017074 


0437 


75005 


070031 


0438 


75006 


054367 


0439 


75007 


027011 


0440 


75010 


026430 


0441* 






0442 


750U 


003000 


0443 


75012 


040030 


0444 


75013 


002021 


0445 


75014 


026430 


0446* 






0447 


75015 


016047 


0448 


75016 


015322 


0449* 






0450 


75017 


060056 


0451 


75020 


064030 


0452 


75021 


015314 


0453 


75022 


002001 


0454 


75023 


000000 


0455 


75024 


074051 


0456* 






0457 


75025 


060056 


0458 


75026 


064031 


0459 


75027 


070050 


0460 


7§030 


057126 


04*1 


75031 


027037 


04 6 2 


75032 


006004 


0463 


75033 


015314 


0464 


75034 


002001 


0465 


75035 


000000 


0466 


75036 


074050 


0467* 






0468 


75037 


064050 


0469 


75040 


0540gi 


0470 


75041 


027054 


0471 


75042 


007004 


0472 


75043 


044056 


0473 


75044 


007004 


0474 


75045 


016257 


0475 


75046 


060051 


0476 


75047 


070056 



DEL2 



OEL3 



ORG LIBRA 
JSB DELNM 
STA DELM 
LOA DEL99 
CPtt ,+54B 
JSB DELNM 
STA DEln 
CPB .+15B 
JMP 0EL2 
JMP ILFER 

CMA 

ADA DELM 

SSA,RS3 

JMP ILFER 

JSB RDPRG 
JSB DCMPL 

LDA PBPTR 

LDB DELM 

JSB FNOPS 

RS3 

NOP 

STB MOVED 

LDA PBPTR 

LDB DELN 

STA MOVES 

CPB DEL99 

JMP DEL3 

INB 

JSB FNDPS 

RSS 

NOP 

STB MOVES 



LOB 

CPB 

JMP 

CMB, 

ADB 

CMB, 

JSB 

LDA 

STA 



MOVES 

MOVED 

DEL4 

INB 

PBPTR 

INB 

MOVEW 

MOVED 

PBPTR 



GET M, 



IF COMMA FOLLOWS, GO 
GET H, 

NEXT CHAR MUST BE A QR. 



CHECK FOR M<«N 



READ JN PROGRAM AND 
DECOMPILE IT, 

LOCATE FIRST 
STATEMENT TO BE DELETED, 



LOCATE FIRST STATEMENT 
NOT TO BE DELETED, 



IF DESTpSQURCE, NOTHING DELETED, 



OTHERWISE, MOVE UP, 



SET NEW VALUE OF 
PBPTR, 
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0477 

0478 

0479 

0480 

0481* 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 



75050 060273 

75051 040335 

75052 070267 

75053 026226 



049j 
0492* 

0493* 

13494* 
0495* 
0496 

0497 

0496 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0516 

0519* 

0520 

05gl 
0522 

0523 
0524* 

0525 



75054 
75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 



060273 
040335 

070257 
060331 
067062 
026432 
075063 
005116 
047524 
0441H 
047107 
020104 
042514 
042524 
042504 
006400 



DELNM READS A 
GOES TO DELi. 



75074 

75075 
75076 
75076 
75077 
75100 
75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75U3 
75H4 
75115 
75116 
75117 
75120 
75121 

75122 

75123 
75124 
75125 

00030 



000000 
002 4 00 

070032 
016164 
000000 
070001 
040316 
002021 
027122 
040364 
002020 
027122 
064032 
047127 
006021 
026430 
064032 
005222 
044032 
005200 
040001 
027076 

060032 

002002 
127074 

026430 



DEL4 



UA MLINK*1 


TELL SCHEDULER THAT 


ADA ,«?LINK 


PROGRAM IS IN CORE, 


STA MAIN 




JMP LLEND 




IDA mLInK+1 




ADA ,»?LINK 




STA MAIN 




LOA ,.17 




LOB **2 




JMP LlBER 




DEF *♦! 


1 


OCT 5U6 


LF-N 


ASC 7,0THING 


DELETED 



OCT 6400 



CR 



NUMBER PROM THE USER'S BUFFER. IN CASE OF ERROR IT 
OTHERWISE IT RETURNS WITH Ai* AND BiNEXT CHAR, 



DELNM NOP 
CLA 

DEL7 EGU * 

STA DELT 
J8B LCHAR 
NOP 
STA 1 
ADA M72B 
SSA f RSS 
JMP DEL6 
ADA ,*10 

S8* 

JMP DEL* 
LDB DELT 
AOB DELMX 
SSBrRSS 
JMP ILFER 
LDB DELT 
RBL,RBL 
ADB DELt 
RBL 
ADA 1 
JMP DEL7 

DEL6 LDA DELT 
SZA 

JMP DELNM, I 
JMP ILFER 

DELM EGU LTEMP 



INITIALIZE TO 0, 

GET A CHARACTER 

SAVE In 8. 
T E 8 t FOR DIGIj, 



MPy OLD VALUE <*y 10, 



ADD in NEW, 
LOOP, 

GET VALUE 
FAIL IF ZERO, 



PAGE 0499 #43 DELETE 



0526 08031 OEUN EQU LTEMP*1 

0527 00032 OEIT EQU LTEMP+2 

0528 75126 0234J7 0E199 DEC 9999 

0529 75127 176030 DfcLMX DfeC -1000 

0530 75130 SDEL EQU * 



PAGE 0500 #43 TIME 



0532* THE TIME COMMAND PRINtS tHE USER'S CONSOLE lW& CURING THIS 

0533* session and his total cqnsql* time To date. 



0535 


75000 




ORG 


LIBRA 






0537 


75000 


060332 


LDA 


,-16 


OUTPUT START OF 




0538 


75001 


067047 


LOB 


TIM1 


MESSAGE, 




0539 


75002 


016137 


J8B 


LTYPR 






0540* 














0541 


75003 


060273 


LOA 


mlIn**i 


COMPUTE LQC OF USER'S 




0542 


75004 


040345 


AOA 


,*?TIME» 


7LINK STARTING TIME, 




0543 


75005 
75006 


104200 
100000 


OLD 


0*1 


GET STARTING TIME, 




0544 


75007 


003004 


CMA ( 


pIna 


MAKE NEGATIVE AND 




0545 


75010 


007004 


CMB, 


. IN6 


SAVE IN TIMT, 




0546 


75011 
75012 


104400 
000031 


D8T 


TIMT 






0547 


75013 
75014 


104200 
000201 


OLD 


DATIM 


GET CURRENT TIME, 




0548 


75015 


040031 


AOA 


TIMT 


COMPUTE DIRRERENCESi An* 


OF HR8J 


0549 


75016 


000040 


CLE 




B»# OF 100 MS UNITS, 




0550 


75017 


044032 


AdB 


TIMT*1 


g««SiGN OF B, 




0551 


75020 


074032 


8T8 


TIMT*! 


SAVE UNITS, 




0552 


75021 
75022 


100200 
000724 


MPY 


060 


CHANGE HRS TO MINS, 




0553 


75023 


070031 


3TA 


TIMT 






0554 


75024 


060032 


LOA 


TIMT*1 


GET UNIT COUNT, IF E»B 




0555 


75025 


002041 


SeZi 


RSS 


THEN COUNT IS NEGATIVE, 




0556 


75026 


007400 


CC8 








0557 


75027 
75030 


100400 
000466 


DIV 


0600 


CHANGE TO MINS, 




0558 


75031 


040031 


AOA 


TIMT 


ADD IN PREVIOUS AMT, 




0559 


75032 


070031 


STA 


TIMT 






0560 


75033 


0l7 76 


JSB 


TIMPR 


PRINT IT, 




0561* 














0562 


75034 


060334 


LOA 


• *i4 


OUTPUT SOME MORE 




0563 


75035 


067060 


LOB 


TIM2 


CHARACTERS, 




0564 


75036 


016137 


JSB 


LTYPR 






0565* 














0566 


75037 


016107 


JSB 


ROIOT 


READ IN THE IDT 




0567* 














0568 


75040 


044357 


AOB 


.♦6 


GET TIME TO DATE, 




0569 


75041 


160001 


LDA 


1,1 






0570 


75042 


040031 


ADA 


TIMT 


ADD IN CURRENT TIME, 




0571 


75043 


017076 


JSB 


TIMPR 


PRINT IT, 




0572* 














2673 


75044 


060367 


LOA 


.♦15B 


OUTPUT CR, 




0574 


75045 


016132 


JSB 


LOUT 






0576 


75046 


026226 


JMP 


LLENO 


TERMINATE, 




0576* 














0577 


75 47 


075050 TIM} OEP 


**1 






0578 


75050 


005103 


OCT 


6103 


LF.C 




0579 


75051 
75052 
75053 


047516 
051517 

046105 


ASC 


7,0NS0LE 


TIME 9 
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0580 
14581 



0582 
0583 



0584* 

0585* 

0586* 

0587 

0580 

0589 

0590 

0591 

0592 

0593 

0594 

0595 
0596 

0597 
0598 
0599 
0600 
0601 
0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613* 

0614 

0615* 

0&t6 

0617 

0618 



75054 
75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 



020124 

044515 
042440 

036440 
075061 
020124 
047524 
040514 
020124 
044515 
042440 
036440 
075071 
020115 
044516 
052524 
042523 
027040 



TIM2 DEF **l 

ASC 7, TOTAL TIME » 



TIM3 DEF **i 

A3C 5, MINUTES, 



TIMPR OUTPUTS THE INTEGER IN A TO THE CONSOLE, 



75076 000000 TIMPR NOP 

75077 002003 SZAfRSS 

75100 027125 JMP TIMPl 

75101 070033 STA TlMNM 

75 102 6 7l33 LOB TIMXK 

75103 074034 8TB TIMDV 

75104 006400 TlMp4 CLB 

75105 100400 DjV TIMDV 

75106 000034 

75107 074030 STB TIMN 
75110 054033 CPB TlMNM 
7 5 U1 027114 JMP TIMP2 

75112 040432 ADA ,*60B 

75113 016132 JSB LOUT 

75114 060034 TIMP2 LDA TIMDV 

75115 006400 CLB 

75116 100400 olV ,*10 

75117 000364 

75120 070034 STA TIMDV 

75121 002003 S2A,RSS 

75122 027127 JMP TIMP3 

75123 060030 LDA TIMN 

75124 027104 JMP JIMP4 

75125 060432 UmPI L DA t*60B 

75126 016132 JSB L0 UT 

75127 060341 TIM P 3 LDA ,»9 

75130 067070 LDB TIM3 

75131 016137 JSB UYPR 

75132 127076 JMP TIMPR,! 

75133 023420 TiMXK DEC 10000 

00030 TIMN EQU LTEMP 

00031 TIMT EQU LTEMP+1 



SPECIAL CASE OF ZERO, 

SAV£ ORIGINAL NUMBgR, 

GET INITIAL DIVISOR OF 10000, 

COMpUTE A DIGIT, 



SAVE REMAINDER, 

IP rEmainder»original NUMBER 
THIS IS A LfeAOING ZERO, 
OUTPUT 

DIGIT, 
PRODUCE NEH DIVISOR, 



DONE IF DlylSOR IS ZERO, 

GET # AGAIN AND LOOP, 

OUTPUT SInG u E 0, 

PRINT 
"MINUTES," 
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0619 


00033 


TIMNM 


EQU LTEMP+3 


0620 


00034 


TlMOV 


EQU UTEMP+4 


0621 


75134 


IT|M 


EQU * 
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0002* THE PROTECT COMMAND CAN Be USED BY A000 AND BY GROUP LIBRARIANS 
0003* TO RESTRICT THE USE OF- PROGRAMS AND FILES BY OTHER USERS, 
0004* A PROTECTED PUBLIC OR GROUP LIBRARY PROGRAM MAY NOT BE LISTED, 
0005* SAVED, CSAVED, OR PUNCHED IN ANY WAY BY ANOTHER USER, A 
0006* PROTECTED FILE MAY NOt BE ACCESSED At ALL, THS. PROtECt 

0007* command simply sets bit 15 f word i of the directory entry 
0000* for the program or file. 



0010 


75000 




0012 


75000 


064273 


0013 


75001 


044341 


0014 


75002 


160001 


0015 


75003 


070030 


0016 


75004 


010602 


00^7 


75005 


006400 


001B 


75006 


100400 




75007 


000437 


0019 


75010 


006003 


0020 


750U 


027030 


0021* 






0022 


75012 


060327 


0023 


75013 


067015 


0024 


75014 


026432 


0025 


75015 


075016 


0026 


75016 


005l£0 


0027 


75017 


051U1 




75020 


053111 




75021 


046105 




75022 


043505 




75023 


042040 




75024 


041517 




75025 


046515 




75026 


040616 




75027 


042040 


002B* 






0029 


75030 


060520 


0030 


75031 


070037 


0031 


75032 


060347 


0032 


75033 


070036 


0033 


75034 


016164 


0034 


75035 


027053 


0035 


75036 


001727 


0036 


75037 


034037 


0037 


75040 


170037 


0036 


75041 


016164 


0039 


75042 


060412 


0040 


75043 


130037 


0041 


75044 


170037 


0042 


75045 


016164 


0043 


75046 


060412 


0044 


76047 


034036 


0045 


75050 


027036 


0046 


75051 


050412 


0047 


75052 


027066 



PR01 



PR03 



ORG LIBRA 

LDB MLINKM GET U9ER»S ID 

ADB .♦?ID»?LINK 

LDA B,I 

STA LTEMP PLACE ID INTO LTEMP 

AND B1777 CHECK 

CLB FOR 

DIV ,100 PRIVILEGED 



3ZB,RS8 
JMP PRO! 



USER 



LDA ,-19 

LOB **2 

JMP LIBeR 

DEF **1 

OCT 5i20 LF»P 

ASC 9,RIVILEGED COMMAND 



LDA 

STA 

LDA 

STA 

JS6 

JMP 

ALF, 

ISZ 

STA 

JSB 

LDA 

IOR 

STA 

J3B 

LDA 

ISZ 

JMp 

CPA 

JMP 



DlUM 
PROC 

t-3 

PROD 

LCHAR 

PR02 

ALF 

PROC 

PROC, I 

LCHAR 

,+40B 

PROC , I 

PROC, I 

LCHAR 

,♦400 

PROD 

PR03 

,+40B 

PR04 



SET POINTER TO PROGRAM NAmE 

set up counter, 

get first chak, 
error if none, 
save character in 
table, 

GET RIGHT CHAR, 

IF END CHANGE TO BLANK 



GET NEXT CHAR, 

DO WE WANT IT? 
YES 

must be a blank. 
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0049 
0050 
0051 
0052 
0053 
0054 



0055* 

0056 

0057 

0050* 

0059 

0060 

0061 

0062 

0063 
0064 



0065* 
0066 

0067 
0066 
0069 
0070 
0071 
0072 
0073 

0074* 

0075 

0076 

dd77 

0078 

0079 

0080 
0081 
0082 
0083 
0084 
0085 
0086 
0067 
0088 
0089 
0090 



75053 
75054 

75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 

75066 
75067 

75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 

75103 
75104 
75105 
75106 
75107 
75110 
75111 
75U2 

75113 
75114 
75115 
75n6 
75117 
75120 
75121 
75122 
75123 
75124 
75125 
75126 
75127 
00036 
00037 
75130 



060335 
067056 
026432 
075057 
005111 
047126 
040514 
044504 
020116 
040515 
042440 

116005 
027103 

060334 
067073 
026432 
075074 
005116 
047440 
051525 
041510 
020105 
047124 
051131 

064035 
006004 
160001 
031036 
170001 
060201 
044357 
170001 

064034 
160001 
070072 
04436y 
160001 
064562 
016231 
002001 
026226 
060034 
164000 
040360 
116016 



PR02 



PR04 



PRO* 
PR07 



10 A 


,•13 




100 


*♦! 




JHp 


LIBtR 




DfF 


*♦! 




OCT 


51U 


UF»I 


A8C 


6,NVALID 


NAME 



J88 DLOKPrl 
JKP PR06 



L08 
JNB 
LDA 
IQR 
STA 
L 0A 
Aoe 
STA 



SEARCH FOR PPOG IN DIRECTORY 
FOUNO, 



LDA V .H 
LOB *+2 

JMP LlHR 

DEF *♦! 

OCT 5u8 UF-N 

A9C 6,0 SyCH ENTRY 



LTEMP+5 SET PROTECT 8jT, 



BIT15 

1,1 
DATlM 
,♦6 
B,I 



PRqO 
PROC 
• PRO 



L 0B LTEltP*4 

LOA 1»I 
STA HORD 
AD* ,♦• 
LDA 1,1 
190 LXM 

J96 omm. 

RSS 

JKP LLEND 
LDA LTE#P*4 
LDB A, I 
ApA ,*6 
JSB 8Al^f,i 
EQU LTEW^*« 
EQU LTEMP*7 
EQU * 



SET THE L*3T 
CHANGED DATE 



write out directory. 
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0092* UNPKOTeCT IS Ip£NTICAL TO PROTECT £XC£PT THAT IT CLEARS THE 

00 9 3* PROTECT BIT INSTEAD OF SETTING IT, 

0094 75000 ORG LIBRA 

0095 75000 064273 LOB MLINK+1 

0096 75106 ORG PR07 

0097 75106 001665 ELA,CLE,ERA 
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0099* 
0100* 
0101* 
0102* 
0103* 
0104* 
0105* 
0106* 
0107* 



THE OPEN COMMAND IS A USER FUNCTION HHICH CAU3ES THE SYSTEM TO 
CREATE ROOM FOR A OAT* FILE, J*£ FORMAT FOR THE COMMAND IS} 

OPEN • FILENAME, FILE LENGTH, RECORD SIZE 

THE FILENAME IS SUBJECT TO ALL THE RULES OF PROGRAM NAMES, THE 
LENGTH IS A DECIMAL INTEGER FROM \ TO 32767 INDICATING THE FILE 
LENGTH IN rECOrDS, RECORD SUE IS A DECIMAL INTEGER FrOM 64 TO 
256 INDICATING ThE RECORD Sl*E IN WORDS, 



0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0116 
0119 
0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0126 

0129* 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 



0139* 

0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 

75023 
75024 
75025 
75026 
75027 
75030 
75031 
75032 
75,j33 
75034 
75035 
75036 
75037 
75040 

75041 
75042 
75043 
75044 
75045 
75046 
75047 
75050 



060273 
040341 
160000 
070030 
060520 
070042 
060347 
070043 
002400 
070040 
017041 
001727 
034042 
170042 
017041 
130042 
170042 
034043 
027012 

017041 
050412 

0271U 
060334 
067031 
026432 

075032 
005116 
0405i5 
042440 
052117 
047440 
046117 
047107 

000000 
060040 
050412 
127041 
016164 
026430 
064000 
010730 



OPEl 



OR« LIBRA 




LDA MLINK+1 


GET ID AND STORE 


ADA ,*?IO-?LINK IN LTEMP, 


LDA 0,1 




STA LTEMP 




LDA DLTEM 


SET UP POINTER FOR 


STA OPEP 


NAME, 


LDA ,*3 


SET UP COUNTER, 


STA OPEC 




CLA 


SET FLAG SAYING FIRST 


STA OPEF 


CHAR, 


J30 OPER 


GET A CHARACTER, 


ALF,ALF 


STORE In 


ISZ OPEP 


NAME AREA, 


STA OPtP,I 




JS» OPER 


GET RIGHT CHAR, 


IOR 0PEP f I 


MERGE IN, 


STA OPEP, I 




ISZ OPEC 


TEST FOR ANY MORE, 


JMP OPfcl 




J»6 OPE* 


NEXT CHARACTER MUST BE 


CPA ,«40B 


BLANK, 


JMP 0PE2 




LDA .-!« 




LD0 *+t 




4*P LlitH 




OEF •♦! 




OCT 5116 


LF*N 



ASC 6,AME TOO LONG 



OPER NOP 

LDA OPEF 
CPA ,♦ 406 
JMP OPER, I 

OPERl JSB LCHAR 
J M P ILFER 
LDB 
AND ,140 



GET NEXT CHAR FOR NAME, 
TEST TO SEND BACK ttLANK, 



GET NEXT CHAR, 
FAIL IF NONE, 
SAVE IN B, 
SKIP CONTROL CHARS, 
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0148 


75051 


002002 


8ZA 






0149 


75052 


050730 


CPA 


,140 




0150 


75053 


027045 


JMP 


OPER1 




0151 


75054 


060040 


LOA 


OPEF 


GET 1ST CHAR, FLAG, 


01 52 


75055 


002002 


SZA 




TEST FOR 1ST CHAR, 


0153 


75056 


027070 


JMP 


0PER2 


NOT, 


0154 


75057 


054426 


CpB 


,+54B 


T^ST FOR COMMA Or $ 


0155 


75060 


026430 


JMP 


ILPER 




0156 


75061 


054416 


CPB 


• +44B 




0157 


75062 


027076 


JMP 


QPEJ6 




0158 


75063 


054424 


CPB 


,+52B 


TEST FOR * 


0159 


75064 


027076 


JMP 


0PE16 




0160 


75065 


060001 QPER3 


t DA 


1 


RETURN CHAR In B 


0161 


75066 


034840 


ISZ 


OPEF 




0162 


75067 


127041 


JMP 


OPER,I 




0163 


75070 


054426 0PER2 


CPB 


,+548 


COMMA TEST 


0164 


75071 


002001 


RSS 






0165 


75072 


027065 


JMP 


OPER3 




0166 


75073 


060412 


L DA 


,♦408 




0167 


75074 


070040 


3TA 


OPEF 




0168 


75075 


127041 


JMP 


OPER,I 




0169* 












0170 


75076 


060322 0PE16 


LOA 


• «24 




0171 


75077 


067101 


LOB 


**2 




0172 


75100 


026432 


JMP 


LIBER 




0173 


75101 


075102 


DEF 


*+l 




0174 


75102 


005111 


OCT 


5111 


LF*I 


0175 


75103 
75104 
75105 
75106 
75107 
75H0 
75111 

75 H2 
75113 
75H4 
75115 


046114 
042507 
040514 
020106 
044522 
051524 
020103 
044101 
051101 
041524 
042522 


ASC 


11,LLEGAL 


FIRST CHARACTER 


0176* 












0177* 


GET FILE LENGTH, 








0178* 












0179 


75116 


002400 0PE2 


CLA 




INITIALIZE « TO 


0180 


75117 


070040 


8TA 


OPEF 




0181 


75120 


016164 


JSB 


LCHAR 


GEj A CHAR, 


0182 


75121 


027154 


JMP 


0PE51 


DONE 


0163 


75122 


0504^6 


CPA 


.♦54B 


IS IT A COMMA? 


0184 


75123 


027136 


JMP 


OPE50 


YES, GO GET RECORD SIZE 


0185 


75124 


040316 


AOA 


M72B 


DIGIT TEST, 


0186 


75125 


002021 


SSA, 


,RSS 




0187 


75126 


026430 


JMP 


IUFEK 




0188 


75127 


040364 


AOA 


,♦10 




0189 


75130 


002020 


8SA 






0190 


75131 


026430 


JMP 


ILFER 




0191 


75132 


070043 


STA 


OPEC 


SAVE OIG1T, 


0192 


75133 


060040 


LOA 


OPEF 
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0193 

0194 

0195* 

0196* 

0197* 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 
0209 

0210 

0211 

0212* 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223* 

0224 

0225 

0226 

0227* 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237* 

0238 

0239 

0240 

0241 

0242 

0243 



75134 
75135 



017700 
027117 



GET RECORD 81ZE 



75136 
75137 
75140 
75141 
75142 
75143 
75H4 
75145 
75146 
75147 
75150 
75151 
75152 
75153 

75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 

75166 
75167 
75170 

75171 
75172 
75173 
75174 
75175 
75176 
75177 
75200 
75201 



002400 
070042 
016164 
027156 
040316 
002021 
026430 
040364 
002020 
026430 

070043 

060042 

017700 
027137 

060444 
070042 
060040 
002021 
002003 
026430 
060042 
040610 
002020 
026430 

043757 

002021 
026430 

016107 

044360 
160001 
003100 
006004 
140001 
040040 
002041 
027220 



75202 067206 

75203 060327 

75204 026432 

75205 075206 

75206 005114 

75207 044502 

75210 051101 

75211 ,051131 

75212 020123 

75213 050101 



OPE50 



J36 QpEsB 
JMP OPE2*l 



CIA 

8TA OPEP 
J81 UCMAR 
JMP 0PE3 
AqA m72b 
S3A,R3S 
JMP ILFER 
,♦10 



ADA 
S8A 
JMP 
8TA 

LOA 
JSB 
JMP 



ILFER 

OPEC 

OPEP 

OPE8B 

OPE50+1 



0PE51 LDA B400 
STA OPEP 

0PE3 LOA OPEF 
SSA,RS8 
SzA r RS8 
JMP ILFER 
LOA OPEP 
AOA M64 
S9A 
JMP ILFER 

AOA 0M193 
S9A,RSS 
JMP ILFER 

JSB ; ROIOT 
A08 t *6 
LOA 1,1 
CMA,CLE 
INB 

AOA 1,1 
AOA OPEF 
SEZfRSS 
JMP 0PE4 



OPE7 



LOB 
LOA 
JMP 
OEF 
OCT 
ASC 



INITIALIZE SIZh TO 

GET A CHARACTER 

DONE 

DIGIT TEST 



SAVE DIGIT 
0UILO 

GET NEXT DIGIT 

DEFAULT RECORD SIjE 

IS 256 WORDS 
TEST FOR LEGAL VALUE, 



ERROR IF ZERO OR NEGATIVE 
GET RECORO SIZE 

less than 64? 

YES, AND THAT'S NOT PLAYING 
BY THE RULES, 

GREATER THA N 256? 
THAT'S EQUALLY a NO-NO 

GET APPROPRIATE IDT TRACK 

TEST FOR USER OUT OF DISK SPACE 



♦♦3 
,-W 

LIBE R 
**i 
5114 
9,IBRARY 



LF-L 
SPACE FULL 
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75214 


041505 










75215 


020106 










75216 


052514 










75217 


046040 








0244* 












0245* 


SEARCH ACT FOR SPACE TO PUT THE 


FILE, 


0246* 












0247 


75220 




OPE4 


EQU * 




024b 


75220 


060342 




IDA „«8 


SET COUNT OF ADT»8 TO SEARCH 


0249 


75221 


070041 




8TA OPEOF 




0250 


75222 




OPE4A 


EUU * 




0251 


75222 


062010 




LDA RKCYP 


ADVANCE THE CURRENT 


0252 


75223 


002004 




IN A 


ADT TRACK POINTER 


0253 


75224 


053766 




CPA OALNA 


CHECK FOR END OF TABLE 


0254 


75225 


063765 




LDA DALCA 


CYCLE TO BEGINNING If- sO 


0255 


75226 


072010 




SjA RKCYP 




0256 


75227 


040362 




ADA f *DADLN„DADLC POINTER TO LENGTH TABU 


0257 


75230 


070044 




STA OPEUN 




0256 


75231 


160044 




LDA OPELN,I 


IS THIS DISK 


0259 


75232 


002003 




SZAfRSS 


AVAILABLE? 


0260 


75233 


02726*5 




JMP 0PE6A 


NO, TRY NEXT ADT 


0261 


75234 


070072 




STA WORD 


YES 


0262 


75235 


162010 




LDA RKCYP, I 


READ IN 


0263 


75236 


064566 




LDB LIBDI 


THE DISK ADT 


0264 


75237 


016231 




J3B DRUML 


TRACK 


0265 


75240 


027260 




JMP 0PE6A 


DRUM ERROR: SKIP TRACK FOR NOW 


0266 


75241 


007400 




CCB 


COMPUTE 


0267 


75242 


160044 




LDA OPELN,I 


ENTRY 


0266 


75243 
75244 


100400 
000355 




DIV ,*3 


COUNT 


0269 


75245 


070043 




STA OPEC 


AND SAVE 


0270 


75246 


064562 




LOB LIBD 


»> FIRST ENTRY 


0271 


75247 


044354 




ADB ,*2 


le n gth hchd 


0272 


75250 


160001 


0PE6 


LDA X#I 


TEST FOR BlC ENQUG H . 


0273 


75251 


003100 




CmA,Cl& 




0274 


75252 


040040 




ADA OPEF 




0275 


75253 


002041 




SEZfRSS 




0276 


75254 


027276 




JMP 0PE5 


IT IS, 


0277 


75255 


044355 




ADB .+3 




0278 


75256 


034043 




ISZ OPEC 




0279 


75257 


027250 




JMP 0PE6 




0280 


75260 




QPE6A 


EQU * 




0261 


75260 


034041 




ISZ OPEDF 


HAyE W E TRIEO ALL ADTS? 


0282 


75261 


027222 




JMP 0PE4A 


NO, TRY NEXT ONE 


0283 


75262 




0PE12 


EQU * 




0284 


75262 


060332 




LDA ,.16 




0285 


75263 


067265 




LDB *+2 




0266 


75264 


026432 




JMP LIB E R 




0287 


75265 


075266 




DEF **1 




0288 


75266 


005123 




OCT 5123 


LF»8 


0289 


75267 
75270 

75271 
75272 
75273 


054523 
052105 

046440 
047526 
042522 




ASC 7,YSTEM 


OVERLOAD 



PAGE 0510 #44 UPEN 



0290* 

0291 
0202 
0293 

0294 
0295 
0296 
0297 

0298 

0299 

0300 

0301* 

0302 

0303 

0304 

0305 

0306 

0307* 

0303 
0309 
0310 

0311* 

0312 

0313 

»3 U 

0315 

0316 
0317 

03l« 
0319 

0320 
0321* 

0322 

0323 
0324 
0325 
0326 
0327 
0326 
0329 
0330 
0331 
0332 
0333 
0334 
033 5 
0336 
0337 
033$ 
0339 
0340 



75274 
75275 

75276 
75277 
75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 
75311 

75312 
75313 
75314 
75315 
75316 

75317 
75320 
75321 

i " 

75322 
75323 

75324 
75326 

75326 
75327 
75330 
75331 
75332 

75333 
75334 
75335 
75336 
75337 
75340 
75341 
75342 

75343 
75344 
7 5345 
75346 
7534 7 

753 5 k> 
75351 

75352 

75353 
75354 
75355 



046117 

040504 

060040 
003004 
140001 

070041 
044350 
074043 
104200 
100001 
104400 
000036 
002400 
070045 

060032 
031036 

070032 
116005 
027734 

164034 
054714 
027750 

007000 
044562 
074050 
044366 

074051 
007000 

044402 
044035 

016243 

060520 
070050 
060035 
040366 
070051 
064346 
016257 
060042 
170051 
034051 

016076 
170051 
034051 
060201 
170051 
0340 5 1 
002400 
170051 
034051 



0PE5 



LDA OPEF 


SAVE 


CHA,INA 


•number 


aoa B,I 


of SECTORS 


STA OPEDF 


LEFT 


ADB -2 


SAVE LOCATION OF 


STB OPEC 


DISC AOT ENTRY 


OLD 1,1 


SAVE DISC 


D3T UPEOA 


ADDRESS 


CIA 


CLEAR DRUM 


STA opedu 


ADDRESS 


LOA LTEMP+2 


SET 


IQR BJT15 


FILES 


STA LTEMP+2 


BIT 


JSB DLOKP,! 


SEARCH FOR SNTRY 


JMP OPEB 


ENTRY FQUNq^ILLEGAL, 



LOB LTEMP+4,1 IP DIRECTORY TRAgK IS 

CPB M8184 FULL, Do 

JMP 0PE98 SUPERSAVE (THE SAVt OF STEEL) 



CMB 

ADB LIBD 
STB MOVES 
ADB ,*12 
STB (iOVEO 

CMB 

AOB ,*24 

ADB LTEMP+5 
J3B MOVEb 



LO A 
STA 
LDA 
ADA 
STA 
LDB 
JSB 
LqA 
STA 
ISZ 
JSB 
STA 
ISZ 
LDA 
STA 
ISZ 
CLA 
STA 

ISZ 



DlTEM 
MOVES 

LTEMP+5 

.♦12 

MOVED 

1 "»4 
MOVEW 

opep 

MOVED, I 
MOVED 
DATE 
MOVED, I 
MOVED 
DATIM 
MOVED, I 
MOVED 

MOVED,! 
MOVED 



SET UP SOURCE 
FOR MOv&. 

SET UP DESTINATION 
COMPUTE LENGTH, 



MOVE 4 WORpS IN FOR 
NEW ENTRY, 



oeT logical record size 

AND PUT IT IN DlRECTORy 
BUMP POINTER 
GET DATE 
SET IT IN LAST REFERENCE DATE 

GET HOUR OF YEAR 

SET IT IN LAST CHANGE DATE 



£ERQ DRUM ADDRESS «* UN3ANCTIFIED 
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0341 


75356 
75357 


104200 
000036 


DUD 


OPEDA 


GET DISC AODKESS 


0342 


75360 
75361 


104400 
100051 


D3T 


MOVED, I 


INTO DIRECTORY 


0343 


75362 


060355 


IDA 


.♦3 


INSERT FILE 


0344 


75363 


040051 


ADA 


MOVED 


LENGTH INTO 


0345 


75364 


064040 


LDB 


OPEF 


LAST WORD OF 


0346 


75365 


174000 


8TB 


A, I 


DIRECTORY ENTRY 


0347* 












0346 


75366 


160034 


IDA 


LTEMP*4,i 


ADJUST DIRECTORY 


0349 


75367 


040336 


ADA 


,"»12 


LENGTH 


0350 


75370 


170034 


STA 


LTEMP*4,i 




0351 


75371 


070072 


8TA 


WORD 




0352 


75372 


060034 


IDA 


LjEMP+4 


*RI T E DIRECTORY 


0353 


75373 


002004 


Ina 




BACK OUT, 


0354 


75374 


070051 


STA 


MOVED 




0355 


75375 


040357 


ADA 


,♦5 




0356 


75376 


160000 


LDA 


0,1 




0357 


75377 


064562 


LDB 


LIBD 




0356 


75400 


074050 


STB 


MOVES 




0359 


75401 


016231 


JSB 


DRUML 




0360 


75402 


116017 


JSB 


D£ADP f I 


DRUM ERROR, IT«3 CURTAINS 


0361* 












0362 


75403 


064346 


LDB 


• *4 


RESET 


0363 


75404 


016257 


JgB 


MOyEw 


DIrEC, 


0364* 












0365 


75405 




OPEU EQU 


* 




0366 


75405 


016107 


JSB 


RDIDT 


GET IDT TRACK AGAIN 


0367 


75406 


044361 


ADB 


.♦7 




0368 


75407 


060040 


LOA 


OPEF 


AOJUST AMOUNT OF DISC US£D, 


0369 


75410 


140001 


ADA 


1/1 




0370 


75411 


170001 


STA 


1,1 




03 7 1 


75412 


160075 


LDA 


IDLCP,! 


WRITE 


03/2 
0373 


7 5413 


064562 


LOB 


LIBD 


OUT 


75414 


016231 


JSB 


DRUML 


jDT 


0374 


75415 


116017 


JSB 


DEADP,j 


drum Error, bye»bye 


0375 


75416 


160044 


LDA 


OPELN,! 


READ 


0376 


754*7 


70072 


STA 


WORD 


IN 


0377 


75420 


162010 


LDA 


RKCYP#I 


DISK 


0378 


75421 


064566 


LDB 


LIBDI 


ADT 


0379 


75422 


016231 


JSB 


DRUML 


TRACK 


0380 


75423 


027674 


JMP 


0PE14 


CAN'T, SO MAKE IT DISAPPEAR 


0381* 












0382 


75424 


064041 


LDB 


UPEDF 


GET •« OF SECTORS LEFT IN A 


0383 


75425 


006002 


SZB 




REST FOR ANY PART LEFT 


0384 


75426 


027445 


JMP 


0P t 9 


NON fcMPTY ADT ENTRY, 


038J5* 












0386 


75427 


064043 


LDB 


OPEC 


SQUEEZE OUT ADT ENTRY, 


0387 


75430 


074051 


STB 


MOVED 




0388 


75431 


044355 


ADB 


• ♦3 




0389 


75432 


074050 


STB 


moves 




0390 


75433 


044674 


ADB 


mlibd 




0391 


75434 


044072 


ADB 


WORD 




0392 


75435 


016257 


JSB 


MOVEW 




0393* 
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0394 


75436 


060355 


LDA 


.♦3 


REDUCE 


03^5 


75437 


164044 


LOB 


OP6LN,I 


DISC ADT 


0396 


75440 


044000 


AOB 


A 


LENGTH 


0397 


75441 


174044 


8TB 


OPELN,I 


BY 3 


0398 


75442 


040072 


ADA 


WORD 


ALSO REDUCE 


0399 


75443 


070072 


STA 


WORD 


TRANSFER LEN3TH 


0400 


75444 


027461 


JMP 


OPE10 




0401* 












0402 


75445 
75446 


104200 
100043 


OPi-9 OLD 


OPEC, I 


UPDATE 


0403 


75447 


000040 


CUE 






0404 


75450 


044040 


AOB 


OPEF 


DISC 


0405 


75451 


002040 


SfcZ 






0406 


75452 


002004 


INA 




ADDRESS 


0407 


75453 
75454 


104400 
100043 


U8T 


OPEC # I 




0408 


75455 


064043 


LOB 


OPEC 


SAVE 


0409 


75456 


044354 


AOB 


.♦2 


REMAINING 


0410 


75457 


060041 


LOA 


OPEDF 


BLOCKS 


04 11 


75460 


170001 


STA 


Br I 


LENGTH 


0412* 












0413 


75461 




OPE 10 EBU 


* 




0414 


7546J 


162010 


LOA 


RKCYP,! 


WRITE 


0415 


75462 


064562 


LOB 


LIBD 


DISC ADT 


0416 


75463 


016231 


JSB 


DRUML 


BACK 


0417 


75464 


027674 


JMP 


OPE 14 


CAN'T, SO MAKE IT DISAPPEAR 


04U* 












0419 


75465 


067760 


0PE16 LOB 


M40 


FILL 


0420 


75466 


074043 


STB 


OPEC 


USER 


0421 


75467 


064562 


LOB 


LZBD 


AREA 


0422 


75470 


003400 


CCA 




WITH 


0423 


75471 


170001 


STA 


B,I 


ENO* 


0424 


75472 


044444 


AOB 


B400 


OF. 


0425 


75473 


034043 


ISZ 


OPEC 


FILE 


0426 


75474 


027471 


JMP 


*»3 


MARKS 


0427* 












4 2» 


75475 


0603 4 


LOA 


.-10 


INITIALIZE WRITES-BEFORE- 


0429 


75476 


07004? 


STA 


OPEC 


SUSPEND COUNT 


0430 


75477 


063755 


LOA 


M10K 


INITIALIZE 


0431 


75500 


070215 


STA 


MWORD 


WORD C°UNT 


0432* 












0433 


75501 


064040 


0PE52 LOB 


OPEF 


GET REMAINING RECORD COUNT 


0434 


75502 


047760 


ADB 


MB 


MORE THAN 


0435 


75503 


00602k) 


SSB 




40? 


0436 


75504 


027661 


JMP 


OPE13 


NO. GO 00 PARTIAL WRITE 
YES, UPDATE COUNT 


0437 


75505 


074040 


STB 


OPEF 


0438 


75506 


063764 


LDA 


OPEOI 


POINTER TO DISC TO DISC ADDRESS 


0439 


75507 


064562 


LOB 


LXBD 


CORE ADDRESS 


0440 


75510 


114217 


JSB 


DISCZrl 


WRITE 40 FILE MARKS 


0441 


75611 


027710 


JMP 


OPEOE 


FAItUREl GO PRINT ERROR 


0442 


75512 
75513 


104200 
000036 


OLO 


OPEDA 


UPDATE 


0443 


75514 


000040 


CLE 






0444 


75515 


044422 


AOB 


.♦4B 


DISC 


0445 


75516 


002040 


SEZ 
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0446 


75517 


002004 


INA 




ADDRESS 


0447 


75520 
75521 


104400 
000O36 


DST 


OPEDA 




0448* 












0449 


75522 


034043 


ISZ 


OPEC 


TIME TO SESPEND? 


0450 


75523 


027501 


JMP 


0PE52 


NO, CONTINUE 


0451* 












0452* 


AFTER 10 


WRITES OF 40 FILE MARKS EACH, SUSPEND. 


0453* 












0454 


75524 


064273 


LOB 


ml*nk*i 


GET POINTER TO DISC 


0455 


75525 


044354 


AOB 


,*?RTIM-?LINK ADDRESS STORAGE 


0456 


75526 


060037 


LOA 


OPEDA+1 


GET LOW PART AND 


0457 


75527 


170001 


sta 


B,I 


SjASH in tty table 


0458 


75530 


006004 


INB 






0459 


75531 


060031 


LOA 


LTEMP+1 


STORE 


0460 


75532 


170001 


STA 


8,1 


ALSO 


0461 


75533 


006004 


JNB 




FILE 


0462 


75534 


074043 


STB 


OPEC 


NAME 


0463 


75535 
755 3 6 


104200 
000032 


OLD 


LTEMp*2 


In tty 


0464 


75537 

75540 


104400 
100043 


DST 


OPEC, I 


TABLE 


0465 


75541 


103100 


CLF 





DISABLE INTERRUPTS 


0466 


75542 


064273 


LOB 


MLINK+1 


SET 


0467 


75543 


044353 


AOB 


♦♦?PLEV- 


"?LINK PRIORITY 


0466 


75544 


060356 


LOA 


t*4 


TO 


0469 


75545 


170001 


STA 


B,I 


4 


0470 


75546 


044347 


AOB 


,+?R8TR* 


.?pLEV SET 


0471 


75547 


063762 


LOA 


OP17P 


RESTART 


0472 


75550 


170001 


STA 


B,I 


ADDRESS 


0473 


75551 


002400 


CLA 




BLOCK 


0474 


75552 


170634 


STA 


DCLC1,X 


CLOCK 


0475 


75553 


102100 


STF 





ENABLE INTERRUPTS 


0476 


75554 


064273 


LOB 


MLINK*i 


REMOVE 


0477 


75555 


160001 


LOA 


B,I 


U$Er 


0478 


75556 


070273 


STA 


MLINK+i 


FROM U 


0479 


75557 


016563 


JSB 


Inseq 


A N REINSERT MI M (OR HEk) 


0480 


75560 


127561 


JMP 


**1»I 


GO TO 


0481 


75561 


070362 


DEF 


SC H 1 


SCHEDULER 


04*2* 












0483* 












0484* 


OPEN WILL 


BE RESTARTED HERE, 


i 


0485* 












0486 


75562 


064273 


0PE17 LOB 


mUnK*i 


GET 


0487 


75563 


044341 


ADB 


,+?ID.?LINK USER 


0488 


75564 


160001 


LOA 


6,1 


ID 


0489 


75565 


070030 


STA 


LTEMP 




0490 


75566 


044365 


AOB 


,*?RTIH« 


»?ID GET LOW 


0491 


75567 


160001 


LOA 


B , X 


WORD OF CURRENT 


0492 


75570 


070037 


STA 


0P£qA*1 


DISC A 00 R E SS 


0493 


75571 


006004 


INB 






0494 


75572 


160001 


LOA 


8,1 


GET 


0495 


75573 


070031 


STA 


LTEMP+1 


file 


0496 


75574 


006004 


INB 




NAME 


0497 


75575 


104200 


DLD 


B,I 


BEING 
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75576 


100001 






0498 


75577 

75600 


104400 
000032 


D3T LTEMP+2 


INITIALIZED 


0499* 










0500 


75601 


116005 


J8B D L Q K P,I 


CHECK FOR PILE'S EXISTENCE 


0501 


75602 


002001 


R8S 


IT'S THE«E 


0502 


75603 


026226 


JMP LUND 


IT'S GONE* TERMINATE 


0503 


75604 


064035 


LOB tTEHP*5 


gCt 


0504 


75605 


044354 


ADB t*2 


WORD 


0505 


75606 


160001 


LOA B,I 


2 


0506 


75607 


002021 


83A,R3S 


IS IT A FILE? 


0507 


75610 


026226 


JMP LLEND 


NO, TERMINATE 


050a 


75611 


044360 


ADB ,*6 
LOA B,I 


•> DISC ADDRESS 


0509 


75612 


160001 


SET TENTATIVE UPPER 


0510 


75613 


070036 


8TA OPEpA 


WORD OF CURRENT pISC ADDRESS 


0511 


75614 


074043 


STB OPEC 


SAVE DISC 


0512 


75615 


044355 


ADB ,*3 


ADDRESS AND 


0&13 


75616 


074042 


STB OPfeP 


LENGTH POINTERS 


0514 


75617 


017630 


JSg OPERc 


CHEC^ CWENT FOR IN RANGE 


0515 


75620 


027625 


JMP 0PEi8 


IT ISl PROCEED 


0516 


75621 


034036 


I3Z OPEDA 


TRY ONE HIGHER UPPER WORD 


0517 


75622 


017630 


J8B OPERC 


AGAIN CHECK FOR IN RANGE 


0518 


75623 


002001 


RSS 


GOOD 


0519 


75624 


026226 


JMP LLEnD 


BAD, GIVE UP 


0520 


75625 


007004 


0PE18 ChB»INB 
3TB QPEF 


GET REMAINING RECORD 


0521 


75626 


074040 


COUNT AND 8TJRE 


0522 


75627 


027465 


JMP OPE 15 


GO WRITE SOME FILE MARKS 


0929* 










0524 


75630 


000000 


OPERC NOP 




0525 


75631 

7563 2 
75633 


104200 

100043. 
017647* 


DLD OPEC* I 


GET FILE START 


0526 


J8B OPEOS 


SUBSTRACT IT FROM CURRENT ADORES 


0527 


75634 


002120 


CLE, S3* 


IN RANGE? 


052g 


75535 


027645 


JMP 0PE19 


NO, GO FAIL 


0529 


75636 
75637 


104200 
100043 


OLD OPEC, I 


GET FILE START 


0530 


75640 


144042 


ADB OPEP,I 


CALCULATE DISC 


0531 


75641 


002040 


SEZ 


ADDRESS OF ONE 


0532 


75642 


002004 


Ina 


beyond f i^e. end 


0533 


75643 


0I7647 


J3B 0PED8 


SUBTRACT IT FROM CURRENT ADDRESS 


053 4 


75644 


002021 


S3A,RS« 


IN RANGE? 


0535 


75645 


037630 


0PE19 I3Z OPERC 


NO, BUMP RETURN 


0536 


75646 


127630 


JMP OPERC, I 




0597* 










0530* 










0539 


75647 


000000 


0PED3 NOP 




0540 


7 5 6 50 


007104 


CMB,CLE,1NB 


NEGATE 


0541 


75651 


003040 


CMA,3EZ 


A,B 


0542 


75652 


002004 


INA 


CONTENTS 


0543 


75653 


000040 


CLE 




0g44 


7565 4 


044037 


ADB OPEDA+1 


ADD 


0545 


75655 


002040 


SEZ 


TO 


0546 


75656 


002004 


INA 


OPEDA, 0PE0A*1 


0547 


75657 


040036 


ADA OPEDA 


CONTENTS 


0548 


75660 


127647 


JMP QPED3,I 
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0549* 














0550* 














0551 


75661 




0PE13 


EQU 


* 




0552 


7566J 


064040 




LDB 


OPEF 


GET RECORDS LEFT 


0553 


75662 


006003 




SZB, 


>RSS 


IF NONE, 


0554 


75663 


026226 




JMP 


LLENO 


DON'T BOTHER 


0555 


75664 


005727 




BLF, 


-BLF 


NUMBER OF 


0556 


75665 


007004 




CMS, 


,INB 


WORDS TO 


0557 


75666 


074215 




STB 


MWQRD 


TRANSFER 


0558 


75667 


063764 




LOA 


OPEOI 


WRITE 


0559 


75670 


064562 




LDB 


LIBO 


OUT TO 


0560 


75671 


114217 




JSB 


DISCZ,I 


DISC 


0561 


75672 


027710 




JMP 


OPEDE 


UNSUCCESSFUL OjSK TRANSFER 


0562 


75673 


026226 




JMP 


LL&ND 


TERMINATE 


0563* 














0564 


75674 


002400 


QPE14 


CLA 






0565 


75675 


170044 




8TA 


QPELN,I 


ZERO LENGTH 


0566 


75676 


1^2010 




STA 


RKCYP,I 


ZERO DRUM ADDRESS 


0567 


75677 


027465 




JMP 


OPE15 




0568* 














0569 


75700 


000000 


OPESB 


NOP 






0570 


75701 
75702 


100200 
000364 




MPY 


,♦10 


BUILD NEW 


0571 


75703 


000040 




CLE 




NUMBER, 


0572 


75704 


040043 




ADA 


OPEC 




0573 


75705 


006043 




SEZ, 


>SZB,KSS 


OVERFLOW CHECK, 


0574 


75706 


127700 




JMP 


OPESBfl 


EXIT 


0575 


75707 


026430 




JMP 


ILFER 




0576 


75710 




OPEOE 


EQU 


* 




0577 


75710 


063761 




LOA 


0M31 


GET CHARACTER COUNT 


0578 


75711 


0677J3 




LDB 


♦ ♦2 


AND POINTER 


0579 


75712 


026432 




JMP 


LIBER 




0580 


75713 


075714 




DEF 


**1 




0581 


75714 


005125 




OCT 


5125 




0582 


75715 


047123 




ASC 


UNSUCCESSFUL* KILL ANO REPEAT. 




75716 


052503 












75717 


041505 












75720 


051523 












75721 


043125 












75722 


046073 












75723 


020113 












75724 


0445J4 












75725 


046040 












75726 


040516 












75727 


042040 












75730 


051105 












75731 


050105 












75732 


040524 












75733 


027040 










0583* 














0584 


79734 




0PE8 


EQU 


* 




0585 


75734 


060332 




LUA 


.-16 




0586 


75735 


067737 




LOB 


♦ ♦2 




0587 


75736 


026432 




JMP 


LJBER 




0588 


75737 


075740 




OtF 


* + l 
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0589 
0590 



0591* 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603* 

0604 

0605 

0606 

0607* 

0606 

0609 

0610 

0611 

0612* 

0613 

0614 

0615 

6 l6 
0617 
0618* 

06i9 
0620 
0621 
0622 
0623 
0624 
0625 



005104 
4352520 
046111 
041501 
052105 
020105 
047124 
051131 



063756 
070072 
163763 
064504 

027773 
154000 
177005 
177477 
177730 
177741 



OCT 5104 

A3C 7,UPUCATE ENTRY 



SET Up OVERLAY 



75740 
75741 
75742 
75743 
75*44 
75745 
75746 
75747 

75750 
75750 
75751 
75752 
75753 
75754 
75755 
75756 
75757 
75760 
75761 

00040 

00041 OPEUf £QU LTE*P*9 

00042 OPEP EUU lTEMP+10 

OPEp IS REFERRED TO *3 8AVP 0Y SUpERSAVE (AnD SAVE) 

00043 OPEC ECU LTEM*«U 

00044 OPELN tUU LTEMf*l2 

00045 OPEOU EtfU LTEMP+13 
00036 OPEDA EQU LTEMP*6 



0PE96 EUU 
LDA 
STA 
IDA 
LDB 

jm> 

H10K DEC 
OM507 DEC 
0Mi93 DEC 
M40 DEC 

om3i dec 



* 

OM507 
WORD 
OPEUV,I 

*tl»l 
OPEOR 
•10240 
••507 

•193 

-40 
-31 



OPEF EQU UTEMP+8 



75762 075562 

75763 072044 

75764 000036 

75765 000Us 

75766 000125 

75773 

75773 016231 

75774 116015 

75775 027000 

75776 027405 
7^777 027262 
76000 



OP17P DEF OPEJ7 

OPEOV OEF «AVO*C0M«wCOM3 

OPEDI DEF OPEDA 

DALCA DEF DADLC 

DAtNA DEF OADLN 



ORG UB*A*b07 

OPfcOR jSB oR^Nt 

JS8 SIGKP,I 

JMP LIBRA 

JMP OPEU 

JMP 0PE12 

SOPt EUU * 



OUCH, DIE GRACEFULLY 

NORMAL RETURN, 
ERROR RETURN 
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0002* THE LENGTH COMMAND CAUSES THE LENGTH OF THE USfcRtS PROGRAM TO 
0003* BE PRINTED Qn THE USER'S CONSUL*. 



0005 


75000 




ORG 


LIBRA 




0006 


75000 


016047 


JSB 


ROpRG 


READ In user program. 


0007 


75001 


064273 


LOB 


MLINK+1 




0000 


75002 


044340 


AOB 


,+?PROg* 


?LINK 


0009 


75003 


160001 


LOA 


1,1 


GET POINTER TO END OF 


0010 


75004 


070030 


STA 


LTEMP 


PROGRAM, 


0011 


75005 


050702 


CPA 


PBUPF 


IF NULL PROGRAM GO TO PRINTOUT 


0012 


7§006 


027016 


JMP 


LENl 


SECTION, 


0013 


75007 


044347 


AOB 


.♦?FLAG» 


?PROG 


0014 


75010 


160001 


LOA 


1,1 


test Fqr compiled, 


0015 


750U 


010354 


ANO 


CFLAG 




0016 


75012 


002003 


SZA, 


.RSS 




0017 


75013 


027016 


JMP 


LENl 


USER NOT COMPILED, 


0018 


75014 


06*575 


LOA 


SYMTB 


USE SOURCE PROGRAM POINTER 


0019 


75015 


002001 


RSS 






0020 


75016 


060030 LENl LDA 


LTEMP 




0021 


75017 


003000 


CMA 




COMpUTE LENGTH IN W0rD3, 


0022 


7502y 


04J577 


ADA 


SPROG 




0023 


75021 


003000 


CMA 






0024 


75022 


002020 


SSA 




5 F NEGATIVE, 


0025 


75023 


002400 


CLA 




SET TO ZERO 


0026 


75024 


070030 


STA 


LTEMP 




0027* 












0026 


75025 


060364 


LDA 


,♦128 


OUTPUT LINE FEED, 


0029 


75026 


016132 


JSB 


LOUT 




0030 


75027 


060350 


LDA 


.-2 


SET COUNTER, 


0031 


75030 


070031 


STA 


LTEMP+1 




0032 


75031 


060030 


LOA 


LTEMP 


get First 2 di c its in a. 


0033 


75032 


006400 


CLB 




LAST 2 IN 8, 


0034 


75033 
75034 


100400 
000437 


DIV 


#100 




0035 


75035 


074030 


STB 


LTfcMP 




0036 


75036 


006400 LEN2 cL B 






0037 


75037 

75040 


100400 
000364 


DIV 


, + 10 


GET 2 DIGITS. 


0038 


75041 


074032 


STB 


LTEMP+2 


SAVE 2ND, 


0039 


75042 


040432 


ADA 


,♦606 




0040 


75043 


016132 


JSB 


LOUT 


PRINT 1ST 


0041 


75044 


060032 


LDA 


LTEMP+2 




0042 


75045 


040432 


ADA 


,♦608 


PRINT 


0043 


75046 


016132 


JSB 


LOUT 


2ND, 


0044 


75047 


060030 


LDA 


LTEMP 


GET 2ND PAIR, 


0045 


75050 


034031 


ISZ 


LTEMP+t 


TEST FOR DONE, 


0046 


75051 


027036 


JMP 


LEN2 




0047 


75052 


060344 


U DA 


,*6 


PRINT » WORDS", 


004b 


75053 


067055 


LOB 


*+2 




0049 


75054 


026432 


JMP 


LIBER 




0050 


75055 


075056 


OEF 


*+l 




0051 


75056 
75057 

75060 


020127 

047522 

042123 


A8C 


3, WORDS 




0052 


75061 


SLEN EQU 


* 
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0054* THE ECHO COMMAND 13 USED TO TELL THE SYSTEM WHETHER A TELETYPE 
0055* Is FULL DUPLEX Or HALF DUPLEX. TYPING 



0056* 


EChO-OFF 


SAYS 


HALF DUPLEX, 




0057* 


AND 












0058* 


ECHO»ON 


SAYS FULL DUPLEX, 


0060 


75000 






ORG 


LIBRA 




0061 


75000 


016164 




JS8 


LCHAR 


TEST FoR FIM8T CHAR 


0062 


75001 


026430 




JMP 


ILFfR 




0063 


75002 


063040 




CPA 


ECHO 




0064 


75003 


002001 




«ss 






0065 


75004 


026430 




JMP 


ILFER 


FAIL. 


0066 


75005 


016164 




J3B 


LCHAR 


GET NEXT CHARACTER. 


0067 


75006 


026430 




JMP 


ILFCR 


FAIL IF NONE, 


0068 


75007 


053036 




CPA 


ECHN 


TEST FOR N, 


0069 


75010 


027023 




JMP 


ECHJ 




0070 


75011 


053037 




CPA 


ECHF 


TEST FOR F, 


0071 


75012 


002001 




HSS 






0072 


75013 


026430 




JMP 


ILFER 


FAIL IF NOT. 


0073 


75014 


016164 




JSB 


LCHAR 


TEST FOR F, 


0074 


75015 


026430 




JMP 


ILFER 




0075 


75016 


053037 




CFA 


ECHF 




0076 


75017 


002001 




RS3 






mi7 


75020 


026430 




JMP 


ILFER 




0078 


75021 


060235 




LOA 


ECF 


SET ECHO OFF 


0079 


75022 


002001 




RS8 






0080 


75023 


060234 


ECH1 


LDA 


ECO 


SET ECHO ON 


0081 


75024 


070030 




STA 


LTE*P 




0082 


75025 


016164 




JSB 


LCH*R 


TEST FOR CR. 


0083 


75026 


002001 




HSS 






0084 


75027 


026430 




JMP 


ILFfcR 




0085* 














0086 


75030 


064273 




LDB 


MLI«K*| 




0087 


75031 


044336 




ADB 


.♦tT*U#»?LlNK 


0088 


75032 


160001 




LDA 


1,1 


SEND 


0089 


75033 


030030 




IQP. 


LTEMf 


Who 


0090 


75034 


114500 




JSB 


S143C,I 


TO 2U4 


0091 


75035 


026226 




JMp 


LLENC 




0092* 














0093 


75036 


000116 


ECHN 


OCT 


1U 




0094 


75037 


000106 


ECHF 


OCT 


106 




0095 


75040 


000117 


ECHO 


OCT 


117 




0096 


75041 




StCH 


E«U 


* 
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0096* 

0099* 



00* 
01* 
02* 
03* 
04* 
05* 
06* 
07* 

08* 

09* 

10 

11 

12 

13 

14 

15 

16 
17 
1« 
19 
20 
21 
22 
23 
24 

25 
26 

27 
26 
29 

30 
31 

32 
33 

34 

35 
36 
37 
38 
3 9 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



THE MESSAGE COMMAND IS USED TO SEND A MESSAGE TO 
THE SYSTEM CONSOLE. THE PORT NUMBER OF THE REQUESTING 

user is also output, if the message queue is full at 
the TImE of the request, the n the usek IS InFoRmEO 

AN D HIS MESSAGE 13 IGNORED. IF NOT, IT IS PLACED ON 
THE QUEUE, A MESSAGE MORE THAN 68 CHARACTERS LONG WILL 
BE TRUNCATED, EACH MESSAGE FITS IN A 39 WORD BUFFER 
WHOSE FORMAT ISj 



<LENGTH»<CRLF><FORT>< ><MESSAGE><CRLF> 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 

750U 
75012 
75013 
75014 
75015 

75016 
75017 
75020 
75021 
76022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 

75040 
75041 

75042 
75042 
75043 
75044 
75045 
75046 
75047 
75050 



060306 
040350 
002021 
027071 
060310 
002004 
066655 
174000 
002004 
073121 
060273 
040336 
160000 
001727 
006400 
100400 
000364 
0017J7 
030001 

030574 
173121 
037121 

060570 
173121 

067121 
006004 
005200 
077121 
060360 
073120 
002400 
072202 

016*64 
027066 

067122 
057120 
027051 
017104 
016164 
027051 
027042 



ORG 

LDA 

ADA 

SSA, 

JMP 

LDA 

INA 

LD6 

STB 

INA 

8TA 

L&A 

ADA 

LDA 

ALF, 

CLB 

DIV 

ALF, 

IOR 

IOR 

8TA 

ISZ 

LDA 

ST A 

LDB 

INB 

RBL 
STB 
LDA 
STA 
CLA 
STA 
JSB 
JMP 
MESS2 EQU 
LDB 
CPB 
JMP 
JSB 
JSB 
JMP 
JMP 



LIBRA 
M3QCT 
.«2 

RSS 

MEsSl 

MSQP3 

CRLF 
A, I 

MSQP2 
MLINK+I 
,*?TNUM- 
A, I 
ALF 

, + 10 

ALF 

B 

ASC00 

M8GP2,I 

HSQP2 

ASCBB 

MSQP2,I 

MSQP2 



MSGP2 

,♦6 

MSSCT 

LCHR2 

LCHAR 

MeSeR 

* 

..74 

MSSCT 

MESS4 

MESCH 

LCHAR 

MESS4 

MESS2 



IS THE MESSAGE QuEuE 

a l heady full? 
yes, tell user 

*> NEXT AVAILABLE BUFFER 
PUT CR LF INTO 

THE MESSAGE BUFFER 



SET POINTER 
GET ThE USER NUMBER 
•?LINK 

INTO THE A REGISTER 

SET UP FOR AND 
DIVIDE BY TEN 

CONVERT TO ASCII 



STORE INTO BUFFER 

ADVANCE POINTER 
GET TWO BLANKS 

AND PLACE IN THE BUFFER 
TURN BUFFER FOINTER 

INTO 

A CHARACTER POINTER 

SET CHARACTER COUNT 

PREVENT BLANK SUPPRESSION 

GET A CHARACTER 

EMPTY MESSAGE IS AN fcRROR 

IS THE MESSAGE TOO LONG? 

YES, TRUNCATE HERE 

STQRfc CHARACTER XNTO BUFFER 

GET ANOTHER CHARACTER 

CR 3EZ END OF MESSAGE 

NO, PUT THIS CHARACTER INTO BUFF 
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0152* 














0153 


75051 




MESS4 


EQU 


* 




0154 


75051 


060364 




LDA 


,♦128 


If 


0155 


75052 


0171*4 




J3B 


MfctCH 




0156 


75053 


063120 




IDA 


M8#CT 


3ET CHARACTER COUNT 


0157 


75054 


170310 




STA 


M3QP3, I 


INTO BUFFER 


0153 


75055 


067117 




LOB 


MEBWK 


RESTORE LCHAR 


0159 


75056 


076202 




STB 


LCHR2 




0160 


75057 


034306 




ISZ 


MSOCT 


INCREMENT THE MESSAGE COUNTER 


0161 


75060 


064310 




LOB 


M8QP3 


ADVANCE POINTER 


0162 


75061 


044421 




A OB 


,*M€8LN 


FOR 


0163 


750 6 2 


054311 




CPI 


M3QNO 


THE 


0164 


75063 


064312 




LOB 


M3Q#G 


NEXT 


0165 


75064 


074310 




STB 


M30P3 


MESSAGf 


0166 


75065 


026226 




JMP 


LLENO 


EXXT 


0167* 














0168 


75066 




ME8ER 


EQU 


* 




0169 


75066 


067117 




LOB 


MESMK 


FIX LCHAR AND 


0170 


75067 


076202 




STB 


LCHR2 




0171 


75070 


026430 




JMP 


ILFER 


GIVE ERROR EXIT 


9172* 














0173 


75 7l 




MfcSSi 


E0U 


* 




0174 


75071 


060334 




LOA 


,-14 




0175 


75072 


067074 




LOB 


**Z 




0176 


75073 


026432 




JMP 


HBeR 




0177* 


. 












0170 


75074 


075075 




DEF 


♦♦1 




0179 


75075 


005103 




OCT 


5183 




0160 


75076 
75077 
75100 
75101 
75102 
75103 


0475*6 
051517 
046105 
020102 
052523 
054440 




A8C 


6rQ*9ULE 


BUSY 


0181* 














0182* 


THIS ROUTINE PUTS INDIVIDUAL 


CHARACTERS INTO THE BUFFER 


0183* 














0184 


75104 


000000 


MESCH 


NOP 






0185 


75105 


067121 




LOB 


M30P2 


LOAD THE BUFFER POINTER 


0186 


75106 


004065 




CLE, 


-ErB 


TURN INTO W0 R P POINTER 


0187 


75107 


002041 




ail, 


-R3B 


3KIR IF LOWER CHARACTER 


0186 


75110 


001727 




ALf. 


,alf 


CHARACTER TO L&FT 


0189 


75111 


002040 




S E Z 




SKIP If UPPfcR CHARACTER 


0190 


75112 


130001 




IUR 


Brl 


OR IN UPPER CHARACTER 


0191 


75113 


170301 




STA 


8,1 


STORE CHARACTER (S) 


0192 


75114 


037121 




I 3 Z 


MSQP* 


AOVANCE CHARACTER POINTER 


0193 


75115 


037120 




ISZ 


M83CT 


INCREMENT COUNT 


(9194 


75116 


127104 




JMP 


MESCXfl 


RETURN 


0195* 














0I96 


75U7 


026170 


ME8WK 


JMP 


LCHRi 




0197 


75120 


000000 


M88CT 


bss 


1 




0198 


75121 


000000 


MSUP2 


BBS 


1 




0199 


75122 


000112 


• .74 


DEC 


74 




0200 


75123 




•*ES 


EUU 


* 
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0202* THE LPRINTER COMMAND IS USED TO REUUEST THE USE OF THE LINE 

0203* PRINTER. THE FORMAT I$l 

0204* LPRINTER" (CHARACTER 3TRINGJ 

0205* 



0207 

020S 

0209 

0210 

02U 

0212 

0213 

0214 

0215 

0216 

0217 

021S 

0210* 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0236 

0239 

0240* 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0252 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 

75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 

75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 



75037 
75040 
75041 
75044 
75045 
75046 
75047 
75057 

00030 
75060 



060273 

040336 
070030 
060255 
002003 
027013 
050030 
002001 
02/031 
070256 
026226 

160030 
030246 
114500 
102311 
027016 
102511 
002003 
027034 

002Q20 
026430 

060030 
070255 
070256 
026226 
060341 
067037 
026432 
060327 
067045 
026432 



075040 
005H4 
050040 
006400 
075046 
005114 
050040 
006400 



ORG LIBRA 

LOA MLINK+i GET TTY* ADDRESS 

ADA t *?TNUM-?LINK 



LPRl 



STA PRITY 
LDA PRIST 
SZA,RSS 
JMP LPRl 
CPA PRITY 
RSS 

JMP LPR2 
8TA LFLAG 
JMP LLEND 



LDA 

IOR 

J3B 

S^S 

JMP 

LIA 

SZA, 

JMp 

8SA 

JMP 
LDA 
STA 
STA 
JMP 

LPR2 LDA 
LDB 
JMP 

L PR3 lOA 
LDB 
JMP 



PRITY, I 

LPR 

S14SC,I 

CH2 

*-l 

Ch2 

RSS 

LPR3 

ILFER 

PRITY 

PRIST 

LFLAG 

LLEND 

.-9 

LPMi 

LIBER 

,-19 

LPM2 

LIBEr 



SAVE IT 

GET LP INDICATOR 

LP BUSY? 

NO 

YES • DOES USER 

HAVE LP? 
NO 

Y ES • SET LPR COMMAND FLAG 
TERMINATE 

GET TTY# 
ADD OPCODE 
TELL I/O PROCESSOR 
AND WAIT PCR 
RESPONSE 
qET RESPONSE 
DID USER GET LP? 
NO - NOT AVAILABLE 

NO • HEADING TOO LONG 
YES • GET TTY# ADDRESS 
AND SET LP INDICATOR 
SET LPR COMMAND FLAG 
TERMINATE 
LP BUSY 



L P NOT AVAI L AB L E 



8UP 
LPMi DEF **1 

OCT 5114 

A8C 3,p BUSY 

OCT 6400 
LPM2 DEF **i 

OCT 5114 

ASC 8,P NOT AVAILABLE 

OCT 6400 

UN3 
PRITY EQU LTEMP 
SLpR EQU * 
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0254* 

0255* 

0256* 

0257* 

0258* 

0259* 

0260* 

0261* 

0262* 

0263* 

0264* 

0265* 

0266* 

0267* 

0266 

0269 

0270 

0271 

0272 

0273 

0274 

0275 
0276 
0277 
0278 
2 79 



0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0286 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
029« 
0297 
0298 
0299 
0300 



this command gives a print out of the baud rate & 
char. size f r which the po*t is Configured, 

the data printed isf 

PORT NR, 
BAUD RATE 
CHAR, SIZE 

FORMAT; 



OR 



PQRT.PQRT#[,PQRT),,,,, ffff ) CR 



PORT-AUU 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75023 
75w24 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75036 
75037 
76037 
75040 
75041 
75042 
75043 
75044 



064273 

044341 

160001 

050612 

027023 

060327 

067010 

026432 
075011 

005120 

05111J 

0531U 

046105 

043595 

042040 

041517 

046515 

048516 

042040 

002400 
070030 
070031 
070032 
070034 
060177 
070033 
016164 
026430 
053422 
027062 

017320 

017330 

01*l6« 
027045 

050426 
002001 
027036 



ORG LISRA 
LDB Ml.lNK + 1 
ADB ,*?ID«?UINK 



UPOg EOU 
CLA 
STA 
5TA 
STA 
STA 
LDA 
STA 
JSB 
JMP 
CPA 
JMP 

Up015 Eg(J 
jSt> 



UPOl 



EOU 
JSB 
JSB 
JMP 
CPA 

Rsa 

JMP 



GET ID. 

A000? 

YES 

no. 'not allowedj 



LDA B,I 

CPA A000 

JMP UPO0 

LDA .-19 

LDB **2 

JMP LIIER 

DEF *♦! 

OCT 5120 

A9C 9,RIVItEGE0 COMMAND 



LTEWP 

LT£MP*1 

LTEMP+2 

UpoCi 

NPORT 

UpqCN 

LCHAR 

ILFER 

UPO.A 

UP04 

* 

UPODC 

* 

UPOSP 

LCH#R 

UP03 

,♦548 

UPOlB 



SET UP LIMIT, 

GET CHARACTER, 
CRt tRROR. 
NO CR. •"A"? 
YEB, 

NU, DIGIT? 

YES, COMPUTE PORT NR, 
RET CHARACTER, 

NO CR, COMMA? 

YES, 

NO, 
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0301 


75045 




UP03 fcyu 


* 




0302 


75045 


060034 


LOA 


UPOCi 


CHECK LEGALITY, 


0303 


75046 


040033 


ADA 


UPOCN 




0304 


75047 


002021 


SSA 1 


'RSS 


> LIMIT? 


0305 


75050 


026430 


JMP 


ILFER 


YES, ERROR, 


B3<36 


75051 


017266 


JSB 


UPQiN 


NO. SET INDICATOR, 


0307* 












0306* 












0309 


75052 


060265 


LDA 


LCHCR 


PICK UP LAST CHAR, 


0310 


75053 


050367 


CPA 


.♦158 


WAS IT A CR? 


0311 


75054 


027U0 


JMP 


UP05 


YES, GIVE THE INFORMATION, 


0312 


75055 


002400 


CLA 






0313 


75056 


070034 


STA 


UPOCI 




0314 


75057 


016164 


JSB 


LCHAR 


NO, BET N E XT CHARACTER, 


0315 


75060 


027110 


JMP 


UP05 


CR. GIVE THE INFORMATION, 


0316 


75 61 


027336 


JMP 


UPOiS 


NO CR, 


0317* 












0316* 












03*9 


7506g 




UPO4 EQU 


* 


COMMAND FOR ALL PORTS GIVEN, 


32 


75062 


016164 


JSB 


LCHAR 


GET NEXT CHAR 


0321 


75063 


026430 


JMP 


ILFER 


CR, ERROR, 


0322 


75064 


053423 


CPA 


UPU.L 


NO CR, f"L»? 


0323 


75065 


002001 


RSS 






0324 


75066 


026430 


JMP 


ILFER 


NO ERROR, 

YES, GE T NEXT CHAR, 


0325 


75067 


016164 


JSB 


LCHAR 


0326 


75070 


026430 


JMP 


ILFER 


CR, ERRORJ 


0327 


75071 


053423 


CPA 


UPO.L 


»"L"? 


0328 


75072 


002001 


RSS 






0329 


75073 


026430 


JMP 


ILP&R 


no. Error. 


0330 


75074 


016164 


JSB 


lchar 


YES, G^T NEXT ChAR, 


0331 


75075 


002001 


RSS 






0332 


75076 


026430 


JMP 


ILFER 


NO CR, ERROR, 


0333 


75077 


002400 


Cla 




CR, 


0334 


75100 




UPQ18 EQU 


* 




0335 


75100 


070034 


STA 


UPOCl 




0336 


75101 


040033 


AOA 


UPOCN 




0337 


75102 


002021 


SSA, 


RSS 


>LIMI T ? 


0336 


75103 


027110 


JMP 


UP05 


YES, 


0339 


75104 


017256 


JSb 


UPOIN 


NO. SET INDICATOR, 


0340 


75105 


060034 


LOA 


UPOCl 


BUMP PORT NR, 


03«1 


75106 


002004 


INA 






0342 


75107 


027100 


JMP 


upoie 




0343* 






GIVE 1 


rHE information. 


0344 


75U0 




UP05 E«U 


* 


PRINT HEADING, 


0345 


75110 


017340 


JSB 


UPOPR 




0346 


75111 


005040 


OCT 


5040 


LF*3PACE 


0347 


75112 
75U3 
75114 
75115 


050117 
051124 
020040 
020040 


ASC 


4, PORT 




0346 


75U6 
78117 

75120 
75121 
75122 


041101 
052904 

020122 
040524 
042440 


ASC 


6,bAUQ 


RATE 



PACE 0524 *45 PORT » USE* CONSOLE, 





75123 020040 








0349 


75124 041510 

75125 040522 

75126 027040 

75127 051511 
75130 055105 


ASC 


5 , CHAR, 


SIZE 


0350 


75131 006412 


OCT 


6412 


CR-LF 


0351 


75132 000000 


OCT 







0352 


75133 017400 


J38 


UPTSV 


SAVE VARIABLES, 


0353 


75134 116023 


J 30 


SCHOU,I 


SUSPEND, 


0354 


75135 017411 


J3§ 


UPTRV 


RETRIEVE vAkIABLEs, 


0355 


75136 


UP06 EQU 


* 




0356 


75136 060032 


LDA 


UTSW*2 




0357 


75137 050372 


CPA 


,♦16 


DONE? 


0358 


75140 027157 


JMP 


UP014 


YES, 


0359 


75U1 006400 


CL0 




CLEAR (B) AND GET 


0360 


75142 060030 


IDA 


LTEMP 


LOWER INDICATOR, 


0361 


75143 000010 


SUA 




BIT SET? 


0362 


75144 006004 


INS 




YES, BUMP (8), 


0363 


75145 001300 


RA* 




ROTATE RIGHT* 


0364 


75146 070030 


STA 


LTEMP 


RESTORE INDICATOR, 


0365 


75147 006003 


SZB, 


>RSS 


If BI|*0, JUMP, 


0366 


75150 027155 


J*P 


UP»46 


OTHERWISE SET UP BUFFER 


0367 


75151 017200 


J 88 


UP07 


AND PRINT, 


0368 


75152 01740a 


JSB 


UPTSV 


SAVE VARIABLES, 


0369 


75153 116023 


J 9* 


•CH9IM 


SUSPEND, 


0370 


75154 017411 


J00 


UPTiV 


RETRIEVE VARIABLES, 


0371 


75155 


UPQ16 E0U 


* 




0372 


75155 034032 


Z« 


LTMP+2 


BUMP COUNTER, 


0373 


75156 027136 


jm» 


UP04J 


GO BACK, 


0374# 










0375 


75157 


0PU14 E«U 


* 




0376 


75157 060032 


U>A 


LTtM#*t 




0377 


75160 050412 


CPA 


.♦32 


DONE? 


0378 


75161 026226 


JMP 


LLENO 


YES, GET OUT. 
CLEAR (B) AND UE T 


0379 


75162 006400 


cm 




0380 


75163 060031 


L8A 


LT€NP*i 


UPPER INDICATOR, 


0381 


75164 000018 


*LA 




BIT SET? 


0382 


75165 006004 


I*B 




yE$, bump (B), 


0383 


75166 001300 


RaR 
STA 




ROTaTE RIGHT, 


0384 


75167 070031 


LT§HP*1 


RESTORE INDICATOR, 


0385 


75170 006003 


«8, 


>mt 


IF BIT»0# JUMP, 


0386 


75171 027176 


J«P 


UP017 


OTHERWISE SET UP BUFFER 


0387 


75172 017200 


j* 


up or 


AND PRINT, 


0388 


75173 017400 


j*80 


UPTSV 


SAVE VARIABLES, 


lo389 


75174 116023 


j 00 


SCNOU,! 


SUSPEND, 


0390 


75175 0174U 


J 80 


UPTRV 


H ETRlEVE variables. 


0391 


75176 


UP017 E(JU 


* 




0392 


75176 034032 


isz 


LTEMP+2 


BgMP COgNTER, 


0393 


75177 027157 


JmP 


UP014 


GO BACK, 


0394* 










0395* 










0396 


75200 0O0000 


0PO7 NOP 






0397 


75201 017340 


Jt« 


UPOP* 


BLANK-BLANK 


0398 


75202 020040 


UCT 


2«t4« 
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0399 


75203 


000000 


OCT 







0400 


75204 


060412 


LDA 


,♦408 


BLANK 


0401 


75205 


016132 


JSB 


LOUT 




0402 


75206 


060032 


IDA 


LTEMP+2 


GET PORT NR, 


0403 


75207 


017354 


J80 


UPD2D 


OUTPUT PORT NR, 


0404 


75210 




UP09 EQU 


* 




0405 


75210 


017340 


JSB 


UPOPR 


PRINT 6 BLANKS, 


0406 


75211 
75212 
75213 


020040 
020040 
020040 


ASC 


3, 




0407 


75214 


000000 


OCT 







0408 


75215 


060032 


LDA 


LTEMP+2 


GET PORT NR, 


0409 


75216 


001727 


ALF, 


,ALF 


ROTATE, 


0410 


75217 


032775 


IOR 


WSP 


MERGE WITH OPCODE, 


0411 


75220 


114500 


JSB 


S14SC,I 


ASK FOR BAUD RATE, 


0412 


75221 


102311 


SFS 


CH2 




0413 


75222 


027221 


JMP 


♦ •1 




0414 


75223 


1025U 


LIA 


CH2 


GET BAUD RATE, 


0415 


75224 


017371 


JSB 


UPD3D 


OUTPUT BAUD RATE, 


0416 


75225 


017340 


J§8 


gPOPR 


output 10 blanks. 


0417 


75226 
75227 
75230 
75231 
75232 


020040 
020040 
020940 
020040 
020040 


ASC 


5, 




0418 


75233 


000000 


OCT 







0419 


75234 


060032 


LDA 


LTEMP+2 


GET PORT NR, 


0420 


75235 


001727 


ALF, 


,ALF 


ROTATE, 


0421 


75236 


030252 


IOR 


wcs 




0422 


75237 


114500 


JSB 


S14SC, I 


ASK FOR CHAR SI Z E, 


0423 


75240 


102311 


$Fs 


CH2 




0424 


75241 


027240 


JMP 


**1 




042s 


75242 


1025 11 


LiA 


CH2 


GET CHAR, SIZE, 


0426 


75243 


002003 


SZAj 


.RSS 


a0? 


0427 


75244 


027247 


JMP 


UP012 


YES, 


0428 


75245 


017363 


J 8 8 


UPOOG 


no, p R iN T i t . 


0429 


75246 


027251 


JMP 


UP013 




0430 


75247 




UP012 E«U 


* 




0431 


75247 


060424 


LDA 


,♦42 


PRINT "*", 


0432 


75250 


016132 


JSB 


LOUT 




0433 


75251 




UPQ13 EQU 


* 




0434 


75251 


060367 


IDA 


.♦15B 


CR. 


043 5 


75252 


016132 


JSB 


LOUT 




0436 


75253 


060364 


LOA 


.♦12* 


LF, 


0437 


75254 


016132 


JSB 


LOUT 




0438 


75255 


127200 


JMP 


UP07,I 


RETURN, 


0439* 












0440* 












0441 


75256 


000000 


UPOIN NOP 




SETS PORT BIT IN INDICATOR, 


0442 


75257 


060034 


LOA 


UPOC1 


A«PORT# 


0443 


75260 


064000 


LOB 


A 


B«PORT# 


0444 


75261 


005323 


RBR, 


,RBR 


ROTATE BIt#* INtO BI T #0, 


0445 


75262 


005323 


RBR, 


,RBR 




0446 


75263 


004010 


SLB 




PQRT#> 15V 


0447 


75264 


040332 


ADA 


,••16 


YES, MAKE PORT# FROM 0-15, 
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0446 


75265 


003004 




CMA, 


rlNA 


NO, NEGATE, 


0449 


75266 


070036 




STA 


upccn 


SET UP COUNTER, 


0450 


75267 


060030 




LOA 


LTEMP 


A»LQwER iNOIyATOR, 


0451 


75270 


004010 




SIB 




UppER OR LOWER port? 


0452 


75271 


060031 




LOA 


LTEMP+i 


UPPER, 


0453 


75272 


064036 




L DB 


UPCCn 


BsCqUnTER. 


0454 


75273 




UP0N1 


EQU 


* 




0455 


75273 


006003 




SZB, 


'RSS 


DONE? 


fc)456 


75274 


027300 




JMP 


UP0N2 


YES, 


0457 


75275 


001300 




RAR 




NO, ROTATE RIGHT, 


045b 


75276 


006004 




IN8 




bump counter. 


0459 


75277 


027273 




JMP 


UP0N1 


GO BACK, 


0460 


75300 




UPQN2 


EUU 


* 




0461 


75300 


030353 




IOR 


.♦1 


SET dIT, 


0462* 














0463 


75301 


064036 




LOB 


UPCCN 


B»COUNTER, 


0464 


75302 




UP0N3 


EQU 


* 




0465 


75302 


006003 




SZB, 


.RSS 


DONE? 


0466 


75303 


027307 




JMP 


UP0N4 


YES, 


0467 


753»<U 


001200 




RAL 




NO, ROTATE LEFT, 


0468 


7530b 


006004 




INB 




BUMP COUNTER, 


0469 


75306 


027302 




JMp 


UP0N3 


GO BACK, 


0470 


75307 




UPQN4 


EQU 


* 




0471 


75307 


064034 




LOB 


UP0C1 




0472 


75310 


005323 




RBR* 


RBR 




0473 


75311 


005323 




RBftj 


RBR 




0474 


75312 


004010 




SLB 




UPPER OR LOWER PORT? 


0475 


75313 


027316 




JMP 


UP0N5 




0476 


75314 


070030 




STA 


LTEMP 


LOWER, STORE IN LOWER INOIC, 


\dA77 


75315 


002001 




RSS 






0478 


75316 




UPQN5 


EQU 


* 




0479 


75316 


070031 




STA 


LTEMP*! 


UPPER, STORE IN UPPER INOIC, 


0480 


75317 


127256 




JMp 


UpOIN,I 


EXIT, 


0481* 














0482* 














0483 


75320 


000000 


UPQDG 


NOP 






0484 


75321 


040316 




AOA 


M78# 


DIGIT? 


0485 


75322 


002021 




SSA, 


-RSS 




04q6 


7 5323 


026430 




JMP 


ILFER 


NO, ERROR, 


0487 


75324 


04()364 




AOA 


• ♦10 


MAY BE, 


0488 


75325 


002020 




SSA 






0489 


75326 


026430 




JMP 


ILFER 


ERROR, 


0490 


75327 


127320 




Jmp 


UPqDG,! 


RETUR N , 


0491* 














0492* 














0493 


75330 


000000 


UPOSP 


NOP 






0494 


75331 


070035 




STA 


UpOC2 


SAVE (A), 


0495 


75332 


060034 




loa 


UPUCl 


UPDATE 


0496 


75333 
75334 


100200 
000364 




MPY 


,♦10 




k)497 


75335 


040035 




AOA 


UP0C2 


PORT 


0498 


75336 


070034 




STA 


UpOCl 


NUMBER, 


0499 


75337 


127330 




JM? 


UPOSP, I 




0500* 














0501* 


UPOPR OUTPUT* A STRING, 


■ 
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0502* 














0503 


75340 


000000 


UPOPR 


NOP 






0504 


75341 


163340 




LOA 


UPOPR#I 




0505 


75342 


002003 




SZA, 


r RSS 


END OF STRING? 


0506 


75343 


127340 




JMP 


UPOPR, I 


YES, RETURN, 


0507 


75344 


001727 




ALF, 


• ALF 


NO, OUTPUT 


0508 


75345 


010443 




AND 


B377 


LEFT 


0509 


75346 


016132 




JSB 


LOUT 


CHARACTER, 


0510 


75347 


163340 




LOA 


UPOPr,I 


OUTPUT 


0511 


75350 


010443 




AND 


B377 


RIGHT 


0512 


75351 


016132 




JSB 


LOUT 


CHARACTER, 


05l3 


75352 


037340 




ISZ 


UPOPR 


GET NEXT WORD, 


05t4 


75353 


027341 




JMP 


UPOPR+i 




0515* 














0516* 


UPD20 PRINTS 


A 2.0XC 


NR, 




0517* 














0518 


75354 


000000 


UPD2D 


NOP 






0519 


75355 


006400 




CLB 






0520 


75356 
75357 


100400 
000364 




DIV 


.♦10 




0521 


75360 


017363 




JSB 


UPDDG 




0522 


75361 


017363 




JSB 


UPOOG 




0523 


75362 


127354 




JMP 


UPD2D,I 




0524* 














0525* 


UPDDG PRINTS 


A DIGIT. 






0526* 














0527 


75363 


000000 


UPDDG 


NOP 






0528 


75364 


074040 




STB 


LTEMP+8 




0529 


75365 


040432 




AOA 


,*60B 




0530 


75366 


016132 




JSB 


LOUT 




0531 


75367 


060040 




LDA 


LtEMP+8 




0532 


75370 


127363 




JMP 


UPDDG, I 




0533* 














0534* 














0535* 


UPD3D 


OUTPUTS 


A 3.DIGIT 


NUMBER, 




0536* 














0537 


75371 


000000 


UPQ3D 


NOP 






053a 


75372 


006400 




CLB 






0539 


75373 
75374 


100400 
000437 




DIV 


• 100 




0540 


75375 


017363 




JSB 


UPDDG 


OUTPUT FIRST DIGIT, 


0541 


75376 


017354 




JSB 


UPD2D 


OUTPUT LAST TWO, 


0542 


75377 


127371 




JMp 


UpD3D,I 




0543* 














0544* 














0545* 


UPTSV SAVES 


VARIABLES, 






0546* 














0547 


75400 


000000 


UPTSV 


NOP 






0548 


75401 


064273 




ldb 


MLlNK+1 




0549 


75402 


044355 




Adb 


,*?TEMP* 


'7LINK 


0550 


75403 


074051 




STB 


MOVED 




0551 


75404 


064520 




LOB 


DLTEM 




0552 


75405 


0740g0 




STB 


MOVES 




0553 


75406 


064347 




LDB 


, *3 




0554 


75407 


016257 




JSB 


MOVEW 





PAGfc 0528 #45 PORT - USfcR CONSOLE, 



0555 

0557* 

0550* 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0569* 

0569* 

0570* 

0571 

0572 

0573 

0574 

0575 

0576 

0577 



75410 127400 



JMP UPTSVrl 



UPTRV RESTORES VARIABLES, 



754U 
75412 
75413 
75414 
75415 

75416 
75417 
75420 
75421 



75422 
75423 

00033 
00034 
00035 
00036 
75424 



000000 

064273 
044355 
074050 
064520 

074051 
064347 
016267 
127411 



000101 
000114 



UPTRV 



UPO.A 
UPO.L 
UPOCN 
UPOCl 
UPOC2 
UPCCN 
SPUR* 



NOP 
LOB 
AOB 
STB 
LOB 
STB 
LOB 
JSB 
JMP 



OCT 
OCT 
EQU 
EOU 
EQU 
EQU 
EQU 



mLIn**1 

,*?T£MP« 

MOVES 

DLTfcM 

MOVEO 

.-3 

MOVEW 

UPTRVfl 



114 

LTEMP+3 
LTEMP*4 
LTEMP*5 

LTEMP*6 

* 



>?LINK 



•A, 
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8579* THE rEPOrT COMMAND CAUSES IOT INFO TO SE LISTED ON THE SYSTtM 

0580* TE L ETYPE f EACH USER ID IS LISTED, ALONG WITH THE DISC AND TImE 

0581* USeD TO DATfc. DISC STORAGE IS LIST£D IN WORDS, AND TIME IS LISTgD 

05e2* IN MINUTES, 



0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

05g7 

0598 

0599* 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

06g7 

0626 

0629 

0630 

0631 

0632 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75011 
75012 
75013 
75014 

75015 
75016 
75017 
75020 
75021 
75022 
75023 
75 24 
75025 
75026 
75027 
75027 
75030 
75031 
75032 
75033 
75033 
75034 
75035 
75036 
75037 
75037 
75040 
75 4l 
75042 
75043 
75044 
75045 
75046 
75047 
7505® 
75051 
75052 



002404 
070052 
114572 
0270U 
003400 
040054 
070054 
016315 
026275 

060052 
072654 
116021 
016213 

062654 
070052 
060305 
070051 
063267 
070050 
067333 
016257 
016370 
060076 

072653 
164000 
006002 
027037 

053325 
027072 
040355 
027027 

074072 
062653 
040351 
160000 
064566 
016231 
116015 
064072 
007004 
044562 
074030 
064562 



ORG LIBRA 
CLA,INA 

STA ID 

JSB T35CH,I 

JMP REPNI 
CCA 

ADA T35CP 

STA T35CP 

JSB GETID 

JMP LFRER 

rEpnI EqU * 

LDA jD 

STA REPLN 

JSB HOBFA,! 

JSB T35SP 



REPAB 



REpSQ 



RfcPAP 



LDA 
STA 
LDA 
STA 
LDA 
STA 
LDB 
JSB 
jSB 
LDA 
EQU 
STA 
LDB 
3ZB 
JMP 
EQU 
CpA 

JMP 

ADA 

JMP 

EQU 

STB 

LDA 

ADA 

LDA 

LDB 

JSB 

JSB 

LDB 

CMB f 

ADB 

STB 

LDB 



REPLN 

ID 

T35B1 

MOVED 

REPHD 

MOyES 

REP29 

MQVEW 

GTlL 

IDLNP 

* 

REPPT 

A,I 

rEPAF 

* 

RIDCL 

REPS 

,♦3 

REPAB 

* 

WORD 

REPPT 

t"l 

A, I 

LIBDI 

DRUML 

8ICKP,I 

WORD 

INB 

LIBD 

REPBF 

LIBD 



START WITH ID OF 1 • 1 

IN CASE WE DON'T GO TO GETID 
SEE WHAT FIRST CHARACTER IS 
CR * ■• STAR7 AT BEGINNING 
A «- M 
MQVfc BACK BUFFER POINTER 

GET STARTING ID CODE 
SHOULD END WITH CR 

SAVE jD 

IN BUFFER 
PRINY HEADING 

AND SUSPEND 

RESTORE 
ID 
TO PRINT 
BUFFER* 



FIND WHAT TRACK IT'S ON 
GET POINTER TO LENGTH WORD 

SAVE LIVE TABLE ENTRY 
GET THIS TRACKS LENGTH 
SKIP IF TRACK EMPTY 
GOOD TRACK, GO 

last id track? 
yes, e m pty id tab u e 

ADVANCE TO NEXT EnTRY 



SAVE ACTUAL LENGTH 



GET DRUM ADDRESS 

READ IT IN 

CAN'T, DZE GRACEFULLY 



MAKE POINTER TO LAST ENTRY*! 
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0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 

0650 

0651 

0652 

0653 

0654* 

0655 

0656 

0657* 

0650 

0659 

0660 

0661 

0662 

0663 
0664 
0665 

0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 

0676 
0677 

0678 
0679 
0680 
0661 
0682 
0683 
0684 
06e5 
0686 
0687* 



75053 
75053 
75054 
75055 
75056 
75057 
75060 
79961 
75062 
75063 
75064 
75065 
75065 
75066 
75067 
75070 
7697 1 

75072 
75072 
75073 
75074 

75075 
75076 

75077 

75100 
75101 
75101 
75102 

75103 
75104 
75105 

75106 
75107 
75110 
75111 
75112 
75113 
75114 
75115 

75116 
75117 
75120 
75121 
75122 
75123 
75124 
75125 
75126 
75127 
75130 
75131 
75132 



062653 
054030 
027033 
160001 
003000 
040052 
002020 
027065 
044362 
027053 

044674 
044072 
076654 
063334 
027076 

063334 
064305 
026271 

064305 
016213 

060305 

070030 

066653 
044351 
160001 
070033 
162653 
003004 
042654 
070031 
006400 
101046 
070001 
040033 
005700 
005222 
007004 
044031 
074031 
0444^2 
007004 
074072 
064566 
016231 
116015 
060031 
040562 
070031 



REpSC EQU 
LOA 
CPB 

JMP 
LpA 

CMA 

ADA 
SSA 

JMP 
ADB 
JMP 
REP8E EOU 
ADB 
ADB 
8TS 
IDA 
JMP 
EQU 
LOA 
LOB 
JMP 



REPS 
REP2 



R£P1 



* 

REPPT 

REP0F 

REPSS 

B,I 

ID 

REPSE 

• ♦8 

REPSC 

* 

MLIBD 

WORD 

REPLN 

REP67 

RgPl 

* 

REP57 
T35B1 
LEND+2 



LOB T35B1 
JSB T35SP 



LOA 

STA 

REPNT EUU 

LOB 

AOB 

LOA 

STA 

LOA 

CMA, 

ADA 

SjA 

CLB 

L3R 

STA 

AQA 

BLF 

RBL, 

CMS, 

AOB 

STB 

ADB 

CMB, 

STB 

LOB 

JSB 

JSB 

LDA 

ADA 

STA 



T35B1 
REPBF 

* 

REPPT 

,•1 

B,I 

REPK 

REPPT,! 

INA 

REPLN 

REPID 

6 
1 
REPK 

RBL 

INB 

REPID 

REPIO 

.♦24 

INB 

WORO 

LIBOI 

ORUML 

SICKP,1 

REPIO 

LIBO 

REPIO 



CHfcCK for ENC 
NOT ON ^H^$ TRACK 
GET THIS Ip 

are we past yet 

yes, this is where we start 
move up to next entry 



MAKE POINTER h OR LATER 

SET COUNT ON THIS TRACK 
GET CHARACTER COUNT 



WE WILL PRINT 57 CHARACTERS, 
OTHERWISE* JUST PRINT THE 
HEADING AND TERMINATE, 

PRINT AND 
SUSPEND, 

SET BUFFER 
POINTER, 

GET CURRENT TRACK PQjNTER 

GET LOCATION 
SAVE DRUM ADDRESS 
COMPUTE PARAMETERS FOR DRUM 
TRANSFER, 

REPLN.IDLEN, 

DjV BY 64 TO GET # OP SECTORS 

TO SKIP, 
COMPUTE DRUM A&DRESS 
COMPUTE # OF WORDS 

TO TRANSFER, 



LN*IDLEN-(LN»IDLEN) 764*64 
SET TRANSFER LENGTH TO READ 
3 NEW ID RECORDS, 



DRUM ERRQRr GO DIE GRACEFULLY 
SET REPIO TO POINT TO THE 
FIRST ENTRY TO BE CONVERTED, 
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0688* 

0689* 
0690* 

0691* 

0692 

0693 
0694 
0695 

0696 
0697 
0696 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
id7d7 
0708 
0709 
0710 

07 11 

0712 

0713 
0714 
0715 
0716 
0717 
071 8 
0719 
0720 
0721 
0722 
0723 

0724 

0725 

0726 

0727 

0726* 

07«9* 

0730* 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 



NOW CONVERT ENTRIES INTO THE BUFFER, REPID POINTS AT Th£ ENTRY, 
REPBF POINTS TO THE OUTPUT BUFFER, 



75133 
75134 
75135 
75136 

75137, 
75140 

75U1 
75U2 
75143 

75144 
75145 

75146 
75147 
75150 
75151 
75152 
75153 
75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75i74 
75175 
75176 
75177 



160031 
010602 
006400 
100400 

000437 
074032 
070001 
160031 
001121 
013330 
040001 
043331 
170030 
034030 
060032 
017233 
170030 
034030 
060031 
040357 
070031 
160031 
017243 
034031 
034031 
160031 
017243 
060570 
170030 
034030 
034030 
034031 
066654 
044362 
076654 
006002 
027226 



REP4 



IDA 
AND 
CUB 
DIV 

STB 

STA 

IDA 

ARS, 

AND 

ADA 

AqA 

STA 

ISZ 
LDA 
JSB 
STA 
ISZ 
LDA 

ADA 
STA 
LDA 
JSB 

1ST. 
ISz 

LDA 
JSB 
LDA 
STA 
ISZ 
ISZ 
ISZ 

LDB 
ADB 
STB 
SZB 
JMp 



REPID, I 
B1777 

,100 

REPT 

1 

REPID, I 

ARS 

REPMS 

1 

REPFX 

REPBFfI 

REPBF 

REPT 

REPNM 

REPBF,! 

REPBF 

REHiD 

.+5 

REPID 

REPID,! 

REPTR 

REPID 

REPID 

REPID, I 

REPTR 

ASCBB 

REPBF*! 

REPBF 

REPBF 

REPID 

REPLN 

,♦8 

REPLN 

REp3 



GET ID, 

MASK NUMBER PART, 

GET #7100 IN A, * MOD 100 IN 



8AVE LAST 2 DIGITS, 
COMBINE FIRST DIGIT WITH 
LETTER, 



STORE ASCII LfcTTER&DIGIT in BUf, 

CONVERT LAST 2 Dj G lTS 
AND STORE IN BUFFER, 

MOVE REPBF TO POINT AT TiME AREA 
SET REPID TO POINT 
TO USERS TIME, 

SET USERS TIME. 
CONVERT INTO BUFFER, 
POINT TO DISC USED 
AND 

CQNyERT IT, 

GET A PAIR OF BLANKS 

BLANK OUT THIS SPOT 

MOVE BUFFER POINTER UP FOR 

NEXT ENTRY* 
MOVE ID POINTER ALSO, 
BUMP ID ENTRY COUNTER, 



IF ANY LEFT, TE$T FOr BuFFEr 
FULL, 



ARRIVE HERE WHEN ME HAVE COMPLETED AN ID TRACK 



75200 REPET EQU * 

75200 062653 LDA REPPT 

75201 053325 CPA RIDCL 

75202 027216 JMP REPEV 

75203 040355 ADA ,+3 

75204 072653 STA REPPT 

75205 164000 LDB A, I 

75206 076654 S TB REPLN 

75207 006003 87,B,R3S 

75210 027200 JMP REPET 

75211 063335 LDA REP56 



get current idec table pointer 
mas this the last idt track? 
yes, oone with report 
no, advance to the next idec ent 

get count on this track 
and s et the counter 

empty track, try next 
if eno of Buffer, 
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0742 


75212 


064030 


LOB 


REPBF 


GO TO PRINT 


0743 


75 2 l3 


057327 


CPB 


REPNO 


AND SUSPEND 


0744 


75214 


027tf7o 


JMP 


REPl 




0745 


75215 


027101 


JMP 


REPNT 


OTHERWISE READ NExT TRACK 


0746* 










Do another entry 


0747 


75216 




REPEV EQU 


* 




0748 


75216 


060350 


LOA 


.-2 




0749 


75217 


040030 


ADA 


REPBF 




0750 


75220 


067336 


LOB 


REPSL 




0751 


75221 


174000 


STB 


A, I 


SPACE-LF 


0752 


75222 


040355 


ADA 


.♦3 


COMPOTE » 


0753 


75223 


043326 


ADA 


REPTT 


OF CHARACTERS, 


0754 


75224 


001000 


ALS 






0755 


75225 


027073 


JMP 


REP2 




0756* 












0757 


75226 


063335 


REP3 LOA 


REP66 


IF ENO OF 


075b 


75227 


064030 


LOB 


REPBF 


BUFFER, GO TO 


075g 


75230 


057327 


CP8 


REPND 


PRINT AND SUSPEND, 


0760 


75231 


027075 


JMP 


REPl 




0761 


75232 


027133 


JMP 


REP4 


ELSE GO DO NEXT ENTRY, 


0762* 












<0763 


75233 


000000 


REPNM NOP 




CONVERT A #<100 TO ASCII, 


0764 


75234 


006400 


CLB 




GET 1ST DIGIT IN A, 


0765 


75235 
75236 


100400 
000364 


OIV 


. + 10 


2no i n b. 


0766 


75237 


001727 


ALF, 


rALF 


PACK AND 


0767 


75240 


040001 


AOA 


1 


ADO ON ASCII 


0768 


75241 


040574 


AOA 


ASC00 


BITS, 


0769 


75242 


127233 


JMP 


REPNM, I 




0770* 












*>77l 


75243 


000000 


REPTR NOP 




TRANSLATE A 5-DIGIT NUMBER 


0772 


75244 


006400 


CLB 




INTO THE SUFFER, 


0773 


75245 
75246 


100400 
001032 


DIV 


DVSRS 


CONVERT FIkSI 


0774 


7524 7 


043332 


AOA 


REPB0 


DIGIT. 


77 5 


75250 


170030 


STA 


REPBF, I 


PUT IN 


0776 


75251 


034030 


ISZ 


REPBF 


BUFFER. 


0777 


75252 


060001 


LOA 


1 


NOW GET THE REST, 


0778 


75253 


006400 


CLB 






0779 


75254 
75255 


100400 
000437 


DiV 


.100 


COMPUTE AS 2 2-Di g iT #8, 


0780 


75256 


074033 


STB 


REPK 


SAVE 2N0 HALF, 


0781 


75257 


017233 


JSB 


REPNM 


CONVERT AND STORE 


0782 


75260 


170030 


STA 


REPBF, I 


FIRST PART. 


7 83 


75261 


034030 


ISZ 


REPBF 




07 8 4 


75262 


060033 


LOA 


REPK 


SAME WITH 


0785 


75263 


017233 


JSB 


REPNM 


2ND PART, 


07 8 6 


75264 


170030 


STA 


REPBF,! 




0787 


75265 


034030 


ISZ 


REPBF 




07 8 8 


75266 


127243 


JMP 


REPTR, J 




0709* 












0790 


75267 


075270 


REPHD DEF 


**1 




0791 


75270 


005040 


OCT 


5040 




0792 


75271 


044504 


ASC 


20,10 TIME SPACE 10 TIME SpA 




75272 


020040 
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75273 


052111 










75274 


046505 










75275 


020040 










75276 


051520 










75277 


040503 










75300 


042440 










75301 


020040 










75302 


020040 










75303 


044504 










75304 


020040 










75305 


052111 










75306 


046505 










75307 


020040 










75310 


051520 










75311 


040503 










75312 


042440 










75313 


020040 










75314 


020040 








0793 


75315 
75316 
75317 
75320 
75321 
75322 
75323 
75324 


044504 
020040 
052111 
046505 
020040 
051520 
040503 
042440 




ASC 


8, ID Ti 


0794 


75325 


000110 


RIOCU 


DEF 


IDEC+6 


0795 


74653 




REPPT 


EQU 


T35&F+34 


0796 


74654 




REPLN 


EQU 


T356F+35 


0797 


00030 




REPBF 


EQU 


LTEMP 


0796 


00031 




REPID 


EQU 


LTEMP*l 


0799 


00032 




REPT 


EQU 


LTEMP+2 


0800 


00033 




REPK 


EQU 


LTEMP+3 


0601 


75326 


103165 


REPTT 


AB3 


•T35BF-2 


0802 


75327 


074647 


REPND 


DEF 


T35BF+30 


0803 


75330 


017400 


REpMS 


OCT 


17400 


0804 


75331 


042060 


REPFX 


ASC 


1,*0 


0805 


75332 


020060 


REP60 


ASC 


tr 


0806 


75333 


177743 


REP29 


DEC 


-29 


0807 


75334 


000071 


REP57 


DEC 


57 


0806 


75335 


000070 


REP56 


DEC 


56 


0809 


75336 


020012 


REPSL 


OCT 


20012 


0810 


75337 




SREP 


EQU 


• 
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0002* 
0003* 
0004* 
0005* 
0006* 
0007* 

000a* 

0009* 
0010* 

00U* 

0012* 
0013* 
0014* 
0015* 



the directory command is a system command w hj ch causes The 

CONTENTS OF THE DISC DIRECTORY TO bE PRINTED ON THE SYSTEM 
CONSOUE, THE FORMAT OF THE PRINTOUT IS AS FOLLOWS* 

<ID> <NAME» <PURCE DATE» <FLAGS> <LENGTH> <DI3C ADR> <DRUM ADR> 

THE PURGE DATE IS PRINTED AS A 3«DIGIT INTEGER INDICATING THE DAY 
OF THE YEAR AND A 2*DIGIT iNTtGER INDICATING THE YEAR. THE DRUM 
ADDRESS CONSISTS OF 3 INTEGERS INDICATING DRUM, TRACK, AND SECTOR, 
THE DISC ADDRESS IS A LOGICAL BLoCK nUmBER. 

the length is in words for programs* records for files, 
these are all printed in decimal, 
typing dir w id will start the listing with that id, 
sdirectory must follow directory in sequence, 



0017 75000 



ORG LIBRA 



0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 

0033 
0034 

0035 

0036 

0037 

0038 

0039 

14040 

0041 

0042 

0043* 

0044 

0045 

0046 

0047 

0048 

0049 

0050* 

0051 

0052 

0053 

0054 

0055 



75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
750U 
75012 
75013 
75014 

750J5 
75016 

75017 

75020 
75021 
75022 
75023 
75024 

75025 
75026 

75027 
75030 
75031 
75032 
75033 
75034 

75035 
75036 
75037 

75040 
75041 



002404 
070052 
114572 
027011 
003400 
040054 
070054 
016315 
026275 

003400 

040052 

072654 

116021 

21&213 
063367 

070050 
060305 
070051 
064322 
016257 
060432 
064305 
016213 

060274 
070031 
070032 
070033 
062654 

116005 
000000 
060035 
040366 

070035 



uir n i 



CLA, 
STA 

JSB 

JMP 

CCA 
ADA 

STA 

JSB 
JMP 
EQU 
CC* 

ad* 

STA 
JSB 
JSB 
LDA 
STA 
LDA 
STA 
LDB 
JSB 
LDA 
LDB 
JSB 



INA 
ID 

T35CH,I 
DIRNI 

T35CP 

T35CP 
GETID 

LFRER 



ID 

T35BF+35 
HDBFA, I 

T35SP 

DIR1 

MOVES 

T35B1 
MOVED 
,-24 

MOVEW 

,♦48 

T3 5 B1 

T35SP 



LDA INF 
STA LTEMP+1 
S T A LtEMP+2 
STA LTEMP4.3 
LDA T35BF+35 
STA LTEMP 



DiR2 
DIR8 



JSB 

NOP 
L DA 

ADA 
STA 



DLOKP.I 

LTEMP+6 

.♦12 
LTEMP*5 



START WITH ID OF 1 • i 

IN CASE WE DOMT GO TO GETID, 

SEE WHAT FIRST CHARACTER IS 

CR • *■ START AT BEGINNING Op DlR 

A * * 1 

MOVE BACK BUFFER POINTER, 

GET STARTING ID CODE 
SHOULD END WITH CR 

A ♦• » 1 

LOOK FOR PREVIOUS ID WITH 
NAME OF INFINITY, 
PRINT HEADING 
AND SUSPEND 
MOVE HEAOING TO 
PRINT BUFFER tt 



print 
heading and 

SUSPEND, 

set up ltemp(0|3) for 
initial directory search . 

get saved starting id. 



perform Directory search for 

last entry, 
move pointer up to 

next entry 
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0056 
0057 
0056 
0059 

0060* 

0061 
0062 

0063 
0064 

0065* 

0066* 

0067* 

0066 

0069 

0070 

007l 

0072 

0073 

0074 

0075 

0076* 

0078 

0079* 

0080 

0081 

0082 

0083 

0084 

0065 

0086 

0067 

0088 

0089 

0090 

0091* 

0092 

0093 

0094 

0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 

0105* 

0106 

0107 

0108 

0109* 



75042 140034 

75043 040674 

75044 002002 

75045 027064 

75046 064034 

75047 044361 

75050 150001 

75051 027047 



ADA LTEMP+4,1 TEST FOR END OF TRACK, 

ADA MLIBD 

SZA 

JMP DIR3 NOT fcND QF TRACK. 



75052 
75053 
75054 
75055 
75056 
75057 
75060 
75061 

75062 
75063 

75064 

75065 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 

75077 
75100 
75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75113 
75U4 



074034 
160001 
070072 
044360 
160001 
064566 
016231 
027335 

060562 
070035 

027071 

000000 
000000 
000000 
000000 
160035 
072654 
050351 
026267 
050030 
027115 

010602 
006400 
100400 
000437 
072611 
160035 
001323 
013420 
042611 
043421 
072611 
060001 
017325 
027117 



DIR3 



DiR9 



LD8 |,TEmP*4 


BUMP TRACK POINTER TO NEXT 


ADB .*7 


TRACK, 


CPA j,I 


LOOP IF EMPTY, 


JMP *.2 




TRACK*<»WANT 


TO READ IT IN, 


STB LTEMP+4 




LDA If I 


SET HORO LENGTH, 


STA WORD 




ADB .+6 




LDA 1,1 


GET DRUM ADDRESS, 


LDB LIBDI 




JS8 DRUML 


READ TRACK 


JMP DIRFM 


DRUM ERROR, GO TELL OP 


LDA LIBD 


SET POINTER TO ENTRY, 


STA UTEMP+5 




JMP DIR9 




NOP 


SPACE FOR 


NOP 


SANCTIFIED 


nop 


TEST IN 


NOP 


SDIRECTORY 


LDA LTEMP+5,i 


GET USER ID 



STA T35BF+35 LEAVE IN BUFFER; 

CPA ,,1 IF NEGATIVE, WEiRE AT END OF 

JMP LEND DIRECTORY, SO TERMINATE, 

CPA LTEMP IF ID SAME AS LAST TIME, GO PUT 

JMP 0IR4 BLANKS IN, 

AND B1777 GET NUMERICAL PART OF ID, 

CLB 

DiV ,100 GET FIRST DiGjt IN A, LAST 2 in B 

STA T35BF SAVE FIRST OIGIT, 
LDA LTEMP+5,1 GET ID AGAIN, 



R A R»R A R 
AND DIRMS 

ADA T358F 
ApA dIRfX 
STA T35BF 
LDA 1 
JSB DIrNM 
JMP **3 



POSITION LETTER, 

KEEP ONLY THOSE 5 BITS, 

ADD IN DIGIT, 

CQNVfcRT TO ASCII, 



CONVERT LAST 2 DIGITS TO 
ASCII AND STORE IN BUFFER, 



75115 062613 

75116 072611 
75H7 072612 



DIR4 



LDA 
STA 
STA 



T35BF+2 

T35BF 

T35BP+1 



PLACE BLANKS 
BUFFER, 



IN ID POSITION IN 
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01113 
Bill 
0112 
0113 
0114 

0115 

0116* 

0117 

011* 
0119 
0120 
0121 
0122 
0123 

0124 

0125 

0126 

0127 

0126 

0129 

0130 

0131 

0132 

0133 

0134 

0135* 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146* 

0147 

0148 

0149 

0150 

0151 

0152* 

0153 

0154 

0155 

0156 

0157 
0156 
0159 
0160 



75120 
75121 
75122 
75123 
75124 
75125 
75U6 
75127 

75130 
75131 
75132 
75133 
75134 
75135 

75136 
75137 
75140 
75141 
75142 
75143 
75144 
75145 
75146 
75147 
75150 
75151 
75152 

75153 
75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 

75165 
75166 
75167 
75170 
75171 

75172 
75173 
75174 
75175 
75176 
75177 
75200 
75201 
75202 



034035 
160035 
072614 
034035 
104200 
100035 
104400 
074615 

064035 
044355 
074035 
160035 
010502 
006400 
100400 
000364 

005727 
047422 
076621 
017325 
072620 
160035 
001727 
001300 
010441 
017325 
072622 

03403S 
034035 
160035 
002003 
027204 
001222 
010355 
001727 
043422 
072635 

160035 
001727 
010734 
017325 
072636 

160035 
010441 
006400 
100400 
000437 
043423 
072637 
060001 
017325 



1SZ 

LDA 
STA 
ISZ 
OLD 



LTEMP+5 
LTEMP+5,1 
T35BF+3 
LTEMP+5 
LTEMP+5, 1 



MOVE PROGRAM NAME INTO SUFFER, 



DST T35BF+4 



LOB LTEMP+6 SET POINTER TO DATE LOCATION, 

ADB ,+3 

STB LTEMP+5 

LDA LTEMP+5, I GET DATE, 

AND B777 GET DAY OP YEAR. 

CLB 

DJV , + 10 SET AnlST 2 DIGITS, B«LAST ONE, 



BLF,BLF 
ADB DIR0S 
STB T35BF+8 
JSB DIRNM 
STA T35BF+7 



LDA LTEMP+5,1 GET YEAR, 
POSITION, 



POSITION LAST DIGIT IN LEFT 
HALF AND MERGE IN ASCII, 

STORE IN BUFFER, 

CONVERT 1ST 2 DIGITS ANO STORE 
IN BUFFER, 



ALF,ALF 

RAR 

AND B177 

JSB DIRNM 

STA T35BF*9 



MASK, 
CONVERT, 
STORE, 



ISZ LTEMP+5 BUMP POINTER TO 
ISZ LTEMP+5 DR U M ADDRESS 
LDA LTEMP+5, I GET DRUM ADDRESS 



SZA,RSS 

JMP DIR7 
RAL,RAL 
AND ,*3 
ALF,ALF 
ADA DIR0S 
STA T35BF+20 

LDA LTEMP+5,i 
ALF,ALF 
AND B77 
JSB DIRNM 
STA T35BF+21 

LDA LTEMP+5,1 

AND B177 

CLB 

DIV ,100 

AQA oiRS0 
STA T35BF+22 
LDA 1 
JSB DIRNM 



is It zero? 

YES, SKIP DRUM ADDRESS FORMATTIN 

POSITION DRUM NO, IN LOW 2 BITS 

KEEP IT 

POSITION AS LEFT CHAR, 

ADD IN ASCII JUNK, 

STORE IN BUFFER 

GET DRUM ADDRESS AGAiN 

POSITION TRACK IN LOW 6 BITS, 

KEEP ONLY THOSE BITS, 

CONVERT. 

STORE IN BUFFER 

qET DRUM ADDRESS A G AIN 
KEEP ONLY SECYCR ADDRESS, 
GEy FIRSj D1GI* IN A, 

LAST 2 In B. 

CONVERT FIRST ONE, 



Convert 
two. 



LAST 
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0161 


75203 


072640 


8TA T358P*23 




0162* 










0153 


75204 


034035 DiR7 


ISZ LTEMP+5 


BUMP POINTER TO DJ3C ADDRESS 


0164 


75205 


164035 


LDB LTEMP*5,I 


GET HIGH PART IN B 


0165 


75206 


034035 


ISZ LTEMP*5 




0166 


75207 


160035 


LDA LTEMP+5,1 


GET LOW PART IN A 


0167 


75210 
75211 


100400 
001032 


DlV DVS«S 


GET FIRST 2 DIGITS IN A 


0168 


75212 


076632 


STB T35BF+17 


SAVE THE REST 


0169 


75213 


017325 


J3B DIRNM 


CONVERT TO ASCII 


0170 


75214 


072631 


9TA T356F+16 


STORE IN BUFFER 


0171 


75215 


062632 


LDA T35BF+17 


RETRIEVE REST OF DIGITS 


0172 


75216 


006400 


CUB 


GET DIGITS 3 AND 4 


0173 


75217 
75220 


100400 
000437 


DlV ,100 


INTO A 


0174 


75221 


076633 


STB T358F*18 


SAVE 9 AND 6 


0175 


75222 


017325 


JSB DIRNM 


CONVERT TO ASCII 


0176 


75223 


072632 


STA T38BF*17 


STORE IN BUFFER 


0177 


75224 


062633 


LDA T35BF+18 


GET OIGITS 5 AND 6 


0178 


75225 


017325 


JSB DIRNM 


CONVERT TO ASCII 


0179 


75226 


072633 


STA T35BF+18 


STORE IN BUFFER 


0180* 










0181 


75227 


034035 


ISZ LTEmP*5 


BUMP POINTER TO LENGTH, 


0182 


75230 


034035 


I8z LTEMP+5 




0183 


75231 


160035 


LDA LTEMP+5,1 


GET LENGTH, 


0184 


75232 


002020 


S8A 




0185 


75233 


003004 


CMA,INA 


MAKE POSITIVE IF NECESSARY 


0186 


75234 


006400 


ClB 


GET FIRST DIGIT In A, U AST 4 


0187 


75235 
75236 


100400 
001032 


DlV DVSRS 


IN B 


0188 


76237 


043430 


ADA A3C00 


CONVERT FIR3T TO ASCII 


0189 


75240 


072625 


STA T358F+12 


STORE IN BUFFER 


0190 


75241 


060001 


LDA 8 


GET DIGITS 2 • 5 


0191 


75242 


006400 


CLB 


GET DIGITS 2 • 3 IN A, 4 m 5 


0192 


75243 
75244 


100^00 

000437 


OIV ,100 


INB, 


0193 


75245 


076627 


8TB T35BF+14 


SAVE LAST TWO 


0194 


75246 


017325 


JSB DIRNM 


CONVERT 2 AND 3 TO ASCII 


0195 


75247 


072626 


STA T358F+13 


STORE IN BUFFER 


0196 


75250 


062627 


LDA T35BF+14 


GET LAST TWO 


0197 


75251 


017325 


JSB DIRNM 


CONVERT TO ASCII 


0198 


75252 


072627 


STA T35BF-M4 


STORE IN BUFFER 


0199 


75253 


062613 


LDA T35BF*8 


BLANK OUT 


0200 


7 5254 


7 2630 


8TA T35BF+15 


NEXT TWO COLUMNS 


0201* 










0202 


75255 


064035 


LDB LTEMP+5 




2 03 


75256 


044341 


ADB ,-9 


»> SECOND WORD OF NAME 


0204 


75257 


160001 


LDA 1,1 




0205 


75260 


006004 


inb 


BUMP POINTER TO third word 


0206 


75261 


002021 


S3A,R8S 


FILE* 


0207 


75262 


027265 


JMP DIRS 


NO 


0208 


75263 


063428 


LDA 0A8CF 


YES, GET AN * 


0209 


75264 


027273 


JMp DIR6 




0210 


75265 


160001 DIR5 


LDA B, X 




0211 


75266 


002021 


SSA,RSS 


SEMICOMPILED? 
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OLE 


0212 


75267 


027272 




JMp 


**3 


NO 


0213 


75270 


063424 




LDA 


DASCC 


YES, GET A C 


0214 


75271 


002001 




R39 






0215 


75272 


0604^2 




LDA 


.♦40B 


GET A SPACE 


0216 


75273 


044350 


DXR6 


AD6 


,»2 


■> FXRST WORD OF NAME 


0217 


75274 


001727 




ALF ( 


,ALF 


MOVE CHARACTER jO HIUH 6 BITS 


021a 


75275 


164001 




L 08 


B,X 




0219 


75276 


006021 




S3B, 


>RSS 


PROTECTED? 


0220 


75277 


027302 




JMP 


**3 


NO 


0221 


75300 


03342$ 




IOR 


DASCP 


MERGE IN A P 


0222 


75301 


002001 




RSS 






0223 


75302 


030412 




IOR 


,♦408 


MERGE IN A SPACE ' 


0224 


75303 


072624 




3TA 


T35BF+H 


STORE IN BUFFER 


0225 


75304 


064035 




LOB 


LTEMP+5 




0226 


75305 


044346 




AOB 


m W *f 




0227 


75306 


160001 




LDA 


B,I 


GET DRUM ADDRESS 


0229 


79307 


002002 




32A 




IS THERE ONE TO PRINT? 


0229 


75310 


060364 




LDA 


,♦10 


YES 


0230 


75311 


040420 




ADA 


,♦38 


PRINT THE LINE 


0231 


76312 


064305 




LDB 


T35B1 




0232 


75313 


016213 




JSB 


T35SP 


SUSPEND, 


8233* 














0234 


75314 


062654 




IDA 


T35BF+35 


SET UP LTEMP(0$3) IN ORDER TO 


0235 


75315 


066614 




LDB 


T35BF+3 




0236 


75316 
75317 


104400 
000030 




DST 


LTEMP 


FIND NEXT PROGRAM 


0237 


75320 
75321 


104200 
074615 




DUD 


T35BF+4 




023« 


75322 
75323 


104400 
000032 




D3T 


LTEMP+2 




0239 


75324 


027035 




JMP 


D1R2 


LOOP FOR NEXT lUTPUT, 


0240* 














0241* 














0242* 














0243 


75325 


000000 


DIRNM 


NOP 




CONVERT A * € im TO ASCII, 


0244 


75326 


006400 




CUB 






0245 


75327 
75330 


100400 
000364 




DlV 


,♦10 




0246 


75331 


001727 




ALF, 


-ALF 




0247 


75332 


040001 




ADA 


1 




0246 


75333 


040574 




ADA 


ASC00 




0249 


75334 


127325 




JMP 


DIRNM,I 




0250 


75335 




OjRFm 


equ 


* 




0251 


75335 


063350 




LDA 


DIR3O 




0252 


75336 


070050 




STA 


MOVES 




0253 


75337 


060305 




LDA 


T35B1 




0254 


75340 


070051 




STA 


MOVED 




0255 


75341 


064316 




LOB 


DIRSP 




0256 


75342 


005100 




BRS 






0257 


75343 


016257 




JSB 


MOVEW 




0256 


75344 


060316 




LDA 


DIRSP 




0259 


75345 


003004 




CMA, 


,INA 




0260 


75346 


067350 




LDB 


DIRSO 




0261 


75347 


026271 




JMP 


LEND+2 




0262 


75350 


075351 


DlRSO 


DfcF 


*♦! 
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0263 
0264 



0266 
0266 
0267 
0268 



0269 



0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 

0280 



75351 
75352 

75353 
75354 
75355 
75356 
75357 
75360 
75361 
75362 
75363 
75364 
75365 
75366 
00316 
75367 
75370 
75371 
75372 
75373 
75374 
75375 
75376 
75377 
75400 
75401 
75402 
75403 
75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 
75416 
75417 

75420 
75421 
75422 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 



005103 
040516 
023524 
020122 
042501 
042040 
042H1 
051)05 
041524 
047522 
054440 
052122 
040503 
045440 

075370 
005040 
044504 
020040 
020040 
047101 
046505 
020040 
020040 
042101 
052105 
020040 
020040 
020114 
042516 
043524 
044040 
020040 
042111 
051503 
020040 
020040 
020104 
051125 
046440 
017400 
040060 
030057 
027460 
000103 
000106 
000120 
000040 
020060 
020040 
020040 



OCT 5103 

ASC 13,AN«T READ DIRECTORY TRACK 



DIR3P EQU ,+DIRS0«*+DIRS0«*+2 

DlRl UEF *♦! 

OCT 5040 LF*BLANK 
ASC 9, ID NAME DATE 



ASC I4r 



DIRMS 
D1RFX 

DIR0S 
DIRS0 
DASCC 
DASCf- 

DASCP 
DA8CS 
ASCB0 
ASCSS 



OCT j7400 

ASC 1,»0 

ASC 1,0/ 

ASC i#/0 

OCT ib3 

OCT 106 

OCT 120 

OCT 40 



ASC 
ASC 



if 
2, 







LENGTH DISC 



DRUM 



SDIR EQU * 
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0282* SDIRECTORY IS A SYSTEM COMMAND WHICH CAUSES THE SAME PRINTOUT 

fc>283* AS DIRECTORY, EXCEPT THAT ONLY SANCTIFIED PROGRAMS AND FILES 

0284* (THOSE CURRENTLY RESIDING ON DRUM) AR| LISTED, SDIRECTORY MUST 

0285* BE LOADED IMMEDIATELY AFTER DIRECTORY, 

0287 75000 ORG LIBRA 

0288 75000 002404 CLA,INA 

0289 75064 ORG DIR3 

0290 75064 060035 I.OA LTEMP+5 i$ 

0291 75065 040361 ADA .*7 THIS 

0292 75066 160000 LDA A, I ENTRY 

0293 75067 002003 SZA,RSS SANCTIFIED? 

0294 75070 027037 JMP DIR8 NQr LOOK AT NEXT ONE 
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0296* 


the status command 


PRINTS A SUMMARY OF THE SYSTEM RESOURCES 


0297* 


AND THE EXTENT OP THEIR 


UTILIZATION, ON THE SYSTEM TELETYPE. 


0298 


75000 




ORG 


LIBRA 




0299 


75000 


116021 


JS6 


HDBFAfI 


PRINT HEAoING 


0300 


75001 


016213 


JS8 


T35SP 


AND SUSPEND 


0301 


75002 


060303 


LDA 


T35B2 


INITIALIZE 


0302 


75003 


072562 


STA 


STABF 


BUFFER POINTER 


0303* 












0304* 


PRINT 


SELECT CODES, 








0305* 












0306 


75004 


017666 


JSB 


STAST 


PRINT LF,MAG* 


0307 


75005 


005115 


OCT 


5115 




0306 


75006 
75007 


040507 

036440 


ASC 


2, AG« 




0309 


75010 


000000 


NOP 






0310 


75011 


060176 


LD A 


MAqSC 


PRINT MAGSC, 


0311 


75012 


017707 


JS6 


STAOC 




0312 


75013 


064176 


LDB 


MAGSC 


GET SELECT CODE, 


0313 


75014 


060424 


LDA 


,♦528 


GET «#• 


0314 


75015 


006020 


SSB 




SKIP jF 3030 


0315 


75016 


017740 


JSB 


STACH 


PUT '*< INTO LINE FOR 7970 


0316 


75017 


017666 


J 8 B 


STAST 




0317 


75020 
75021 
75022 
75023 


020040 
042122 
052515 

036440 


AS C 


4, DRUM* 


PRINT "i)RUM»" 


0318 


75024 


000000 


NOP 






0319 


7502 5 


06 346 


LDA 


."4 


SET UP DRUM COUNTER 


0320 


75026 


070036 


STA 


LTEMP+6 




0321 


75027 


060036 STADl 


LDA 


LtEMP+6 


GET SELECT 


0322 


75030 


040356 


ADA 


,♦4 


CODE 


0323 


75031 


040676 


ADA 


?ATBL 


OF DRUM 


0324 


75032 


160000 


LDA 


0fl 




0325 


75033 


010734 


AND 


B77 


MASK SC V 


0326 


75034 


017707 


JSB 


STAOC 


OUTPUT SC, 


0327 


75035 


060412 


LDA 


f *40B 




0326 


75 36 


017740 


JSB 


8TACH 


OUTPUT BLANK 


0329 


75037 


034036 


ISZ 


LTEMP+6 


DONE? 


0330 


75040 


027027 


JMP 


STADl 


NO. 


0331 


75041 


017654 


JSB 


STAPR 




0332* 












0333 


75042 


017666 


JSB 


STAST 




0334 


75043 


005104 


OCT 


5104 


LF-D 


0335 


75044 
75045 


044523 
041523 


ASC 


2,ISCS 




0336 


75046 


011415 


OCT 


U4l 5 

5040 


XOFF-CR 


0337 


75047 


005040 


OCT 


LF»BLANK 


0338 


75050 


020114 


ASC 


19, LOGICAL SELECT UNIT FIRST 




75051 


047507 










75052 


044503 










75053 


040514 










75054 


020040 










75055 


051505 










75056 


046105 










75057 


041524 









UST 
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75060 


020040 










75061 


020125 










75062 


047 Ul 










75063 


052040 










75064 


020040 










75065 


043111 










75066 


051123 










75067 


052040 










75070 


020040 










7507J 


04610J 










75072 


051524 








0339 


75073 


000000 


OCT 







0340 


75074 


017654 


jse 


STAPH 


FIRST LINE OF DISC HEADING 


0341 


75075 


017666 


J8B 


STAST 




0342 


75076 


020040 


ASC 


19, UNIT CODE NUMBER BLOCK 




75077 


020125 










75100 


047 Xi I 










75101 


052040 










75102 


020040 










75103 


020040 










75104 


041517 










75105 


042105 










75106 


020040 










75107 


020116 










75110 


052515 










751U 


M1105 










75112 


051040 










75113 


020102 










75114 


046117 










75U5 


041513 










75U6 


020040 










75U7 


020102 










75120 


046117 








0343 


75121 


041513 


ASC 


irCK 




0344 


75122 


000000 


OCT 







0345 


75123 


017654 


JSb 


STaPR 


SECOND LINE OF DISC HEADING 


0346 


75124 


002400 


CIA 




FOR LOGICAL 


0347 


75125 


072001 


STA 


STAVi 


DISC 


0346 


75126 




STAOI EQO 


* 




«349 


75126 


062001 


LDA 


STAVI 


FINISHED 


0350 


75127 


050362 


CPA 


.♦8 


ALL DISCS? 


0351 


75130 


027241 


JMp 


STALT 


YES 


0352 


75131 
75132 


100200 
000360 


MPY 


,♦6 


NO 


0353 


75133 


040210 


ADA 


MHAD 




0354 


75134 


040354 


ADA 


,♦2 




0355 


75135 


164&J00 


LOB 


A, I 


GET SELECT CODE 


0356 


75136 


164001 


LDB 


B,I 




0357 


75137 


006003 


SZB, 


>RS8 




0358 


75140 


027237 


JMP 


STALT.2 


SKIP IF ZERO 


0359 


75141 


070031 


STA 


LTEMP«.i 


SAVE SELECT CODE/UNIT 


0360 


75142 


017666 


JSB 


STAST 


4 BLANKS 


0361 


75143 
75144 


020040 
020040 


ASC 


2, 




0362 


75145 


000000 


OCT 








BLO 
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IU363 


75146 


0364 


75147 


0365 


75150 


0366 


75151 


0367 


75152 


0368 


75153 




75154 




75155 


0369 


75156 


0370 


75157 


0371 


75160 


0372 


75i6l 


0373 


75162 


0374 


75163 


0375 


75164 


0376 


75165 


0377 


75166 


0378 


75167 




75170 




75171 


0379 


75172 


0380 


75173 


0381 


75174 


0382 


75175 


0383 


75176 


0384 


75177 


0385 


75200 




75201 


0386 


75202 


0387 


75203 


0388 


75204 


0389 


75205 


0390 


75206 


0391 


75207 


0392 


75210 


0393 


75211 


0394 


75212 


0395 


75213 


0396 


752U 


0397 


75215 


0398 


75216 


0399 


75 2 17 


0400 


75220 


0401 


75221 


0402 


75222 


0403 


75223 


0404 


75224 


0405 


75225 


0406 


75226 


0407 


75227 


0406 


75230 


0409 


75231 


0410 


75232 


0411 


75233 


0412 


75234 



060412 
017740 
062001 
017716 
017666 
020040 
020040 
020040 

000000 
060412 
017740 
160031 
160000 
001727 
010734 
017707 
017666 
020040 
020040 
020040 

000000 

160031 
160000 
010355 
017716 
017666 
020040 
020040 

000000 

060412 

017740 
060031 

040350 
164000 

002004 
160000 
004065 
001540 
040356 
002040 
006004 

017722 
017666 

020040 
000000 
060031 
040356 
164000 
002004 
160000 
004065 
001540 
040351 
002041 
044351 



IDA ,+40B 


BLANK 


JSB 8TACH 




IDA 8T A V1 


LOGICAL DISC NUMBER 


JSB STADG 




JSB 8TAST 


6 BLANKS 


ASC 3, 




OCT 




IDA ,+40B 


BLANK 


JSB STACH 




LOA LTEMP*J,I 




IDA A f I 




ALF,ALF 




AND B77 




JSB STAOC 


DISC SELECT CODE 


JSB 3TAST 


6 BLANKS 


ASC 3f 




OCT 




LDA UEMP+1,1 




IDA A, I 




AND »*3 




JSB STADG 


UNIT NUMBER 


JSB 8TAST 


4 BLANKS 


ASC 2, 




OCT 




LDA ,*40B 


BLANK 


JSB STACH 




LDA LTEMP*1 


GET SECTOR 


ADA ,-2 




LDB A, I 


ADDRESS OF 


INA 




LOA k,i 


THjS X SC 


CLErERB 


CONVERT 


ERAfCLE 


TO 8L0CK8 


ADA ,+4 


FIRST AVAILABLE 


SEZ 


BLOCK XS *4 


INB 




JSB STA6D 


FIRST BLOCK 


JSB STAST 


2 BLANKS 


ASC 1, 




OCT 




LDA LTEMP*! 


GET SECTOR 


ADA ,+4 




LDB AfI 


ADDRESS OF 


INA 




LDA Aft 


NEXT DISC 


CLE,ERB 


CONVERT 


ERA, CLE 


TO BLOCK3 


ADA 4 «l 


i.ast block 


SEZfRSS 


IS 1 LESS 


ADB ,•! 
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45413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 



0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 

0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 

045a 
0459 



75235 
75236 
75237 
75240 
75241 
75241 
75242 
75243 
75244 
75245 
75246 
75247 
75250 
75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 
75262 
75263 

75263 
75264 

75265 
75266 
75267 
75270 
75270 
75271 
75272 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 
75310 
75311 
75312 
75313 
75314 
75315 



017722 
017654 
036001 
027126 

017666 
005114 
047503 
045505 
042040 
042122 
052515 
020124 
051101 
041513 
051440 

000000 
017654 

002400 
072001 
072003 
002404 
072002 

060676 
042003 
164000 
006003 
027384 

002400 
070030 

017600 
002001 
027300 
017615 
027351 
027272 

002400 
050030 
002001 
027310 
062003 
017716 
060436 
017740 

017666 

020040 
000000 
062001 

017700 
034030 



J3B 3TA60 LAST BLOCK 

JSB STAPR PRINT IT 

I3Z STAVl 

JMP STADI 

STA^T EQU * 

JSB STAST 

OCT 5114 

ASC 9,0CKED DRUM TRACKS 



STLT0 



SUT1 



STLT5 



STUT2 



STLT3 



OCT 




JSB STAPR 




CIA 




STA STAVl 


TRACK * (0-63) 


STA 3TAV3 


DRUM # (0*3) 


CU,INA 




STA STAV2 


MA8K 


EQU * 




LDA ?ATBL 




ADA STAV3 




LOB A, I 


IS ORUM 


SZB,RSS 


PRESENT? 


JMP STLT7 


NO 


EQU * 




CLA 


Y£9» INITIALIZE 


STA LTEMP 


COUNT OF ENTRIES 


EQU * 




JSB STATZ 


TEST THIS TRACK 


RSS 


UNLOCKED 


JMP 3TLT2 


LOCKED 


JSB STLBP 




JMP STLT6 


END OF DRUM 


JMP STLT5 




EQU * 




CLA 




CPA LtEMP 


FIRST ENTRY ON LINE? 


RSS 


y£s 


JMP 3TLT3 


NO 


LOA STAV3 


OUTPUT 


JSB STAOG 


ORUM # 


LOA B72 


i|» 


JSB STACH 




EQU * 




JSB STAST 


2 BLANKS 


ASC 1, 




OCT 




LOA STAVl 


OUTPUT TRACK « 


JSB 8TA20 




ISZ LTEMP 
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0460 


75316 


017615 




JSB 


STLBP 


BUMP POINTERS 


0461 


75317 


027351 




JMP 


STLT6 


END OF ORUM 


0462 


75320 


017600 




JSB 


STATZ 


TEST NEXT TRACK 


0463 


75321 


027335 




JMP 


STLT8 


UNLOCKED (ONLY ONE) 


0464 


75322 




STLT* 


EqU 


* 




04g5 


75322 


0176*9 




JSB 


8TLBP 


LOCKED, BUMP POINTERS 


0466 


75323 


027345 




JMP 


8TLT9 


END OF DRUM 


0467 


75324 


017600 




JSB 


8TATZ 


TEST NEXT TRACK 


0466 


75325 


002001 




KSS 




UNLOCKED 


0469 


75326 


027322 




JMP 


STLT4 


LOCKED, CO TO NEXT ONE 


0470 


75327 


060427 




IDA 


,♦558 


l.» 


0471 


75330 


017740 




JSB 


STACH 




0472 


75331 


003400 




CCA 






0473 


75332 


042001 




ADA 


8TAV1 


OUTPUT TRACK # 


0474 


75333 


017700 




JSB 


3TA20 




0475 


75334 


034030 




isz 


LTEMP 




0476 


75335 




STUT8 


EQU 


* 




0477 


75335 


017615 




JSB 


STL8P 


BUMP POINTERS 


0478 


75336 


027351 




JMP 


STLT6 


END Op DRUM 


0479 


75337 


060030 




L DA 


LTEMP 


MORE ROOM 


0480 


75340 


040332 




ADA 


,-16 


ON THIS 


0481 


75341 


002020 




SSA 




LINE? 


0482 


75342 


027272 




JMP 


STLT5 


YES 


0483 


75343 


017654 




JSB 


STAPR 


NO, PRINT AND SUSPEND 


0484 


75344 


027270 




JMP 


STLTl 




0485 


75345 




STLT9 


EQU 


* 




0486 


75345 


060427 




LOA 


,♦558 


• •< 


0487 


75346 


017740 




JSB 


STACH 




04g8 


75347 


063630 




LOA 


31.63 


CAST TRACK IS 63 


0489 


75350 


017700 




JSB 


3TA2D 




0490 


75351 




STLT6 


EQU 


* 




0491 


75351 


060030 




LOA 


LTEMP 




0492 


75352 


002002 




SZA 




3KIP PRINTING 


0493 


75353 


017654 




JSB 


STAPR 


BLANK LINE 


0494 


75354 




STIT7 


EQU 


* 




0495 


75354 


062003 




LOA 


8TAV3 




0496 


75355 


002004 




INA 




BUMP DRUM U 


0497 


75356 


050356 




CPA 


.♦4 




0498 


75357 


027362 




JMP 


STL10 


DONE 


0499 


75360 


072003 




STA 


8TAV3 




0500 


75361 


027263 




JMP 


STLT0 




0001 


75362 




ST110 


EQU 


* 




0002 


75362 


017666 




JSB 


STAST 




0003 


75363 


005114 




OCT 


5114 




0004 


75364 
75365 
75366 
75367 
75370 
75371 
75372 

75373 

75374 


047503 

045505 
042040 
042U1 
051503 
020102 
046U7 

0415U 

05144k 




ASC 


9,0CKED 


DISC BLOCKS 


0005 


75375 


000000 




OCT 







0006 


75376 


017654 




JSB 


STAPR 
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0007 
0008 
0009 
0010 

0011 
0012 
0013 
0014 
0015 
0016 
0017 
0016 
0019 
0020 
0021 

0022 
0023 
0024 
0025 
0026 
0027 

0026 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
003; 
0036 

0039 

0040 

0041 
0042 
0043 
0044 
0045 
0046 
0047 

0046 
0049 
0050 
0061 
0052 
0053 
0054 
0055 
0056 
0057 



75377 
75400 
75401 
75402 
75402 
75403 
75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75413 
75414 
75415 
75416 
75417 
75420 
75421 

75422 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 
75434 
7 5434 
75435 

75436 

75437 
75440 
75441 
75442 
75443 
75444 
75445 
75446 
75447 
75450 
75451 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 



0W2400 
070033 
060210 

072001 
060562 
072002 
06200J 
040354 
164000 
164001 
006003 
0275U 

104200 
174001 
000065 

005540 
044355 
002040 
002004 
104400 
000030 
060762 
070215 
060520 
064566 
114217 
026311 
002400 
173772 

162002 

002003 

0275U 

104200 
174001 
000065 
005540 
146002 
002040 
002004 
101100 
104400 
000030 
017722 
036002 
003400 
142002 
002003 
027472 
070032 
060427 
017740 
104200 



CLA 

STA LTEMP+3 

LDA MHAD 

STAtV EQU * 

STA STAVJ 

LOA LIBD 

STA STAV2 

LDA STAV1 

ADA ,+2 

LD8 A#I 
LOB B, I 
SZB,R8S 
JMP STALx 
STAUY EQU * 

OLD STAV1,I 

CLE, ERA 

ER8,CLE 

AOB ,+3 

SEZ 

INA 

DST LTEMP 

LOA M256 

STA MwQRD 

LOA OLTEM 

LOB LIBOI 

JSB DISCz,I 

JMP DDERR 
C U A 

STA STA9V,I 

STALZ EQU * 

LDA STAV2,I 
SZA,RSS 

JMP STALX 

DLD 3T AV1,I 

CLErERA 
ERB,CLE 
ADB STAV2,I 

s£Z 

INA 
Swp 
DST 



JSB 

ISZ 

CCA 

ADA 

SZA, 

JMP 

STA 

LDA 
JSB 
DLD 



LTEMP 

STA6D 
STAV2 

STAV2,I 

RSS 

STAPZ 

LTEMP+2 

,*55B 

8TACM 

LTE M P 



*» FIRST DJ3C 



INITIALIZE 

BUFFER POINTER 



GET SELECT COD£ 

DISC NOT PRESENT 
COMPUTE 

ADDRESS 
OF BAD 
BLOCKS 



READ BAD BLOCKS 

PUT ZERO AT 
BUFFER END 

GET LOCKED BLU',K ADDRESS 

IF ZfcRQ, FINISHED TABLE 
COMP UT E 



LOGICAL 
BLOCK 
ADDRESS 

FIRST BLOCK 



IF ONLY ONE BLOCK, DONM 
PRINT SECOND ADDRESS 

'•' 

COMPUTE 



PAGE 0547 #47 STATUS * SYSTEM tONSOLE 



0058 
0059 
0060 
0061 
0052 
0063 
0064 
0065 
0066 
0067 
006* 
0069 

0070 

0071 
0072 
0073 
0074 
0075 
0076 

mn 

0078 
0079 
0080 

0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 



0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 

0104 
0105 



75463 
75464 
75465 

75«66 
7S467 
75470 
75471 
75472 
75472 
75473 
75474 
75475 
75476 
75477 
75500 
75501 
75502 
75503 
75504 
75505 
75505 
75506 
75507 
75510 
75511 
75511 
75512 
75513 
75514 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75533 
75534 
75535 
75536 
75537 
75540 
75541 
75542 
75543 
7 5544 

75545 
75546 



000030 
000040 

040032 
002040 

00600* 
017722 

002404 

002004 
040033 
070033 
036002 
040342 
002021 
027505 
017666 
020040 
000000 

027434 

017654 
002400 
070033 
027413 

062001 
040360 
064210 

044432 
050001 
002001 
027402 
060033 
002002 
017654 
017666 
005114 
044516 
042440 
050122 
044516 
052105 
051040 
036440 
000000 
060250 
114500 
102311 
027537 
102511 
070030 
010734 
017707 
060424 
064030 



CLE 
ADA 
SEZ 
INB 
JSB 
CLA 

STAPZ EOU 
XNa 
ADA 
STA 
ISZ 
ADA 
SSA 
JMP 
JSB 
A8C 
OCT 
JMP 

STAPL EQU 
JSB 
CLA 
STA 
JMP 

STALX EQU 
IDA 
ADA 
LDB 
ADB 
CPA 
RSS 
JMP 
LOA 
3 Z A 
JSB 
JSB 

OCT 
ASC 



LTEMP+2 



STA6D 
,INA 

* 

LTEMP+3 
LTEMP+3 
STAV2 
• "8 
,R3S 
STAPL 
STAST 
\> 


8TALZ 
* 

STAPR 

LTEMP+3 
STALY 

8T*V1 

.♦6 

MHAD 

,448 

B 

STALV 
LTEMP+3 



LAST 
BLOCK 
ADDRESS 

OUTPUT IT 
UPDATE 

COUNT OF 

ENTRIES ON LINE 



PRINT FULL LINE 
2 BLANKS 



STaPR 

STAST 

5114 

7,INE PRINTER • 



RESET ENTRY 
COUNTER 



next Disc 



FINISHED ALL 8 ? 

YES 

NO 



DUMP REST OF BUFFER 



OCT 
LDA LPS 
JSB Sl4SC f I 
3FS CH2 
JMp *»t 
UlA CH2 
STA LTEMP 
AND B77 
JSB 3TA0C 
LDA ,+52B 
LDB LTEMP 



SET THE LINE 
PRINTER STATUS 
FROM jHE I/O 
PROCESSOR 
A « STATUS 

A » SELECT CODE 

PUT THE 3C IN THE BUFFER 

A • '*» 

8 * LP STATUS 
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0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 



0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127* 

012a* 

0129* 

aui* 

0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 

0141 
0142 
0143 
0144* 

0145* 
0146* 
0147* 

0148 
0149 
0150 
0151 
0152 

0153 
0154 
0155 
0156 



75547 
75550 
75551 
75552 
75553 
75554 
75555 
75556 
75557 
75560 
75561 
75562 
75563 
75564 
75565 
75566 
75567 
75570 
75571 
75572 
75573 
75574 
75575 
75576 
75577 



006020 
0I7740 
060424 
064030 
005200 
006020 
017740 
017666 
020040 
020040 
052523 
042522 
020075 
000000 
064255 
006003 
027573 
160001 
001727 
017700 
017654 
103100 
034277 
060506 
027656 



SSB 
JS8 
LOA 
LOB 
R8L 
S88 
J38 
J SB 
ASC 



STACH 
.♦52B 
LUMP 



STACH 
8TA8T 
5, 



CHECK FOR 
YES - PUT 
A « •*' 



CHECK 
YES * 



FOR 
PUT 



26J0A LP 
«*' IN THE 



2767A LP 
•*« IN THE 



BU^ER 



BUFFER 



USER f 



ST L P 



OCT 

LOB 

SZB, 

JMP 

LOA 

ALF, 

JS8 

JS8 

CLF 

ISZ 

LDA 

JMP 





PRIST 

R3S 

STLP 

BrX 

ALF 

STA20 

STAPR 



T35ST 

#LJB# 

STApR+2 



get user indicator and 
ChLCk pur uat 

NO 
YES, 

OUTPUT 

USER TTY# 

print the buffer 

change status to overlay 

restart at libra 

pri n t the line a n d suspend 



STaTZ TESTS THE CURRENT TRAX POSITION, EXIT TO (f'*l) IP 0, (P+2) 

IF 1, 



75608 
75601 
75602 
75603 
75604 
75605 
75606 
75607 
75610 

756 1 * 
756J2 
75613 
75614 



000000 
066003 
005222 
044512 
062001 
001121 
001121 
044000 
160001 
012002 

002002 
037600 
127600 



STATZ 



NOP 




LDB STAV3 


DRUM NO, 


RBL,RBL 


MULTIPLY By 4 


AOB DTRAX 


•» FIRT TRAX ELEMENT 


LOA STAV1 




AR3,ARS 




ARSfARS 




AOB A 


POSITION IN TRAX 


LOA B,I 




AND STAV2 


MASK 


SZA 


„) EXISTS TO P»i 


ISZ STATZ 


1 exists to p+2 


JMP STATZ, I 





stlbp bumps the pointers to the trax table, it exists to (p*i) if 
a drum is finished, otherwise to (p*2), 



75615 
75616 
75617 

75620 
75621 

75622 
75623 
75624 
75625 



000000 
062002 
001200 
072002 
062001 
002004 
050772 
002401 
037615 



STLBP 



NOP 




LOA STAV2 


MAgK 


RAL 


ROTATE IT 


STA 8TAV2 




LOA STAV1 




INA 


BUMP TRACK # 


CPA B100 


FINISHED THIS DRuM? 


CLA,RSS 


YES, SET TRACK * TO 


ISZ STLBP 


NO, EXIT TO (P*2) 



ZERO 
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0157 75626 072001 STA STAV1 

0156 75627 127615 JMP STIBP,I 

0159* 

0160 756J0 MM77 ST, 63 OIC 63 
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0162 


75664 




ORG 


LIBRA*512 


»84 


0163* 












0164* 


STAPR 


PRINTS 


THE BUFFER, 


1 




0165* 












0166 


75654 


000000 


STAPR NOP 






0167 


75655 


063654 


LDA 


STAPR 


SAVE RETURN ADDRES 


0l6tf 


75656 


072213 


STA 


T35SP 




0169 


75657 


060303 


LDA 


T35B2 


COMPUTE # OF CHARS 


0170 


75660 


003004 


CMA, 


,INA 




0171 


75661 


042562 


ADA 


STABF 




0172 


75662 


064303 


100 


T35B2 


RE8ET BUFFER 


0173 


75663 


076562 


STB 


STABF 


POINTER, 


0174 


75664 


064305 


LDB 


T35B1 




0175 


75665 


026214 


JMP 


T358P+1 


OUTPUT, 


0176* 












0177* 


STAST 


OUTPUTS 


A STRING 






0178* 












0179 


75666 


000000 


STAST NOP 






0180 


75667 


163666 


LDA 


STAST, I 


GET CHAR, PAIR 


0181 


75670 


002003 


3Z*, 


,RSS 




0182 


75671 


127666 


JMP 


STAST, I 




0183 


75672 


001727 


ALF,ALF 


OUTPUT LEFT CHAR, 


0184 


75673 


017740 


JSB 


STACH 




0185 


75674 


163666 


LDA 


STAST,! 


OUTPUT RIGHT CHAR, 


0186 


75675 


017740 


use 


STACH 




0187 


75676 


037666 


I3Z 


STAST 


BUMP POINTER. 


0188 


75677 


027667 


JMP 


STAST+1 


LOOP, 


0189* 












0190* 


STA2D 


OUTPUTS 


A 2 DIGIT 


NUMBER, 




0191* 












0192 


75700 


000000 


STA2D NOP 






0193 


75701 


006400 


CUB 






0194 


75702 
75703 


100400 
000364 


DIV 


,♦10 




0195 


75704 


017716 


JSB 


STADG 




0196 


7 5 7 05 


0I77I6 


JSB 


STADG 




0197 


75706 


127700 


JMP 


STA2D,I 




0198* 












0199* 


STaOC 


OUTPUTS 


A 2-DIGIT 


OCTAL iNTEGERt 


0200* 












0201 


75707 


000000 


STAOC NOP 






0202 


75710 


006400 


CLB 






0203 


75711 
75712 


100400 
000362 


DIV 


.+8 




0204 


75713 


017716 


JSB 


STADG 




0205 


7 5 7 14 


0I77I6 


JSB 


STADG 




0206 


75715 


127707 


JMP 


STAOC, I 




0207* 












0208* 


STADG 


OUTPUTS 


A DIGIT, 






0209* 












0210 


75716 


000000 


STADG NOP 






0211 


75717 


040432 


ADA 


.♦608 




0212 


75720 


017740 


JSB 


STACH 




0213 


75721 


127716 


JMP 


STADG,! 




0214* 
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0215* 


STA6D 


OUTPUTS 


A 6-UIGIT 


numbeh 




0216* 














0217 


75722 


000000 


STA60 


NOP 






0218 


75723 
75724 


100400 
001032 




OIV 


OVSRS 




0219 


75725 


074037 




STB 


LTEMP+7 




0220 


75726 


017700 




JSB 


STA20 


FIRST TWO DIGITS 


0221 


75727 


060037 




UOA 


LTEMP+7 




0222 


75730 


006400 




CLB 






0223 


75731 
75732 


100400 
000437 




oiv 


,100 




0224 


75733 


074037 




STB 


LTEMP+7 




0225 


75734 


017700 




JSB 


STA2D 


SECOND TWO DIblTS 


0226 


75735 


060037 




LDA 


LTEMP+7 




0227 


75 7 36 


017700 




JSB 


STA2D 


THIRD TWO DIGITS 


0226 


75737 


127722 




JMP 


3TA6D,! 




0229* 














0230* 


stach 


INSERTS 


A CHARACTER INTO THE BUFFER, 


0231* 














0232 


75740 


000000 


STACH 


NOP 






0233 


75741 


074040 




8TB 


LTEMP+8 


SAVE B-REG. 


0234 


75742 


010441 




AND 


B177 


CLEAR TOP BUS, 


0235 


75743 


066562 




LDB 


STABF 


GET BUFFER POINTER, 


0236 


75744 


004065 




CLE, 


,ERB 




0237 


75745 


002041 




SEZ, 


rRSS 




0238 


75746 


001737 


i 


*LF, SLA, ALP 


CHARACTER ON LEFT- 


0239 


75747 


130001 




IOR 


If I 


CHARACTER ON RIGHT, 


0240 


75750 


170001 




STA 


If I 




0241 


75751 


036562 




ISZ 


STABF 


BUMP POINTER, 


0242 


75752 


060040 




LOA 


LTEMP+b 


RESTORE OLD B»REG,I 


0243 


75753 


127740 




JMP 


STACH, I 




0244* 














0245* 


STA3D 


OUTPUTS 


A 3-DIGIT 


NUMBER, 




0246* 














0247 


75754 


000000 


STA3D 


NOP 






024a 


75755 


006400 




CLB 






0249 


75756 
75757 


100400 
000437 




OIV 


,100 


GET 1ST DIGIT IN A, 


0250 


75760 


017716 




JSB 


STAOG 


OUTPUT FIRST DIGIT, 


0251 


75761 


017700 




JSB 


STA2D 


OUTPUT LAST TWO, 


0252 


75762 


0604^2 




LOA 


• +40B 




0253 


75763 


017740 




JSB 


S T ACH 


OUT p UT BLANK, 


0254 


7$76 4 


127754 




JMP 


STA3D,I 




0255 


75765 


030006 


ST A 06 


OEF 


DIREC+6 




0256 


75766 


031066 


STApU 


OEF 


DIREU+6 




0257 


75767 


000115 


STaOC 


OEF 


DADLC 




0258 


75770 


072034 


STATB 


DEF 


C0M6 




0259 


75771 


072137 


STATE 


DEF 


COMTE 




0260 


75772 


001630 


8TAQV 


OEF 


LIBU8t256 




0261 


75773 


000101 


STAID 


OEF 


IDEC*1 




0262 


75774 


000125 


STaDL 


OEF 


OAOLN 




0263 


75775 


061130 


STASW 


DEF 


TTY00*?DI8C 


0264 


75776 


062270 


STAUS 


DEF 


TTY32*?DISC 


0265 


75777 


074002 


QSTV2 


DEF 


STAV2 




0266 


76000 




JSTA 


EQU 


* 
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0268 


75000 




ORG LIBRA 




0269 


75000 


017666 


JSB STAST 


PRINT 


0270 


75001 
75002 


044504 
052040 


ASC 2, IDT 


IDT 


0271 


75003 


000000 


OCT 




0272 


75004 


060347 


LOA ,»3 


3 IDT 


0273 


75005 


070033 


STA LTEMP+3 


TRACKS 


0274 


75006 


067773 


LOB STAID 




0275 


75007 


074034 


STB LTEMP+4 




0276 


75010 




STAIR EQU * 




fd277 


75010 


160034 


LOA LTEMP+4 #I 


qET ADDRESS 


0276 


75011 


034034 


ISZ LTfcMP*4 




0279 


75012 


002003 


SZA f R3S 




0280 


75013 


027016 


JMP STAIQ 


SKIP JF ZERO 


0281 


75014 


164034 


LOB LTEMP+4,1 


GET LENGTH 


0282 


7501b 


0174U 


JSB STALL 


OUTPUT THEM 


0283 


75016 




STAIQ EQU * 




0284 


75016 


034034 


ISZ LTEMP+4 




0285 


75017 


034034 


ISZ LTEMP+4 




0286 


75020 


034033 


ISZ LTEMP+3 




0287 


75021 


027010 


JMP STAIR 




0288 


75022 


017654 


JSB STAPR 




0289 


75023 


017666 


JSB STAST 




0290 


75024 


006412 


OCT 64l2 




0291 


75025 
75026 


040504 
052040 


ASC 2, ACT 




0292 


75027 


000000 


OCT 




0293 


75030 


060H2 


LOA ADLOC 




0294 


75031 


064113 


LOB AOLEN 




0295 


7503 2 


01741* 


JSB STALL 




0296* 










0297* 


PRINT OUT 


THE DISK ADT 




0296* 










0299 


75033 


017666 


JSB STAST 




0300 


75034 
75035 


006412 
005104 


qCt 6412,5104 




0301 


75y36 


044523 


ASC 4, ISC AOTS 




75037 


041440 








75040 


040504 








75041 


052123 






0302 


75042 


000000 


OCT 




0303 


75043 


017654 


JSB STAPR 


PRINT THE BU 


0304 


75044 


060346 


LOA ,-4 


4 PER 


0305 


75045 


070033 


STa LTEMP+3 


LINE 


0306 


75046 


067767 


LOB STADC 


*> 1ST DISC 


0307 


75047 




STAPj EQU * 




0308 


75047 


076001 


STB STAVl 




0309 


75050 


162001 


LDA ST A V1,I 


GET ADDRESS 


0310 


75051 


002003 


SZArRSS 




03U 


75052 


027064 


JMP STADK 


SKIP IF ZERO 


0312 


75053 


066001 


LOB STAVl 




0313 


75054 


044362 


A^B .♦dAqLN'-d 


aouc 


0314 


75056 


164001 


LDB b,I 


GET LENGTH 


0315 


75056 


0174U 


JSB STALL 


OUTPUT THEM 


0316 


75057 


034033 


ISZ LTEMP+3 


LINE FULL? 



ADT 
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0317 


75060 


027064 


JMP 


STADK 


NO 


0318 


75061 


017654 


JSB 


STAPR 


YES, PRINT AT 


0319 


75062 


060346 


LDA 


t«4 




0320 


75063 


070033 


8TA 


LTEMP+3 




0321 


75064 




STAOK EUU 


* 




0322 


75064 


066001 


LDB 


STAyt 




0323 


75065 


006004 


InB 






0324 


75066 


057774 


CPB 


STADL 


FINISHED ALL DISC AD1S? 


0325 


75067 


00200; 


RSS 




YES 


0326 


75070 


027047 


JMP 


STADJ 


NO 


0327 


75071 


060033 


LDA 


LTEMP+3 




0328 


75072 


050346 


CPA 


■ w*l 




0329 


75073 


002001 


RSS 




SKIP PRINTING OF BLANK LINE 


0330 


75074 


017654 


JSB 


STAPR 




0331* 












0332* 












0333 + 


THIS SECTION PRINTS 


OUT THE 


DIRECTORY 


0334* 


TRACKS THAT ARE ON THE DRUM 




0335* 












033$ 


75075 


017666 


JSB 


STAST 




0337 


75076 


006412 


OCT 


6412 




0338 


75077 
75100 
75101 


042U1 
051105 
041440 


ASC 


3, DIREC 




0339 


75102 


000000 


OCT 







0340 


75103 


017654 


JSB 


STAPR 




0341 


75104 


060346 


LDA 


• "•4 


4 PER 


0342 


75105 


070033 


8T A 


LTEHP+3 


LINE 


0343 


75106 


067765 


LDB 


STAD6 


*> FIRST DIREC ENTRY 


0344 


75107 




STADX EQU 


* 




0345 


75107 


076001 


STB 


STAV1 




0346 


75H0 


162001 


LDA 


st a vi,i 


GET ADDRESS 


0347 


751H 


002003 


SZA, 


rRSS 




0348 


75H2 


027124 


JMP 


STADY 


SKIP IF ZERO 


0349 


75113 


066001 


LDB 


STAVl 




0350 


75114 


044344 


ADB 


,-6 




0351 


75115 


164001 


LDB 


b,i 


GET LENGTH 


0352 


75116 


017411 


JSB 


STALL 


OUTPUT THEM 


0353 


75117 


034033 


ISZ 


LTEMP+3 


LINE FULL? 


0354 


75120 


027124 


JMP 


STaDY 


NO 


0355 


75121 


017654 


JSB 


STAPR 


YES, PRINT IT 


0356 


75122 


060346 


LDA 


,•4 




0357 


75123 


070033 


STA 


LTEMP+3 




0358 


75124 




STADY EOU 


* 




0359 


75124 


06600* 


LDB 


STAVl 




0360 


75125 


044361 


ADB 


.♦7 




0361 


75126 


057766 


CPB 


STADU 


FINISHED ALL DIREC ENTRIES? 


0362 


75127 


002001 


RSS 




YE8 


0363 


75130 


027107 


JMP 


STADX 


NO 


0364 


75131 


060033 


LDA 


LTEMP4.3 




0365 


75132 


050346 


CPA 


,•4 




0366 


75133 


002001 


RSS 




SKIP PRINTING OF BLANK LINE 


0367 


75134 


017654 


JSB 


STAPR 




0368* 












0369 


75135 


017666 


JSB 


STAST 


PRINT 
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0370 
15371 



0372 
0373 
0374 
0375 

0376 
0377 

0378 

0379 

0360 

0381 
0362 

0383 
03*4 
0385 
0386 
0387 
0388 
0389 
0390 
039j 

0392 

0393 

0394 

0395* 

0396 

0397 

0398 

0399 

0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0416 
0419 
0420 



75136 
75137 
75140 
75141 
75142 
75143 
75144 
75145 

75l<6 
75146 
75147 
75150 
75151 
75152 
75153 
75154 
75155 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 

75171 
75172 
75173 
75174 
75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75206 
75207 
75210 
75211 
75212 
75213 
75213 
75214 
75215 
75216 



005123 
054523 
052105 
046440 
000000 
002400 
070033 
067770 

074034 
160001 
010764 
050033 
027155 
070033 
017426 

064034 
006004 
057771 
002001 
027146 
017666 
006412 
005125 
051505 
051123 

000000 
017654 

060342 
070033 
067775 

076001 
162001 
002003 
027213 
017426 
034033 
027206 
017654 
060342 
070033 

066001 
044375 
057776 
002001 
027174 

060033 
050342 
002001 
017654 



UCT 5123 
ASC 3,Y5TtM 



STANE 



8TANG 



OCT 
CLA 
STA 
LOB 
EQU 
ST8 

LDA 
AND 
CPA 
JMP 
STA 
JSB 

EQU 

LOB 
INB 
CPB 
R3S 
JMP 
JSB 
OCT 





LTEMP+3 
STAT8 

* 

LTEMP+4 

B,I 

M128 

LTEMP+3 

STANG 

LTEMP+3 

STAOS 

LTEMP+4 

STATE 

STANE 
STAST 
6412,5125 



ASC 2,SER8 

OCT 
JSB STAPH 



LOA 
STA 
LOB 

STAsX EyU 
STB 

LOA 
SZA, 

JMP 

JSB 
ISZ 

JMP 

JSB 
LDA 
STA 

STASY EQU 
LOB 
AOB 
CPB 

RSS 

JMP 

S1ASZ EuU 
LDA 
CpA 
RSS 
JSB 



."6 

LTEMP+3 
STA8W 



SET COMPARE DRUM AOORESS 
8 »> BEGINNING OP COM TABLE 



GET THE NtXT USED DRUM AOORESS 

MASK OFF THE SECTOR PART 

IS IT ALREADY PRINTED 

YES 

NO, PRJNT CUT TRACK PART 



GET COM TABLE POINTER 

ADVANCE TO NEXT ENTRY 
CHECK FOR END OF TABLE 

SCAN ON 



8 PER 

LINfc 
• > DISC AOORESS FOR 1IY00 



* 

STAVi 

ST A V1,I 

RSS 

STA82 

STA03 

LTEMP+3 

STASY 

STAPH 

.-8 

LTEMP+3 

* 

STAVI 
.♦TTY01-TTY0B 



GET ADDRESS 

DONE IF ZERO 

OUTPUT IT 

LINE FULL 

NO 

YES, OUTPUT IT 



STAUS 
STASX 
LtEMP*3 

( a>8 

8TAPR 



FINISHED ALL USERS 

YES 
NO 



SKIP PRINTING BLANK LINt 
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0421* 












0422* 


PRINT 


OUT DISC 


ALLOCATION TABLE 




0423* 












0424 


75217 


017666 


JSB 


STAST 




0425 


75220 


005104 


OCT 


5104 




0426 


75221 


044523 


ASC 


7, ISC ALLOCATION 




75222 


041440 










75223 


040514 










75224 


046117 










75225 


041501 










75226 


0521U 










75227 


047516 








0427 


75230 


011415 


OCT 


11415 


XOFP-CR 


0428 


75231 


005012 


OCT 


5012 




0429 


75232 
75233 
75234 


020040 
044504 

052040 


ASC 


3, IDT 




0430 


75235 


000000 


OCT 







0431 


75236 


017654 


JSB 


8TAPR 




0432 


75237 


017473 


JSB 


8TA8R 


HEAD BOOTSTRAP 


0433 


75240 


064206 


LOB 


LSTDA 




0434 


75241 


044354 


AOB 


t+2 




0435 


75242 
75243 


104200 
100001 


OLD 


b,I 




0436 


75244 
75245 


104400 
074002 


D3T 


STAV 2 


SAVE ADDRESS OF DAT 


0437 


75246 


017510 


JSB 


8TADR 


READ DAT 


0438 


75247 


060347 


LDA 


t *3 


3 ENTRIES 


0439 


75250 


064356 


L DB 


.♦4 


n> 1st idt entry 


0440 


75251 


017447 


JSB 


STADA 


SET UP BUFFfR FOR IDT 


0441 


75252 


017654 


JSB 


STAPR 


PRINT IT 


0442 


75253 


017666 


JSB 


STAST 




0443 


75254 


005040 


OCT 


5040 




0444 


75255 
75256 
75257 
75260 
75261 


020104 

044523 

041440 
040504 
05204k) 


AsC 


5, OIsC 


ADt 


0445 


75262 


000000 


OCT 







0446 


75263 


017654 


JSB 


STAPR 




0447 


75264 


017510 


JSB 


STADR 


READ DAT BACK 


0448 


75265 


060342 


LDA 


.-8 


8 E N TKlES 


0449 


75266 


064367 


lob 


.♦13 


«> First djsc adt entry 


0450 


75267 


017447 


JSB 


STADA 


SET UP BUFFER FOR ADT 


0451 


75270 


017654 


JSB 


STAPR 


PRINT IT 


0452 


75271 


017666 


JSB 


STAST 




0453 


75272 


005040 


OCT 


5040 




0454 


75273 
75274 
75275 


020104 
U44522 
042503 


ASC 


3, DIREC 




0455 


75276 


000000 


OCT 







0456 


75277 


017654 


JSB 


STAPR 




0457 


75300 


017510 


JSB 


STADR 


READ DAT 


0458 


75301 


060342 


LDA 


,-8 


8 pER 


0459 


75302 


070033 


STA 


LTEMP+3 


LINE 



PAGE 


0556 1 


M7 STATUS OVERLY «. SYSTEM 


CONSOLE 


0460 


75303 


064562 


LDB USD 




0461 


75304 


044417 


ADB t *37 


•> FIRST OIREC ENTRY 


0462 


75305 




STATX EQU * 




0463 


75305 


076001 


STB STaVI 




0464 


75306 
75307 


104200 
174001 


OLD STAVi,I 


GET DISC ADDRESS 


0465 


75310 


002003 


SZA,RSS 




0466 


75311 


006002 


SZB 




0467 


75312 


002001 


RSS 




0466 


75313 


027327 


JMP STAFY 


SKIP IF ZERO 


0469 


75314 


101100 


SWP 




0470 


75315 


017722 


JS8 STA6D 


OUTPUT IT 


0471 


75316 


017666 


J8B STAST 


2 BLANKS 


0472 


75317 


020040 


ASC 1, 




0473 


75320 


000000 


OCT 




0474 


75321 


034033 


ISZ LTEMP+3 


LINE FULL? 


0475 


75322 


027327 


JMP STATY 


NO 


0476 


75323 


017654 


JSB STAPR 


YES, PRINT JT 


0477 


75324 


060342 


LUA ,-e 




0476 


75325 


070033 


8TA UEMP + 3 




0479 


75326 


017510 


JSB STADR 


READ DAT AGAIN 


0460 


75327 




STATY EQU * 




0481 


75327 


066001 


LOB STAVl 




0482 


75330 


044355 


AOB ,43 




0483 


75331 


060207 


LD A OATWN 




0484 


75332 


003004 


CMA,INA 




0485 


75333 


002004 


INA 




0486 


75334 


040562 


AOA LlBD 




0487 


75335 


05400)4 


CPB A 


FINISHED ALL ENTRIES? 


K)488 


75336 


002001 


RSS 


YES 


0489 


75337 


027305 


JMP STATX 


NO 


0490 


75340 


060033 


LOA lTEMp*3 




0491 


75341 


050342 


CpA ,*8 




0492 


75342 


002001 


RSS 


SKIP PRINTING BLANK L 


0493 


75343 


017654 


JSB STAPr 




0494 


75344 


017666 


JSB STAST 




0495 


75345 


005040 


OCT 5040 




0496 


75346 
75347 
75350 
75351 


020123 
054523 
052105 
046440 


ASC 4, SYSTEM 




0497 


75352 


000000 


OCT 




0498 


75353 


017654 


JSB STAPR 




0499 


75354 


017510 


JSB STAOR 


GET DAT BACK 


0500 


75355 


064562 


LOB LIBO 




0501 


75356 


160001 


lda B,J 




0502 


75357 


070033 


S T A L T EMP+3 


SAvE LENG T H 


0503 


75360 


006004 


INB 




0504 


75361 
75362 


104200 
100001 


DLO B,j 


GET ADDRESS OF 


05&5 


75363 


101100 


SWP 


SYSTEM LIBRARY 


0506 


75364 


017722 


JSB S T A60 


output It 


0507 


75365 


060412 


LOA f +40B 


bla n k 


0508 


75366 


017740 


JSB STACM 




0509 


75367 


060033 


LDA LTEMP+3 


OUTPUT LENGTH 



PAGE 


0557 #47 STATUS OV 


ERLA^ 


t m SYST 


"EM CONSOLE 


0510 


75370 


017754 


JSB 


8TA3D 




0511 


75371 


017666 


JSB 


STAST 


2 BLANKS 


0512 


75372 


020040 


A8C 


If 




0513 


75373 


000000 


OCT 







0514 


75374 


064205 


LOB 


LOB3A 




0515 


75375 


044355 


AQB 


,♦3 


FIRST DiSC 


0516 


75376 


076001 


STB 


STAVi 


ADDRESS IN SST 


0517 


7^377 


060346 


LDA 


,»4 




0518 


75400 


017520 


JSB 


STASS 


SEGMENTS 1«4 


0519 


75401 


017654 


JSB 


8TAPR 




0520 


75402 


060345 


LDA 


.-5 




0521 


75403 


017520 


JSB 


STASS 


SEGMENTS 5*9 


0522 


75404 


017654 


JSB 


STAPR 




0523 


75405 


060346 


LOA 


,-4 




0524 


75406 


017520 


JSB 


STASS 


SEGMENTS 10-13 


0525 


75407 


017654 


JSB 


STAPR 




0526 


75410 


026267 


JMP 


LEND 


DONE 
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0002* 

iow03* 

0004* 

0005 

0006 

0007 

000b 

0009 

0010 

0011 

0012 
0013 
0014 
0015 
0016 
0017* 

001a* 

0019* 

0020 

0021 
0tf22 
0023 
0024 
0025 
0026 
0027 
002« 
0029 
0030 
0031 
0032 
0033 
0034 

0035 

0036 

U037* 

0036* 

0039* 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
0047 
0046 
0049 
0050 
0051 
0052 
0053 
0054 



STALL OUTPUTS A DRUM LOCATION AND LENGTH 



/5411 
75412 
75413 
75414 
75415 
75416 
75417 
75420 
75421 
75422 

75423 
75424 
75425 



75426 
75427 
76430 
75431 
75432 
75433 
75434 
75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 

75445 
75446 



000000 
074032 
017426 
060032 
003004 
006400 
100400 

001033 
017716 
017754 
060412 
017740 
127411 



000000 
070031 
001222 
010355 
017716 
060431 
017740 
060031 
001727 
010734 
017700 
060431 
017740 
060031 
010441 
017754 
127426 



STALL 



STAOS 



NOP 

STB LTEMP+2 


save Length, 


JSB STAOS 


OUTPUT ,DRUM ADDRESS 


LDA LTEMP+2 


GET LENGTH, 


CMA,INA 


MAKE POSITIVE, 


CLB 




DJV DVSRS+1 


GET FIRST DIGIT, 


JSB STADG 


PRINT IT, 


JSB STA30 


PRINT REMAINING 3, 


LOA ,+40B 




JSB STACH 


OUTPUT BLANK, 


JMP STALLiI 




1 ADDRESS AS 


3 CHARS FOLLOWED BY A 


NOP 




STA LTEMP+1 




RALfRAL 


GET OHUM NUMBER 


AND ,*3 




JSB STADG 




LDA ,+57B 


SLA3H, 


JSB STACH 




LDA LTEMP+l 


GET TRACK NO, 


ALF, ALF 




AND B77 




JSB 3TA2D 




LDA .♦57B 


SLASH, 


JSB STACH 




LDA LTEMP+l 


SECTOR NO, 


AND BI77 




JSB STA3D 




JMP STAOS,I 





STAOA PRINTS DISC ALLOCATION f-UR THE IDT AND DISC AOT 



75447 
75450 
75451 
75452 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 
75463 
75464 
75465 



000000 STADA nop 



070033 
044562 

074034 

104200 
100034 
002003 
006002 
002001 
027466 

101100 
017722 
017666 

020040 
000000 



number of entries 
»> ist entry we want 



STA LTEMP+3 

ADB liBD 

STAAl EOU * 

STB LTEMP+4 

DLD LTEMP+4,1 GET uISC ADDRESS 



SZA,RS3 
828 

RS3 

JMP STAA2 

SWP 

JSB STA6D 
JSB STAST 
A3C 1, 
OCT 



SKIP IF ZERO 

OUTPUT IT 
2 BLANKS 
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0055 


75466 




STAA2 


£QU * 




0056 


75466 


064034 




LDB LTEMp*4 




0057 


75467 


044355 




ADB ,*3 


»> NEXT ONE 


0058 


75470 


034033 




ISZ LjEMP+3 


FINISHED? 


0059 


75471 


027452 




JMP 8TAA1 


NO 


0060 


75472 


127447 




JMP STADA,I 


yES 


0061* 












0062* 


STABR 


READS THE BOOTSTRAP 




0063* 












0064 


75473 


000000 


STABR 


NOP 




0065 


75474 


060750 




LDA M512 




0066 


75475 


070215 




STA MWORD 


LENGTH 


0067 


75476 


00240£ 




CLA 




0068 


75477 


006404 




CLB,INB 




0069 


75500 
75501 


104400 
000030 




DST LTEMP 


DjSC ADDRESS 


0070 


75502 


064205 




LDB LDBSA 


CORE ADDRESS 


0071 


75503 


045036 




ADB BIT15 




0072 


75504 


060520 




LDA DLTEM 




0073 


75505 


114217 




JSB DISCZ,I 


READ IT 


0074 


75506 


026311 




JMP DDERR 




0075 


75507 


127473 




JMP STABR, I 




0076* 












^77* 


STADR 


READS THE DISC ALLOCATION 


TABLE 


0078* 












0079 


75510 


000000 


STADR 


NOP 




0080 


75511 


063777 




LOA DSTV2 


■> DIsC ADDRESS In 


0081 


75512 


064207 




^DB DATLN 




0082 


75513 


074215 




STB MWORD 


LENGTH 


0083 


75514 


064566 




LDB LIBDI 


CORE ADDRESS 


0084 


75515 


114217 




JSB DISCZ,I 


READ IT 


0085 


75516 


0263U 




JMP DDERR 




0086 


75517 


127510 




JMP STADRrI 




0087* 












0088* 


STaSS 


FILL8 THE &UFFER WITH SYSTEM SEGMENT 


0089* 


ADDRESS AND LENGTHS 






0090* 












0091 


75520 


000000 


STASS 


NOP 




0092 


75521 


070033 




STA LTEMP+3 


SAVE # oF SEGMENTS 


0093 


75522 


017473 




JSB STABR 


READ BOOTSTRAP 


0094 


75523 




STAS1 


EQU * 




0095 


75523 
75524 


104200 
174001 




OLD STaV1,I 


GET OISC ADDRESS 


0096 


75525 


101100 




SHP 




0097 


75526 


017722 




JSB STA6D 


OUTPUT IT 


0098 


75527 


060412 




LDA ,+40B 


BLANK 


0099 


75530 


017740 




JSB STACH 




0100 


75531 


066001 




LDB STAV1 




0101 


75532 


044350 




ADB ,-2 




0102 


75533 


160001 




LDA B,I 


GET LENGTH 


0103 


75534 


044360 




ADB v *6 




0104 


75535 


076001 




STB 8TAV1 




0105 


75536 


001727 




ALF,ALF 


CONVERT 


0106 


75537 


030762 




IOR HIMSK 




0107 


7554a 


003004 




CMA,INA 


TO BLOCKS 
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0108 


75541 017754 


JSB STA3D 


OUTPUT JT 


0109 


75542 017666 


J3B STA8T 


2 BLANKS 


0110 


75543 020040 


A3C 1, 




0111 


75544 000000 


OCT 




0112 


75545 034033 


191 ITEMP+3 




0113 


75546 027523 


JMP STASi 




0114 


75547 127520 


JMP STA3S,I 
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0116* 
0117* 
0118* 

0119* 

0120* 

0121* 

0122* 

0123* 

0124* 

0125* 

0126* 

0127* 

0126* 

0129* 

0130 

0131 

0132 

0133 

0134 

013b 

0136 

0137 

013b 

0139 

0140 

0141 

0142 

0143 

0144 

0146 

0146 

0147 

0146 

0M9 

0150 

0151* 

0152 

0153 

0154 

0155 

0156 

0157 

0156 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166* 

0167* 

0166 
0169 
0170 



This command gives a print out of Th* baud rate & 
chartslze for which the port is configured, 

THE DATA PRINTED IS| 
PORT NR, 
BAUD RATS 
CHAR, SIZE 

FORMAT; 



OR 



PORT»PORT#t,PQRT#,,,,,, ttt J CR 



PURT~AIL 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 

750U 
75012 

75013 
75013 
75014 
75014 
75015 
75016 
75017 

7502 
75021 

75022 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
7503g 



002400 
072767 
072770 
072771 

070031 
060I77 

070030 
114572 
026275 
053372 
027037 

01 7270 

017362 

114572 
027022 
050426 
002001 
027013 



060031 
040030 
002021 
026275 
017226 
060055 
050367 
027065 
002400 
070031 
114572 
027065 
027013 



ORG 
CI.A 
STA 
STA 
STA 
STA 
IDA 
STA 
JSB 
JMP 
CPA 
JMp 

POR13 EQU 
JSB 

POR0 EQU 
J38 
JSB 
JMP 
CPA 
RSS 
JMP 



P0R2 



LIBRA 

PORS1 

P0R32 

PORTL 

PQRCj 

NPORT 

PORCN 

T35CH,I 

LFRER 

POR.A 

pOR3 

* 

PORDG 

* 

P0R3P 

T35CH,! 

P0R2 
,*54B 

P0R13 



EQU * 
LOA PORCl 
ADA PORCN 
S3A,RSS 

JMP LFRER 
JSB PORIN 

LDA T35LC 
CPA ,+158 
JMP P0R4 
CLA 

STA PORCl 
JSB T35CH,I 
JMP POR4 
JMP P0R13 



Clear indicators, 



set up limit, 

GET CHAR, 
CR, ERROR! 
NO CR, «"A»? 
YES, 

NO, DIGIT? 

YES, COMPUTE PORT NR, 

GET NEXT CHAR, 

CR, 

NO CR, COMMA? 

YES, 

NO, 



CHECK LEGALITY, 

>LIMJT? 

YE5, ERROR! 

NO, SET INDICATOR, 

PICK UP LAST CHAR, 

WAS IT A CRT 

YES, GIVE THE INFORMATION, 



NO, GET NEXT CHAR, 

CR, GjVE THE INFORMATION, 

NO CR, 



75037 

75037 114572 

75040 026275 



POR3 



EQU 
JSB 
JMP 



T35CH,I 
LFRER 



COMMAND FOR ALL 
GET N6*T CHAR, 

CR, ERROR! 



PORTS GIVEN, 



PAGE 


0562 *4b PORT • SYSTEM 


CONSOLE. 


1 


0171 


75041 


053373 


CPA 


PQR.L 


NO CR, «"L"? 


0172 


75042 


002001 


KS3 






0173 


75043 


026275 


JMP 


LFRER 


NO, ERRORJ 


0174 


75044 


114572 


JS8 


T3BCM,I 


YES, GET NEXT CHAR, 


0175 


75045 


026275 


JMP 


LFRER 


CR, ERROR! 


0176 


75046 


053373 


CPA 


POR.L 


• •L"? 


0177 


75047 


002001 


RS8 






0178 


75050 


026275 


JMP 


LFRER 


NO, ERROR! 


017 9 


75051 


114572 


JS8 


T35CH,I 


YES, GET NEXT CHAR, 


0180 


75052 


002001 


RS8 






0181 


75053 


026275 


JMP 


LFRER 


NO CR, ERROR! 


0182 


75054 


002400 


CIA 




CR! 


0183 


75055 




PQR9 EQU 


* 




0184 


75055 


070031 


STA 


PORQl 




0185 


75056 


040030 


ADA 


PORCN 




0186 


75057 


002021 


S3*, 


>RSS 


>LIMIT? 


0167 


75060 


027065 


JMP 


P0R4 


YES, 


0188 


75061 


017226 


JSB 


PORIN 


NO, SET INDICATOR, 


0189 


75062 


060031 


LD* 


PORC1 


BUMP PORT NR, 


0190 


75063 


002004 


INA 






0191 


75064 


027055 


JMP 


POR9 




0192* 






give the information, 


0193 


75065 




P0R4 EQU 


* 




0194 


75065 


060303 


LUA 


T35B2 


INITIALIZE: 


0195 


75066 


072562 


STA 


stabf 


BUFFER POINTER, 


0195 


75^67 


017312 


JSB 


PROST 


OUTPUT HEADING, 


0197 


7507(0 


005040 


OCT 


5040 


LF.SPACE 


0198 


75071 
75w72 
75073 
75074 


050117 
05U24 
020040 
020040 


ASC 


4, PORT 




0199 


75075 


041101 


ASC 


6, BAUD RATE 




75076 


052504 










75077 


020122 










75100 


040524 










75101 


042440 










75102 


020040 








0200 


75103 
75104 
75105 
75106 
75107 


041510 
040522 
027040 
051511 
055105 


ASC 


5#CHAR, 


SIZE 


0201 


75110 


000000 


OCT 







0202 


75111 


060412 


LOA 


,♦32 


M Nr, OF CHAR3, 


0203 


75112 


64 305 


LOB 


T3 g Bl 


B* BUFFER POINTER, 


0204 


75113 


016213 


JSB 


T35SP 


PRINT & SUSPEND, 


0205 


75114 


060303 


LOA 


T35B2 


RESET BUFFER POINTER. 


0206 


75115 


072562 


STA 


8TA8F 




0207* 












0206 


75116 




POR5 EQU 


* 




0209 


75116 


062771 


LOA 


PORTL 




0210 


75117 


050372 


CpA 


,♦16 


done? 


0211 


75120 


027135 


JMP 


P0R22 


YES. 


«2l2 


75l2l 


006400 


CUB 




CLEAR (B) AND GET 


0213 


75122 


062767 


LOA 


PORSi 


LQ*ER INDICATOR, 
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0214 

0215 

0216 

0217 

0216 

0219 

0220 

0221 

0222 

0223 

0224 

0225* 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243* 

0244* 

0245* 

6)246 

02 4 7 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 



0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 



75123 

75124 

75125 
75126 
75127 

7513" 
75131 
75132 
75133 
75133 
75134 

75135 
75135 
75136 
75137 
75140 
75141 
75J42 
75143 
75144 
75145 
75146 
75147 
75150 
75151 
75152 
75152 
75153 



75154 

75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 

75175 
75i76 
75177 

75200 
752(41 
75202 



000010 
006004 
001300 
072767 
006003 

027133 
017154 
017300 

036771 

027116 



062771 
050412 
026267 
006400 
062770 
000010 
006004 
001300 
072770 
006003 
027152 
017154 
017300 

036771 
027135 



000000 
060412 
017324 
017312 
020040 
000000 
062771 
017344 
017312 
020040 
020040 
020040 

000000 
062771 
001727 
032775 
114500 
102311 
027175 
102511 
017353 
017312 
020040 



POR7 



SUA 

IN8 

RAR 

STA PQRS1 

SZB,RSS 

JMP PQR7 

J3B P0R6 

JSB PRQPR 

EQU * 

ISZ PORTL 

JMP P0R5 



PQR22 EQU 
LOA 
CPA 
JMp 
CuB 
LOA 
SLA 
INB 
RAH 
STA 
3ZB, 
JMP 
JSB 
JSB 

P0R8 EQU 
ISZ 
JMP 



* 

PORTL 
,♦32 
LEND 

P0RS2 



P0RS2 

RSS 

P0R8 

P0R6 

PRQPR 

* 

PORTL 

PQR22 



P0R6 NOP 

LOA ,*40B 

JSB PROCH 

JSB PRqST 

ASC lr 

OCT 

LOA PORTL 

JSB PRQ2D 

JSB PROST 

ASC 3, 



OCT 
LOA PORTL 
ALF#ALF 
IOR WSP 
JSB S148CI 
SFS CH2 
JMP *„i 
HA CH2 
JSB PR03D 
JSB PROST 
ASC 5, 



8XT SET? 

YES, BUMP (B), 

ROTATE RIGHT, 

RESTORE INDICATOR, 

IF BIT»0» JUMP, 

OTHERWISE SET UP BUFFER, 

PRINT BUFFEK A N D SUSpEnD, 

BUMP COUNTER, 
CO BACK, 



DONE? 

YES, GET OUT, 

Clear (B) and get 

UPPER INDICATOR, 

BIT SET? 

YES, BUMP (B), 

ROTATE RIGHT, 

RESTORE INDICATOR, 

IF BlT«0, JUMP, 

OTHERWISE SET UP BUFFERt 

PRINT BUFFER A N D SUSPEND, 

BUMP COUNTER, 
GO BACK, 



OUTPUT A BLANK, 
OUTPUT 2 BLANKS, 



GET PORT NR, 
OUTPUT PORT NH, 

output 6 Blanks, 



get port nr, 
rotate into position, 
merge into opcode, 
ask for baud Rate, 



get baud rate, 
output baud rate, 
output 10 blanks. 



k' 
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75203 


020040 










75204 


020040 










75205 


020040 










75206 


020040 








0267 


75207 


000000 




OCT 




0266 


75210 


062771 




LOA PORTL 


GET PORT NR, 


0269 


75211 


001727 




ALF#ALF 


ROTATE INTO POSITION, 


0270 


75212 


030252 




IQR WC8 




0271 


75213 


114500 




JSB S14SCI 


ASK FOR CHAR, SIZE, 


0272 


75214 


102311 




SFS CH2 




0273 


75215 


027214 




JHP *»i 




0274 


75216 


102511 




LIA CH2 


GET CHAR, SIZE, 


0275 


75217 


002003 




8ZA,R33 


■ 0? 


0276 


75220 


027223 




JMP PORH 


YES, 


0277 


75221 


017340 




JS8 PRQOG 


NO, OUTPUT IT, 


0278 


75222 


127154 




JMP PQR6,1 


RETURN, 


0279 


75223 




PORU 


EQU * 




0280 


75223 


060424 




LOA .+42 


OUTPUT »* ". 


0281 


75224 


017324 




JSB PROCH 




0282 


75225 


127154 




JMP PQR6,| 


RETURN, 


0283* 












0284* 












0286* 












0286 


7522b 


000000 


PURIN 


NOP 


SETS PORT BIT IN INDICATOR 


0287 


75227 


060031 




LOA PORC1 


A«POKT# 


0288 


75230 


064000 




LOB A 


B»PQRT# 


0289 


75231 


005323 




RBR,RBR 


ROTATE BIT#4 INTO BIT#0, 


0290 


75232 


005323 




rBr,rSr 




0291 


75233 


004010 




SLB 


P0RT#>15? 


0292 


75234 


040332 




AOA ,»16 


YES, MAKE PORT* FROM 0-15, 


0293 


75235 


003004 




CMA,INA 


NO, NEGATE, 


0294 


75236 


070033 




STA PRCCN 


SET UP COUNTER, 


0295* 












0296 


75237 


062767 




LOA PORSi 


A*LU*ER INDICATOR, 


0297 


75240 


004010 




sue 


UPPER OR LQ*ER PORf? 


0298 


75241 


062770 




Lp* P0R32 


UPPfcR, A»UPP£R INDICATOR. 


02 99 


7 5242 


064033 




LOB PRCCN 


BsCQUNTER* 


0300 


75243 




PORXt 


tQU * 




0301 


75243 


006003 




8ZB,R38 


OONE? 


0302 


75244 


027250 




jMP P0RJ2 


YES, 


0303 


75245 


001300 




RAR 


NO, ROTATE RIghT ONE BiT, 


0304 


75246 


006004 




INB 


BUMP COUNTER, 


0305 


75247 


027243 




JMP PORI1 


GO BACK, 


0306 


75250 




PURl2 


EQU * 




Z^7 


75250 


030353 




IOR .♦! 


SET BIT. 


0308* 












0309 


75251 


064033 




LOB PRCCN 


B»COUNTER, 


0310 


75252 




PORX3 


EQU * 




0311 


75252 


006003 




SZBrRSS 


OONE? 


0312 


75253 


027257 




JMP PQRI4 


YES, 


0313 


75254 


001200 




RAL 


NO, ROTATE LEFT ONE BIT, 


0314 


75255 


006004 




INB 


bump Counter, 


0315 


75256 


027252 




JMP P0RJ3 


GO BACK, 


0316 


75257 




P0RI4 


EQU * 




0317 


75257 


064031 




LOB PORC1 
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031b 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327* 

0326 

0329 

0330 

0331 

0332 

0333 
0334 

0335 

0336* 

0337* 

0333* 

0339* 

0340* 

0341* 

0342 

0343 

0344 

0345 

0346 

0347 

0346 

0349 

0350 

0351 

0352* 

0353* 

0354* 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365* 

0366* 

0367* 

0368 

0369 

0371 
0372 



75260 005323 RBR,RBR 

75261 005323 RBR,R8R 

75262 004010 SUB 

75263 027266 JMP P0RX5 

75264 072767 STA PQR31 

75265 002001 R33 

75266 PORI5 EQU * 

75266 072770 STA P0R32 

75267 127226 JMP PQRIN,I 

75270 000000 PORDG NOP 

75271 040316 ADA M72B 

75272 002021 S8A,RSS 

75273 026275 JMP LFRER 
752/4 040364 ADA ,*J0 

75275 002020 SSA 

75276 026275 JMP LFRER 

75277 127270 JMP PORDG, I 



PROPR PRINTS THE BUFFER, 



75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 
75311 



000000 

063300 
072213 
060303 
003004 
042562 
064303 
076562 
064305 
026214 



PROPR 



NOP 
LDA 
STA 

LDA 

CMA, 

ADA 

LDB 
STB 

LOB 

JMP 



PROPR 

T35SP 

T3562 

INA 

STABF 

T35B2 

STABF 

T35B1 

T35SP+J 



PROST OUTPUTS A STRING, 



75312 


000000 


75313 


1^3312 


75314 


002003 


75315 


127312 


75316 


001727 


75317 


017324 


75320 


163312 


75321 


017324 


75322 


037312 


75323 


027313 



PROST NOP 

IDA PROST, I 
S2A,RSS 
JMP PRQST, I 
ALF,ALF 
JSB PRQCH 
LO* PROST, J 
JSB PROCH 
I5Z PROST 
JMP PROST+1 



UPPER OR LOWER PORT? 

LQW£Rt STORE IN LOW^R INDICATOR, 



UPPER, STORE IN UPPER INDICATOR, 
EXIT, 

CHECK IF DIGIT IS INPUT, 
DIGIT? 

NO, ERROR! 
MAY BE, 

NO, ERROR1 
0I6IT1 RETURN, 



SAVE RETURN ADDRESS, 
COMPUTE NR, OF CHARS, 



RESET BUFFER 
POINTER, 



OUTPUT, 



GET CHAR, PAIR, 

OUTPUT LEFT CHAR, 

OUTPUT NIGHT CHAR, 

BUMP POINTER, 
LOOP, 



PROCH INSERTS A CHAR, INTO BUFFER, 



75324 
75325 
75326 
75327 
75330 



000000 
074034 
010441 
066562 
004065 



PROCH 



NOP 

STB SPS2 

AND B177 

LDB 8TABF 

CLE,ERB 



SAVE B, 

CLEAR LEFT PART, 

GET BUFFER POINTER, 
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0373 


75331 


002041 




StZ» 


RSS 




03 74 


75332 


001737 




AlF, 


'SLArALF 


CMAR, ON UEFT, 


0375 


75333 


130001 




IOR 


If I 


CHAR, ON RIGHT, 


0376 


75334 


170001 




8TA 


1,1 




0377 


75335 


036562 




ISZ 


STA0F 


BUMP POINTER, 


0378 


75336 


060034 




IDA 


SPS2 


A» 8, 


0379 


75337 


127324 




JMP 


PROCH,i 




0380* 














0381* 


PRODG OUTPUTS A DIGIT. 






0382* 














0383 


75340 


000000 


PROOG 


NOP 






0384 


75341 


040432 




ADA 


,♦608 




0385 


75342 


017324 




JSB 


PROCH 




0386 


75343 


127340 




JMP 


PRODG, I 




0387* 














0388* 


PR02D OUTPUTS A 2»l 


01GIT NUMBER. 




0389* 














0390 


75344 


000000 


PRQ2D 


NOP 






0391 


75345 


006400 




CUB 






0392 


75346 
75347 


100400 
000364 




OIV 


.♦10 




0393 


75350 


017340 




JSB 


PRODG 




0394 


75351 


017340 




JSB 


PRODG 




0395 


75352 


127344 




JMP 


PR02D,I 




0396* 














0397* 


PRO3D 


OUTPUTS 


A 3-OiGH 


NUMBER, 




0398* 














0399 


75353 


000000 


PHO30 


NOP 






0400 


75354 


006400 




CUB 






0401 


75355 
75356 


11004010 
000437 




DIV 


• 100 




0402 


75357 


017340 




JSB 


PRODG 


OUTPUT FIRST DIGIT, 


0403 


75360 


017344 




JSB 


PR02D 


OUTPUT LAST TWO, 


0404 


75361 


127353 




JMp 


PRq3D,I 




0405* 














0406 


75362 




PORSP 


EQU 


* 




0407 


75362 


000000 




NOP 






0408 


75363 


070032 




STa 


PORC2 


SAVE (A). 


0409 


75364 


060031 




LDA 


PORCl 


UPDATE 


0410 


75365 
75366 


100200 
000364 




mpy 


.♦10 




0411 


75367 


040032 




ADA 


P0RC2 


PORT 


0412 


75370 


070031 




STA 


PORCl 


NUMBER, 


04l^ 


75371 


127362 




JMP 


PQRSP#I 




0414* 














0415* 














0416* 














0417* 














0416 


00030 




PQRqN 


EQU 


LTEMP 




0419 


75372 


000101 


POR.A 


OCT 


101 


«A 


0420 


75373 


000114 


POR.L 


OCT 


114 


■ I 


0421 


00031 




PORCl 


EQU 


LTEMP+1 




0422 


00032 




P0KC2 


EQU 


LTEMP*2 




0423 


00033 




PRCCN 


EQU 


LTEMP+3 




0424 


00034 




SPS2 


EQU 


LTEMP+4 





PAKE 0567 #48 PORT • SYSTEH CONSOLE, 
0425 75374 $POR EQU * 
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0427* ROSTER PRINTS A LISTING, ON THE SYSTEM CONSOLE* OF ALL 
0428* IDS OF CURRENTLY ACTIVE USERS, THEY ARE PRINTED 3 PER LJNE, 



0430 
0431 

0432 
0433 

0434 
0435 
0436 
0437 
043g 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 

452 
0453 
0454 
0455 

0457* 
0458* 

0460 
0461 
0462 
0463 

0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 

0476 
0477 

0478 
04/9 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 

75015 
75016 
75017 
75^20 
75021 
75022 
75023 
75024 

75025 
75^26 

75027 

75030 



063111 
0726U 
017031 
06U32 
060432 
064305 
016213 
062611 
030762 
072611 
017031 
061362 
060432 
064305 
016213 
017031 
061612 
060432 
064305 
016213 
017031 
062042 
060432 
064305 
026271 



ORG 
LOA 
STA 
J3B 
DEF 
LDA 

LOB 
JSB 
LDA 
IOR 
STA 

JSB 
OEF 
LOA 
LOB 
JSB 

JSB 
OEF 

LOA 
LOB 

JSB 
JSB 

DEF 
LOA 
LOB 
JMP 



LIBRA 
ROSLB 

T358P 
R0ST8 

TTY00+VID 

,♦46 

T35B1 

T35SP 

T356F 

HIM3K 

T35BF 

R0ST8 

TTY08*?ID 

,+48 

T36B1 

T353P 

ROSTS 

TTYl6«-?ID 

, + 48 

T36B1 

T35SP 

R0ST8 

TTY24*?ID 

,♦48 

T36B1 

LEnO+2 



SET LF-BLANK IN BuPFEr 
PROCESS FIRST 8 
OUTPUT THEM, 



PROCESS 2ND 8 



OUTPUT THEM 
PROCESS 3RD 



output them 
process last 

output them. 



R0ST8 FILLS THE TELETYPE BUFFER WITH 
Lf-f BLANK, 7 (ID, BLANK, BLANK), ID 



8 IDS, THE FORMAT IS; 



75031 
75032 
75033 
75034 

75035 
75036 

75037 

75040 

75041 

75042 

75043 

75044 

75045 

75046 

75047 

75050 

75051 
75052 
75053 
75054 
75055 



000000 
060305 
002004 
070030 
060J42 
070031 
163031 
070032 
027045 
060570 
170030 
034030 
160032 
002003 
027075 
010602 
006400 
100400 
000437 
074033 
070001 



ROSTS NOP 
LDA 
INA 
STA 
LDA 
STA 

LDA 
STA 
JMP 
ROS1 LDA 
STA 

is* 

R0S2 LDA 
SZA, 
JMP 
AND 
CLB 
DIV 



T3581 

ROSP 

.-8 

ROSC 

R0ST8,I 

ROSID 

R0S2 

ASCB8 

ROSP, I 

ROSP 

ROSID, I 

Rss 

ROS3 
81777 

,100 



ST8 ROST 
STA 1 



SET UP POINTER FOR FIRST ID, 

SET UP COUNTER, 

SET UP POINTER TO ID, 

GO DO FIRST ID, 

PUT BLANKS IN AS SEPARATORS, 



GET ID 

TEST FOR NO ID, 

MASK NUMBER PAFT 

GET #/100 IN A,# MOD 100 IN B, 



save last 2 digits, 

combine fir4t digit with letter, 



PAGE 0§69 #48 ROSTER 



(1480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506* 

0507 

0506 

0509 

0510 

0511 

0512 

0513 

k)5l4 

0515 



75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 

75073 
75074 

75075 
75076 
75077 
75100 
75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 

00030 
00031 
75111 
00032 
00033 
75112 
76113 
75H4 
75115 



160032 
001121 
013U2 
040001 
043H3 
170030 
034030 
060033 
006400 
100400 
000364 
001727 
040001 
B40574 
027100 
063U4 
170030 
034030 
170030 
034030 
060032 
040375 
070032 
03403i 
027042 
037031 
127031 



005040 



017400 
040060 
027056 



R033 



R084 



ROSP 
ROSC 

R08U8 
RQSID 

ROST 

R08MS 

R03FX 

R08D0 

$ROS 



IDA RQSID, I 
*RS»An5 
AND R08MS 

1 

ROSFX 

RQ8P,I 

R08P 

ROST 



ADA 
ADA 
STA 

ISZ 
LDA 

CUB 
DIV 



.♦10 



ALF,ALF 



STORE IN BUFFER, 
SET LAST 2 DIGITS, 
SEPARATE THEM, 
PACK AND CONVERT 



ADA 1 TO ASCII, 

ADA ASC00 
JMP R034 

ID A ROSqo 

STA ROSPrI 

ISZ ROSP 

STA ROSP, I 

ISZ ROSP 

LDA RQSID 

ADA f+ TTY0l w TTY00 

STA ROSID 

ISZ ROSC 

JMP ROSl 

ISZ ROST6 

JMP R0ST8,I NQ 



EQU 
EQU 
OCT 
EQU 
EQU 
OCT 
ASC 
ASC 
EQU 



GO STORE IN BUFFER. 

IF NO Io» PUT DOTS IN BUFFER, 



ADVANCE ID POINTER. 



ANY MORE*? 
YES, 



ITEMP 

LT£MP*l 

5040 

l.TEMP+2 

LTEMP*3 

17400 

1*00 

* 
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idbl 7* 

0518* 
0519* 
0520* 
0521* 

0522* 

0523* 

0524* 

0525 

6)526 

0527 

0528 

0529 

0530 

fci531 

0532 

0533 

0534 

0535 
0b36 

0537 

0536 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 

0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 



THE ANNOUNCE (ANNOY) COMMAND IS USED TO SEND A MESSAGE FROM THE 
SYSTEM CONSOLE TO THE USER CONSOLES, THE FORMAT IS 

ANN«<PQRT #>,<MESSAGE> 

WHERE PORT * IS AN INTEGER BETWEEN AND 31 OR 'ALL' AND MESSAGE 
IS A STRING OF CHARACTERS ENDING WITH A CARRIAGE RETURN, 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 

75007 

75010 

75011 
75012 

75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
7503 6 
;5037 
75040 
75041 
75042 
75043 
75043 
75044 
75045 
75046 
75046 
75047 
75050 
75051 
75052 
75053 



114572 
026275 
053167 
027046 
040316 
002021 
026275 
040364 
002020 

026275 
070030 
114572 
026275 
050426 
027043 
040316 
002021 
026275 
040364 
002020 
026275 
070031 
060030 
100200 
000364 

040031 
070030 
040177 
002021 
026275 
1145 7 2 
026275 
050426 
002001 
026275 

003400 
070031 
027065 

114572 
026275 
053170 
114572 
026275 
053170 



ANNt 



ANN2 



ORG LIBRA 




JSB T35CH,I 


GET 1ST CHAR 


JMP LFRER 




CPA ANN,A 


»A»? 


JMP ANN2 


YES 


ADA M 72B 


NO, 


S3A,RSS 


DIGIT? 


JMP LFRER 


NO 


ADA ,+}0 


MAYBE 


SSA 




JMP LFRER 


NO 


STA LTEMP 


YESr SAVE IT 


JSB T35CH,I 


NEXT CHAR 


JMP LFRER 




CpA ,*54B 


Comma? 


JMP ANN! 


YES 


ADA M72B 


NO, 


3SA,RSS 


DIGIT? 


JMP L.FRER 


NO 


ApA t «.10 


MAYB t 


SSA 




JMP LFRER 


NO 


STA LTEMP+1 


YES 


LDA LtEMP 


COMP UT E 


MPY ,*10 




ADA LTfcMP*! 


NUMB E R 


STA LTEMP 




ADA NPORT 




S3A,RSS 


TOO BIG? 


JMP LFrEr 


yEs, ErrOr 


JSB T35CH/1 


NEXT CHAR 


JMP LFRER 




CPA ,*54B 


COMMA? 


RSS 


YES 


JMP LFRER 


NO 


EQU * 




CCA 


SET PQR 


STA UTEMP+1 


ONE PORT 


JMP ANN3 




EQU * 




JSB T35CH,I 


NEXT CHAR 


JMP LFRER 




CPA ANN.L 


»L»? 


JSB j35CH,I 


Y63, NEXT CHAR 


JMP LFRER 


NO 


CPA ANN.L 


'L'? 
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0571 
0572 
0573 
0574 
0575 
057 6 
0577 
0578 
0579 
0580 
0581 
0582 
I0583 
0584 
0585 
0586 
0587 
0588 
0569 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0^03 
0604 

0605 

0606 

0607 

0608 

0609 

0610 

06J1 

0612 

0613 

0614 

0615 

0616 

0617 

0616 

0619 

0620 

0621* 

0622 

0623 

0624 



75054 

75055 
75056 
75057 

75060 

7&W61 
75062 
75063 
75064 
75065 

75065 
75066 
75067 
75070 
75071 
75072 
75073 
75073 
75074 
75075 
75076 
75077 
75100 
75101 
75101 
75102 
75103 
75104 
75105 

75106 
75107 
75110 
75110 
75U1 
75U2 
75U3 
75114 

75115 
75116 
75117 
75120 
75121 
75122 
75123 
75124 
75125 
75126 
75126 
75127 
75130 
75131 



II4372 
026275 
050426 
002001 
026275 
06^177 
070031 
002400 
070030 

060367 
017132 
060364 
017132 
060364 
017132 

002400 
072044 
114572 
027101 

017132 
027073 

017132 
060364 
017132 
060364 
017132 
063171 
072044 

060375 
100200 
000030 
064000 
044546 

044366 
160001 
050354 

002001 
027126 
060030 
001727 
030231 
114500 

034030 
034031 
027110 
026267 



JSB 
JMP 
CPA 
R3S 
JMP 
IDA 
8TA 
CLA 
STA 
ANN3 EQU 
IDA 

JSB 
LDA 
JSB 
LDA 
JSB 

ann4 Equ 

CLA 
STA 

JSB 
JMP 
JSB 

JMp 

ANNS EQU 
JSB 
LDA 
JSb 
LDA 
JSB 
LDA 
8TA 

ANN6 EQU 
LDA 
MPY 



T3gCH,I 

LFRER 

.♦54B 

LFRER 
NPORT 

ltemp+i 

LTEMP 

. + 158 

ANNCH 

. + 12B 
ANNCH 
.♦128 
ANNCH 

T35C1 
T35CH,I 
ANNS 
ANNCH 

ANN4 

* 

ANNCH 

.♦128 

ANNCH 

.♦128 

ANNCH 

ANNJM 

T35C1 

* 

.♦TTY01' 

LTEMP 



YES, NEXT CHAR 

NO 

COMMA? 

YES 

NO 

* OF 



PORTS 



TO SEND MESSAGE TO 



1ST PORT IS 



CR 



LF 
LF 



ALLOW 

BLANKS 
NEXT CHAR 
CR 

output it 
Loop 

CR 
LF 



LF 

RESTORE 
BLANK 

■T1Y00 



BLANK 
SUPPRESSION 



75132 000000 

75133 070032 

75134 060031 



LDB A 

ADB DTTY0 

ADB ,+?STAT 

LDA B.I 

CPA ,+2 

RSS 

JMP ANN7 
LDA LTEMP 
ALF,ALI- 
IOR I W T 
JSB S14SC,I 
ANN7 E8U * 

132 LtEMP 
ISZ LTEMP+l 
JMP ANN6 
JMP LEND 

ANNCH NOP 

STA LTEMP+2 
LDA LTEMP+1 



BO USER»S TTY TABLE 

A* STATUS 

IS STATUS INPUT fcAIl? 

NO, 

YES, 

RE«I8SuE INPyT 

WAIT REQUEST. 



BUMP POR|* 

ALL PORTS DONE? 

NO, 



SAVE ChAR 
U OF PORTS 
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0625 


75135 


070033 




STA LUHP + 3 




10626 


75136 


060030 




IDA LTENp 


1ST pORT 


0627 


75137 


070034 




STA UTIMP+4 




0628 


75140 




AnnCI 


Eyg * 




0629 


75140 


060034 




IDA LTEMP+4 


ASK 2H4 


0630 


75141 


001727 




AUF,AUF 


IF BUFFER 


0631 


75142 


030244 




IQR IBP 


iS FUul 


0632 


75143 


114500 




JSB S143C,1 




0633 


75144 


102311 




8PS Ch2 




0634 


75145 


027144 




JMP *•! 




0635 


75146 


102511 




LIA CH2 




0636 


75*47 


002002 




SZA 




0637 


75150 


027140 




JMP ANNCI 


YES 


0638 


75151 


060034 




IDA ITEMP+4 


NO 


0639 


75152 


001727 




AUF,AUF 




0640 


75153 


064255 




LDB PRIST 


IS THE UP 


0641 


75l5< 


006003 




3Z0,R3S 


IN USE? 


0642 


75155 


027160 




JMP ANNC2 


NO 


0643 


75156 


150001 




CpA B,I 


yES <• IF THIS USER HAS 


0644 


75157 


027163 




JMP ANNQ3 


UP, DO NOT SEND MESSA6E 


0645 


75160 


030220 


ANNC2 


IOR OCR 




0646 


75161 


030032 




IOR LTEMP+2 




0647 


75162 


114500 




JSB St43C,I 


OUTPUT CHAR 


0648 


75163 


034034 


ANNC3 


ISZ UTEMP+4 


BUMP PORT * 


0649 


75164 


034033 




ISZ LTEMP+3 


AUU PORTS DONE? 


0650 


75165 


027140 




JMp ANNCI 


Nq 


0651 


75166 


127132 




JMP ANNCH,I 


YES 


0652 


75167 


000101 


ANN, A 


OCT 101 




0653 


75170 


000114 


ANN, I 


OCT 114 




0654 


75171 


026031 


ANNJM 


JMP T35C0 




0655 


75172 




sann 


EQU * 
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0657* RESET ALLOWS A USER'S TlME«TQ«DATE ENTRY TO BE MODIFIED, 

(0658* THE FORMAT IS AS FOLLOWSl 

0659* 

0660* RESET-ALL ALL TIMES ARE SET TO ZERO 

8661* 

0662* RE3ET-JD SPECIFIED USER'S TIME SET TO ZERO 

0663* 

0664* RESET. IDrTlME SPECIFIED ID SET TO SPECIFIED TIME, 

0666* 



0667 

0666* 

0669 

0670 

067I 

0672 

0673 

0674* 

0675 

0676 

0677 

0678 

0679 

0680 

0661* 

0682 

0683 

0664* 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 
0694 

0696* 

0696 
0697 

0698 
0699 

0700* 
0701 

0702 

0703* 

0704 

0705 
0706 
V7d7 
0708 
0709 
0710 



75000 ORG LIBRA 

75000 002400 CLA 

75001 070052 STA ID 

75002 070031 STA REST 

75003 114572 JSB T35CH,I 

75004 026275 JMP LFRER 

75005 053160 CPA RESCA 

75006 027H5 JMP RESX1 

75007 003406 CCA 
75010 RESXE EQU * 
75010 U40054 ADA T35QP 
750 U 070054 81 A T35CP 

75012 016315 JSB GETID 

75013 027133 JMP RE82 

75014 RES1 EQU * 

75014 164076 LDB IDLNP,I 

75015 074072 8TB W ORD 

75016 101023 Asr 3 

75017 044351 ADB ,»1 

75020 074030 8TB RE5C 

75021 160075 LDA IDLCPfl 

75022 064566 LDB LIBDI 

75023 016231 jSB DRUML 

75024 116015 JSB SICKP,I 

75025 064562 LDB LIBD 

75026 060052 LDA ID 

7 502 7 002003 SZA,RSS 

75030 027105 JMP RES4 

75031 034030 RES5 I3Z RESC 

75032 027046 JMP RES51 

75033 063163 LDA RESER 

75034 070050 8TA MOVES 

75035 060305 LDA T35B1 

75036 070051 STA MOVED 

75037 064336 LDB RESES 

75040 005100 BRS 

75041 016257 JSB MOVEW 



INITIALIZE ID TO 0, 

INITIALIZE TIME ALSO, 

GET 1ST CMAR, 

CR . • NO PARAMETERS 

"A" 1 

YES 
BACKSPACE 

BUFFER POINTER, 



GET THE ID, 

GO GET TIME*«N0 CARRIAGE RETURN, 



8ET DRUM TRANSFER LENGTH 
SET rEsC*«# OF ENTRIES -1, 



INITIATE DRUM 
TRANSFER, 

DRUM ERROR, GO DIE GRACEFULLY 



IF ID»0 WE WANT TO CLEAR 
ALL TIMERS, 

SEARCH IDT FOR CORRECT ENTRY, 
TE8T ENTRY 

GET ERROR MESSAGE POINTER 
SET UP FOR MOVE ROUTINE 



GET CHARACTER COUNT 
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0711 


75042 


060336 




LOA 


REsEs 


GET CHAR COONT 


0712 


75043 


003004 




CmA, 


,InA 


M AKE N EGATIVE CHAR CoUnT 


1*713 


75044 


067163 




LOB 


RESER 




0714 


75045 


026271 




JmP 


LE N 0*2 




0715* 














0/16 


75046 




RES51 


EQU 


* 




0717 


75046 


150001 




CPA 


1,1 


IS THIS THE ENTRY? 


0718 


75047 


027052 




JMP 


• ♦3 


YEs, 


0719 


75050 


044362 




AD6 


.♦8 




0720 


75051 


027031 




JMP 


RE35 




0721* 














0722 


75052 


044357 




AD8 


,+5 


SET IN 


0723 


75fc)53 


060031 




LOA 


REST 


NE* TIME, 


0724 


75054 


170001 




STA 


1,1 




0725* 














0726 


75055 




RES6 


euu 


* 




0727 


75055 


160076 




LOA 


IDLNP,i 


WRITE 10 


0728 


75056 


070072 




STA 


WORD 


TABLE BACK, 


0729 


75057 


160075 




tDA 


IDlCP,I 




0730 


75060 


064562 




ldb 


LIBO 




0731 


75061 


016231 




JSB 


DRUML 




0732 


75062 


027102 




JMP 


RES62 


DRUM ERROR 


0733 


75063 


060052 




LOA 


ID 


CHECK FOR ALL 


0734 


75064 


002002 




8ZA 






0735 


75065 


026267 




JMP 


LEND 




0736 


75066 




Rts61 


equ 


* 




0737 


75066 


060076 




LOA 


IOLNP 


ADVANCE 10 TABLE POINTERS 


0738 


75067 


04^355 




ADA 


.♦3 




0739 


75070 


070076 




STA 


IDLNP 




0740 


75071 


060075 




LOA 


IOLCP 




0741 


75072 


040355 




ADA 


, + 3 




0742 


75073 


070075 




STA 


IOLCP 




0743 


75074 


053162 




CPA 


RESLE 


CHECK FOR ALL ID TRACKS 


0744 


75075 


026267 




JMP 


LEND 


DONE 


0745 


75076 


160075 




LOA 


lDLCP,l 


C H ECk TO SEE iF ThE TRACK 


0746 


75077 


002003 




SZA, 


-RSS 


has Been assigned 


0747 


75100 


027066 




JMP 


RES61 


no, skip it 


0748 


75101 


027014 




JMP 


RES1 


NO 


0749 


75102 




RfcS62 


EUU 


* 




0750 


75102 


060075 




LDA 


IDLCP 




0751 


75103 


164076 




LpB 


iDLNPrl 




0752 


75104 


116016 




JSB 


SALVP,i 




0753* 














0754 


75105 


044357 


RE34 


AOB 


a* 5 


CLEAR ALL TIMERS, 


0755 


75106 


060031 




LOA 


REST 


GET TIME 


0756 


75107 




Rt542 


EQU 


* 




0757 


75107 


034030 




ISZ 


resc 


test For a n y more, 


0758 


75110 


002001 




RSS 






0759 


75111 


027055 




JMP 


RES6 


GO WRITE IDT BACK OUT, 


0760 


75112 


170001 




STA 


1,1 


STORE TIME 


0761 


75113 


044362 




AOB 


** 8 


BUMP ADDRESS TO NEXT ENTR 


0762 


75114 


027107 




JMP 


RES42 


LOOP 


0763* 














0764 


75U5 




RfcSXl 


EQU 


* 




0765 


75115 


114572 




J3B 


T35CH,I 


GET NEXT CHARACTER 
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0766 


75U6 


026275 




JMP 


LFRER 


ERROR, NUT ENOUGH CHARACTERS 


0767 


75H7 


05-3161 




CPA 


RESCL 


"L" ? 


076s 


75120 


027123 




JMP 


RE3X2 


YES 


0769 


75121 


060350 




IDA 


.-2 




0770 


75122 


027010 




JMP 


RESXE 


GO TRY TO PACK ID 


0771 


75123 




RESX2 


EQU 


* 




0772 


75123 


016370 




JSB 


GTIL 


SET UP IDLNP & IOLCP 


0773 


75124 


114572 




JSB 


T35CH f I 


GET ANOTHER 


0774 


75125 


026275 




JMP 


LFRER 


ERROR, NOT ENOUGH CHARACTERS 


0775 


75126 


053161 




CPA 


RESCL 


•L" ? 


0776 


75127 


027131 




JMP 


RESX3 


YES, RESET ALL USERS 


\i777 


75130 


026275 




JMP 


LFRER 


NOT "ALL" OR LEGAL ID 


0778 


75i3i 




RE8X3 


EQU 


* 




0779 


75131 


114572 




JSB 


T35CH,X 


GET ANOTHER CHARACTER 


0780 


75132 


027014 




JMP 


REsi 


CR, REsET TO ZERO 


0781* 














0782* 


COMPUTE THE 


TIME 








0783* 














0784 


75133 


050426 


RE82 


CPA 


.♦548 


TEST FOR COMMA 


0785 


75134 


114572 




JSB 


T35CH,I 


COMMA OK,»GET NEXT CHAR, 


0786 


75135 


026275 




JMP 


LFRER 


ERROR IF NONE, 


0787 


75136 


027141 




Jmp 


♦ ♦3 




0788 


75137 


114572 


RE83 


JSB 


T35CH,I 


GET NEXT CHAR, 


0789 


75140 


027014 




JMP 


RESi 




0790 


75141 


040316 




ADA 


M72B 


TEST FOR DIGIT, 


0791 


75142 


002021 




SSAi 


rRSS 




0792 


75143 


026275 




JMP 


LFRER 


ERROR, 


0793 


75144 


040364 




ADA 


, + 10 




0794 


75M5 


002120 




CLE, 


-S3A 




0795 


7514 6 


026275 




JMP 


LFRER 


ERROR, 


0796 


75147 


070032 




STA 


RESO 


SAVE DIGIT, 


0797 


75150 


060031 




IDA 


REST 


GET PARTIAL RESULT. 


0798 


75151 
75152 


100200 
000364 




MPY 


,♦10 


COMPUTE NEW VALUE. 


0799 


75153 


040032 




ADA 


RESO 


ADD IN NEW DIGIT, 


0800 


75154 


070031 




ST A 


REST 


SAVE NEW RESULT, 


0801 


75155 


006043 




SEZ* 


-SZBrRSS 


TEST FOR OVERFLOW, 


0802 


75156 


027137 




JMP 


RES3 




0803 


75157 


026275 




JMP 


LFRER 


ERROR, 


0804* 














0805 


75160 


000101 


RESCA 


OCT 


101 


ASCII "A" 


0806 


75161 


000114 


RESCL 


OCT 


114 


ASCII »L" 


0807 


75162 


000112 


RE8LE 


DEF 


lDEC+10 




0808 


75163 


075164 


RESER 


DEF 


**1 




0809 


75164 


005U6 




OCT 


5116 




0810 


75165 
75166 
75167 
75170 
75171 


047440 
051525 
041510 
020111 
042040 




ASC 


5,0 SUCH 


ID 


0811 


00336 




RE3E8 


EQU 


,+RESER- 


**R£3£H«*+2 


0812* 














0813 


00030 




RESC 


EQU 


LTEMP 




0814 


00031 




rest 


EQU 


ltemp*i 




0815 


00032 




RESD 


EQU 


LTEMP+2 
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0002* THE CHAN6EID COMMAND CAN BE USED TO MODIFY THE PARAMETERS IN AN 
0003* ID EN1KY, THE MODIFIABLE ENTRIES ARE THE PASSWORD, TIME ALLOwtD, 
AND DISC A Lt QWED, TH E PQSSIB U E FqRmATS AREl 



0004* 
0005* 
0006* 
0007* 
000S* 
0009* 
0010* 
0011* 
0012* 



CHANGEID„ID, PASSWORD, TIME, DISC 
CHANGEID.ID, PASSWORD, TIME 
CHANGEID*ID,pAS3W0R0,,f>ISC 

CMANGEIO-ID,, TIME, DISC 
CHANGEIO-ID, PASSWORD 
CHANGEID-ID,,TIME 
CHANGElO»lD,,,Dl8C 



0014 75000 



0016 


75000 


016315 


0017 


75001 


002001 


0016 


75002 


026275 


0019 


75003 


050426 


0020 


75004 


002001 


0021 


75005 


026275 


0022* 






0023 


75006 


160076 


0024 


75007 


070072 


0025 


75010 


160075 


0026 


75011 


064566 


0027 


75012 


016231 


0028 


750i3 


1160J5 


0029* 






0030 


75fc,i4 


164 76 


0031 


75015 


007004 


0032 


75016 


044562 


0033 


75017 


060052 


0034 


75020 


054562 


0035 


75021 


027026 


0036 


75022 


044342 


0037 


75023 


150001 


0038 


75024 


027047 


0039 


75^2»5 


027020 


0040* 






0041 


75026 


063040 


0042 


75027 


070050 


0043 


76030 


060305 


0044 


75031 


07005I 


0045 


75032 


064344 


0046 


75033 


016257 


0047 


75034 


060365 


0048 


75 35 


064306 


0049 


75036 


114522 


0050 


75037 


026272 


0051 


75040 


075041 


0052 


75041 


005116 


0053 


75 42 


047440 




75043 


051525 




75044 


041510 



CHA1 



CHA2 



ORG UBRA 

JSB 6ETID 

ft ss 

JMP LFrEr 

CpA ,4-548 

RSS 

JMP LFRER 

LDA IDLNP,I 
STA W 0RD 
LDA IDLCP,! 
LOB LIBDI 
JSB DRgML 
JSB SICKP,I 

LDB IDLNP,I 
CMB,INB 
ADB LIBD 
LDA id 
CpB LIBD 
JMP CHA2 
ADB ,*8 
CPA 1,1 
JMP CHA3 
JMP CHA1 



LDA CHA2E 
8TA MOVES 
LDA T35BJ 
STA MOVED 
LDB ,.6 
JSB MQVEW 
LDA ,*11 
LOB T35B1 
JSB TTY35,I 
JmP ^Endr 

C HA2E QEF **1 
OCT 5116 



GET ID ENTRy. 

skip To Cqmma test, 
mil if nothing follows, 
test For Comma following, 

OK, 

FAIL IF NO COMMA FOLLOWS, 

READ IN THE IDT 



DRUM ERROR, DIE WITH CLASS 

SEARCH ID TABLE 
FOR CORRECT ID, 



test f r idt exhausted, 

move back to next entry, 
TEST for correct entry, 

FOUND jT, 



OUPUT NO ID MESSAGE, 



TERMINATE, 



LF-N 



ASC 5,0 SUCH ID 
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75045 


0201U 










75046 


042040 








0054* 












0055* 


B NOW 


POINTS 


TO THE CORRECT 10 


1 


0056* 












0057 


75047 


006004 


CHA3 INB 






0058 


75050 


074030 


STB 


CHAID 




0059 


75051 


074031 


STB 


CHAX1 




0060 


75052 


114572 


JSB 


T35CH, 


I 


0061 


75053 


026275 


JMP 


LFRER 




0062 


75054 


050426 


CPA 


.♦548 




0063 


75055 


027115 


JMP 


CHA5 




0064 


75056 


006400 


CLB 






0065 


75057 


034030 


I8Z 


CHAIO 




0066 


75060 


174030 


STB 


CHAID, 


I 


0067 


75061 


034030 


I3Z 


CHAIO 




0068 


75062 


174030 


STB 


CHAIO, 


I 


0069 


75063 


064031 


LDB 


CHAI1 




0070 


75064 


074030 


STB 


CHAIO 




0071 


75065 


064347 


LOB 


f -3 




0072 


75066 


074032 


STB 


CHAC 




idVS7i 


75067 


001727 


Ch A 4 aLFi 


>ALF 




QQ74 


75070 


170030 


STA 


CHAIO, 


I 


UQ75 


75071 


114572 


JSB 


T35CH, 


I 


0076 


75072 


027133 


JMP 


CHA10 




Id077 


75073 


050426 


CPA 


,+54B 




0078 


75074 


027115 


JMP 


CHA5 




0079 


75075 


130030 


IOR 


CHAIO, 


I 


0080 


75076 


170030 


STA 


Ch*id, 


I 


0081 


75077 


034032 


ISZ 


CHAC 




0082 


75100 


002001 


RSS 






0083 


75101 


027110 


JMP 


CHA6 




0084 


75102 


034030 


ISZ 


CHaID 




0085 


75103 


114572 


JSB 


T35CH, 


I 


0086 


75104 


027133 


JMP 


ChA10 




0087 


75105 


050426 


CPA 


.♦54b 




0086 


75106 


027115 


JMP 


CHA5 




0089 


75107 


027067 


JMP 


CHA* 




0090* 












0091 


75110 


114572 


CHA6 J3B 


T38CH, 


I 


0092 


75111 


027133 


JMP 


CH A 10 




0093 


75112 


050426 


CPA 


.♦54B 




0094 


75113 


002001 


RSS 






0095 


75H 4 


026275 


JMP 


LFRER 




0096* 












0097 


75116 


060031 


CHA5 LOA 


CHAU 




0098 


75116 


040355 


AOA 


.♦3 




0099 


75117 


070030 


STA 


CHaID 




0100* 












0101 


75120 


114572 


JSB 


T35CH, 


I 


0102 


75121 


026275 


JMP 


LFRER 




0103 


75122 


050426 


CpA 


.♦54B 




0104 


75123 


002001 


RSS 






0105 


75124 


017145 


JSB 


CHA# 




0106 


75125 


034030 


isz 


CHAIO 





SET CHAIO TQ POINT TO THE 

PASSWORD, 
STORE COPY JN CHAI1, 
GET FIRST CHARACTER OF POSSIBLE 

PASSWORD-TERROR IF NONE, 
IF COMMA, WE DON'T WANT TO 

CHAN6E PASSWORD, 
INITIALIZE FAsSWOrO 
TO NULLS, 



SET CHAIO TO POINT AT 

PASSWORO AGAIN, 
SET COUNTER FOR 3 WORO 

PASSWORD, 
SET LEFT CHARACTER OF WORD, 

GET RIGHT CHARACTER, 

TERMINATE IF CR, 

IF COMMA, HE'RE DONE WITH 

PASSWORD, 
MERGE IN WITH LEFT CHAR, 

TEST FOR ALL OF PASSWORD IN, 
NOT ALL IN YET, 

BUMP POINTER. 

GET ANOTHER PASSWORD CHARACTER, 

DONE IF CR, 

TEST FOR COMMA. 

LOOP, 

TEST FQr TDO MANY PAsSWOrO CHArs 
END OF REQUEST, 
TE8T COMMA, 

FAIL, 

SET CHAID TO POINT TO 
TIME ALLqwEU, 



GET 1ST CHAR OF POSSIBLE TIME, 

error if none, 

if Comma, g to dq disc part, 

otherwise get new allotted time, 
set pointer to allotted disc 
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0107 

010a 

0109 
0110 
0111 
0112* 

0113 
0114 
0115 
0116 

0117 

0118 

0119 

0120 

0121* 

0122 

0123 

0124 

0129* 

^126* 

0127* 

012a* 

0129* 
0130* 

0132 

0133 
0134 
0135 
0136 
0137 
0136 
0139 
0140 

0l4l 
0142 
0143 

0144 
0145 
0146 
0147 
0146 
0149 
0150 
0151 
0152 
0153 
0154 



75126 
75127 
75130 
75131 
75132 

75133 
75133 
75134 
75135 
75136 
75137 
75140 
75141 



034030 
114572 
026275 
017145 
026275 



160076 
fd7QQ7Z 
160075 
064562 
016231 
002001 
026267 



75142 060075 

75143 164076 

75144 116016 



ISZ CHAID 

JSB T35cH f I 

JMP LFRfcR 

JSB CHA* 

JMP LFRER 

CHA10 EGU * 

UNA IO^NPfl 

8TA WQRO 

LOA IDLCPrI 

LOB LIBD 

JSB DRUML 

RSS 

JMP LEND 

LDA IDUCP 

LQB IoLNP,! 

J3B 8ALVP,I 



SPACE, 
GET FIR3T DIGIT OF DISC. 
FAIL IF NONE. 
COMPUTE IT, 
RETURN HERE 13 ILLEGAL, 



WRITE OUT THE NEW 10 TABlE 



TERMINATE, 



CHA# SCANS THE INPUT BUFFER FOR A * FROM TO 65535, IF IT FINDS 
ONE, IT STORES IT IN CHAID,!, IF NO CHARACTER FOLLOWS THE #, 
CHA# TRANSFERS TO CMA10, IF A COMMA FOLLOWS IT RETURNS, IF AN 
ERROR IS FOUND, IT TRANSFERS TO LFRER, THE 1ST CHARACTER OF 
THE NUMBER IS In A UPON ENTRY, 



75145 

75U6 
75147 
75150 
75151 
75152 
75153 
75154 
75155 

75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 



000000 
006400 
174030 
040316 

002021 
026275 
040364 
002020 
026275 

070033 
160030 
100200 
000364 
000040 
040033 
006043 
002001 
026276 
170030 
114572 
027133 
050426 
127145 
027150 



CH A # 



CHA7 



NOP 




CLB 


INITIALIZE U TO ZERO, 


STB CHAID, 1 




ADA M72B 


TEST FOR DIGIT, 


88A,RSS 




JMP LFRER 


FAIL, 


ADA ,*lu 




SSA 




JMP LFR£« 


PAR, 


STA CHAD 


SAVE DIGIT, 


LDA CHAID, I 


GET OLD VALUfc, 


MpY ,+10 


* 10 


CLE 




ADA CHAD 


♦ NEW DIGIT, 


SEz,S Z B,RSS 


TEST FOR OVERFLOW, 


RSS 


OK 


JMP LFrEh 


FAIL 


STA C HAlDfI 


STORE AGAIN, 


JSB T35CH,I 


GET NEXT CHAR, 


JMP ChA10 


DONE iF CR C 


CPA .*54b 


RETURN IF COMMA, 


JMP CHA#,I 




JMP CHA7 


EL 8 E LOOP, 



0156 
0157 

0i5« 

0159 
0160 



00030 
00031 
00032 
00033 
75175 



CHAID EQU LTEMP 
CHAIl EQU LTEMP*} 
CHAC EGU LTEMP*2 
CHAD EGU LTEMP4.3 
$CHA EGU * 
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0162* THfc SLEEP COMMAND IS A SYSTEM COMMAND WHICH IS USED FOR SYSTEM 

0163* SHUTDOWN, THE SLEEP ROUTINE PERFORMS THE FOLLOWING FUNCTIONS: 

0164* 

0165* 1) PLACE ALL USERS IN DISCONNECT MODE, 

0166* 2) OUTPUT SPECIFIED MESSAGE To ALL TERMI N ALS, 

0167* 3) DISCONNECT AU USERS, 

016 8 * 4) LOG OFF ALL ACTIVE USERS, 

0169* 5) FIXUP ALL USER TRACKS AND FUSS, 

0170* 6) GARBAGE COLLECT LIBRARY, 

0171* 7) DUMp SYSTEM To MAG TApt, 



0173 
0174 
0175 
0176 
0177 
0176 
0179 
0180 
0181 

0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 

0205* 

0206* 

0207* 

0208 

0209 

0210« 

0211* 

0212* 

0213 

0214 

0215 



75000 
75000 
75001 
75002 
75030 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 
75040 
75041 
75042 
75043 
75044 
75045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 
75055 
75056 
750S7 
75y60 
75061 
75062 



103100 
027030 
000000 

063425 
070010 
002400 
072044 
170634 
060272 
070300 
064546 
060444 
110001 
170001 
044366 
060350 

170001 

044337 

160001 
030241 
114500 
044374 
054550 
002001 
027040 
160640 
170634 
060662 
064666 
114522 



SLERE 



3LE1 



ORG 
CLF 
JMP 
BS8 
EOU 
LOA 
STA 
CLA 
STA 
STA 

LD* 
STA 
LDB 
LDA 
AND 
STA 
ADB 
LDA 
STA 
ADB 
LOA 
IOR 
JSB 
ADB 
LPB 

RSS 
JMP 
LDA 
STA 
LOA 
LDB 
JSB 



LI8RA 


SLERE 
22 

* 

SLfcST 
CHI 

T35C1 

DCLC1,I 

MLINK 

T38LK 

DTTY0 

DFCHK 

1,1 

lrl 
,+?STAT 

XDI3C 
1,1 



ROOM FOR HIBERNATE CuDE 



WIPE OUT RECEIVE CHANNEL 



NO DEBLANKING 



CLLAR 

BIT FLAG 
WORD 



SET STATUS 
TO ABORT 

.♦?Tnum-?stat 

B,j GET TTY NUMBER 

kaq 

814SC,i KILL OUTPUT 
?TN,jM + TTy01.TTy00 



DTT32 

SLEl 

DCLC2,I 

DC. CI, I 

ONEI 

DEH 

TTY35,I 



FINISHED ALL USERS? 

YES 

NO 



OUTPUT 
LINE FEED 



REMOVE USER, IF ANY, FROM THE LINE PRINTER 



75063 060247 

75064 114500 



LDA LPD 
JSB S14SCrI 



GET OPCODE 

TELL I/O PROCESSOR 



OUTPUT SLEEP MESSAGE TO ALL ACTIVE T6RMJNALS, 



75065 060367 

75066 017402 

75067 060364 



LDA ,+158 
JSB SLECH 
LUA ,*12B 



FIRST OUTPUf CR-LF-LF 
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0216 


75070 


017402 


JSB 


SLECH 




0217 


75071 


060364 


IDA 


.♦120 




0218 


75072 


017402 


JSB 


slech 




8219* 












0220 


75073 


016025 


JSB 


T35CQ 


GET INPUT CHARACTER, 


0221 


75074 


027077 


JMp 


♦ ♦3 


END OF INPUT 


0222 


75075 


017402 


JSB 


SLECH 




0223 


75076 


027073 


JMP 


♦•3 




0224* 












0225 


75077 


017402 


JSB 


SLECH 


FOLLOW BY ANOTHER CRLFLF, 


0226 


75100 


060364 


IDA 


.♦12B 




0227 


75101 


017402 


JSB 


SLECH 




0228 


75102 


060364 


IDA 


,*12B 




0229 


75103 


017402 


JSB 


SLECH 




0230* 












0231 


75104 


064546 


LOB 


DTTY0 




0232 


75105 


006004 


INB 






0233 


75106 


060317 


LpA 


M32 




0234 


75107 


070031 


STA 


LTEMp+l 




0235 


75110 


060232 3U0 


IDA 


HUU 


HA N G up 


0236 


75111 


130001 


JON 


WI 


ALL 


0237 


75112 


114500 


JSB 


S14SC,i 


USERS 


0236 


75U3 


044375 


ADB 


.♦TTY01- 


■TTY00 


0239 


75114 


034031 


ISZ 


LTfcMP+1 


FINISHED ALL USgRS? 


0240 


75115 


027110 


JMP 


SLE0 


NO 


0241* 










, 


0242* 


UPDATE 


• LAST CHANCE 


DATE 






0243* 












0244 


75U6 


002400 


CIA 




BLOCK CLOCK, 


0245 


75H7 


170634 


STA 


DCLC1,I 




0246 


75120 


064546 


LDB 


DTTYO 




0247 


75121 


SLE7 


EUU 


* 




0248 


75121 


074030 


STB 


LTEMP 




0249 


75122 


160030 


LDA 


LTEMp,I 




0250 


75123 


010444 


AND 


DFCHK 




0251 


75124 


002003 


S*A, 


rRSS 


DATE nEED UPDATING 


0252 


75125 


027145 


JMP 


SLE8 


NO 


0253 


75126 


044355 


ADB 


,*?prog 


YES 


0254 


75127 


160001 


LDA 


8,1 




0255 


75130 


003000 


C M A 






0256 


75131 


041221 


ADA 


USE 




0257 


75132 


070072 


STA 


WORD 




0258 


75133 


044351 


ADB 


•♦?oxsc« 


>?PROQ 


0259 


75134 


160001 


LDA 


B,I 




0260 


75J35 


065222 


LOB 


USEI 




0261 


75136 


016231 


JSB 


DRUML 


READ PROGRAM FROM SWAP TRACK 


0262 


75137 


027U5 


JMP 


SLE6 


ERROR 


0263 


75140 


061502 


LDA 


FCNTR 




0264 


75141 


003004 


CMA, 


,INA 




0265 


75142 


064030 


LDB 


LTEMP 




0266 


75143 


044356 


ADB 


.♦?ID 




0267 


75144 


117424 


JSB 


LSD, I 


UPDATE LAST CHA N G£ DATE 


0268 


75145 


SIE8 


EQU 


* 




0269 


75145 


064030 


LDB 


LTEMP 




0270 


75146 


002400 


CLA 
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0271 

0272 

0273 

0274 

0275 

0276* 

0277* 

0279* 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0209* 

029k)* 

0291* 

0292 

0293 

02g4 
02g5 
0296 
0297 
0298 
0299 
0300 
0301 
0302 

0303 
0304 
0305 
0306 
0307 

0308 

0309 

0310* 

0311* 

0312* 

0313 

0314 

031 5 

0316 

0317 

0318 

0319 

0320 

0321 

0322 



75147 
75150 
75151 
75152 
75153 



170001 
044375 
054550 
002001 
027121 



STA B,I ZERO BIT FLAG WORD 

AOB .+TTY01-TTY00 

CPB DTT32 FINISHED A^. TTYS? 

R8S YES 

JMP SLE7 NO 



NOW NE HAVE TO LOG OFF ALL ACTIVE USER, 



75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
75165 



160640 
170634 
064546 
044356 
060317 

070030 
160001 
002003 
027306 
074031 



8I.E2 



COMPUTE TIMc USED, 



75166 
75167 
75170 

75*7* 
75172 

75i73 
75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 

75210 
75211 

75212 



044356 
104200 

100001 

003004 

007004 
103100 
040201 

000040 
044202 

102100 
074032 
100200 
000724 
070033 
060032 
002041 
007400 
100400 
000456 
040033 
070032 



SEARCH IDT FOR USER, 



75213 
75214 

75215 
75216 
75217 
75220 
75221 
75222 
75223 
75224 



160031 
070052 
016370 
160076 
070072 
160075 
064566 
016231 
116015 
160031 



LDA DCLC2,I 


UNBLOCK CLOCK, 


STA OCLClfl 




LD8 DTTY0 


SEARCH USER TABLES, 


AD8 ,+?jO 


FOR ACTjVc IDS, 


LDA M32 




STA LTEMP 




LDA 1,1 


GET ID, 


SZA,R38 


TEST FOR ACTIVE, 


JMP SLE3 


NOT ACTIVE, 


ST8 LTEMP+1 


SAVE POINTER, 



ADB ,*?TIME^?ID 

OLD 1,1 GET STARTING TIME 



CMAflNA 
CMB,INB 
CLF 
ADA DATlM 

CL E 

ADB OATlM+1 

STF 

STB LTEMP+2 

MPY D60 

STA LTEMP+3 

LOA LTEMP+2 

SEZ,KS8 

CCB 

OIV D600 

ADA LTEMP+3 
STA i.TEMP+2 



SET BOTH PARTS NEGATIVE, 

A»# oF HRS, USID, 

b*# OF UNITS, WiTm OVERFLOW in fc 

SAVE # OF UNITS, 
HN***» MINS, 



GET UNIT COUNT; IF E«0 THEN 
COyN T AS NfeGA-j-IyE 

CHANGE TO MINUTES, 

ADD IN OTHER MINUTES, 
TQTAi. IN LT£MPt2), 



LDA LTeMP+1,1 GET THIS CLODS ID COD E 



STA 
JSB 
LDA 
STA 
LDA 

ldb 

JSB 
JSB 



ID 

GTIL 

IDLNP,I 

WORD 

IDlCP,I 

LlBDI 

DRUML 

SICKP,I 



F1NO WHICH 

GET LENGTH 

FOR DRUM 



IDT TRACK IT'S ON 



DRIVER 



READ IN APPROPRIATE JOT TRACK 
CAN'T, DIE, KEEPING CHARISMA 



LoA LTEMP*1,I GET Xq AGAIN, 
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0323 

0324 

0325 

0326 

0327 

0328* 

0329* 

0330* 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0330* 

0339 

0340 

034 1 
0342 

0343 
0344 

0345 
0346 
0347 
034b 
0349 
0350 
0351 

0352 
0353 
0354 

k)355 
0356 

0357 
0356 
0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367* 

0368 

0369 

0370 

0371 

0372 

0373 



75225 
75226 
75227 
75230 
75231 



064562 
150001 
027232 
044362 
027226 



UPDATE IDT ENTRY, 

75232 044357 

75233 000040 

75234 160001 

75235 040032 

75236 002040 

75237 003400 
75240 170001 



75241 

75242 

75243 
75244 

75245 
75246 
75247 
75250 
75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 
75262 
75263 
75264 
75265 
75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 



060604 
050412 
027241 
060620 

002004 
050630 
060626 
070620 
160031 
031036 
170620 
034620 
104200 
000201 
074032 
006400 

100400 
000402 

060001 
100200 
000724 
070033 
060032 
040704 
100400 
000456 
040033 
001722 
040030 
040412 
170620 
034604 



75301 160075 

75302 064562 

75303 016231 

75304 027377 

75305 064031 
753«6 044375 



3LE3 



LDB LIBD 


CET IDT POINTER, 


CPA l,i 




JMP **3 




ADB ,+6 




JMP «,3 




ADB ,*5 


COMPUTER NEW TOTAL TIME, 


CUE 




LOA 1,1 




ADA lTEMP*2 




SEZ 


IF OVERFLOW, 


CC A 


USE MAXIMUM, 


8TA 1,1 




LOA LO G CT 


Check for room in log table. 


CPA ,*32 




JMP #»2 




LDA L0CP2 


SET L0GP2 TO NEXT LOCATION I 


INA 


LOG TABLE, 


CPA LQGND 




LDA L068G 




8TA LqGp2 




LDA LTEMP*i, 


I PLACE ID IN LOG TABLE, 


IOR BIT15 




8TA L0GP2,I 




I8Z LqGp2 




OLD DATIM 


COMPUTE TIME Op DAY, 


STB |_TEMPt2 


SAVE UNIT COUNTER 


clb 


GET NO OF MRS. 


DIV ,*24 




LDA 1 




MPY D60 


Change to mjns. 


8TA LTEMP+3 


SAVE, 


LOA LTEMP+2 


CHANGE UNITS TO MINS, 


ADA D36K 




DIV D600 




ADA UTEMP+3 


COMPUTE TOTAL TIME, 


ALPfRAL 


ROTATE 


ADA tTEMP 


ADD IN PORT NO, 


ADA ,*32 




8TA L0(;P2,I 


STORE IN TABLE, 


ISZ LOGCT 


BUMP COUNTER, 


LOA IDLCP,I 




LDB LXBD 




J3B DR|jML 


WRITE OgT MODIFIED IDT TRACK 


JMP 3LE6 


BLEW IT, TRY TO SALVAGE 


LDB LTEMP+1 


GET POINTER AGAIN, 


ADB ,*TTY01« 


'TTY00 
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0374 


75307 


034030 


I3Z 


LTEMP 


TEST FOR DONE, 


0375 


75310 


027162 


JMP 


SLE2 




0376* 












8377* 












0378 


75311 


060604 


LDA 


LOgCT 


WAIT pOR LOG TABLE TO EMPTY 


0379 


75312 


002002 


SZA 






0380 


75313 


027311 


JMP 


*»2 




0381 


75314 


050313 


CPA 


T35H 


WAIT FOR TTY TO STOP, 


0382 


75315 


002001 


RSS 






0383 


75316 


027314 


JHP 


*»2 




0364* 












038S* 












0386* 












0387 


75317 


064210 


LOB 


mhao 


FIND 


0388 


75320 


044354 


AOB 


.♦2 




0389 


75321 


160001 SLE5 LOA 


6,1 


AN 


0390 


75322 


16000& 


LOA 


A, I 




0391 


75323 


002002 


SZA 






0392 


75324 


027327 


JMP 


* + 3 


ACTIVE 


0393 


75325 


044360 


ADB 


,♦6 




0394 


75326 


027321 


JMP 


SLE5 


DISC 


0395 


75327 


044350 


ADB 


, »2 




0396 


75330 
75331 


104200 

100001 


DUO 


bfi 


CONVERT 


0397 


75332 


000065 


CLE, 


.ERA 


SECTORS 


0398 


75333 


005540 


ER6, 


.CLE 


TO BLOCKS 


0399 


75334 


006004 


INB 




GET 


0400 


75335 


002040 


btl 




BOOTSTRAP 


0401 


75336 


002004 


ina 




ADDRESS 


0402 


75337 
75340 


104400 
075432 


D3T 


SLEBA 




0403 


75341 


060750 


lda 


M512 


512 WORDS IN 


0404 


75342 


070215 


8TA 


MWORD 


BOOTSTRAP 


0405 


75343 


063426 


LOA 


SLEBD 


READ 


0406 


75344 


064205 


LOB 


LDBSA 




0407 


75345 


045036 


AOB 


BIT15 


BOOISTRAP 


0408 


75346 


114217 


J3B 


DISCZ,I 




0409 


75347 


116015 


JSB 


8ICKP,1 




0410 


75350 


060350 


LOA 


.'2 


2 PARTS 


0411 


75351 


073430 


STA 


SLECT 


To loader 


0412 


75352 


060206 


LOA 


LSTDA 


COMPUTE ADDRESS 


0413 


75353 


073431 


STA 


SLETP 


OF SEGMENT TABLE 


0^14 


75354 


104200 SLE4 DUD 


SLETP,I 


GET LENGTH AND CORE AODRESS 




75355 


175431 








0415 


75356 


070215 


STA 


MWQRD 




04I6 


75357 


037431 


ISZ 


SLETP 




0417 


75360 


037431 


ISZ 


SLETp 




041b 


75361 


045036 


AOB 


8IT15 




0419 


75362 


063431 


LDA 


sle t p 




0420 


75363 


114217 


J3B 


DISCZ,I 


READ A PORTION OF TMfe LOAOE 


0421 


7536^ 


116015 


JSB 


SICKP,I 




0422 


75365 


037431 


isz 


3 Lfc T P 




0423 


75366 


037431 


ISZ 


SLETP 




0424 


75367 


037430 


ISZ 


SLECT 


FINISHED BOTH PARTS? 


0425 


75370 


027354 


JMP 


SLE4 


NO 
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0486* 

0427 

0428 

0429 

04)30 

0431 

0432 

0433* 

0434 

0435 

0436 

0437* 

0438* 

0439* 

0440* 

0441* 

0442 

0443 

0444 

0445 

0446 

0447 

0446 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460* 

0461 

04 6 2 

0463 

0464 

0465* 

0466 

0467 

0466 

0469* 

0470 



75371 063427 

75372 070004 

75373 107700 

75374 002400 

75375 127376 

75376 020000 

75377 060075 

75400 064072 

75401 116016 



LDA HLT4C 
8TA 4 

CLC 0,C 
SLEHI CLA 

JMP sUCA,J 
SI.ECA QCT 20000 



YES, SET POWER 
FAIL T HAL T 

A « SE2 SLEEP 

TRANSFER TO LOADER OlgC DUMP 



SLE6 



LOA 
LOB 
JSB 



IOLCP 

WORD 

SALVP,X 



SLECH OUTPUTS THE CHARACTER IN A TO ALL ACTIVE 
USER TERMINALS, 



75402 
75403 
75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 

75416 
75417 

75420 
75421 
75422 
75423 



000000 
070030 
060317 
070031 
064546 
044356 
1,60001 
002003 
027420 
074032 
060030 
044346 
114576 
064032 
044375 
034031 
027410 
127402 



75424 073353 

7 5425 103710 

75426 075432 

75427 103004 

75430 000000 

75431 000000 

75432 000000 

75434 



SLECH NOP 
8TA 
LOA 
STA 
LOB 
ADB 

SLeCI Ld* 
8ZA, 
JMP 
STB 
LOA 
AOB 

J$B 
LOB 

SLEC2 AOB 
ISZ 
JMP 
JMP 



ltemp 

M32 

LTEMP+i 

DTTY0 

,*?IO 

1,1 

R8S 

SLEC2 

LTEMP+2 

LTEMP 

,.?1D 

OUTCHfl 

LTEMP*2 

.♦TTY01' 

LTfcMP+1 

8LEC1 

SLECH,! 



save character, 
set 

counter, 
cet initial pointer, 

test for active. 

INACTIVE, 
SAVE POINTER, 



OUTPUT IT, 

GET 10 POINTER AqAIN, 
TTY00 

test for done. 



L30 0EF LCD 

SL6ST STc CH1,C 

SLEBO OEF sLEBA 

HLT4C HLT 4,C 

SLgCT B8S 1 

SLETP 0SS 1 

SLEBA 883 2 

$SLE ECU * 



RESPOND TO 2114 SO NO HANS«-UP 
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0472* 

0473* 

0474* 

0476* 

0476 

0477 

0478 

0479 

0460 

0481* 

0482 

04g3 

0484 

0485 

0486 

0487 

0488 

0469 

0490 

049j 

0492 

0493 

0494 

0495 



0496 
0497 
0496 
0499 

0500 
0501 



T HE HIBERNATE COMMAND I S IDEN T ICAL T fHE S L£EP COMMAND 
EXCEpT THAT IT UpDATES THE HDATE wqRO IN THE EQUIPMENT TABLE ANU 
TE|.i_S THE MAG TAPE S L EEP TO DUMP THE ENTiRE SYSTEM 70 TAPE, 



75000 
75000 
75001 
75002 
75003 

75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 

75016 
75017 

75020 
75021 

75022 
75023 
75024 
75025 
00336 
75026 
75026 
75027 
75374 
75374 



103100 
060176 
002002 
027026 

063017 
070050 
060305 
0/0051 
064336 
005100 
016257 
060336 
003004 
064305 
02Q271 
07502 tf 
005116 
047440 
046501 
043440 
052101 
050105 



060201 
070203 

003400 



ORG LIBRA 

CLF 

LDA MA63C 
SZA 

JMP H X BA 



CHECK FOR MAG TAPE 
TAPE PRESENT, OKAY 



LDA HIBR1 
STA MOVES 
LDA T38B1 
STA MOVED 
LOB HIBSl 

BRS 

J3B MOVEW 
LDA HIBS1 
CMA,INA 
LDB T35B1 
JMP LEND*2 
HiBRl DEF * + i 
OCT 5116 
ASC 5,0 MAG TApE 



SET UP 
SOURCE 
AND 
DESTINATION 
FUR MOVE ROUTINE 
MAKE WORD COUNT 
MOVE MESSAGE INTO BUFFER 
LOAD CHARACTER COUNT 



PRINT ERROR MESSAGE 



HI8S1 EQU ,+HlBRi w **HlBRl„* + 2 
HIBA EyU * 

LDA DATIM 

STA H DATE 

ORG SLEHI 

CCA 



LOAD THE CURRENT TIME AND 

SET JNTO T H E EQUIPMENT TABLE 



A • .1 SEZ HIBERNATE 
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0002* NEWID CREATES NEW ENTRIES IN THE SYSTEM ID TABLE, THE INPUT 

0003* format is as follows! 

0004* 

0005* NEWID IDCODE, PASSWORD, TIME, DISC 

0006* 

0007* THESE PROVIDE, RESPECTIVELY, WORDS 0,1*3,4, AND 6 OF THE ID ENTRY. 

0008* WORDS 5 AND 7 ARE INTIALUED TO ZERO, 



0010 


75000 




ORG 


LIBRA 




0011* 












0012* 


NOW INTERPRET PARAMETERS 




0013* 












0014 


75000 


016315 


JS8 


GETID 


GET 


0015 


75001 


002001 


RSS 






0016 


75002 


026275 


JMP 


LFRER 


ID ENTRY, 


0017 


75003 


050426 


CpA 


,+54B 


TEST FOR COMMA, 


0018 


75004 


002401 


CLA, 


-RSS 


OK 


0019 


75005 


026275 


JMP 


LFRER 


NOT OK 


0020* 












0021* 


INPUT 


ID-TABLE * 








0022 


75006 


160076 


L DA 


ID LN P,I 


A * LENGTH OF ID TAB L 


0023 


75007 


070072 


STA 


WORD 




0024 


75010 


160075 


LDA 


IDLCP#I 


CALL DRUM DRIVER TO 


0025 


75011 


064566 


LDB 


LIBDI 


INPUT IDTABLE, 


0026 


75012 


044362 


ADB 


,♦8 




0027 


75013 


114770 


JSB 


DRUM, I 




0028 


75014 


064052 


LDB 


ID 




0029 


75015 


074030 


STB 


LTEMP 




0030* 












0031* 


NOW SCAN PASSWORD 








0032* 












0033 


75016 


002400 


CLA 






0034 


75017 


070055 


STA 


T35LC 




0035 


75020 


017231 


J3B 


NEWIP 




0036 


75021 


070031 


ST A 


LTEMP+1 




0037 


75022 


017231 


JSB 


NEfclP 




0038 


75023 


070032 


STA 


LTEMP+2 




0039 


75024 


017231 


JSB 


NEWIP 




0040 


75025 


070033 


STa 


LT£MP*3 




0041* 












0042* 


GET THE ALLOWED TIME 






0043* 












0044 


75026 


060055 


LDA 


T35LC 


CHECK FOR 


0045 


75027 


050426 


CpA 


,*54B 


Comma 


0046 


75030 


027036 


JMP 


NEWI4 




0047 


75031 


114572 


JSB 


T35CH,I 


GET NEXT CHAR, 


004g 


75032 


026275 


JMP 


LFRER 




0049 


75033 


050426 


CPA 


,♦548 


MUST BE A COMMA. 


0050 


75034 


002001 


RSS 






0051 


75035 


026275 


JMP 


LFRER 




0052* 












0053 


75036 


017176 NE W I4 


JSB 


NE»I# 


GET THE ALLUTTED TIME 


0054 


75037 


070034 


STA 


LTEMP+4 


IN MINUTES, 


0055 


75040 


060055 


LDA 


T35LC 
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0056 

0057 

005a 

0059* 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069* 

0070 

007i 

0072 
0073 
0074 

0075* 
0076 

m?7 

0078 

0079 

008y 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094* 

0095* 

0096* 

0097 

0098 

0099 

0j00 

0101 

0102 
0103 
0104 
0105 

0106 
0107 

0108 
0109 
0110 



75041 
75042 
75043 

75044 
75045 
75046 
75047 
75050 
75051 
75052 
75053 
75 54 

75055 
75056 
75057 
75060 
75061 

75^62 
75063 
75064 
75065 
75^66 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 
75077 
75100 
75101 



050426 
002001 
026275 

017176 

070036 
006400 
074035 
074037 
060055 
050367 
002001 
026275 

060261 
002020 
027055 
002002 
116015 

164076 

007004 

044562 
0020^1 

044342 
054562 
027077 
160001 
040053 
002003 
027U0 
00 2 02* 
027066 

160076 
053611 
027252 



CPA ,+54B 

KSS 

JMP LFHfcR 



Wfcwl7 



NfcwiS 



slide id table up 



75102 
75103 

75104 

75105 
75106 
75107 
75110 
75111 
75U2 

75113 
75114 

75115 
75116 
75117 



060562 
070051 
040362 
070050 
007004 
044562 
016257 
060520 
070050 

064342 
016257 

061230 

007400 
044075 



JSB 
S?A 
CLB 
STB 
STB 
IDA 
CPA 
RS3 
JMP 



NEWI# 
LTfcMP+6 

LTgMP+5 
LTEMP+7 
T35LC 
.♦16B 

LFRER 



LOA ENDRM 
SSA 

JMP *-2 

SZA 

JSS SICKP,I 



LOB 

CM8, 

AOB 

R99 

EQU 

ADB 

CPB 

JMP 

LOA 

ADA 

SZA, 

JMP 

SSA, 

JMP 

EQU 
LOA 
CPA 

JMP 



LOA 

STA 

AOA 

STA 

CMB, 

AOB 

JSB 

LOA 

STA 

LOB 

JSB 

LOA 

CCB 

AOB 



IDLNP,I 

IN8 
LIBO 

* 

v t»8 
LIBO 

NEWI5 

1,1 

MIO 

RSS 

NEWI6 

RSS 

NEWI7 

* 

IDLNP/l 

N8192 

NWSU 



LIBO 

MOVED 
. + 8 
MOVES 
INB 
LIBO 

MOVE* 
DLTEM 

MOVES 
*«8 

MOVEW 
LIBUS 

IOLCP 



GET THE DISC ALLOWED, 



MUST BE ENU OF 
LINE, 



TE8T FOR DRUM INPgj OONE 

CROAK CREATIVELY 

SET b TO POINT TO LAST ID ENTRY 



POINT TO NEXT ENTRY 

OONE WITH ID TABLE? 

YES, 

GET TABLE IO f 

SUBTRACT TEST ID, 

T E3 r FOR EQuAL 

GO PRINT MESSAGE, 

IF LESS WE FOUND A HOLE. 

ELSE LOOP, 

GET LENGTH 

CHECK FOR TRACK FULL 
AND SUPERNEW IF 30 



MOVE THE 
FIRST PART 
OF THE ID 
TABLE 
COMPUTE LENGTH OF MOVE 



MOVE THE 
NEW PART 
IN, 

S^T up 
NEW 
FIRST ID 
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0111 

0112* 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125* 

0126 

0127 

0128 

0129 

0130 

0131* 

0132 

0133 

0134 

0135 

0136 

0137 

0130 

0139 

0140 

0141 

0142 

0143* 

0144* 

0145* 

0146 

0147 

0148 



75120 170001 



8TA B,I 



ON TRACK 



0149 
0150 
0151 
0152 



75121 
75122 
75123 
75124 
75125 
75126 
75127 
75130 
75131 
75132 
75133 
75134 

75135 
75136 
75137 

75140 
75141 

75142 
75143 
75144 
75M5 
75146 
75147 
75150 
75151 
75152 
75153 
75154 



160076 
040342 
170076 
070072 
160075 
064562 
016231 
002001 
026267 
060075 

164076 
116016 

063155 
0643«3 
027142 
063*65 
064342 

070050 
060305 
070051 
074030 
016257 
060030 
001000 
003004 
064305 
114522 
026272 



NE W I2 



NEWI6 



NEwie 



OUTPUT MESSAGES 



0153 
0154 



75155 
75156 
75157 
75160 
75161 
75162 
75163 
75164 
00343 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 
75175 
00342 
75176 



075156 
005111 
042040 
052101 
041U4 
042440 
043126 
046114 

075166 
005104 
052520 
046111 
041501 
052105 
020105 
047124 
051131 

000000 



NEWIA 



LOA IDLNP,I 


MOOIPY IOLENGTH 


ADA ( «8 




STA XOLNP,I 




8TA WORD 




LOA IDLCP,! 


OUTPUT 


LOB LIBO 


TO 


J3B DRUML 


DRUM 


RSS 




JMP IENO 




LOA iDtQP 




LOB IOLNP,I 




J3B SALVP,I 




LOA NEwXA 


OUTPUT TABLE FU 


LOB NEWIB 




JMP NEWI8 




LOA NE»UE 


OUTPUT OUPLICAT 


LOB NEWlF 




STA MOyES 


SET UP FOR MOvE 


LOA T35B1 


ROUTINE 


STA MOVED 


MOVE STRING 


STB LTEMP 


INTO BUFFER, 


JSB MOVEW 




LOA LTEMP 




ALS 




CMA,INA 


CALL 


LOB T35B1 


DRIyER. 


J3B TTY35,I 




Jmp l^ndr 


TERMINATE. 


DEF *♦! 




OCT 5111 




ASC 6,0 TABLE 


FULL 



NEWIB 
NEwIE 



EQU 
DEF 
OCT 
ASC 



,-*+NEW!A*l 

* + l 

5104 

7,UPLICATE ENTRY 



NEWIF 
NEwI* 



EQU 
NOP 



,.*+NEWIE+l 

S CAN 



FOR A NUMBER, 



PAGE 0590 £50 NfcWlO 



0155 
0156 
0157 

015$ 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0166 
0169 
0170 
0171 
0172 
0173 
\6%74 
0175 
0^76 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
3187 
B188 
0189 
0190 
0191 
0192 
0193 

0194 

0195 

01g6 

0197 

0198* 

0199* 

0200* 

0201* 

0202 

0203 

0204* 

0205 

0206 

0207 

0208 

0209 



75177 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75210 
7*321 1 
75212 
75213 
75214 
75215 
75216 
75217 
75220 
75221 
75222 
75223 
75224 
75225 
75226 
76227 
75230 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 

75243 
75244 

75245 

75^46 
75247 

75250 

75251 



002400 
(473630 
114572 
027227 
040316 
002021 
027227 
040364 
002120 
027227 
067630 
005626 
006054 
002001 
026275 
047630 
005600 
006051 
002001 
026275 
040001 
002040 
026273 
027200 
063630 
127176 

000000 

002400 

064 55 
054426 
127231 
114572 

028275 
050426 
027232 

001*27 
073630 
114572 
026275 
0504^6 

002400 

043630 
127231 



cla 

STA 

J3B 

JMP 

A^A 

SSA, 

JMP 

ADA 

CLE, 

JMP 

LOB 

EL8, 

SEZ, 

RSS 

JMP 

ADS 

fcCB 
SEZ, 

RSS 
JMP 
ADA 

SEZ 

JMP 
JMP 

NEWIZ LDA 
JMP 

NEinIP NOP 
CIA 
LOB 
CPB 
JMp 
J8B 
JMP 
CPA 

JmP 

ALF, 

STA 

J SB 

JMP 
CPA 
CIA 

ADA 
JMP 



NEWIT 

T35CH,I 

NEWIZ 

h72e 

RSS 

NEWIZ 

,♦10 

SSA 

NEWJZ 

NEWIT 

ELB 

SLB,RSS 

LFRER 
NEwIT 

SLB,RSS 

LFRER 
1 

LFRER 
NEHI0+2 

NEWIT 

NEWI#,I 



T3§LC 

.♦64B 

NEWiP,! 

T3§CH,I 

LFRER 

,+648 

NEwlP*i 

alf 

NEWIT 
T3§CH,I 
LFRER 
• +548 

NEWIT 
NE W IP,I 



INITIALIZE 

TO ZERO, 
GET NEXT CHARACTER 
PONE 
TEST FOR DIGIT 

NOT A DIGIT 



GET NEXT 2 PASSWORD LETTERS, 

IF LAST CHARACTER A 
COMMA, RETURN ZERO, 

GET NEXT CHAR, 

IF A COMMA 

SAVE 1ST 

CHAR, 



IF COMMA TAKE AS 

ZERO, 



THIS SECTION IS CALLED TO REDISTRIBUTE 
THE ID TABLE ACCROSS ALL THREE ID TRACKS, 



75252 

752 5 2 07404 1 



75253 
75254 
75255 

75256 
75257 



060342 
040102 
040105 
040110 
0641U 



NWSU EQU * 

STB NWSV V 

LDA ,«8 

ADA jOEC+2 

ADA IDEC+5 

ADA IDEC+8 

LOB NIDT 



SAVE POINTER TO ENTRY 
PRECEEDING NEW ONE 
FIND THE 

TOTAL LENGTH 
OF THE TABLE 

CHECK NUMBER 0.- ID TRACKS 
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0210 


75260 


054353 


0211 


75261 


027135 


0212 


75262 


054354 


0213 


75263 


027277 


0214 


75264 


064347 


0215 


75265 


074045 


0216 


75266 


007400 


0217 


75267 


101023 


0218 


75270 


100400 




75271 


000355 


0219 


75272 


053607 


0220 


75273 


006003 


0221 


75274 


0536^0 


0222 


75275 


027135 


0223 


75276 


027311 


0224 


75277 




0225 


75277 


064360 


0226 


75300 


074045 


0227 


75301 


007400 


0228 


75302 


101023 


0229 


75303 


100400 




75304 


000354 


0230 


75305 


053607 


0231 


75306 


006003 


0232 


75307 


053610 


0233 


75310 


027135 


0234 


75311 




0235 


75311 


040351 


0236 


75312 


070042 


02 37 


75313 


04435* 


0238 


75314 


074043 


0239* 






0240 


75315 


063613 


0241 


75316 


070044 


0242 


75317 


067617 


0243 


75320 




0244 


75320 


160001 


0245 


7 5321 


002003 


0246 


75322 


027331 


0247 


75323 


034043 


2 48 


75324 


002001 


0249 


75325 


034042 


0250 


75326 


060042 


0251 


75327 


001020 


0252 


75330 


001000 


0253 


75331 




0254 


75331 


170044 


0255 


75332 


044355 


0256 


75333 


034044 


0257 


75334 


034045 


0258 


75335 


027320 


0259* 






0260* 




TABLE 


0261* 


THE THREE 


0262* 







nwsw 



NWTA 



nwtb 



NWS5 



CPB 


.♦1 


Jmp 


NEWI2 


CPB 


.♦2 


JMP 


NW8W 


LOB 


.-3 


STB 


NW3T 


WD 

ASR 


3 


OIV 


.♦3 


CPA 


N1024 


8ZB, 


,RSS 


CPA 


N1025 


JMP 


NEWI2 


JMP 


NwTA 


EQU 


* 


LOB 


,»2 


STB 


NW8T 


CCB 




ASR 


3 


oiv 


.♦2 


CPA 


N1024 


$ZB, 


,RS3 


CPA 


N1025 


JMP 


NEWI2 


EQU 


* 


AOA 


.-1 


STA 


NWSS 


AOB 


• •I 


STB 


NWSB 


LOA 


NW8NN 


STA 


NW8P 


LOB 


NW3ID 


EQU 


* 


LOA 


BrI 


SZAi 


rRSS 


JMP 


NWSS 


ISZ 


NWSB 


RSS 




ISZ 


NWSS 


L A 


NWSS 


ALS, 


>ALS 


ALS 




EQU 


* 


STA 


N W SP,I 


AOB 


.♦3 


ISZ 


NWSP 


ISZ 


NWST 


JMP 


NWTB 



CHECK FOR SINGLE TRACK 
NO MORE RUOM 
ONLY TWO ID TRACKS? 
YE3# DEAL WITH TWO 
SET COUNT OF IO TRACKS 

FINO NUMBER OF 

ENTRIES IN TABLE 
SPREAD gVER THREE TRACKS 



FULL, OUTPUT ERROR 



set count of id tracks 
finu number of entries 
In TABi,E 



FULL* OUTPUT ERROR 

INCREA3E # OF ENtRIE§/tRACK By 

ONE AND SAVE 
LET B COUNT HOW MANY TRACKS WILL 

BE THIS LARGER SIZE 

SET TABLE POINTER 



GET DRUM aDUPESS 

SKIP IF TRACK NOT ALLOCATED 

TEST FOR BIG TRACK 

YES 

NO, SWITCH TO SMALLER SIZE 

SET TRACK SlZfc 

AND CONVERT TO WORDS 



STORE TRACK SIzE IN TABLE 

ADVANCE SIZE TABLE POINTER 
COUNT 



NN NOW CONTAINS THE NEW LENGTHS OF 
ID TRACKS, 
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0263 

0264 

0265* 

0266* 

0267* 

0268* 

0269* 

0270* 

0271* 

0272* 

0273* 

^274* 

0275* 

0276* 

0277* 

0278* 

0279* 

0280* 

0281 
0282 
0283 

0284 
0285 

0286* 

0287 
0288 
0289 
0290 
0291 
0292 

0293 
0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304* 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317* 



75336 063613 

75337 070044 



IDA NWSNN 
3TA NW8P 



SET UP POINTER 
TO LENGTH KQRD 



THE MAIN PART OF THIS ALGORITHM CONSISTS OF TWO 
SECTIONS, IN THE FIRST SECTION WE READ AS MUCH AS 
POsslBU INTO THE gwAP ArEA, IN THE SECOND SECTION 
WE WRITE AS MUCH AS P0SSI8 L E, THE EnTIRE PROCEDURE 
IS THEN REPEATED UNTIL WE a«E FlNISHEDt 

THE FOLLOWING MEANINGS ARE ASSOCIATED 
WITH THESE VARIABLES? 

NWSK| *> ID TABLE ENTRY FOR TRACK BEING READ 
NWSLl ** ID TABLE ENTRY FOR TRACK BEING WRITTEN 
NW8K2 * # OF wOfcDS READ SO FA R F K OM Kl 
NWSL2 * * OF WORDS WRITTEN SO FAR ON LI 
NWS « * OF WORDS IN CORE 
NWSP »> • * OF WORDS TO BE WRITTEN ON Ll 



75340 
75340 
75341 
75342 
75343 

75344 

7534* 
75345 
75346 
75347 
75350 
75351 
75352 

75333 

75354 

75355 
75356 
75357 

75 3 6® 
75361 
75362 
75363 

75364 
75364 
75365 
75366 
75367 
75370 
75371 
75372 
75373 
75374 
75374 
75375 



NW87 



063624 
003004 
150044 

027461 



063626 
043612 
002021 
027472 
®7M7'd 
067620 
057623 
027472 
163620 
043625 
002002 
027364 
044355 

077620 

^73625 

027,344 



054000 
007004 
W44072 
006020 
027374 
060072 

04^734 
010610 

002003 
027472 



NWS8 



NWS9 



NWS9A 



EOU 


* 


LDA 


N W SL2 


CMA, 


-INA 


CPA 


NWSP, I 


JMp 


NWSI0 


two 


* 


LDA 


NWS 


ADA 


NT232 


S3A, 


,RSS 


JMP 


NWSli 


STA 


WORD 


LDB 


NWSKi 


CP8 


NIDC3 


JMP 


NK«ll 


Lq a 


NW8K1/I 


ADA 


NWSK2 


S2A 




JMP 


NWS9 


AD8 


,+3 


ST8 


NWSKI 


STA 


NWSK2 


JMP 


NW36 


EQU 


* 


LDB 


A 


CMB ( 


,IN8 


ADB 


WORD 


SS B 




JMP 


NW39A 


LDA 


WORD 


ADA 


B77 


AND 


M&4 


EOU 


* 


SZA, 


,RS8 


jMp 


nwsu 



IS # OF WORDS WRITTEN SO FAR TO 
Ll * ft OF KORDs to be written 

YES Gq 



IS THE SWAP A*EA FULL? 



YES, GO TO WRITE SECTION 

no, save available word count 
have we read all three tracks? 

Y6«, GO TO WRITE tfcCUON 

A * * U ON T HI3 TRACK 



A * 



* NOT READ YET 



ENTIRE TRACK READ YET? 

NO 

YES, TRY NEXT TRACK 

SET n OF WORDS READ TO 2E«0 
TEST THIS TRACK 



B « U OF WORDS NOT YET READ 

MAKE POSITIVE 

IS # ON TRACK » « WE HAVE 

ROOM FOR? 
NO, READ ENTIRE TRACK 
GET » WE CAN FIT IN 
REDUCE TO NEXT SMALLER 

SECTOR SIZE 

IF WE CAN'T READ ANY, 

THEN Gq Tq THE WRITE SECTIqN 
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0316 


75376 


070072 


8TA 


WQrD 


$ET WOrD COUNT FOr READ 


0319 


75377 


063625 


LUA 


NWSK2 


SET * REAO SO FAR 


0320 


75400 


006400 


CLB 




DIVIDE BY 64 TO GET 


0321 


754tfi 


101026 


ASR 


6 


SECTOR ADDRESS 


0322 


75402 


007400 


CCB 






0323 


75403 


047620 


AOB 


NWSK1 


GET ID TRACK ADDRESS 


0324 


75404 


140001 


ADA 


B,I 


COMPUTE READ ADDrESS 


0325 


75405 


064566 


LOB 


LIBOI 




0326 


75406 


047626 


ADB 


NWS 


GENERATE READ ADOrESS AND 


0327 


75407 


016231 


JSB 


ORUML 


READ IT IN 


0328 


75410 


116017 


JSB 


DEADP,I 


BLEW IT, ASR6H 


0329* 












0330 


75411 


064072 


LDB 


WORD 


UPDATE COUNT OF WORDS 


0331 


75412 


007004 


CMB, 


■ INB 


IN CORE 


0332 


75413 


047626 


AOB 


NWS 




0333 


75414 


077626 


5TB 


NWS 




0334 


75415 


064072 


LDB 


WORD 


UPDATE COUNT OF WORDS READ 


033$ 


75416 


007004 


CUB, 


.INB 


FROM THIS TRACK 


0336 


75417 


047625 


AOB 


NWSK2 




0337 


75420 


077625 


8TB 


NWSK2 




033«* 












0339 


75421 


063627 


LDA 


NWSTG 


HAVE WE INSERTED THE NE* 


0340 


75422 


002002 


SZA 




ENJRY YEt? 


0341 


75423 


027344 


JMP 


NWSB 


YES, TRY TO READ SOME MORE 


0342 


75424 


063620 


LDA 


NWSKl 


ARE WE READING THE TRACK 


0343 


75425 


050076 


CPA 


IDlnP 


IT WAS TO GO ON? 


0344 


75426 


002001 


RSS 




YES 


0346 


75427 


027344 


JMP 


NW38 


NO, TRY TO READ SOME MORE 


0346 


75430 


044562 


ADB 


LXBD 


DETERMINE IF WE HAVE READ THE 


0347 


75431 


007000 


CMB 




ENTRY PRECEEDING THE NEw ONE 


034 8 


75432 


044041 


AOB 


NW8V 




0349 


75433 


006021 


S3B, 


RSS 




0360 


75434 


027344 


JMp 


NWS8 




0351 


75435 


006004 


INB 






0392* 












0353 


75436 


037627 


I3Z 


NWSTG 


INDICATE ENTRY HAS BEEN INSERTED 


0354 


75437 


060562 


LDA 


LIBD 


COMPUTE 


0355 


75440 


043626 


ADA 


NWS 


MOVE 


0356 


75441 


040361 


ADA 


,*7 


DESTINATION 


0357 


75442 


070051 


8TA 


MOVED 




0358 


75443 


040342 


ADA 


.-8 


COMPUTE MOVE SOURCE 


k>359 


75444 


070050 


8TA 


MOVES 




0360 


75445 


016243 


J S B 


MQyEB 


CALL JHE rEvEr$E MOvEr 


0361* 












0362 


75446 


060050 


LDA 


MOVES 


NOW SET DESTINATION 


0363 


75447 


002004 


INA 




TO POINT At FIRST 


0364 


7545 


070051 


8TA 


MOVED 


WORD OF HOLE 


0365 


75451 


060520 


Ll)A 


DLTEM 


SET SOURgE AT LTEMP 


0366 


75452 


070050 


STA 


MOVES 




0367 


75453 


064342 


LDB 


,-B 


MOVE IN ENTRY 


0368 


75454 


016267 


JSB 


MOVE* 




0369* 












0370 


75455 


063626 


LDA 


NWS 


EIGHT MORE 


0371 


75456 


040362 


ADA 


.♦8 


WORDS ARE NOW 


0372 


75457 


073626 


STA 


NWS 


IN CORE 
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03/3 
1*374* 

0375* 
0376* 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387* 

0388* 

0389* 

0390* 

0391* 

0392* 

0393* 

03S4* 

0395* 

0396* 

0397* 

0396* 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 
0409 
0410 
0411 
0412 

0413 
0414 
0416 
0416 
0417 
0418 
04i9 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 



7540W 02/344 J*P NWSs CONTINUE READING 

C'J^t HEKE WHEN THt CURRENT OUTPUT TRACK HAS BEEN KILLED 



75461 
7546), 
75462 
75463 
75464 
75465 

75466 

754 57 
75470 
754/1 



063621 

053622 
02^576 
040355 

y 73621 

0W?400 
073624 
3404 4 
2 7 3 4 '<! 



NWS10 EUU * 



L3A 
CPA 

JMP 
ADA 
3TA 
CLA 
8TA 
ISZ 
JMP 



NWSLI 

NIDC2 

NWS16 

8 +3 

NWSLl 

NwSLS 

NWSP 

NWS7 



test for last t r ack 

all done, clean up xdtc 
advance to next track 

set number of >qr08 written 

3u par to zero 
advance pointer to words 

to be written 



THJS SECTION IS THE OUTPUT SECTION, THIS SECTION 
IS ONLY CALLED WHEN NO MURE CAN BE READ, THIS SECTION 
WHITES OUT AS MUCH AS POSSIBLE UNTIL WE HAVE EXHAUSTED 
ALL mE HA V E IN CORE OR uNjIL FATHER OUTPUT WOuLD 
OVERLAY INFORMATION THAI HAS NOT BEEn READ, 
ThE FOLLOWING ADDlTIUN A L VARIABLES 
ARC USED IN THIS SECTION? 



75472 
75472 
75473 
754/3 

75474 

75475 
75476 
75477 
75500 

75501 
75501 
75502 

75503 
?5504 

7550b 
75506 
75507 
75510 
75511 
75512 

755 1 3 
75514 
755H 

75515 

7 5 5 1 6 
75517 

75520 
75521 

75522 



NWSS 



002400 

07(^042 
063624 
14^044 
067621 

057620 
027514 

064g42 
007004 
847626 
^74043 
0440^0 
006021 
027523 
060043 
106 10 
003004 
027523 

067624 

'^•07004 
047626 
044000 
007025 

040001 



COUNT OF WORDS THAT HAVE BEEN 

WRITTEN FROM THE CURRENT CORE LOAD, 



NWSu 
NW816 



NWS13 



NWS12 



EQU 


* 


CLA 




E»JU 


* 


STA 


NWSS 


LD A 


NWSL2 


ADA 


NWSP, I 


Lue 


NWSL1 


CPB 


NWSKJ 


JMP 


NWS12 


EQU 


* 


LD8 


N W 8S 


CMB, 


,INB 


AOB 


Nw3 


STB 


NWSB 


hO& 


A 


S38, 


,RSS 


JMP 


NW314 


LUA 


NWSB 


AND 


M64 


CMA ( 


,INA 


JMP 


N w S 1 4 


EQU 


* 


LQB 


NW8L2 


CMB< 


-INB 


ADB 


NWSK2 


ADB 


A 


C(vjB ( 


-SS8,InB, 


ADA 


B 


JMP 


NWSJ3 



SET n OF WORDS WRITTEN OUT 
SET WORD * -* OF WORDS LEFT TO 

BE WRITTEN ON LI 
TEST FOR WRHIMG ON A TRAqK 

NOT YET READ 

WE A*E' CHECK TOR OVERLAY 
SEt B ■ * LEF T IN CORE 



SAVE 

COMPARE WITH ft WE WANT 10 WRITE 

HAVE ENOUGH, - COUNT IN A 
ONLY WRITE WHAT WE HAVE 
MAKE FULL SECT'JR 
MAKE NEGATIVE 



IF WRITING ON UNREAD TRA(;K, MAKE 
•SURE WE DON'T GO INTO UNREAD 
AREA 



RSS 



CHANGE COUNT TO AVOID OVERLAYING 
UNREAD DATA 
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0480* 














0429* 




A NOW 


CONTAINS THE NEGATIVE COUNT OF WORDS 


0430* 


THAT ARE 


TO BE 


WRITTEN 




0431* 














0432 


75523 




NWS14 


EQU 


* 




0433 


75523 


070072 




STA 


WORD 


IF NO WORDS ARE TO BE WRITTEN, 


0434 


75524 


002003 




82A. 


,RS8 


GO MOVE CORE FOR NEW INPUT 


0435 


75525 


027561 




JMP 


NWSj7 




043a 


75526 


003004 




CMA, 


rINA 




0437 


75527 


070043 




STA 


NWSB 




043a 


75530 


063624 




LOA 


NWSL2 


TEST FOR FIRST WRITE ON 


0439 


75531 


002002 




SZA 




THIS TRACK 


0440 


75532 


027542 




JMP 


NWS18 




0441* 














0442 


75533 


063621 




LDA 


NW8LI 


IF THIS IS 


0443 


75534 


040350 




ADA 


«*2 


THE FIRST 


0444 


75535 


064562 




LOB 


L IBD 


WRITE ON THIS 


0445 


75536 


044042 




AOB 


NWSS 


TRACK* THEN 


0446 


75537 


164001 




LOB 


B.I 


UPDATE THE 


0447 


75540 


174000 




3TB 


a; 1 


IDEC TABLE 


0448 


75541 


002400 




CIA 






9449* 














0450 


75542 




NW3i8 


EUU 


* 




0451 


75542 


006400 




CUB 




CONVERT WORD COUNT 


0452 


75543 


101026 




A9R 


6 


TO sECjQR ADDRE 8 g 


0453 


75544 


007400 




CCB 






0454 


75545 


047621 




AOB 


NWSL1 




0455 


75546 


140001 




ADA 


B,I 


ADD IN TRACK ADOrEsS 


0456 


75547 


064562 




LOB 


LXBO 


GENERATE 


0457 


75550 


044042 




AOB 


NWSS 


CORE ADDRESS 


0458 


75551 


016231 




JSB 


oruml 


AND OUTPUT CURRENT PlECE 


0459 


75552 


116017 




JSB 


DEADp,j 


BLEW IT* ArrGhI 
ADJUST NUMBER OF WORDS 


0460 


75553 


060043 




LDA 


NWSB 


0461 


75554 


043624 




ADA 


NW3L2 


OUTPUT TO TRACK 


0462 


75555 


073624 




STA 


NWSL2 




0463 


75556 


064043 




LDB 


NWSb 


ADJUST NUMBER OF CORE WORDS 


0464 


75557 


040042 




ADA 


NWSS 


WRITTEN OUT 30 FAR 


0465 


75560 


027473 




JMP 


NWS15 


LOOP FOR ANY MORE WRITING 


0466* 














0467* 


COME HERE 


WHEN 


WE CAN'T WRITE 


ANYMORE 


0460* 














0469 


75561 




NW817 


EUU 


* 




0470 


75561 


050042 




CPA 


NWSS 


IF NOTHING WRITTEN AT ALL, GO 


0471 


75562 


027340 




JMP 


NWS7 


TRY TO READ AGAIN 


0472 


75563 


064042 




LDB 


NWSS 


A0JU8T NUMBER OF WORDS 


0473 


75564 


007004 




CMB, 


,INB 


IN CORE 


0474 


75565 


047626 




ADB 


NwS 




0475 


75566 


077626 




STB 


N W 8 




0476 


75567 


007004 




CMB, 


rINB 


MAKE NEGATIVE FOr MOVE rQuUNE 


0477 


75570 


060562 




LOA 


LIBD 


SET 


0476 


75571 


070051 




STA 


MOVED 


, DESTINATION 


0479 


75872 


040942 




ADA 


NWSS 




0480 


75573 


070050 




STA 


MOVES 


AND SOUHCE 


0481 


75574 


010257 




JSB 


MOVEW 




0482 


75575 


027340 




JMP 


NWS7 
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0483* 

0484* 

0435* 

k3486* 

0487* 

0486 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498* 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0&12 

0513 

0514 

05l5 
0516 
0517 

0518 
05*9 
0520 



ALL OF THE ID TRACKS HAVE 
BACK TO THE DRUM, UPDATE THE 
THE IDEC TAB1.E 



NOW BEEN WRITTEN 
WORD COUNTS IN 



75576 
75576 
75577 

75600 
75601 
75602 
75603 
75604 
75605 
75606 

75607 
756ik3 
75611 
75612 
75613 
75614 
00041 
*30U42 
00043 
00044 
00045 
75bl7 
75620 
75621 
75622 
75623 
75624 
75625 
75626 
75627 
75630 
75631 



0636J4 
070102 
063615 
070105 
063616 
070110 
002400 
070260 
026267 

176000 
175777 

160000 
154010 
075614 
000000 



NW3|6 EQU * 



000101 

000102 
000102 

000 iU' 
000113 
000000 

000000 
000000 
000000 
000000 



N1024 
N1025 
N8192 

NT232 

NW8NN 

NWSV 

NWSS 

NWSB 

NwSP 

NwST 

NWSID 

NWSK1 

NWSL1 

NIDC2 

NI[)C3 

NWSL2 

NWSK2 

N«S 

NWSTg 

newit 

$NEW 



LtfA 
STA 
LOA 
S1A 
IDA 
STA 
CLA 
STA 
JMP 

DEC 
DEC 
DEC 
ABS 
DEF 
B8S 
EQU 
EQU 
EQU 
EQU 
EQU 
DEF 
DEF 
DEF 
DEF 

DEF 
OCT 
OCT 
OC7 
OCT 
BSS 
EQU 



NWSNN*1 

IDEC+2 

NWSNN+2 

IDEC+5 

NWSNN+3 

IDEC+8 

LIB 
LEND 

• 1024 

• 1025 
-8192 

8-ULEN 

**X 
3 

LTEMP+9 

LTEMP+lw 

LTEMP*U 

LTEMP+12 

LTEMP*13 

IDEC+1 

IDEC+2 

IDEC+2 

IDEC+8 

lDEC*il 





1 



INDICATE TO SWAPR THAT 

NO LIBRARY PROGRAM IS IN CORE 



•> first drum address 

«> id Table entry for read track 

■> ID table entky for write trac 



LENCHT FOR WRITE TRACK 
LENGTH FOP READ TRACK 
# OF wOrDj, IN CQrE 
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0002* 
0003* 
0004* 
0005* 
0006* 
0007* 
0008* 
0009* 
0010* 
0011* 
0012* 
0013* 
0014* 
0015* 
0016* 



THE KIUID ROUTINE 1$ USED TO REMOVE ID CODES FrOM THE SYSTEM 
IpTABlE. THE FORMAT I3t 

KIUID • IDCODE 

IDCODE A000 CANNOT BE KIUED BY THIS COMMAND, 
GROUP LIBRARIANS CANNOT BE KIUED IF ANY MEMBER OF 
THEIR GROUP IS LqGGED ON. 

KIUID PERFORMS THE FOLLOWING FUNCTIONSj 

1, THE ID.CODE IS REMOVED FROM THE IDT, 

2, ANY USERS LOGGED ON WITH THIS NUMBER ARE DUMpED, 

3, AU LIBRARY SPACE ALLOCATED TO THjS jD jS RETURNED TO THE 
SYSTEM, 



001S 

0019 

0020 

0021 

0022 

0023 

0024* 

0025* 

0026* 

0027 

0026 

0029 

0030 

0031 

0032* 

0033* 

0034* 

0035 

0036 

0037 

0038 

0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 

0047 

0048 
0049 
0050 
0051 
0052 



75000 
75000 
75001 
75002 
75003 
75004 



016315 
026275 
060052 
050612 
027164 



ORG 
JSB 
JMP 
LDA 
CPA 
JMP 



LIBRA 
GETID 

LFRER 
ID 

A000 
KID31 



TRANSLATE THE IDCODE, 
ERROR IF NO CR FOLLOWD, 
TEST FOR A000, 



CHECK FOR GROUP LIBRARIAN 



75005 
75006 
75007 
75010 
750H 
75012 



010602 
006400 
100400 
000437 
006002 

027043 



AND 
CLB 
DlV 

SZB 

JMP 



B1777 

.100 



KIDAA 



MASK TO NUMBER PART 



SKIP IF EVEN HUNDRED 

NOT EVEN, NOT GROUP LIBRARIAN 



CHECK TO SEE IF ANY OF HIS SUBJECTS ARE ON 

COUNT OF USERS 



75013 060317 LDA M32 

75014 070042 8TA KIDC 

75015 064546 LOB DTTY0 

75016 044356 A OB .♦?ID 

75017 KIDAD E8U * 
75017 074031 8TB KIDP 

75020 160001 LDA B,I 

75021 050052 CPA ID 

75022 027037 JMP KIDAF 

75023 010g02 AND B1777 

75024 006400 CLB 

75025 100400 DIV ,100 

75026 000437 

75027 10020 MPY ,100 

75030 000437 

75031 064000 LD8 A 

75 32 160031 LDA KIDP, I 

75033 010732 AND M2000 

75034 030001 IOR B 

75035 050052 CPA ID 



■> FIRST TTY TABLE 
•> FIRST ID 

SAVE POINTER 

GET THE ID OF THIS USER 

THE SAME? 

YEs, HE GETS KILLED ANYWAY 

LEAVE THE NUMBER PART 



TURN BACK INTO NUMBER 

SAVE JN B 

GET THE ID AGAIN 

LEAVE LETTER PART 

CONSTRUCT THE GROUP ID 

IS THIS ONE IN HIS GROUP? 
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0053 

0054 

0055 

005 6 

0057 

0058 

0059 

0060* 

0061* 

0062* 

0063 

0064 

0065 

0066 

0067 

0068 

0069* 

0070* 

0071* 

0072 

0073 

0U."4 

0075 

0076 

\dd77 

0078 

0079 

0080 

0081 

0082* 

0083* 

0084* 

0065 

0086 

0087 

0088 

0089 

0090 

0091* 

0092* 

0093* 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102* 

14103* 

0104* 

0105 

0106 

0107 



75036 027172 
75037 
75037 
75040 

75041 
75042 

75043 



KIDAF 



064031 
044375 

034042 
027017 



KlOAA 



JMP KIDAN 

fcQU 
L08 
AOB 
ISZ 
JMP 

EQU 



KIDP 
.♦TTY01 
KIDC 
KIDAO 

* 



YES, DISALLOW THE KILL 

GET 1 H E POINTER 
■TTY00 

CHECK COUNTER 
BACK TO CHECK REST 



READ IN IDT, 



75043 
75044 
75045 
75046 
75047 
75050 



160076 
070072 
160075 
064566 
016231 
116015 



SEARCH IDT, 



75051 
75052 
75053 
75054 
75055 
75056 
75057 
75060 
75061 
75062 



164076 
007004 
044562 
060052 
054562 
027167 

044342 
150001 

002001 
027055 



KID33 



LOA IDLNP,I 
STA WORD 
UDA IDLCP f l 
LDB LIBDI 
J38 DRUML 
JSB SICKP f I 



LDB IDLNP,I 
CMB,INB 
ADB LIBD 
UDA ID 
CPB ^XBD 
JMP KID32 
ADB ,«8 
CPA 1,1 

RSS 

JMP KID33 



REMOVt ID FROM TABLE, 



7S063 

75064 
75065 
75066 
75067 
75070 



074051 

044362 
074050 
044674 
144076 
016257 



WRITE BACK TO DISC, 



750/1 
75072 
75073 
75074 
75075 
75076 
75077 
75100 



160076 
040362 
170076 
070072 
160075 
064562 
016231 
116017 



STB MOVED 
ADB ,4-8 

STB MOVES 
ADB MLIBD 
ADB IDLNPrI 
JSB MOVE* 



LOA IOLNP,I 
ADA ,+8 
STA IDLNP,I 
STA WORD 
LOA IDLCP,I 
LOB HBD 
JSB DRUML 
JSB DEADP,I 



SET LENGTH FOR DRUM DRIVER 



DRUM ERROR WITH CHANCE OF RECOVt 



TEST for not there, 

TEST FOR FOUND, 
FOUND IT, 



DRUM ERROR WITH NO HOPE 



SEARCH TTY TABLES FOR ANY USER TO BE DUMPED, 

SET COUNTER 



75101 060317 

75102 070042 

75103 003400 



LDA 
STA 
CCA 



M32 
KIDC 



SET KIDT TO SA\ NONE 
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0108 


75104 


070033 


8TA 


KIDT 


FOUND YET, 


0109 


75105 


064546 


L DB 


DTTY0 




0110 


75106 


044356 


AUB 


.♦?ID 




0111 


75107 


160001 


KI034 LDA 


lr I 


GET 10 FROM TABLE, 


0112 


75U0 


050052 


CPA 


ID 


IS IT THIS USER? 


0113 


75111 


027120 


JMP 


KID35 


YES„-,GO DUMP HIM t 


0114 


75112 


044375 


KIU37 ADB 


,+TTY0l« 


•TTY00 


0115 


75113 


034042 


I3Z 


KIDC 


ANY MORE TO TEST? 


0116 


75114 


027107 


JMP 


KID34 


YES, 


0117 


75115 


034033 


ISZ 


KIDT 


NEED TO WRITE BACK FUSS? 


0118 


75H6 


027244 


JMP 


KID36 


YES^TRANSFER TO NEXT PART 


U 9 


75117 


027250 


JMP 


KILBR 


NO, NO USERS WERE DUMPED 


0120* 












0121* 


DUMP 1 


rHE USER 


t 






0122* 












0123 


75120 


074043 


KID35 STB 


KIDB 


8AVE POINTER TO TABLE, 


0124 


75121 


103100 


CLF 





INHIBIT INTERRUPT, 


0125 


75122 


002400 


CIA 




CLEAR USER'S ID, 


0126 


75123 


170001 


3TA 


1,1 




0127 


75124 


044362 


ADB 


,*?8TAT«- 


?ID 


0128 


75125 


060350 


LDA 


.•2 


SET USER'S STATUS TO «2 TO 


0129 


75126 


170001 


STA 


1,1 


DISCONNECT, 


0130 


75127 


044336 


ADB 


,«?3TAT 




0131 


75130 


160001 


IDA 


1,1 


SET CQM14 BIT 


0132 


75131 


030772 


XOR 


C0M14 


TO Flag 


0133 


75132 


170001 


STA 


1,1 


SCHEDULER 


0134 


75133 


044367 


ADB 


.♦7LINK 




0135 


75134 


117163 


J3B 


KIDEQ, I 


REMOVE FROM QUEUE, 


0136 


75135 


102100 


8TF 







0137 


75136 


034033 


ISZ 


KIDT 


is fuss table in core? 


0138 


75137 


027146 


JMP 


KID38 


YES, 


013 9 


75140 


060732 


IDA 


M2000 


no, read it in 


0140 


75141 


070072 


STA 


WORD 




0141 


75142 


160540 


LOA 


FUSS, I 




0142 


75143 


064566 


LDB 


LIBDI 




0143 


75144 


016231 


JSB 


DRUML 




0144 


75145 


116017 


JSB 


DEADP,I 


drum error with no hope 


0145* 












0146 


75146 


060042 


KJD38 LDA 


KIDC 


COMPUTE LOCATION OF USER'S 


0147 


75147 


040412 


ADA 


,♦32 


AREA 


0148 


75i5 


001720 


ALF, 


-ALS 




0149 


75151 


040562 


ADA 


LIBD 




0150 


75152 


070031 


STA 


KlDP 




10151 


75153 


064317 


LOB 


M32 


ZERO OUT USER'S FUSS AREA 


0152 


75154 


002400 


CLA 






0153 


75155 


170031 


STA 


KIDP,I 




0154 


75156 


034031 


ISZ 


KIDP 




0155 


75157 


006006 


INB, 


-SZB 




0156 


75160 


027155 


JMP 


*»3 




0157* 












0158 


75161 


064043 


LDB 


KIDB 


GET POINTER AGAIN, 


0159 


75162 


027112 


JMp 


KID37 


GO TEST NEXT USER, 


0160* 












0161 


75163 


071577 


KIDEQ DEF 


DEQUE 




0162* 
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0163 
6)164 
0165 

0166 

0167 

0166 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183* 

0j84 

0185 

0186 



0187 
0188 
0189 



01^0 
0191 
0192 



75164 
75165 
75166 

75167 
75i70 
75171 
75172 
75173 
75174 
75174 
75175 
75176 
75177 
75200 
75201 
75202 
75203 
752^4 
75205 
75206 

75207 
75210 

752U 

75212 
75213 
75214 
75215 
75216 
75217 
75220 

75221 
75222 
75223 
75224 
75225 
75226 
75227 
75230 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 



063207 
064331 
027174 
063221 
064337 
027174 
063230 
064325 

074042 
070050 
060305 
070051 

005100 

016257 
060042 
003004 
0643^5 
114522 
026272 

07521^ 
005101 
030060 
030040 
047117 
052040 
040514 
046117 
053505 
042040 
075222 
005116 
047440 
051525 
041510 
020 Hi 
042040 
075231 
005107 
05111? 
052520 
020114 
044502 
051101 
051131 
020111 
W47040 
052523 
042440 



KI031 LOA 

JMP 
KID32 LOA 

LOB 

JMP 
KIUAN LOA 

LD8 
KIpAZ EQU 

STB 

STA 

LOA 

STA 

BR3 

JSB 

LOA 

CMA, 

LOB 

JSB 

JMP 



KlUM t 



KX0M2 



KIOM1 
.*17 
KIOAZ 
KIDM2 

t-u 

KIOAZ 
KZDM3 
,-21 

KiOC 

MOVES 

T35B1 

MQVEO 

MOVEW 

KIDC 

INA 

T35B1 

TTY35, 1 

LENDR 



print "A000 not allowed* 



PRINT "NO SUCH 10" 



PRINT « GROUP LlBRARy IN USE" 



OLF 
OCT 
A8C 



5101 
8,000 



NOT ALL.QH&D 



DEF 
OCT 
ASC 



5116 
5,0 SUCH 



10 



KIDM3 DEF 
OCT 
ASC 



* + l 

5107 

10,RQOP 



LIBRARY I N USE 



0193* 
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0195 

0196 

0197 

0198 

0199* 

0200* 

0201* 

0202* 

0203* 

0204* 

0205* 

0206* 

0207* 

0208 

0209 

0210 
0211 
0212 

0213 
0214 
0215 
021 6 
0217 
0218 
0219 
0220 
0221 
0222 

0223 
0224 

0225* 

0226* 

0227* 

0228* 

0229* 

0230* 

0231* 

0232* 

0233* 

0234* 

0235* 

0236* 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 



75244 160540 

75245 064562 

75246 016231 

75247 116017 



K1D36 LOA FUS3,1 
LDB LIBD 
J3B ORUML 
JSB DEADp,I 



WRITE BACK FUSS 
IF ANY U3E*«S 
WERE DUMPED 
DRUM ERROR KITH n o HypE 



WE HAVE NOW GOTTEN RID OF THE USER, THE NEXT STEP IS 10 
RELEASE ANY SYSTEM SPACE CONSUMED BY THE USEr, 

THIS SECTION HAS THE JOB OF REMOVING ALL 

FILES BELONGING TO THE ID BEING KILLED FROM THE USER LIBRARY, AND 

UPDATING THE ADT APPROPRIATELY, 



75250 KILBR EGU * 

75250 063552 LDA KDIRL 

75251 070032 KID4 STA KIDI 

75252 K*DRE EUU * 

75252 104200 LD KIDI,I 

75253 100032 

75254 074033 STB KIDT 

75255 000040 CUE 

75256 044053 ADB Mlu 

75257 002002 S2A 

75260 006042 8EZ,SZB 

75261 002001 RSS 

75262 027270 JMP KID2 

75263 060032 KlDl l da KIDI 

75264 053551 CPA KDIR0 

75265 026267 JMP LEND 

75266 040343 ADA ,*7 

75267 027251 JMP KID4 



TEST INDIVIDUAL DIRECTORIES 
KIDI POINTS TO THE ONE TESTED, 

GET LENGTH AND FIRST JD, 

SAVE FIRST ID FOR LATER. 

B*FIRST ID* KEYID 
FORGET TRACK IF IT'S EMPTY 
OR IF FIR8TID»KEYID 



BUMP TO NEXT TRACK, 



PROCESS DIRECTORY TRACK IN ORDER TO REMOVE KEY ID ENTRIES, THE 
DIRECTORY IS READ INTO THE BEGINNING OF THE WORKSPACE AND IS 
SCANNED IN REVERSE ORDER, A TABLE OF PATCHES IS BUILT UP 
STARTING AT i.IBUS+8192, 

THE FOLLOWING POINTERS aRE USED* 

KIDP1 •> DIRECTORY ENTRY BEING TESTED 

KIDP2 «> FIrst ENTRY FOLLOWING LAsT KID ENTRY 

kidp3 ■> last entry in directory 
kidp4 .> last entry in patch table 



75270 
7527 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75301 
75302 



KID2 



0^0072 
003004 
040562 
040336 
070040 
070036 
061002 
070041 
002400 
070030 
060^32 



EQU 
STA 


* 

WORD 


CMA, 


,INA 


ADA 


LIBD 


ADA 


,»12 


STA 


KIQP3 


STA 


KIdPI 


LOA 


L8192 


STa 


KIDP4 


CLA 




STA 


LOCTC 


lda 


KIDI 



SET UP LENGTH FOR DRUM TRANSFER 



SET KIDP3 TO POiNT TO LAST 

ENTRY IN DIRECTORY, 
S£T POINTgR TO CURRENT ENTRY, 
INITIALIZE PATcH TABLE 

POINTER, . 

SET PATCH TABLE LENGTH 
GET DIRECTORY 
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0249 

13250 

0251 

0252 

0253 

0254* 

02 b5 

0256 

0257 

0258 

0259 

0260 

0261 

0262* 

0263* 

0264* 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272* 

0273 

0274 

0275 

0276 

0277* 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 
0287 
0288 

0289 

0290 

0291 

0292 

0293* 

0294 

0295 

02*6 

0297 

0298 

0299 

0300* 

0301* 



75303 040360 

75304 160000 

75305 064566 

75306 016231 

75307 116017 



ADA ,46 

LOB UBDI 
J8B DRUML 
J88 DEADP,! 



DISC ADD K E$S 
IN A, 

AQUReSS OF WORKSPACE, 
IN B, AND READ DRUM 
DRUM ERROR WITH NO HOPE 



75310 160036 K1D7 LDA KIDPi,! GET ID OF NEXT ENTRY 



75311 
75312 
75313 
75314 
75315 
75316 



001665 
040053 
002020 
027407 
002002 
027353 



EU, CLE, ERA 

ADA HID 

SSA 

JMP KI06 

SZA 

JMP KJD8 



COMPARE WITH KEY ID, 
TEST FOR < 

TEST FOR > 



FOUND AN ENTRY FOR KID, NOW REMOVE IT, 



75317 
75320 
75321 
75322 
75323 
75324 
75325 



064036 
044366 
060041 
051002 
074037 
050530 
027361 



/5326 160032 

75327 040366 

75330 170032 

75331 070072 



75332 
75333 
75334 
75335 
75336 
75337 
75340 
75341 

75342 
75343 
75344 
75345 
75346 
75347 
75350 
75351 
75352 

75353 
75354 

75355 
75356 

75357 

75360 



064036 
044361 
160001 
170041 
034041 
044356 
160001 
170041 
03404I 
044347 
104200 
100001 
104400 
100041 
034041 
034041 
034030 

064036 
054562 
027407 
044335 
074036 
027310 



KI08 



LDB 
ADB 
LDA 
CPA 
3 TB 
CPA 
JMp 



LDB 
CPB 
JMP 
ADB 
S T B 

JMP 



KIDP1 

t + 12 

KI0P4 

L8192 

KIDP2 

LULEN 

KIDE 



LDA KIDIrl 

ADA ,+12 

STA KIDI,I 

STA wORD 

LDB KIDP1 
ADB *7 
LDA 8,1 
STA KIDp4,l 

I3Z K I£>P4 
A B ,4-4 
LDA B,I 
STA KIDP4,I 
132 KIDP4 
ADB ,„3 
DLD B,I 



IF THIS IS THE FIRST 
SUCH ENTRY, SET KIDP2 AS 
STATED ABOVE, 
SET ONLY If PATCH TABLE EMPTY 



ADJUST THE DIRECTORY LENGTH, 



■> drum address 

set into patch table 
advance pointer 

■>■ LENGTH 

A • LENGTH 

SAVE IN PATCH TABLE 

9* DISK ADDRESS 
GET DISK ADDRESS 



DST KIDP4,! SAVE IN PATCH TABLE 



ISZ KIDP4 
I3Z KIDP4 
ISZ LOCTC 



KIDP1 

LIBD 

KID6 

,.12 

KIOPl 

KID7 



INCREMENT ENTRY COUNT 

TEST FOR FINISHED 
EXAMINING DIRECTORY ENTRIES, 



IF NOT, MOVE POINTER BACK TO 



NExi ENjRy, 



MAKE ROOM Bt PUSHIN& UP PARTIALLY EXAMINED DIRECTORY 
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8302* 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314* 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327* 

032a* 

0329* 

0330 

0331 

0332 

0333 
0334 
0335* 

0336 

0337 

0338 

0339 

0340* 

0341* 

0342* 

0343* 

0344* 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 



75361 
75361 
75362 
75363 
75364 

75365 
75366 
75367 
75370 
75371 
75372 

75373 
75374 
75375 
75376 
75377 
75400 
75401 
75402 
75403 
75404 
75405 
75406 



KIDE 



064036 
044366 
074051 
064037 

074050 
007000 

044040 
007000 
044336 
016257 

060032 
040360 

160000 

064562 
016231 
116017 

060030 
003003 

070030 
017476 
116013 
027252 



EUU * 

LDB KIDPt 

ADB ,*12 

STB MOVED 

LOB KI0P2 

STB MOVES 

CMB 

ADB KIDP3 

CMB 

ADB ,-12 

JSB MOVE* 



LDA 

ADA 

LDA 

LDB 

JSB 

JSB 

LDA 

CMA, 

STA 

JSB 

JSB 
JMP 



KIDI 

.♦6 

A, I 

LXBD 

DRUML 

DEADP,I 

LOCTC 

INA 

LOCTC 

KIDRR 

TBDAP#I 

KIdRE 



SET UP 

DE3T AND 
SOgRCE, 

COMPUTE * 

OF WORDS 

TO MOVE 

AND 

DO IT, 

■> DIKEC ENTRY 
■ > DRUM ADDRESS 



DRUM ERROR WITH NO HOPE 
GET ENTRY COUNT 

SET NEGATIVE FOR OTHER USERS 
RESTORE ORuM SPACE 
RESTORE DISK SPACE 
CONTINUE ON 



THE PATCH TABLE IS NOW BUILT, THE NEXT STEP IS TO FIXUP THE DIRECt 



75407 

75407 060030 

75410 003007 

75411 027474 

75412 070030 

75413 160032 

75414 002003 

75415 027453 

75416 070072 



KID6 EQU * 

LDA LOCTC CHECK LENGTH OP PATCH TABLE 
CMa,INa,SZa>R3S 

JMP KIDjS 

STA LOCTC SET NEGATIVE COUNT 



LOA KIDI, I 
SZA,RSS 

JMP KID10 
STA WORD 



IF LENGTH-0 WE DONT HAVE TO 

WRITE IT BACK OUT, 
SET UP FOR DISC DRIVER, 



WE FIRST HAVE TO CLOSE UP THE HOLE, THERE ARE 2 
CASES, DEPENDING UPON WHElHER THE HOLE IS AT THE 
BEGINNING OR IN THE MIDDLE, 



75417 
75420 
75421 
75422 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 



060037 
070050 
064033 
054052 
027435 
060036 
040366 
050050 
027442 
064040 
007004 
044037 



LDA 


KIDP2 


SjA 


MOVES 


LDB 


KIDj 


CPB 


ID 


JMp 


KID11 


LDA 


KIDpl 


ADA 


,♦12 


CPA 


MOVES 


JMp 


KID12 


LDB 


KIDP3 


CMB, 


,INB 


ADB 


KXDP2 



WE WILL MOVE FROM KI0P2 IN 
ANY CASE, 

GET FIRST ID IN B, 

IF » HOLE IS At BEGINNING 

Go SET N^W FIRST ID, 

SET DE3T, TO «E RIGHT AFtEr 

LAST ENTRY EXAMINED 
FORGET IT IF SAME AS SOURCE, 

compute n qf words to move, 
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6)357 
0358 
0359* 

0360 

0361 

036g 

0363 

0364 

0365* 

0366* 

0367* 

0366 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377* 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386* 

0387* 

0388* 

0389 

0390 

0391 

0392 

0393 

0394 

0396* 

0396 

M397 

0396 

0399 

0400 

0401 

0402* 

0403* 

0404 

0405 
0406 
0407 
0408 
0409 
0410 
0411* 



75433 044336 

75434 027440 



ADB 
JMP 



,-12 
KID13 



75435 
75436 
75437 

75440 
75441 



060032 
002004 
064345 
070051 
016257 



KiDll 



KID13 



IDA KIDI 
INA 

LDB f «5 
STA MgVEO 
JSB MOVE* 



GO MOVE IT. 

SET UP NEW FIRST ID, 



NOW WRITE DIRECTORY BACK TO DISC, 



75442 
75443 
75444 
75445 
75446 
75447 
75450 
75451 
75452 

75453 
75453 
75454 
75455 
75456 
75457 
75460 
75461 



064562 
060052 

050033 
064037 

060032 
040360 
160000 
016231 
116017 



060113 
070072 
060112 
064566 
016231 
116017 
017476 



KID12 LOB LIBD 

LDA ID 

CPA KIDT 

LDB KIDP2 

LDA KIDI 

ADA ,+6 

LDA 0,1 

jSB DRUML 

jSB DEADP,! 



KIDJ0 



EQU 

loa 

STA 
LDA 
LDB 
JSB 
JSB 
JSB 



* 

ADtEN 

WORD 

ADLOC 

LIBDI 

DRUML 

DEADP, I 

KIDRR 



WRITE ADT TO DISC 



75462 
75463 
75464 
75465 
75466 
75467 

75470 
75471 
75472 
75473 
75474 
75475 



7 54 76 
75477 

75500 

75501 

75502 

7550J 

75504 



064U3 
074072 
060112 
064562 
016231 
116017 

116013 
060033 
050052 
027263 
103100 
026267 



000000 
060U3 
070072 
060112 
064566 
016231 
116017 



LDB ADLKN 
STB WORD 
LDA ADLOC 
LDB LIBD 
JSB DRUML 
JSB DEADP, I 



KID18 



KIDRR 



JSB 
LDA 
CPA 

Jmp 

CLF 
JMP 



NOP 
LDA 
STA 
LDA 
LDB 
JSB 
JSB 



TBDAP,I 

KID T 

ID 

K">i 



LEND 



ADLEN 

WqRD 

ADLOC 

LIBDI 

ORUML 

DEADP, I 



DETERMINE CORE ADORESS, 



GET DISC ADDRESS, 



WRITE TO DRUM 

DRUM ERROR WITH NO HQPE 



READ IN ADT 



DRUM ERROR WITH NO HOPE 
RESTORE DRUM SPACE 



DRUM ERROR WITH NO HOPE 

RESTORE DISK SPACE 
IF FIRST 0I ^ C EN T RY 
MAS NOT ID, WERE DONE, 



R EAD IN ADt 



DRUM ERROR WITH NO HOPE 
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0412* 


WRITE 


AD7 TO 


DRUM 






0413* 












0414 


75505 


064U3 




LDB 


ADLEn 


0415 


75506 


074072 




STB 


WORD 


0416 


75507 


060112 




LDA 


ADLOC 


0417 


75510 


064562 




LDB 


LIBD 


0418 


75511 


016231 




JSB 


DRUML 


0419 


75512 


116017 




JSB 


DEADP,! 


0420 


75513 


060030 




LDA 


LOCTC 


0421 


75514 


070031 




8TA 


KIDP 


0422 


75515 


065002 




LDB 


L8192 


0423 


75516 




K10R8 


EQU 


* 


0424 


75516 


074036 




STB 


KIDP1 


0425 


75517 


160001 




LDA 


B,I 


0426 


75520 


034036 




ISZ 


KIDP1 


0427 


75521 


002003 




SZA< 


-RSS 


0428 


75522 


027635 




JMP 


KIDRV 


0429 


75523 


070044 




3TA 


KILD 


04^0 


75524 


160036 




LDA 


K1DP1/I 


0431 


75525 


002021 




SSA, 


r R8S 


0432 


75526 


027532 




JMP 


KIDRT 


0433 


75527 


007400 




CCB 




0434 


75530 


10 J 026 




ASR 


6 


0435 


75531 


003005 




CMAi 


•iNAfRSS 


0436 


75532 


001020 


KIORT 


ALS, 


■ALS 


0437 


75533 


070045 




STA 


KILDF 


0438 


75534 


116012 




JSb 


RSF8P,I 


0439 


75535 




KIORV 


EQU 


* 


0440 


75535 


160036 




LDA 


KIDPl,! 


0441 


75536 


002021 




SSA, 


,RSS 


0442 


75537 


027544 




JMP 


KIDrW 


0443 


75540 


007400 




CCB 




0444 


75541 


101030 




ASR 


8 


0445 


75542 


003004 




CMA, 


.INA 


0446 


75543 


170036 




STA 


KIDP1#I 


0447 


75544 




KIDRW 


EQU 


* 


0448 


75544 


064036 




LDB 


KXDPl 


0449 


75545 


044355 




ADB 


#*3 


0450 


75546 


034031 




ISZ 


KIDp 


0451 


75547 


027516 




JMP 


KlDRS 


0452 


75550 


127476 




JMP 


KlDRR,l 


0453* 












0454* 












0455 


75551 


030000 


KDIR0 


DEF 


DXREC 


0456 


75552 


031051 


KOIRL 


DEF 


DIREL 


0457 


00031 




KIdP 


EQU 


ltemp*i 


0458 


00032 




KJUI 


EQU 


LTeMP+2 


0459 


00033 




KIOT 


EQU 


LTEMP+3 


0460 


00036 




KIDP1 


EQU 


LTEMP*6 


0461 


fdf)US7 




KIDP2 


EQU 


LTEMP+7 


0462 


00040 




K10P3 


EQU 


LTEMP+0 


0463 


00041 




KIDP4 


EQU 


LTEMP*9 


0464 


00042 




KIDC 


EQU 


LTEMP+10 


0465 


00043 




KIDB 


EQU 


LTEMP+H 


0466 


75553 




SKID 


EQU 


* 



DRUM ERROR WITH NO HOPE 
GET COUNT OF ENTRIES 

GET TABLE BEGINNING POINTER 

SET A CONVENIENT POINTER 

GET THE DRUM ADDRESS 

ADVANCE POINTER TO LENGTH WORD 

SKIP IP DRUM SPACE 

NO DRUM SPACE* JUST CONVERT LENG 

SAVE ADDRE83 FOR RSFS 

GET LENGTH *QRD 

SKIP IF NEGATIVE (WORD COUNT) 

POSITIVE ( BLOCK8 ) 

CONVERT TO SECTORS 

CONVERT BLOCKS TO SECTORS 
SAVE LENGTH FOR RSFS 
RESTORE SPACE TO aDT 

GET LENGTH 

SKIP IF NEGATIVE ( WORD COgNy ) 

po3itive ( block count ) 

make into block count 

alter table for disk space retur 

get patch table pointer 
advance to n *xt entry 

CHECK FoR e n d 

NOT EnO, PROCESS NEXT 

RETURN 
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0468* 

0469* 

0470* 

0471* 

0472* 

0473* 

0474* 

0475* 

0476* 

0477* 

0478 

0479 

0480 

0481 

0482 

0483 

0484* 

0485 

0486 

0487 

0488 

0489 

0490* 

0491 

0492 

0493 

*>494 

0495 

0496 

0497* 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508* 

05{}9 

0510 

0511 

0512 

0513 

0514 

0515 
0516 
0517 

0518* 
0519* 
0520* 
0521* 
0522 



THE UNLOCK COMMAND IS USED TO RESTORE TO THE SYSTEM ANY pRUM 
TRACKS WHI C H HAVE PREVIOUSLY BEEN LOCKED, THE FQRMaT FOR THE 
COMMAND IS A3 FOLLOWS: 

UNLQCK»DRUM,TRACKF CTRACKLJ 

DRUM IS THE DRUM NUMbER, TRACKF AND TRACKL SPECIFY THE FIRST & 
CAST TRACKS TO 8E UNLOCKED, U TRACKL IS NOT SPECIFIED, IT IS 
ASSUMED TO 8E EUUAL TO TRACKF, 



75000 

75000 017160 

75001 177774 

75002 050426 

75003 002001 

75004 02$2?5 



75005 
75006 
75007 
75010 
75011 



074030 
044676 
160001 
002003 
027250 



75012 017150 

75013 177700 

75014 074031 

75015 05*>426 

75016 002001 

75017 027022 



7502*3 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
7 5031 

75 32 
75033 
75034 
75035 
75036 
75037 
75040 
75041 
75042 



0l'7le« 
177700 
050367 
002001 
026275 
074032 

007000 

044031 
006021 
027263 

0^0030 
100046 
040031 
070031 

\d7mi~-i 

060030 
100046 
040032 
070032 



ORG 
JSB 
OCT 
CPA 
R3S 
JMP 



LIBRA 
UNLNO 
• 4 
P+54B 

LPRER 



STB UNLO 
AOB 7ATBL 
LDA 1,1 

SZA,RsS 
JMP UNL1 

J 88 UNLNO 
OCT -100 
STB UNLF 
CPA ,*54B 
R3S 

JMP 

JSB 
OCT 
CpA 
RSS 
JMP 
STB 
CMB 

A OB 
SSB, 

JMP 

LOA 
LSL 
ADA 

STA 
STA 

L DA 

LSL 
AOA 
STA 



**3 

UNLNO 

• 100 
.♦15B 

LFRER 
UNLL 

UNLF 
RSS 

UNL4 

UNLD 
6 

unlp 

UNLF 

UNLT 

UNLO 

6 

UNLL 

UNLL 



(jET DRUM NO, IN B 

CHECK FOR COMfIA FOLLOWING, 



save orum number 
make sure 
dhum exists 



NO ORUM 

GfT FIRST TRACK 



ONLY TRACK? 
NO 



GET LAST TRACK, 



CHECK FOR LA3T TRACK >. FIrst, 



NOT OK, 

CONVERT DRUM/TRACK NO, INTO 
SINGLE TRACK NO, 



NOW SCAN TRAX TO DETERMINE HOW MANY TRACKS WILL 
ACTUALLY BE OPf-NED, 



75043 002400 



CLA 



INITIALLY COUNT IS 0, 
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0523 

0524 

0525 

0526 

0527 

0526 

0529 

0530 

0531 

0532 

0533* 

0534 

0535 

0536 

0537 

0536 

0539 

0540 

0541 

0542 

0543* 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552* 

0553* 

0554* 

0555 

0556 

0557 

055 B 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

05 66 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 



75044 
75045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 
75055 

75056 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 



070034 
060033 
017211? 
002002 
034034 
060033 
050032 
027056 
034033 
027045 



060542 
040113 
001100 
064034 
007004 
044000 
006020 
070034 



UNL5 



STA UNLCN 
LDA UNLT 
JSB UNLFT 
SZA 

ISZ UNLCN 
LDA UNLT 
CPA UNLL 
JMP UNL6 
ISZ UNLT 
JMP UNL5 



UNL6 EQU * 



75066 060U3 

75067 070072 

75070 060U2 

75071 064566 

75072 044034 

75073 044034 

75074 016231 
750/5 0263H 



LDA P8192 

ADA AOLEN 

ARS 

LDS UNLCN 

CMB, INB 

ADB 

S3B 

STA UNLCN 

LDA AOLEN 

STA WQRD 

LDA ADLOC 

LD8 LI8DI 

ADB UNLCN 
ADB UNLCN 

JSB DRUML 
JMP DDERR 



FIND TRACK, 

IF LOCKED, BUMP 

COUNTER, 
SET TRACK VALUE, 
TEST FOR DONE, 

BUMP TRACK NO, 



>* OF w ORDS AVAIL FOR ADT 
1* OF NEW WORDS ALLOWED, 
M OF NEW ENTRIES ALLOWED, 
COMPARE WITH # WE WANT TO ADD, 



R EAD IN ADT, 



LEAVE ROOM FOR 
NEW ADDITIONS 



SEARCH ADT FOR FIRST ENTRY BEYOND FIRST ONE TO BE ENTEREDi 



75076 
75077 
75100 
75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75113 
75114 
75115 
75116 
75117 
75120 
75121 
75122 
75123 
75124 



064562 
074051 
044034 
044034 
0/4050 
060031 
017215 
002003 
027140 
120001 
1/0001 
060051 
050050 
927140 
060031 
001/2/ 
003104 

140050 
002040 
02/125 
064350 
01625/ 
027114 



UN L 9 



UNLH 



LOB 

STB 

ADB 

ADB 

STB 

I.OA 

J3B 

SZA, 

JMP 

XOR 

St A 

LDA 

CPA 

JMP 

LDA 

ALF, 

CMA, 

ADA 

SEZ 

JMp 

LOB 

JSb 

Jmp 



LIBD 

MOyED 

UNLCN 

UNLCN 

MOyES 

UNL^ 
UNLFT 

RSS 

UNL10 

1.1 

1,1 

MOVED 

MOyES 

UNL10 
UNLF 

ALF 
CLE,INA 

MOVES,! 

* + 4 

,-2 

HOVEW 

UnUI 



00 WE WANT TO 
UNLOCK THIS TRACK? 

NO»»GO DO NEXT ONE, 
YES-, CLEAR TRAX 

BIT, 
CAN WE INSERT ADT ENTRY? 

NO-"»ttO DO NEXT ONE, 

SEARCH ADT FOR A PUCE TO PUT IT 



*OUnD one, 
MOVE 2 WORDS UP 
ANO TEST NEXT ENTRY, 
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0578* 

0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 

0587 

0588 

0589* 

0590 

0591 

0592 

0593 

0594 

0595* 

0596 

0597 

0598 

0599 

0600 

0601* 

0602 

0603 

0604 

0605 

0606 

0607 

0608* 

0g09* 

0610* 

0611* 

0612* 

0613 

0614 

0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
062;j 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631* 



INSERT 

ENTRY, 
TRACK LENGTH 



TRACK USLS 3 

SECTORS FOR BOOTSTRAP 



75125 060031 IDA UNLF 

75126 001727 ALF,ALF 
75^27 064442 LOB B200 

75130 002002 SZA 

75131 027134 JMP **3 

75132 060355 LDA ,+3 

75133 067313 LOB B175 

75134 104400 DST MOVED, I 

75135 100051 

75136 034051 I3Z MOVED 

75137 034051 ISZ MOVED 

75140 060031 UNH0 LOA UNLF 

75141 050032 CPA UNLL 

75142 027145 JMp *+3 

75143 034031 ISZ UNLF 

75144 027103 JMP UNL9 

75145 060034 LDA UNLCN 

75146 001000 ALS 

75147 003004 CMA,INA 

75150 040113 ADA ADLEn 

75151 070113 STA ADLEN 

75152 070072 STA WORD 

75153 060112 LDA ADLOC 

75154 064562 LOB LIBD 

75155 016231 JSB DRUML 

75156 116015 JSB SICKP,I 

75157 026267 JMP LEND 

UNLNO INPUTS A DECIMAL NUMBER AND CHECKS THAT IT IS SMALLER THAN 
•<JSB + 1>, IT RETURNS WITH THE NUMBER IN B AND THE FOLLOWING 
CHARACMER IN A, 



WAST THAT THE uAST TRACK? 

YES 

BUMP TO NEXT TRACK, 



COMPUTE NEW ADLEN, 



WRIT* ADT to drum 



75160 
75161 
75162 
75163 
75164 
75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 
75175 
75176 
75177 
75200 
75201 



000000 
017202 
026275 
074035 
147160 
006021 
027263 
017202 
027177 
060035 
001222 
040035 
001200 
044000 
027163 
064035 
037160 
127160 



UNLNO NOP 
JSB 
JMP 

UNLN3 STB 

SSB, 

JMP 
JSB 
JMP 
LDA 

RAL, 
ADA 
RAL 
ADB 
JMP 
UNLN2 LDB 
ISZ 
JMP 



UNLDG 

LFRER 

UNLN 

UNLNO, I 

RSS 

UNL4 

unlDG 

UNLN2 
UNLN 

RAL 
UNLN 



UNLN3 

UNLN 

UNLNO 

UNLNO,! 



GET A DIGIT, 
ILLEGAL If- NONE 
SAVE PARTIAL RESULT, 



get another, 

end of number 

multiply result so far by 10, 



ADD In new value, 

RETURN NO. 
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0632* 

0633 
0634 

0635 

0636 

0637 

063a 

0639 

0640 

0641 

0642 

0643 

0644* 

0645* 

0646* 

0647* 

064a* 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

065a 

0659* 

0660 

0661 



0662 



0663 
0664 

0665 
0666 



75202 000000 


UNLDG NOP 


GET DECIMAL DIGIT, 


75203 016025 


JSB T35QQ 




75204 127202 


Jmp unldg,i 


NOT A DIGIT, 


75205 064000 


u.pb 




75206 044316 


ADB M72B 




75207 006021 


S8B,RSS 




75210 127202 


JMP UNLDG,I 




75211 044364 


ADB ,4-10 




75212 0U6021 


SSB,RSS 




75213 037202 


ISZ UNLDG 




75214 127202 


JMP UNLDG, I 





UNLFT FINDS THE BIT IN THE TRAX TABLE SPECIFIED BY A, IT RETURNS 
WITH B POINTING AT THE APPROPRIATE TRAX WORD & AtTHAT WORD MASKED 
BY THE APPROPRIATE BIT, 



75215 

75216 
75217 
75220 
75221 
75222 
75223 
75224 
75225 
75226 

75 22 7 
75230 

75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 
75244 
75245 
75246 
76247 
75250 
75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 



000000 
070001 
001700 
101044 
010371 
043227 
160000 
044512 
110001 
127216 

075230 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
064331 
017277 
005116 
047516 
042530 
044523 
052105 
047124 
020104 
051125 



UNLFT 



UNLBT 



UNLj 



NOP 




STA 


1 


ALF 




LSR 


4 


AND 


,*17B 


ADA 


UNLBT 


LDA 


0,1 


ADB 


DTRAX 


AND 


1,1 


JMP 


UNLFT,! 


DEF 


♦ ♦1 


OCT 


l#2,4,l 



GET TRACK NO IN B, 
POSITION WORD NO IN 

LOw 4 BITS OF B, BIT NO 

IN LoW 4 F A, 

compute address of b it mask & 

GET THE mask, 
B»>TRAX WORD, 
MASK & 

RETURN. 



1, 2, 4, 10, 20, 40, I00r 200, 400, 1000, 2000, 4000 



OCT 10000,20000,40000/100000 



LDB 


t"l7 


JSB 


UNLER 


OCT 


5116 


ASC 


8,0NEXISTENT 



DRUM 
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75262 


046440 








0667 


75?63 


064327 


UNL4 


LOB 


• •19 


0666 


75264 


017277 




J3B 


UNLER 


0669 


75265 


005111 




OCT 


5111 


0670 


75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 
75276 


046114 
042507 
040514 
020120 
040522 
040515 
042524 
042522 
051440 




ASC 


9,llecac parameters 


0671 


75277 


000000 


UNLER 


NOP 




0672 


75300 


074033 




STB 


UNLT 


0673 


75301 


005100 




BR8 




0674 


75302 


063277 




loa 


UNLER 


0675 


75303 


070050 




STA 


MOVES 


0676 


75304 


060305 




LOA 


T35B1 


0677 


75305 


070051 




STA 


MOVEO 


0678 


75306 


016257 




JSB 


MOVEW 


0679 


75307 


060033 




LOA 


UNLT 


fc)680 


75310 


003004 




CMA, 


,INA 


068t 


75311 


064305 




LOB 


T3581 


0682 


75312 


026271 




JMP 


L£ND*2 


0683* 












0684 


75313 


000175 


8i75 


OCT 


175 


0685* 












0686 


75314 




SUNU 


EQU 


* 


0687 


00030 






ORG 


LTEMP 


0688 


00030 


000000 


UN1.0 


BSS 


1 


0689 


00031 


000000 


UNLF 


BSS 


1 


069 


00032 


000000 


UNLL 


bSS 


1 


0691 


00033 


000000 


UNI.T 


BSS 


1 


06 9 2 


00034 


000000 


UNUN 


BSS 


1 


0693 


00035 


000000 


UNLN 


BSS 


1 
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0002* 
0003* 
0004* 
0005* 
0006* 
0007* 
0008* 
0009* 
0010* 
0011* 

0012* 
0013* 
0014* 
0015* 
0016* 
0017* 
0018* 
0019* 
0020* 
0021* 
0022* 
0023* 
0024* 
0025* 
0026* 
0027* 
0020* 
0029* 
0030* 
0031* 
0032* 
0033* 

0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047* 

0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 



THE LOCK COMMAND I3 u$ED TO TELL THE SYSTEM tO STOP USING CERT*!" 
ORUM TRACK8. THI3 CAN BE DqnE EITHER BECAUSE THE TRACKS HAVE BEE* 
FOUND FAULTY OR BECAUSE ThEY HAVE INFORMATION ON ThEM WhiC H IS 
UNRELATED TO TSB, 

THE ROUTINE HILL NOT LOCK TRACKS WHICH ARE BEING USED FOR SYSTEM 
PURPOSES, THESE TRACKS CAN BE LOCKED BY THE LOADER AT SYSTEM INI, 
TIATION, 

THE FORMAT FOR THE LOCK COMMAND ISl 

LOCK-DRUM, TRACKF l,TRACKLJ 

ALL TRACKS ON THE SPECIFIED DRUM FROM TRaCKF TO TRACKL ARE LOCKED. 
IF TRACKL IS NOT SPECIFIED, ONLY ONE TRACK IS LOCKED, 

THE OPERATION OF THE LOCK ROUTINE IS AS FOLLOWS; 

1) INTERPRET & VALIDATE PARAMETERS 

2) CHECK THAT THE SYSTEM IS NOT USING ANY OF THE 
SPECIFIED TRACKS, 

3) 8CA N »THE DIRECTORY A N BUILD A TABLE CqnTAI n InG 

the disc address of each sanctified program or 
file which will be removed by locking, 

4) using this table* scan the fuss table to insure 
that none of these sanctified files are in use, 

5) update adt ano trax. 

6) update directory, zeroing the drum address for 
sanctified programs and removing the entry for 
sanctified files, 

UPDATE DISC ADT AnD IUT WITH SPACE RETURNED 
FROM SaNcTIFIEO FILES, 



7) 

75000 
75000 

75001 
75002 

75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 

75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 



017561 
177774 

050426 
002001 
026275 
060001 
005323 
074042 
040676 
160000 
002003 
027667 

017561 
177700 
005727 
044042 
074046 

0504^6 
002001 
027030 
017561 



ORG LIBRA 
JSB locno 
OCT -4 
CPA .♦54B 
R3S 

JMP LFRER 
LOA 1 
RBR,RBR 
STB LOCD 
ADA ?ATBL 
LOA 0,1 
SZA,rss 
JMp LoCRl 



GET DRUM NO, 

CHECK FOR COMMA FOLLOWING, 



JSB 

OCT 

BLF, 

AOB 

8TB 

CPA 

RS8 

JMP 

JSB 



LOCNO 

• 100 

BLF 

LOCO 

LOCF 

.♦54B 

**5 

LOCNO 



DOES DRUM 
EXIST? 

NO SUCH DRUM 

GET FIRST TRACK 



TE8T FOR SECOND PARAMETER, 



GET LAST TRACK 
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0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064* 

0065 

0066 

0067 

0068 

0069* 

0070** 

0071** 

0072** 

0073* 

0074 

0075 

0076 

d&77 

0076 

0079 

0000 

0081 

0082 

0083 

0064 

0085 

0086 

0087 

0086 

0089 

0090* 

0091 

0092 

0093 

0094 

0095 

0096 

009; 

0098 

0099 

0100 

0101 

0102* 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 



75025 
75026 
75027 
75030 
75031 
75032 
75033 



177700 
005727 
044042 
074047 
050367 
002001 
026275 



75034 007000 

75035 04404$ 
76036 006021 
75037 027700 

INSURE THA 
SWAPPING 

BOOTSTRAP 



OCT -100 




BLF,BLF 




aob lqcd 




8T8 LOCL 




CPA .*15B 


CHECK FOR 


RSS 




JMP LFRER 




CMB 


HAKE SURE 


AOB LOCF 




S3B,RS3 




JMP L0cR2 


IT ISN'T, 



T NONE OF THE SPECIF 
DIRECTORY, 0I8C ADT, 
LOADER, 



IEO TRACKS ARE BEING USED FOR 
IOT, ADT, SYSTEM LIBRARY OR 



75040 
75041 
75042 
75043 
75044 
75045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 
75055 
75056 
75057 

75060 
75061 
75062 
75063 
75064 
75066 
75066 
75067 
75070 
75071 
75072 

75073 
75074 
76075 
75076 
75077 
75100 
75101 
75102 
75103 



060177 
070031 
063732 
073045 
017616 
061130 
163045 
040444 
070030 
017616 
000090 
063045 
040375 
073048 
034031 
027044 

063742 
070031 
063730 
073065 
017616 
030006 
063065 
040361 
073065 
034031 
027064 

060342 
070031 
063733 
073100 
017616 
000115 
037100 
034031 
027077 



IDA 
STA 
LDA 
8TA 
J8B 
LOCSW DlF 
LDA 
ADA 
8TA 
JjB 
OIF 
LOA 
A6 A 
8TA 

I»Z 

JMP 



NPORT 

LOCNT 

L0C8T 

LOCSW 

LOCTS 

TTY00*?O: 

IQCSW,I 

B400 

LOCTC 

LOCTS 

LOCTC 

LOCSW 

,*TTY01«TTYM O NEXT DRUM A0DRE88 

LOC3W 

LOCNT 

LOCSW. I 



SNAP 

TRACKS 
m> DRUM ADORES8 

OF TTY00 
CHECK SNAP TRACK 

use 

CHECK 

ADJACENT 
TRACK 
ALSO 



LOA MM80 
8TA LOCNT 
LDA LOCDL 
8TA LOCDT 
J3B LOCTS 
LOCDT DEF DIREC+6 
LOA LOCDT 
ADA ,*7 
STA I.OCDT 
I8Z L CNT 
JMP LOCDT*! 

LDA a .6 

8TA LOCNT 
LOA LOCDA 
STA LOCAD 
J8B LOCT8 
LOCAD DEF DADLC 
IS2 LOCAD 
I8Z LOCNT 
JMP LOCAD.l 



89 DIRECTORY 

TRACKS 
■> FIR8T 

DIREC ENTRY 
CHECK DIRECTORY TRACK 



i» NEXT OlREC ENTRY 



8 DISC 

ADTtS 
•» DISC ADT 

DRUM ADDRESS 
CHECK DISC ADT 

i> NEXT DISC ADT ENTRY 
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0112* 

6)113 
0114 
0115 
0116 
0117 
0118 

0119* 

0120 

0121 
0122* 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132* 

0133* 

0134** 

0135** 

0136* 

0137* 

0I38* 

0139* 

0140* 

0141* 

0142* 

0143* 

0144* 

k)145* 

0146* 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 



75104 
75105 
7510$ 
75107 
75110 
75111 

75112 
75U3 

75114 
75115 
7511b 
75117 
75120 
75121 
75122 
75123 
75124 



017616 
000101 

0176*6 

000104 

017616 

000107 

017616 
000112 

063734 
070031 
063735 
073121 
017616 
072034 
037121 
034031 
027120 



JSB LOCTS 

DEF IDEC+1 

JSB LOCTS 

DEF IDEC+4 

JSB LOCTS 

DEF iDEC*7 

JSB LOCTS 

OEF ADLOC 

LDA LOCCM 

STA UOCNT 

LOA L0CM6 

3TA LOCSL 

JSB LOCTS 

LOCSL DEF CQM6 

I3Z LOCSL 

I3Z LOCNT 

JMP L0C3L-1 



FIRST IOT TRACK 
SECOND IDT TRACK 
THjRD iDT TRACK 

ADT 

NUMBER OF SYSTEM 
LIBRARY PROGRAMS 

«> LIBRARY PROGRAM 
DRUM ADDRESS 

t> NEXT LIBRARY PROGRAM 



SEARCH THE 
ENTRIES ON 



DIRECTORY 
SPECIFIED 



* 
FOR SANCTIFIED ** 
TRACKS ** 



READ EACH OIRECTORY TRACK AND CHECK FOR DRUM ADDRESSES WHICH 
LIE IN THE RANGE OF THE TRACKS TO BE LOCKED, FOR EACH SUCH 
ENTRY FOUND, ADD A 4-WORD ENTRY TO A TABLE CONSISTING OF: 

1) A POIN T ER T rHE DIREC EN T Ry FOR T HIS OlREC T ORy j R ACK 

2) A pqI n TEr To THIS EnTRY'S POSITION *N THE DIRECTORY 

3) THE TWO-WOR D qISC AqdRESS OF THE FILE OR PROGRAM 

if the table overflows (more than 512 entries), tell the 
operator to try locking a smaller block of tracks. 



75125 
75126 
7 512 7 
75130 
75131 
75132 
75132 

75133 
75134 

75135 

75136 

75136 

75137 

75140 

75141 

75142 

75142 

75143 

75i44 

75145 



002400 
070030 
065002 
074036 
067736 

074032 

160001 
002002 
027142 

044361 
057737 
027241 
027132 

070072 

007400 
100400 
000366 



LOQ10 



loch 



L0C12 



CLA 




INITIALIZE COUNT 


8Ta 


LOCTC 


Table entries 


LDB 


L8192 


f> BEGINNING OF 


STB 


LQCTP 


TABLE BUFFER 


LDB 


LoDlR 


DIREC 


EGU 


* 




ST B 


LOCDI 


POINTER 


LDA 


B,I 


ANY ENTRIES 


8ZA 




ON THIS TRACK? 


JMP 


L0C12 


YES 


EgU 


* 




ADB 


.♦7 


NO, BUMP POINTER 


CpB 


LOCDU 


ALL FINISHED? 


JMP 


LOC20 


yES 


JMP 


LOC10 


NO 


EQU 


* 




STA 


WORD 


FOR PRUM TRANSFER 


CCB 




COMPUTE # 


DIV 


.♦12 


OF ENTRIES 



OF 
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0166 


75146 


070031 


8TA LOCNT 


ON TRACK 




0167 


75147 


064032 


LDB LOCOI 






0168 


75150 


044360 


ADB ,+6 






0169 


75151 


160001 


IDA Bfl 


DRUM ADDRESS 




0170 


75152 


064566 


LDB LIBOI 


READ XN 




0171 


75153 


016231 


jSB DRUML 


directory track 




0172 


75154 


026311 


JMP DDERR 






0173* 












0174 


75155 


064562 


LDB LIBD 


INITIALIZE 




0175 


75156 


044361 


ADB ,*7 


DIRECTORY 




0176 


75157 




L0C13 EQU * 






0177 


75157 


074033 


STB LOCDP 


.POINTER 




0178 


75160 


164033 


LDB LOCDP,! 


GET DRUM ADDRESS 




0179 


75161 


006003 


8ZB,RSS 


CHECK FOR zero 




0160 


75162 


027220 


JMP L0C15 






0181 


75163 


054351 


CPB .*1 


SKIP PSEUDO 




0182 


75164 


027220 


JMP L0C15 


ENTRIES 




0183 


75165 


060046 


LDA LOCF 


CHECK 




0184 


75166 


003104 


CMArCLEf INA 


AGAINST 




0185 


75167 


040001 


ADA B 


LOWER 




0186 


75170 


002041 


SEZ,R8S 


BOUND 




0187 


75171 


027220 


JMP LOC15 


NOT IN RANGE 




0188 


75172 


007104 


CM8,CLEfINB 


CHECK 




0189 


75173 


044047 


ADB LOCL 


AGAINST 




0190 


75174 


044442 


ADB B200 


UPPER 




0191 


75175 


002041 


SEZrRSS 


BOUND 




0192 


75176 


027220 


JMP LOC15 


NOT IN RANGE 




0193* 












0194 


75177 


064032 


LoB LOCol 


SAVE POINTER TO 




0195 


75200 


174036 


STB LOCT*M 


direc Entry 




0196 


75201 


034036 


ISZ LOCTP 


IN TABLE 




0197 


75202 


064033 


LDB LOCDP 


SAVE POINTER TO 




0198 


75203 


174036 


STB LOCTP, I 


DIRECTORY ALSO 




0199 


75204 


034036 


ISZ LOCTP 






0200 


75205 


006004 


INB 


GET U*SC 




0201 


75206 
75207 


104200 
100001 


DLD B,I 


ADDRESS 




0202 


75210 
75211 


104400 
100036 


DST LOCTP, J 


AND SAVE 




0203 


75212 


064036 


LDB LOCTP 


ADVANCE TABLE 




0204 


75213 


044354 


ADB ,*2 


POINTER 




0205 


75214 


054530 


CPB LULEN 


TABLE OVERFLOW/ 




0206 


75215 


027226 


JMP L0C16 


YES 




0207 


75216 


074036 


STB LOCTP 


NO 




0208 


75217 


034030 


ISZ LOCTC 


BUMP COUNT OP TABLE ENTRIES 


0209 


75220 




L0C15 fc Q u * 






0210 


75220 


064033 


LDB LOCDP 


BUMP DIRECTORY 




0211 


75221 


044366 


AOB ,412 


POlNjER 




0212 


75222 


034031 


ISZ LOCNT 


FINISHED 1HIS DIRECTORY 


TRACK? 


0213 


75223 


027157 


JMP LOC13 


NO 




0214 


75224 


064032 


LDB LOCDI 


YES, CHECK 




0215 


75225 


027136 


JMP LOCil 


NEXT TRACK 




0216* 












0217 


75226 




L0C16 EQU * 






0218 


75226 


064330 


LDB ,.18 


TABLE OVERFLOW 
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0219 
lf) 22 
0221 



75227 

75230 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 



017714 

0051U 
047503 
045440 
043105 
053505 
051040 
052122 
040503 
045523 



JSB LOCER 

OCT S1U 

ASC 8,0CK FEWER TKACKS 



0222* 

0223*' 

0224*i 

0225* 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

02 4 3 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 

0253 
0254 

0255 
k)256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 



NOW COMPARE TABLE 
DETERMINE IF THE 



JUST BUILT WITH FUS8 TABLE TO 
TRACKS TO BE LOCKED CONTAIN ACTIVE FILES 



75241 
75241 
75242 
75243 
75244 
75245 
75246 
75247 
75250 
75251 
75252 

75253 
75254 

75255 
75256 
75257 
75257 

75260 

75261 
75262 
75263 
75264 
75265 
75266 
75267 
75270 
75271 
75271 

752?2 
75273 

75274 

75275 

75276 

75277 

75300 
75301 
75302 
75303 
75304 
75305 
75306 



060030 
003007 
027340 
070030 
060732 
070072 
001100 
070031 
160540 
064566 
016231 
0263U 
064562 
074036 

104200 
100036 
002003 
006002 
002001 
027313 
065002 
044354 
060030 
070032 

160001 
005004 
150036 

02730 J, 
031036 
150036 
002001 
027310 
034036 
160001 
150036 
027320 
003400 
040036 



LUC20 



LUC21 



L0C22 



EQU 

LDA 

CMA, 

JMP 

STA 

LDA 

STA 

ARS 

STA 

LDA 

LDB 

JSB 

JMP 

LOB 

STB 

EQU 

OLD 

SZA, 
SZB 

RSS 
JMP 
LDB 
ADB 
LOA 
STA 
EQU 
LD A 
INB 
CPA 
JMP 
10R 
CPA 
RSS 
JMP 
I3Z 
LDA 
CPA 
JMP 
CCA 
ADA 



* 

LOCTC SKIP CHECKING 

INA,SZA,RSS FUSS IF NO 



LOC30 
LOCTC 
M2000 
WQRO 

LOCNT 

FUSS, I 

LIBDI 

DRUML 

DDERR 

LIBD 

LOCTP 



RSS 



LOC23-1 

L8192 

, + 2 

LUCTC 

LOCDI 

* 

B,I 

LOCTP, I 

BIT15 
LOCTP, I 

L0C25 

LOCTP 

8,1 

LOCTP,! 

L0C24 

LOCTP 



Table entries 
save negative 



NUMBER OF FUSS 
TABLE ENTRIES 

READ 
FUSS 
TABLE 

INITIALIZE 
FUSS POINTER 



LOCTP, I GET PUSS ENTRY 



CHECK 

FOR 
ZERO 
IT IS, SKIP IT 
NONZERO, S E T 

TABLE POINTER 1 N (B) 
NUMBER OF 

TABLE ENTRIES 

COMPARE 

FIRST WORD 
OF ENTRIES 



UNEQUAL 
EQUAL, 

COMPARE 

SECOND EOKO 
EQUAL, FILE IN USE 
UNEQUAL, MOVE 

POINTER BACK 
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0266 


75307 


070036 




STA 


LOCTP 


TO FIRST WQRO 


0267 


75310 




L0C25 


EQU 


* 




0266 


75310 


044355 




Aoe 


.♦3 


BUMP TO NEXT TABLE ENTRY 


0269 


753U 


034032 




I3Z 


LOCDI 


ALL TABLE ENTRIES CHECKED? 


0270 


75312 


027271 




JMP 


L0C22 


NO 


0271 


75313 


034036 




13Z 


LOCTP 


YES 


0272 


75314 




L0C23 


Equ 


* 




0273 


75314 


034036 




IS2 


LOCTP 


BUMP TO NEXT FLSS ENTRY 


0274 


75315 


034031 




ISZ 


LOCNT 


ALL fUSS ENTRIES CHECKED? 


0275 


75316 


027257 




JMP 


LOC21 


NO 


0276 


75317 


027340 




JMP 


LOC30 


YES 


0277 


75320 




L0C24 


EQU 


* 




0278 


75320 


044347 




AOB 


t«3 


GET POINTER 


0279 


75321 


074036 




STB 


LOCTP 


TO DiREC 


0280 


75322 


16400; 




LOB 


B,I 


IN (BJ 


0281 


75323 


160001 




LOA 


8,1 


TRACK 


0282 


75324 


070072 




STA 


WORD 


LENGTH 


0283 


75325 


044360 




AOB 


.+6 




0284 


75326 


160001 




LOA 


B,I 


READ 


0265 


75327 


064566 




LOB 


LIBOI 


DIRECTORY 


0286 


75330 


016231 




JSB 


ORUML 


TRACK 


0287 


75331 


026311 




JMP 


DDeRR 




0288 


75332 


060036 




LOA 


LOCTP 


GET POINTER 


0289 


75333 


002004 




INA 




TO ORUM 


0290 


75334 


160000 




LOA 


A, I 


ADDRESS FOR 


0291 


75335 


073337 




STA 


*+2 


SUBROUTINE 


0292 


75336 


017616 




JSB 


LQCT3 


OUTPUT "CAN'T 


0293 


75337 


000000 




BSS 


1 


LOCK" MESSAGE 


0294* 














0295* 


IT IS 


NOW PERMISSIBLE TO DO THE 


LOCKING, FIRST P'JRGE AOT, 


0296* 














0297 


7534b 




LUC30 


EUU 


* 




0298 


75340 


060113 




LOA 


adlen 




0299 


75341 


070072 




STA 


WORD 




0300 


75342 


060112 




LOA 


ADLOC 




0301 


75343 


064566 




LOB 


LIBOI 




0302 


75344 


016231 




JSB 


ORUML 




0303 


75345 


116015 




JSB 


SICKP,I 




030 4 


75346 


064562 




LOB 


LIBO 


FIND FIRST ENTRY >» LOCP, 


0305 


75347 


060046 


L0C3 


LOA 


LOCF 




0306 


75350 


003104 




CMA, 


rCLE, INA 




0307 


75351 


140001 




AOA 


1,1 




0308 


75352 


002040 




SEZ 






0309 


75353 


027356 




JMP 


*+3 


FOuND ONE, 


0310 


75354 


044354 




AOB 


,♦2 




0311 


75355 


027347 




JMP 
STB 


L0C3 




0312 


75356 


074051 




moveo 


SAVE POINTER TO IT, 


0313 


75357 


060047 


L0C4 


LOA 


LOCL 


FIND FIRST ENTRY >«L0CL+12 


0314 


75360 


040442 




AOA 


B200 




0315 


75361 


003104 




CMAi 


-CLE, INA 




0316 


75362 


140001 




AOA 


1»I 




0317 


75363 


002040 




SEZ 






0318 


75364 


027367 




JMP 


♦ ♦3 




0319 


75365 


044354 




AOB 


,+2 




0320 


75366 


027357 




JMP 


L0C4 
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0321 

0322* 

0323 

0324 

0325 

0326* 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336* 

0337* 

0338* 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359* 

0360* 

0361* 

0362* 

0363* 
0364* 

0365* 

0366* 

0367* 

0368* 

0369* 

0370* 

0371* 

03 7 2 

0373 

0374 

0375 



75367 074050 

75370 044674 

75371 044113 

75372 016257 



75373 
75374 
75375 
75376 
75377 
75400 
75401 
75402 
75403 



060051 
003004 
040562 
070113 
070072 
060U2 
064562 
016231 
116015 



NOW MODIF* TRAX TABLE, 



75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 
75416 
75417 
75420 
75421 
75422 
75423 
75424 
75425 
75426 
75427 



060046 
070044 
006400 
100104 
001700 
044512 
074031 
043731 
073416 
002404 
100040 
002003 
002004 
130031 
170031 
060044 
050047 
027430 
040444 
027405 



L0C5 



STB MOVES 




AOB MLlBD 


PERFORM 


A08 ADLEN 


MOVE 


JSB MOVE* 


OPERATION 


LUA MOVED 


COMPUTE ADLEN, 


CMA,INA 




ADA LI8D 




STA ADLEN 




8TA WORD 




LDA ADLOC 


WRITE ADT TO DRUM 


LOB LIBD 




J88 DRUML 


WRITE TO DRUM 


JSB SICKP,J 




LDA LOCF 


GET FIRST TRACK NO IN EOCT 


STA LOOT 




CL6 


POSITION WORD NO IN B, 


RRL 4 


BIT NO IN A, 


ALF 




ADB DjRAx 


CEy POINjER TO WORD 


STB LOCNT 


SAVE IT, 


ADA LOCLL 


COMPUTE SHIFT INSTRUCTION, 


STA **2 




cla,ina 




L3L 16 


POSITION BIT. 


SZA, rss 


IF LOW BIT, 


INA 


SET IT, 


IOR LOCNT, I 


SET BIT IN 


STA LOCNT, I 


WORD TO SAY LOCKED, 


LDA LOCt 


IS I T LAST T*ACK? 


CPA LOCL 




JMP **3 


YES. 


ADA B400 


NO 


JMP L0C5 




** 





* UPDATE DIRECTORY 



USING THE TABLE BUILT PREVIOUSLY, UPDATE THE DIRECTORY, THE DRUM 
ADDRESS FOR PROGRAMS IS SET TO CI,E, THE PROGRAM IS DESECRATED) 
SINCE A GOOD COPY OF IT EXISTS ON THE DISC, FOR FILES, THE 
DIRECTORY ENTRy IS REMOyED, THIS REQUIRES THAT SPACE BE RETyKNED 
T THE DISC ADT AND THE REC RD F SpACE USED IN THE IDT BE 
UPDATED, jN ORDER To ACCOMPLISH THxS THE F^ST TWO WoRDS OF THE 

TABLfc ar e Replac ed by the id ani d length, fop programs the Length 
is set to zero since no space is to be returned. 



7 5430 060030 

75431 002003 

75432 026267 

75433 070031 



LDA LOCK 
SZA, RSS 

JMP LEND 
SI A LOCNT 



SKIP UPDATE 
IF NO 
ENTRIES 
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KJ376 


75434 


065002 


LOB 18192 


POINTER TO 


0377 


75435 


074036 


ST8 LOCTP 


FIRST ONE 


0378 


75436 




LQC40 EQU * 




0379 


75436 


164036 


LDB IQCjP,! 


n> DIREC ENtRy 


0380 


75437 


074032 


STB LQCDI 


SAVE DIREC POINTER 


0381 


75440 


160001 


LDA B,I 


WOrD 


0382 


75441 


070072 


8TA WOrD 


COUNT 


0383 


75442 


003004 


Cma,Ina 


compute end 


0364 


75443 


040562 


ADA I.IBO 


OF DIRECTORY 


0385 


75444 


070037 


STA IOCND 


Buffer 


0386 


75445 


044360 


ADB ,*6 


READ 


0387 


75446 


160001 


IDA B,I 


DIRECTORY 


0386 


75447 


064566 


LOB LIBDI 


TRACK 


0389 


75450 


016231 


JSB DRUML 




0390 


75451 


116017 


J3B DEAOPfl 




0391 


75452 


064562 


LOB LlBO 


INITIALIZE 


0392 


75453 


074050 


STB MOVES 


MOVE 


0393 


75454 


074051 


8TB MOVED 


POINTERS 


0394 


75455 




L0C41 EQU * 




0395 


75455 


034036 


ISZ LOCTP 




0396 


75456 


164036 


LOB LOCTP, I 


■> DIRECTORY ENTRY 


0397 


75457 


044345 


ADB ,»6 




0398 


75460 


160001 


LOA 8,1 




0399 


75461 


002020 


SSA 


PROGRAM? 


0400 


75462 


027477 


JMP L0C42 


NO 


0401 


75463 


044357 


AOB .+5 


YESf ZERO 


0402 


75464 


002400 


CLA 


DRUM ADDRESS 


0403 


75465 


170001 


STA 6,1 


AND LENGTH 


0404 


75466 


170036 


ST A LOCTP, I 


in table 


0405 


75467 


044343 


ADB ,*7 


SAVE 


0406 


75470 


160001 


LOA B,I 




0407 


75471 


007400 


CCB 


ID IN 


0408 


75472 


044036 


AOB L CTP 




0409 


75473 


170001 


STA B,j 


TABLE 


0410 


75474 


044356 


AOB ,+4 




0411 


75475 


074036 


STB LOCTP 




0412 


75476 


027524 


JMP L0C44 




0413 


75477 




L0C42 EQU * 




0414 


75477 


044363 


AOB ,*9 


SAVE 


0415 


75500 


160001 


LOA B,I 




0416 


75501 


170036 


STA LOCTP, I 


LENGTH 


0417 


75502 


044337 


ADB ,-n 


update pointer 


0416 


75503 


074033 


STB LOCDP 


FOR MOVE 


0419 


75504 


160001 


LOA 6,1 


SAVE 


0420 


75505 


007400 


CCB 




0421 


75506 


044036 


AOB LqCTP 


10 


0422 


75507 


170001 


STA B,j 




0423 


75510 


044356 


AOB .+4 


UPDATE TABLE 


0424 


75511 


074036 


STB LOCTP 


POINTER 


0425* 










0426* 


MOVE PORTION 


OF UIHECTORY 




0427* 










0428 


75512 


064033 


LOB LOCDP 




0429 


75513 


007004 


CMB,INB 




0430 


75514 


044050 


AOB MOVES 
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J9431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
U445 
0446 
0447 
0446 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0456 
0459 
0460 
10461 
0462 

0463 

0464 

0465 

0466* 

0467* 

0466* 

0469 

0470 

0471 

0472* 

«473* 
0474* 
0475* 
0476* 

0477 
0476 
0479 
0480 
0481 
0482 
0483 
0484 
048b 



75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75532 
75533 
75534 
75535 
75536 
75537 
75540 
75541 
75542 
75543 
75544 
75545 
75546 
75547 
75550 
75551 
75552 
75553 
75554 
75555 



016257 
064033 
044366 
074050 
160032 
040366 
170032 

034031 
002001 
027532 
164036 
054032 
027455 

064037 
007004 
044050 
016257 
064032 
160001 
070072 
006004 
074051 
044357 
160001 
064562 
074050 
016231 
116017 
064346 
016257 
060031 
002002 
027436 



L0C44 



L0C43 



* UPDATE DISC ADT AND IDT 



75556 117740 

75557 117741 
75560 026267 



J3B MOVEW 






LDB LOCDP 






ADB ,*12 






STB MOVES 






IDA LOCDI, I 


UPOAfE 




ADA ,+12 


DIRECTORY 




Sta LOCDI,! 


LENGTH 




EQU * 






ISZ UOCNT 


FINISHED TABLE? 




RSS 


NO 




JMP L0Q43 


YES 




LDB LUCrP,i 


GET NEXT DiREC ENTRY FROM 


TABLE 


CPB LOCDI 


SAME DIRECTORY TRACK? 




JMP LQC41 


yES 




EQU * 






LDB LOCND 


NO, MOVE 




CmB,InB 


End 




AOB MOVES 


OF 




JSB MOVEW 


DIRECTORY 




LDB LOCDI 


WRITE 




LDA B,I 






STA WORD 






INB 






STB MOVED 






ADB ,+5 


OUT 




LDA B,I 






LDB LIBD 






STB MOVES 






JSB DRUML 


DIRECTORY 




JSB DEADP,I 






LDB ,,4 


RE3M 




JSB MOVEW 


DIREC 




LDA LOCNT 


FINISHED 




SZA 


TABLE? 




JMP LOC40 


NO 




D IDT 






JSB LOGUD,j 


update disc adt 




JSB LOCyXfl 


gPDA T E ID T 




JMP LEND 


T ERMINA T E 





LOCNO SCANS THE INPUT FOR A NUMBER, THE NUMBER MUST BE LESS THAN 
THE VALUE OF „(JSB*1), IT RETURNS WITH THE NUMBER IN B AND THE 
NEXT CHAR, IN A, 



75561 000000 LUCNO NOP 

75562 017603 JSfi LOCDG 

75563 026275 JMP LFRER 

75564 074043 LUCNl STB LOCN 

75565 147561 ADB LOCNO, I 

75566 006021 SSB,RS8 

75567 027700 JMP L0CR2 

75570 017603 JSB LOCDG 

75571 027600 JMP LQCN2 



GET a DIGIT, 

illegal if none, 
save partial result, 
check for overflow, 

ERROR, 

GET NEXT DIGIT, 

END OF NUMBER 
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0486 

0487 

10488 

0489 

0490 

0491 

0492 

0493 

0494 

0495* 

0496* 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508* 

0509* 

0510* 

0511* 

0512* 

0513* 

0514* 

0515* 

0516* 

0517* 

0516 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 

0531 
0532 
0533 
0534* 

0535* 

0536* 

0537 

0538 

0539 

0540 



75572 
75573 
75574 
75575 
75576 
75577 
75600 
75601 
75602 



060043 LDA LOCN 

001222 RAL,NAl 

040043 ADA LOCN 

001200 RAl 

044000 ADB 

027564 JMP LOCN1 
064043 L0CN2 LOB LOCN 

037561 ISZ LqCNq 

127561 JMP LQCNO,I 



MULTIPLY PREVIOUS RESULT bY 10, 



ADD IN NEW VALUE, 

LOOP, 

RETURN NO, 



000000 
016025 
127603 
064000 
044316 
006021 
127603 
044364 
006021 
037603 
127603 
DETER M I N ES 



NOP 
J3B 
JMP 
LOB 
AOB 



75603 000000 . LQCDS 

75604 

75605 

75606 

75607 

75610 

75611 

75612 

75613 

75614 

75615 

LqCTS 

TRACKS BEING LOCkED, iP iT 

ROUTINfc IS TERMINATED! 



GET DECIMAL DIGIT, 
GET CMARt 
NONfc THERE, 
DO DIGIT TrST, 



T35CG 
LOCDGrI 



M72B 
SSB,RSS 
JMP LOCDG,I 
ADB f *l0 
S3B,RSS 
ISZ LOCDG 
JMP LOCDG, I 
WHETHER A GIVEN TRACK IS INCLUDED 
IS, AN ERROR MESSAGE iS 



In the ra n ge of 

PRINTED AND ThE 



CALLING SEQUENCE: 

JSB LQCTS 

DEF <LOCATlON OF DISC ADDRESS> 

<RETURN IF OK* 



75616 000000 LQCTS NOP 

75617 167616 LDB L0CT3,I 

75620 037616 ISZ LQCTS 

75621 164001 LDB 1,1 

75622 006003 S^BjRSS 

75623 127616 JMP LOCTS f I 

75624 060046 LDA LOCF 

75625 003104 CMA,CLE,INA 

75626 040001 ADA 1 

75627 002041 SEZ,RSS 

75630 127616 JMP LOCTSfI 

75631 007104 CMB,CLE,INB 

75632 044047 ADB LOCL 

75633 044442 ADB B 2 00 

75 6 34 002041 SEZ#RSS 

75635 127616 JMP LOcTS,! 



ERROR-, ATTEMPT TO LOCK SYSTEM TRACK, 



GET POINTER TO DISC ADDKESS, 
BUMP RETURN ADDRESS, 
GET DISC ADDRESS 

IGNORE ZEROES 

TEST AGAINST FIRST TRACK, 



TEST AGAINST LAST TRACK, 



75636 003400 

75637 043616 

75640 160000 

75641 160000 



CCA 

ADA LOCTS 
LDA 0,1 
LDA 0,1 



GET DISC 

ADDRESS 

AGAIN, 
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0541 
0542 
0543 
k)544 

0545 
0546 
0547 
fc)548 
0549 
0550 
0551 
0552 



0553* 

0554 
0555 
0556 
0557 



0558 
0559 
0560 
0561 



0562 
0563 
0564 

0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 



75642 
75643 
75644 
75645 
75646 
75647 
75650 
75651 
75652 
75653 
75654 
75655 
75656 
75657 
75660 
75661 
75662 
75663 
75664 
75665 
75666 

75667 
75670 
75671 
75672 
75673 
76674 
75675 
75676 
75677 
75700 
75701 
75702 
75703 
75704 
75705 
75706 
75707 
75710 
75711 
75712 
75713 
75714 
75715 
75716 
75717 
75720 
75721 
75722 
75723 
75724 
75725 
75726 
75727 



001727 
010734 
006400 
100400 
000364 
001727 
040001 
040574 
073666 
064326 
017714 
005103 
040516 
023524 
020114 
047503 
045440 
052122 
040503 
045440 
020040 

064335 
017714 

005U6 
047440 
051525 
041510 
020104 
05U25 
046440 
064327 
017714 
005H1 
046114 
042507 
040514 
020120 
040522 
040515 
042524 
042522 
051440 

000000 

074044 
060305 

070051 
063714 

070050 
005100 
016257 
060044 
003004 
06430b 
026271 



AIF,ALF 
AND B77 

cue 

DIV . + 10 

ALF,ALF 

ADA 1 

ADA A3C00 

8TA LOCK1-1 

LDB ,.20 

JSB LOCER 

OCT 5103 

ASC 9,AN'T LOCK TRACK 



KEEP TRACK NO, ONLY, 
CONVERT TO DECIMAL, 



STORE IN BUFFER, 
PRINT ERROR MESS 



LOCRi 



LOB 


."13 


JSB 


LOCER 


OCT 


5116 


ASC 


6,0 SUCH 



drum 



LOCR2 LOB .wjS 
JSB LOCER 
OCT 5111 
ASC 9,LLEGAL PARAMETERS 



LOCER NOP 

STB LOCT 
LOA T35B1 
STA MOVED 
LDA LOCER 
STA MOVES 
BRS 

JSB MOVEW 
LDA LOCT 
CMA f INA 
LDB T35B1 
JMP LEND+2 



ERROR PRINTER, 
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0574* 












0575 


75730 


030006 


LQCDL 


DEF 


0IREC+6 


0576 


75731 


100040 


LOCU 


LSL 


16 


0577 


75732 


061130 


LOCST 


DEF 


TTY00*?OISC 


0578 


75733 


000115 


LQCOA 


DEF 


DAOLC 


0579 


75734 


177675 


loccm 


ABS 


C0M6-C0MTE 


0580 


75735 


072034 


LOCM6 


DEf 


COM6 


0581 


75736 


030000 


LgOlR 


dep 


DIREC 


0582 


7S7S7 


031060 


LOCDU 


DEF 


DIREU 


0583 


75740 


072612 


LOCUO 


DEF 


TBDAD 


0584 


75741 


072727 


IUCUI 


PEF 


T8IDT 


0585 


75742 


177660 


MM80 


DEC 


f>80 


0586 


75743 




SLOC 


EUU 


* 


0587* 












0588 


00030 




LOCTC 


feUU 


LTfcMP 


0589 


00031 




LOCNT 


EUU 


LTEMp+l 


0590 


00032 




LOCDI 


EQU 


LTEMP+2 


0591 


00033 




LOCDP 


ECU 


LTEMP+3 


0592 


00036 




LOCTP 


EUU 


LTEMP*6 


0593 


00037 




LOCNQ 


EQU 


LTEMP+7 


0594 


00042 




LOCO 


EQU 


LTEMP+10 


0595 


00043 




LOCN 


EQU 


LTEMP+U 


0596 


00044 




LOCT 


EQU 


LTEMP+12 


0597 


00046 




LOCF 


EQU 


LTEMP+14 


0598 


00047 




LOCL 


EUU 


LTEMP+15 
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0002* 

0003* 

0004* 

0005* 

0006* 

0007* 

0008* 

0009* 

0010* 

0011* 

0012 

0013 

0014 

0015 
0016 
0017 
0010 
0019 
0020 
0021 

0022 

0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 



0038 
0039 

0040 

0041 
0042 
0043 
0044 



THE MUNLOCK COMMAND JS USfcD TO RESTORE TO THE 3Y8TEM ANY DISC 
BLOCKS WHICH HaVE PREVIOUSLY BEEN MLOCKED, THE FORMAT FOR THE 
COMMAND 181 

MUNLOCK*FBLOCK t, LBLQCKl 

FBLOCK AND LBLOCK SPECIFY THE FIRST AND LAST BLOCKS TO BE 
MUNLOCKED, IF LBLOCK IS NOT SPECIFIED IT IS ASSUMED TO BE 
EQUAL TO FBLOCK, 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75^06 
75007 
75007 
75010 
750H 
75012 
75013 
75014 

75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 
75040 
75041 
75041 
75042 
75043 
75044 
75045 
75046 
75046 
75047 



017330 

027025 
050426 
027007 
050367 

027041 
026275 

104200 

000030 
104400 
000046 
017330 
027025 
050367 
002001 
026275 
064046 
060047 
017377 
00^003 
027046 

064327 
017421 
005111 
046114 
042507 
040514 
020120 
040522 
040515 
042524 
042522 
051440 

104200 
000030 
104400 
000046 
002400 

002004 
070032 



MUNI 



MUN2 



ORG 


LIBRA 




JS8 


MUNNO 


GET FIRST BLOCK 


JMP 


MUN2 


ILLEGAL FORMAT 


CPA 


.♦548 


COMMA FOLLOWING? 


JMP 


MuNl 


YES 


CpA 


.♦15B 


No, Cr? 


JMP 


MUN3 


YES 


JMP 


LFRER 


NO, ERROR 


EQU 


* 




OLD 


MUNIN 


SAVE FIKST 


DST 


MUNSB 


BLOCK 


J8B 


MUNNO 


GET LAST BLOCK 


JMP 


MUN2 


ILLEGAL FORMAT 


CPA 


.♦158 


CR FOLLOWS? 


RSS 




YES 


JMP 


LFRER 


NO, ERROR 


LOB 


MUNSB 


COMPUTE 


LDA 


MUNSB+1 


LAST BLOCK « 


JSB 


MUNTS 


FIRST BLOCK 


SZBi 


.RSS 


DIFFERENCE VALID? 


JMP 


MUN4 


YES 


EQU 


* 




LDB 


,-19 


NO, 


JSB 


MUNER 


ERROR 


CT 


5111 




ASC 


9,LLEGAL 


parameters 



MUN3 EQU * 

OLD MUNIN 

DST MUNSB 



MUM 



CLA 

EQU * 

INA 

STA MUNLN 



SAVE FIRST 

BLOCK 

SET FOR ONE BLOCK 

SAVE 
LENGTH 
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0045 
0046 
0047 
004$ 
0049 
0050 
0051 
0052 

0053 
0054 
0055 
0055 
0057 
0056 

0059 
0060 

0051 

0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 

0070 
0071 
0072 
0073 
0074 
0075 
0076 

aa77 

0078 



0079 
0060 
0081 
0082 

0083 
0084 
0085 
0086 
0087 
0068 



75050 
75051 
75052 
75053 
75054 
75055 
75056 
75056 
75057 
75060 
75061 
75062 
75063 
75064 

75065 
75066 

75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 
75J03 
75104 
75105 
75106 
75107 
75110 
751U 
75112 
75113 
75114 
75H5 
75116 
75U7 
75120 
75121 
75122 
75122 
75123 
75124 
75125 
75126 
75127 

75l3*> 
75131 

75132 
75133 
75134 



060210 
040432 
070033 
017411 
006021 
027025 

060033 
040344 
070033 
017411 
006020 
027056 
002004 
070037 
104200 
000046 
104400 

000030 
017411 
006120 
027025 
070036 
040346 
002041 
027025 
060033 

040354 
164000 

164001 
006002 
027122 
064331 
017421 
005116 
047516 

042530 
044523 
052105 
047124 
020104 
044523 
041440 

6 0762 
070215 
104200 
100033 
000065 
005540 

044355 

002040 
002004 
104400 
000046 



MUN5 



MUN6 



IDA MHAp 


■> LAST WORD 


ADA ,4-48 




8TA MUNTP 


OF 0I3C EOT 


jse hunos 


BLOCK TOO 


S3B,RSS 


LARGE? 


JMP MUN2 


YES 


EqU * 




LDA MUNTP 


NO, MOVE 


AOA t »6 


TO NEXT DISC 


8TA MUNTP 


EOT ENTRY 


J8B MUN03 


BLOCK ON 


S8B 


THIS DISC? 


JMP MUN5 


NO 


INA 


YES, SAVE 


STA MUNLA 


LAST BLOCK 


DLD MUN8B 


FIRST 


D3T MUNIN 


BLOCK 


J8B MUN09 


UN THIS 


CLE,SSB 


DISC ALSO? 


JMP MUN2 


NO 


STA MUNFA 


YES, SAVE IT 


AOA ,.4 


BLOCK3 


SEZfRSS 


0-3 ARE 


JMP MUN2 


ILLEGAL 


LDA MUNTP 


CHECK 


ADA ,^2 


FOR 


LOB A, I 


DISC 


LOB B,I 




SZB 


PRESENT 


JMP MUN6 


IT IS 


LOB ,»17 


ErrQr 


JSB MUNER 




OCT 5116 




ASC 8,0N E XlST 


Ent OI3C 



EQU 


* 


LDA 


M2«6 

MWORD 


STA 


DLD 


MUNTPfl 


CLE, 


ERA 


ERB, 


-CLE 


AOB 


.♦3 


SEZ 




INA 




DST 


MUN3B 



BAD BLOCKS IS 
256 WORDS LONG 



RESIDES ON BLOCK 4 
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13089 


75135 


063571 


LOA MUNOA 


READ 




0090 


75136 


067572 


LDB MUNBI 


BAD BLOCKS 




0091 


75137 


114217 


JSB DI8CZ,I 


TABLE 




0092 


75140 


026311 


JMP DDERR 






0093 


75141 


116007 


JSB FADTR,I 


GET THIS DISC ADT 




0094 


75142 


160045 


IDA KILDF,I 


LENGTH OF 




0095 


75U3 


070072 


3TA WORD 


DISC ADT 




0096 


75t44 


160044 


LDA KILO, I 


READ 




0097 


75145 


064566 


LOB LIBDI 


DISC 




009a 


75146 


016231 


JSB QRUML 


AqT 




0099 


75147 


026311 


JMP QDfcRR 






0100 


75150 


065002 


LDB L8I92 


■> FIRST ENTRY 




0101 


75151 




HUN10 EQU * 






0102 


75151 


160001 


LDA B,I 


GET JTEM 




0103 


75152 


002003 


SZA,Rgs 


FINI S HED 3EARCH? 




0104 


75l5 3 


027166 


JMP MUN11 


YES 




&105 


75154 


003104 


CMA,CLE,INA 


NO, IS 




0106 


75155 


040036 


ADA MUNFA 


THIS ENTRy 




0107 


75156 


002003 


SZA,R SS 


EOyAL? 




0108 


75157 


027171 


JMP MUN12 


YES 




0109 


75160 


009041 
027325 


8EZ,RSS 


NO, GREATER 




0110 


75161 


JMP MUN18 


YES 




0111 


75162 


044354 


ADB .*2 


NO, FINISHED 




0112 


75163 


057573 


CPB MUNLZ 


SEARCH? 




0113 


75164 


002001 


RSS 


YES 




0114 


75165 


027151 


JMP MUN10 


NO 




0115 


75166 




MUNlt EQU * 






0116 


75166 


017435 


JSB MyNPB 


CHECK PRECEEDING BLOCK 


0117 


75167 


027273 


JMP MUN17 


ENTRIES COMBINED 




0118 


75170 


026267 


JMP LEND 


NO WORK DONE 




0119 


75171 




MUN12 EQU * 






0120 


75171 


006004 


INB 


IS THIS 




0121 


75172 


060032 


LDA MUNLN 


ENTRY 




0122 


75173 


003100 


CMA,CLE 


COMPLETELY 




0123 


75174 


140001 


ADA B f I 


ENCLOSED? 




0124 


75175 


002041 


SE^,RSS 






0125 


75176 


027212 


JMP MUN13 


YES 




0126 


75177 


002004 


INA 


NO, SAVE 




0127 


75200 


170001 


STA 8,1 


NEW LENGTH 




0128 


75201 


044351 


ADB ,-1 


SAVE NEW 




0129 


75202 


060037 


LDA MUNLA 


STARTING 




0130 


75203 


170001 


STA B,I 


ADDRESS 




0131 


75204 


060036 


LDA MuNFA 


AODREss OF BLOCK 




0132 


75205 


070040 


STA MUNRA 


TO BE RETURNED 




0133 


75206 


060032 


LDA MUNLN 


LENGTH OF RETURNED 




0134 


75207 


070043 


STA munrl 


BLOCK 




0135 


75210 


017552 


JSB MUNRS 


RETURN BLOCK TO DISC 


ADT 


0136 


75211 


027273 


JMP MUN17 






0137 


75212 




MUN13 EGU * 






0138 


75212 


160001 


LDA B,I 


LENGTH AND 




0139 


75213 


070043 


STA MUNRL 


ADDRESS OF 




0140 


75214 


044361 


ADB ,«1 


BLOCK TO 




0141 


75215 


160001 


LDA 8,1 


RETURN TO 




0142 


75216 


070040 


STA MUNRA 


DISC ADT 




0143 


75217 


074041 


STB MUNBR 


SAVE (B) 
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0144 


75220 


074030 




STb 


MUNPP 


DESTINATION POINTER 


0145 


75221 


044354 




ADB 


.♦2 


SOURCE POINTER 


0146 


75222 




MUN14 


EQU 


* 




0147 


75222 


057573 




CPB 


MUNLZ 




(0148 


75223 


027233 




JMP 


MUN15 




0149 


75224 


160001 




IDA 


Brl 


ELIMINATE 


0150 


75225 


002003 




SZA, 


,RSS 




0151 


75226 


027233 




JMP 


MUN15 


COMPLETELY 


0152 


75227 


170030 




STA 


MUNPP, I 




0153 


75230 


034030 




I3Z 


MUNPP 


ENCLOSED 


0154 


75231 


006004 




INB 






0155 


75232 


027222 




JMP 


MUN14 


ENTRY 


0156 


75233 




*UM5 


EQU 


* 




0157 


75233 


002400 




CUA 




ZERO OUT 


0158 


75234 


170030 




STA 


MUNPP, I 


TWO WORDS 


0159 


75235 


034030 




ISZ 


MyNPP 


AFTER LAST 


0160 


75236 


170030 




STA 


MUNPP, I 


ENTRY 


0161 


75237 


064041 




LOB 


MUNBR 


RESTORE (B) 


0162 


75240 


017552 




jse 


MUNRS 


RETURN BLOCK TO DISC ADT 


0163* 














0164* 


CHECK 


SUCCEEDING BLOCKS 






0165* 














0166 


75241 




MUNJ6 


EQU 


* 




0167 


75241 


160001 




LDA 


6,1 


ANY MORE 


0168 


75242 


002003 




SZA, 


,R3S 


ENTRIES? 


016g 


75243 


027273 




JMP 


MUN17 


NO 


0170 


75244 


060037 




LDA 


MUNLA 


YES, 


0171 


75245 


003104 




CMA, 


,CLE,INA 


OVERLAP 


0172 


75246 


140001 




ADA 


B,I 


NEXT 


0173 


75247 


002040 




stz 




ENTRY? 


0174 


75250 


027273 




JMP 


MUNJ7 


NO 


0175 


75251 


006004 




INB 




YES, 


0176 


75252 


14000} 




ADA 


B,I 


COMPLETELY 


01 77 


7 5253 


002003 




SZAi 


.RSS 


ENCLOSE IT? 


0178 


75254 


027212 




JMP 


MUNJ3 


Y ES 


0179 


75255 


002041 




stz, 


'RSS 


MAYBE 


0j80 


75256 


027212 




JMP 


MUN13 
MUNPP 


YES 


0181 


75257 


070030 




STA 


NO, SAVE LENGTH 


0182 


75260 


003004 




CMA, 


,INA 


LENGTH OF 


0183 


75261 


140001 




AOA 


B,I 


RETURNED 


0184 


75262 


070043 




STA 


MUNRL 


BLOCK 


0185 


75263 


060030 




LDA 


MUNPP 


SAVE LENGTH OF 


0186 


75264 


170001 




STA 


B,I 


LOCKED BLOCK 


0187 


75265 


044351 




ADB 


««>1 


ADDRESS OF 


0188 


75266 


160001 




LDA 


B,I 


RETURNED 


0189 


75267 


070040 




STA 


MUNRA 


BLOCK 


0190 


75270 


060037 




LDA 


MUNLA 


SAVE NEW 


0191 


75271 


170001 




ST* 


8,1 


STARTING BLOCK 


0192 


75272 


017552 




JSB 


MUNRS 


RETURN SPACE TO DISC ADT 


0193* 


WRITE 


DISC ADT AND 


LOCKED BLOCKS 




0194* 














l95 


75273 




MUNi7 


EQU 


* 




0196 


75273 


060762 




LDA 


M256 


LENGTH OF 


0197 


75274 


070215 




STA 


MWORD 


BAD BLOCKS 


0198 


75275 


104200 




OLD 


MyNfP,! 


COMPUTE 
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0199 
0200 
0201 
0202 
0203 
0204 

0205 

0206 

0207 

0200 

0209 

0210 

k)2ll 

0212 

0213 

0214 

0215 

0216 

0217 

0216 

0219 

0220 

0221 

0222 

0223 

0224* 

1*225* 

0226* 

0227* 

0226* 

0229 

02^0 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 



75276 
75277 
75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 
75311 
75312 
75313 
75314 
75315 
75316 
75317 
75320 
75321 
75322 
75323 
75324 
75325 
75325 
75326 
75327 



100033 
000065 
005540 
044355 
002040 
002004 
104400 
000046 
063571 
065002 
114217 
116020 
160045 
070072 
160044 
064562 
016231 
002001 
026267 
002400 
170044 
170044 
026267 

017435 
027241 
027241 



CUE, ERA 
ERB,CLE 
ADB ,+3 
SEZ 

INA 

OST MUNSB 



LDA 
LDB 
JSB 
JSB 
LDA 
STA 
IDA 
LOB 
J3B 
RSS 
JMP 
CLA 
STA 
STA 
JMP 
MUN18 EQU 
JSB 
JMP 
JMP 



MUNOA 

L8192 

DISCZ,I 

MDEDP,I 

KILDF,I 

WORD 

KILD,1 

LIBO 

DRUML 

LEND 

KILO, I 
KILD, I 
LEND 

* 

MUNPB 
MUN16 
MUN16 



ADDRESS 

OF BLOCK 

THREE 

WRITE OUT 
LOCKEO 
BLOCKS 

WRITE 
OUT 
DISC 
ADT 
TRACK 



REMOVE 
DISC ADT 



CHECK PRECEEDING BLOCK 
GO CHECK 
NEXT ENTRY 



MUNNO SCANS THE INPUT STRING FOR AN INTEGER LESS THAN 2**l9« IF 
FOUND IT RETURNS TO (P+2) *ITH THE INTEGER IN MUNINC01U AND 
THE FOLLOWING CHARACTER IN (A), ERRORS EXIT TO (P+l) f 



75330 

75331 
75332 
75333 
75334 
75335 
75336 
75336 
75337 
7534fej 
75341 
75342 
75343 
75344 
75345 
75346 
75347 
75350 
75351 

75352 
75353 
75354 

75355 



000000 
007400 
074333 
006400 
074030 
074031 

016025 
027374 

0*4000 
044316 
006021 
027374 

044364 
006020 
027374 
074033 
060031 
064030 
100022 
000040 
040031 
002040 



MUNNU NOP 
CCB 
STB 
CLB 
STe 
STB 

MUNNl equ 
JSB 
JMP 
LDB 
ADB 
SSB, 
JMP 
ADB 
SSB 
JMP 
STB 
LDA 

LDB 
ASL 
CLE 
ADA 
SEZ 



MUNTP 

MUNIN 

MUNIN+1 

* 

T35C0 

MUNN2 

A 

M72B 

RSS 

MUNN2 

,♦10 

MUNN2 

MUNTP 

MUNIN+1 

MUNIN 

2 

MUNIN+1 



SET FLAG FOR 

NUMBER OCCURRENCE 

INITIALIZE 
TWCNDIGIT 

RESULT 

GET A CHARACTER 
CR 



DIGIT! 

NO 

MAYBE 

NO 

yes. Save it 
get previous 

RESULT 
MULTIPLY BY 4 
ADD PREVIOUS 

RESULT, 

PRODUCING 
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0252 
0253 
0254 
0255 
0256 
0257 
0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270* 

0271* 

0272* 

0273* 

0274 

0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284* 

0285* 

0286* 

0287* 

0288* 

0269 

0290 

029l 

0292 

0293 

0294 

0295 

0296* 

0297* 

0298* 

0299 

0300 

0301 

0302 

0303 

0304 

0305 



75356 
75357 
75360 
75361 
75362 
75363 
75364 

75365 
75366 

75367 
75370 
75371 
75372 
75373 
75374 
75374 
75375 
75376 



006004 
044030 
100021 
000040 

040033 
002040 
006004 

074030 
070031 
060001 
010361 
050001 
027336 
127330 

034033 
037330 
127330 



MUMN2 



INB 


MULTIPLICATION 


AOB MUNIN 


BY 5 


A3L 1 


NOW 10*PRfcyJOuS RESuLT 


CLE 


ADO In 


ADA MUNTP 




86Z 


NEW DIGIT 


INB 




STB MUNIN 


SAVE NEW 


8TA MUNIN+1 


RESULT 


LDA B 


TOO 


ANp ,*7 




CPA B 


BIG? 


JMP MUNN1 


NO 


JMP MUNNO, I 


YES 


EQU * 




ISZ MuNjP 


DID NUMBER OCCtjK? 


I8Z MUNNO 


YES 


JMP MUNNO, I 


NO 



MUNTS SUBTRACTS THE TWO»WORD INTEGER INTEGER IN 
LEAVING THE RESULT IN 1(B), (A)] f 



t(B),CA)J FROM MUN 



75377 000000 HUNTS 

75400 003104 

75401 007040 

75402 006004 

75403 000040 

75404 040031 

75405 002040 

75406 006004 

75407 ^4403« 
75410 127377 



CLE,INA 
SEZ 



NOP 

CMA, 

CMB, 

INB 

CLE 

ADA MUNIN+1 

SEz 
InB 
ADB 
JMP 



MUNIN 
MUNTS,! 



NEGATE 

SUBTRAHEND 
ADD IN 

MI N uEnO 



munqs Takes the disc address in muninibjU ano computes it 
relative to the disc whose eot entry is pointed to by muntp, 
exiting with the result in 1(b), (a)j, 

75411 000000 MUNUS NOP 



75412 
75^13 
75414 
75415 
75416 
75417 
75420 



104200 
100033 
800065 
005500 
101100 
017377 
127411 



DLD MUNTP,! GET FIRST SECTOR NUMBER 



CLE, ERA 

ERB 

S W P 

JSB MUNTS 

JMP MUNDS,! 



CONVERT TO 
BLOCKS 

COMPUTE RELATIVE ADDRESS 



MUNER OUTPUTS AN ERROR MESSAGE TO THE CONSOLE 



75421 000000 

75422 074033 

75423 060305 

75424 070051 

75425 063421 

75426 070050 

75427 005100 



MUNER NOP 

STB MUNTP 
LDA T35B1 
STA MOVED 
LDA MUNER 
STA MOVES 

BR3 



MOVE 

MESSAGE 
INTO 

CONSOLE 
BUFFER 
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0306 

0307 

0308 

0309 

0310 

0311* 

0312* 

0313* 

0314* 

0315* 

0316* 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

032a 

0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 

0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 

0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 



75430 
75431 
75432 
75433 
75434 



016257 
060033 
003004 
064305 
026271 



J3b move* 
LOA MUNTP 
CMA, INA 
LOB T35B1 
JMP LEND*2 



OUTPUT IT 



MUNPB CHECKS THE PRECEEDING BLOCK TO SEE IP THE NEW ENTRY IS IN 
ITS RANGE, IP SO, IT MODIFIES THE PRECEEDING ENTRY, RETURNS THE 
APPROPRIATE SPACE TO THE DlgC ADt, AND EXITS TO (P*l), 
OTHERWISE TO CP+2), 



75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 
75445 
75446 
75447 
75450 
75451 
75452 
75452 
75453 
75454 
75454 
75455 
75456 
75457 
75460 
75461 
75462 
75463 
75464 
75465 
75466 
75467 
75470 
75471 
75472 
75473 

75474 
75475 
75476 
75477 

75500 
755ul 
75502 
75503 
75504 
75505 
75506 



000000 
055002 
027452 
044351 
160001 
070046 
044351 
140001 
003100 
040036 
002041 
027454 
044354 

037435 
127435 

002007 
027451 
003004 
070043 
060036 
070040 

160001 
003004 
040036 
006004 
170001 
044351 
060037 
003100 
140001 
040046 
002045 
027547 
070046 
060032 
070043 
044354 
074041 
067574 
160001 
002003 
027526 



MUNPB NOP 
CPB 
JMP 
ADB 
LOA 
3TA 
ADB 
ADA 
CMA, 
ADA 
SEz, 

JMP 

ADB 

MUNPl EQU 

isz 

JMP 

MUNP2 EQU 
INA, 
JMP 
CMA, 
8Ta 
LDA 
STA 
LDA 
CMA, 
ADA 
IN* 
STA 
ADB 
LOA 
CMA, 
ADA 
ADA 
SEZ, 
JMP 

STA 

LDA 

ST A 

ADB 

STB 

LDB 

LDA 

SZA, 

JMP 



L8192 

MUNPl 

.-1 

B,I 

MUNSB 

.-1 
B,I 
CLE 

MUNFA 

RSS 

MUNP2 

• ♦2 

* 

MUNPB 

MUNPB,! 

* 

SZA, RSS 

MUNP1*1 

INA 

MUNRL 
MUNFA 

MUNRA 
B,I 
INA 
MuNFA 

B/I 

• •1 

MUNLA 

CLE 
B,I 

MUNSB 
INA, RSS 
MUNP6 
MUNSB 
MUNLN 

MUNRL 

.♦2 

MuNBR 

MUNLY 

B,I 

RSS 

MyNP3 



BEGINNING OF TABLE? 
NU, NEW 
BLOCK IN 

Range of 
preceeding one? 

YES 

NO 



ADJACENT? 

YES 

NO, SAyE LENGTH 

OF RETURNED BLOCK 
ADDRESS OF 

RETURNED BLOCK 
COMPUTE 

NEW 

LENGTH 
AND 

save 
is the 
unlocked 

PORTION 

IN THE MIDDLE 
OF THt PREVIOUS 
BLOCK? 
NO 
YES 

RESET RETURNED 
BLOCK LENGTH 
SAVE 

(B) 
TABLE 



FULL 



NO 



PAGE 0630 #53 MUNI.QCK 



0361 
0362 
fe)363 
0364 



0368 
0366 
0367 
036* 
0309 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0360 
0381 
0382 

0383 
0384 

0385 

0386 

B387 

0388 

0389* 

0390* 

0391* 

0392* 

0393 

0394 

0395 

0396 

0397 
0398 
KJ399 
0400 
0401 

0402 



75507 
75510 
755U 
75512 
75513 
75514 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75526 
75527 
75530 
75530 
75531 
75532 
75533 
75534 
75535 
75536 
75537 
75540 
75541 

755 4 1 
75542 
75543 
75544 

75545 
7554 6 

75547 
75547 

75550 
75551 

MUNRS 
CORE. 

75552 
75553 
75554 
75555 
75556 

75557 
75560 
75561 
75562 
75563 
75564 
75565 



064321 
017421 
005114 
047503 
045505 
042040 
041114 
047503 
045523 
020124 
040502 
046105 
020106 
052514 
046040 

074030 
044350 

160001 
170030 
054041 
02754J 
044351 
003400 
040030 
070030 
027530 

060037 
170001 
006004 
060046 
170001 
006005 

044354 

017552 
127435 



YE3, OUTPUT 
ERROR ME&SAtiE 



LOB ,.25 

J$B MUNER 

OCT 5H4 

A8C 12,qCKE0 OLqCKs TABLE FuLL 



MUNP3 EQU 
STB 
AOB 

MUNP4 EQU 
LOA 
STA 
CPB 
JMP 
AOB 
CCA 
ADA 

STA 
JMP 
MuNp5 EqU 
LOA 
STA 
INB 

LOA 
STA 

INB, 
MUNP6 EOU 
AOB 
JSB 
JMP 



* 

MUNPP 

.•2 

B,X 

MUNPP, I 
MUNBR 
MUNP5 
.-I 

MUNPP 

MUNPP 

MUNP4 

* 

MUNLA 

b,I 

MUNSB 

Brl 

RSS 

* 

.♦2 

MUNRS 

MUNPBf I 



SOURCE POINTER 
DESTINATION POINTER 

MAKE 

ROOM 

FOR 

NEW 
ENTRY 

SAVE ADDRESS 

OF NEW ENTRY 
SAVE 

LENGTH 
ALSO 

RETURN SPACE TO DISC ACT 



RETURNS SPACE TO THE DISC ADT TRACK WHICH IS CURRENTLY IN 



000000 
074041 
104200 

100033 
000065 
005540 
044040 
002040 
002004 
104400 
000046 
116011 



MUNRS NOP 

STB MUNBR 
OLD MuNjp,I 

CLE, ERA 
ERB#CLE 
ADB MUNRA 

stz 

IN* 

DST MUNSB 



SAVE (B) 
COMpuTE 



DISC 

ADDRESS 



JSB RAOTP,l RETURN SPACE 
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0403 


75566 


000000 




NOP 




0404 


75567 


064041 




LDB MUNBR 


RESTORE (B) 


0405 


75570 


127552 




JMP MUNRS,I 




0406* 












0407 


00030 




MUNIN 


E«U LTEMP 


LTEMP*1 ALSO USED 


0406 


00046 




H|jNSB 


EQU LTEMP+14 


ltemp*i5 also useo 


0409 


00032 




MUNLN 


EQU LTEMP+2 




0410 


00033 




MUNTP 


EQU LTEMP*3 




0411 


00036 




MUNFA 


EQU WTEMP+6 




0412 


00037 




MUNLA 


EQU LTEMP*7 




0413 


00040 




MUNRA 


EQU LTEMP+8 




0414 


00043 




MUNRL 


EQU LTEMP+U 




0415 


00041 




MUNBR 


EQU ITEMP+9 




0416 


00030 




MUNPP 


EQU LTEMP 




0417* 












0418* 


ROUTINES CALLED USE 


4*5,10,12, AND 


1 I3t 


0419* 












0420 


75571 


000046 


MUNDA 


DEF MUNSB 




0421 


75572 


121230 


MUNBJ 


DEF LXBUS+8192 


,1 


0422 


75573 


021630 


MUNLZ 


DEF LI8US+0192 


1*256 


0423 


75574 


021627 


MUNLY 


DEF LIBUS+8192 


!*255 


0424 


75575 




$MtlN 


EQU * 
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0002* 
0003* 
0004* 
0005* 
0006* 
0007* 
0008* 
0009* 

0010* 

0011* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017* 

0018* 

0019* 

0020* 

0021* 

0022* 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 
0035 

0036 
0037 
0038 

003* 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 



THE MLOCK COMMAND IS USED TO TELL THE SYSTEM fO STOP USING CERT A IN 
DISC BLOCKS, THIS CAN BE DONE EITHER BECAUSE THE BLOCKS HAVE BEEN 
fUUND FAULTY UR BECAUSE THEY HAVE INFORMATION ON THEM *HICH IS 
UNkELAtED TO TS8, THE FORMAT FOr THE COMMAND! 

MLOCK,FBLOCM,LBLQCKJ 

FBLOCK AND LBLOCK SPECIFY THE FIRST AND LAST BLOCKS TO BE MLOCKED, 
IF LBLOCK IS NOT SPECIFIED IT IS ASSUMED TO BE EOUAL TO FBLOCK, 

THE ACTION OF THE ROUTINE IS AS FOLLOWS; 

1) INTERPRET AND VERIFY PARAMETERS 

2) INSURE ThAT ThE SYSTEM IS NOT USING ANY OF THt 

speciued blocks 

3) search the directory, building a table with one 

entry for each file or program wh08e disc address 
is in the range of the specified blocks, 

4) use this table to search the fuss tabu, insuring 
that none of the files on these blocks are act}ve 

5) call overlay 



0049 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75007 
75010 
750U 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 



017445 
027025 
050426 
027007 
050367 
027036 
026275 

104200 
075764 
104400 
000046 
017445 
027025 
050367 
002001 
026275 
064046 
060047 
017514 
006003 
027043 

064334 
017536 

005102 
040504 

020120 
040522 
040515 
042524 
042522 



MLKl 



MLK2 



ORG LIBRA 




JSB MLKNO 


GET FIRST BLOCK 


JMP MLK2 


ILLEGAL FORMAT 


CPA .*54B 


COMMA FOLLOWING? 


JMP MLKl 


YES 


CPA ,*15B 


NOr CR? 


JMP MLK3 


Y ES 


JMP LFRER 


NO, ERROR 


EQU * 




DLO MLKIN 


SAVE FIRST 


DST mlkfb 


BLOCK 


JSB MLKNO 


GET LAST BLOCK 


JMP MLK2 


ILLEGAL FORMAT 


CpA ,+15B 


CR PgLLoWS? 


R3S 


YES 


JMP lprer 


NOf ERROR 


LOB MLKFB 


COMPUTE 


LOA MLKFB+1 


LAST BLOCK m 


JSB MLKTS 


FIRST BLOCK 


SZSfRSS 


DIFFERENCE VALID? 


JMP MLK4 


YES 


EqU * 




LOB ,-14 


NO, 


JSB MLKER 


ERROR 


OCT 5102 





A3C 6, AD PARAMETER 



MLK3 EGU * 
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0050 

0051 

0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 

0060 
0061 
0062 
0063 

0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 

0072 
0073 
0074 
0075 
0076 

m77 

0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 

00^2 
0093 
0094 



75036 
75037 
75040 
75041 
75042 
75043 
75043 
75044 
75045 
75046 
75047 
75050 
75051 
75052 

75053 
75054 
75055 
75056 
75057 
75060 
75061 
75062 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 
75103 
75104 
75iaS 
75106 
75107 
75n0 
751U 

75112 
75113 
75n4 
75U5 
75116 
75117 
75120 
75121 
75122 



104200 
075764 
104400 
000046 
002400 

002004 
073766 
060210 
040432 
070033 
104200 
075764 
006104 
002040 
002004 
104400 
075762 
017526 
006021 
027025 

060033 
040344 

070033 
017526 
006020 
027062 

002004 
070031 

104200 
000046 

104400 
075764 
017526 
006120 
027025 
070032 
040346 
002041 
027025 
060033 
040354 
164000 
164001 
005002 
027126 
064331 
017536 
005116 
047516 
042530 
044523 
052105 
047124 



MLK4 



MLK5 



OLD MLKIN 


SAVE FIRST 


D8T MLKFB 


BLOCK 


CLA 


SET FOR ONE BLOCK 


EQU * 




INA 


SAVE 


STA MLKLN 


LENGTH 


LOA MHAD 


9> LAST WORD 


ADA ,+48 




STA MLKLP 


OF DISC EOT 


OLD MLKIN 


SAVE ADDRESS 


CUE, INB 




8EZ 


OF LAST 


INA 




OST MLKL8 


BLOCK 


438 MUDS 


BLOCK T 00 


SSB,RSS 


LAkGE? 


JMP MLK2 


YES 


EQU * 




IDA MLKLP 


NO, MOVE 


ADA R «6 


TO NEXT DISC 


STA MLKLP 


EOT ENTRY 


JSB MLKDS 


BLOCK ON 


SS6 


THIS DISC? 


JMP MLK5 


NO 


INA 


YES, SAVE 


STA MLKLA 


LAST BLOCK 


DLD MLKFB 


FIRST 


D3T MLKIN 


BLOCK 


JSB MLKDS 


ON THIS 


CLE,s$5 


DIsC ALsO 


JMP MLK2 


NO 


STA MLKFA 


YES, SAVE IT 


ADA ,«4 


BLOCKS 


SEZ#RSS 


0*3 ArE 


JMP MLK2 


ILLEGAL 


IDA MLKLP 


CHECK 


ADA ,*2 


For 


LDB A'l 


DISC 


LDB B,I 




SIB 


PRESENT 


JMP MLK6 


IT IS 


LDB ,,17 


ERROR 


JSB MLKER 




OCT 5U6 




ASQ 8,QNEXISTENT disc 
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75123 


020104 




75124 


044523 




75125 


041440 


0099* 






0096* 


CHECK 


S8T AN 


0097* 


ARE BEING US 


0090* 






0099 


75126 




0100 


75 U6 


06075*1 


0101 


75127 


070215 


0102 


75130 


064205 


0103 


75131 


045036 


0104 


75132 


063732 


0105 


75133 


114217 


0106 


75134 


026311 


0107 


75135 


160205 


0108 


75136 


040345 


0109 


75137 


073761 


0110 


75140 


064205 


0111 


75141 


044355 


0112 


75142 


077146 


0113 


75143 




0114 


75143 


007400 


0115 


75^44 


0603g0 


0116 


75145 


017552 


0117 


75146 


000000 


0118 


75147 


063146 


0119 


75150 


040356 


0120 


75151 


073146 


0121 


75152 


037761 


122 


75i53 


027143 


0123 


75i54 


0^0207 


0124 


75155 


070215 


0125 


75156 


007400 


0126 


75157 


100400 




75160 


000355 


0127 


75161 


073761 


0128 


75162 


002004 


0129 


75163 


070030 


0130 


75164 


064206 


0131 


75165 


044354 


0132 


75166 


104200 




75167 


100001 


0133 


75 t 70 


104400 




75171 


075764 


0134 


75172 


064566 


0135 


75173 


063777 


0136 


75174 


114217 


0137 


75175 


026311 


0138 


75176 


060562 


0139 


75177 


002004 


0140 


75200 


073212 


0141 


75201 


040354 


0142 


75202 


064412 


0143 


75203 


174000 



NONE OF THE BLOCKS TO BE LOCKED 



MLK6 



HLK7 



MLK8 



EQU * 




LDA M512 


LENGTH OF 


STA MWORD 


BOOTSTRAP 


LOB LDB3A 


CORE ADDRESS 


AOB BIT15 




LOA MLKD, 


DISC ADDRESS OF 0,1 


J3B OlSCZrl 


READ BOOTSTRAP 


JMP ODERR 




LOA LDB3A,J 


NUMBER 


ADA ( .5 


OF SYSTEM 


STA MLKCT 


"SEGMENTS 


LOB LDBSA 


•> FIRST 


AOB t +3 


DISC 


STB MLK8 


ADORESS 


EQU * 




CCB 


PRINT MESSAGE ON ER 


LDA ,-2 


DISTANCE FROM ADOR 


J3B MLKCK 


CHECK T HIS AOOrEss 


nop 




LOA MLK8 


UPDATE 


ADA ,+4 


TO NEXT 


STA MLK8 


ADORESS 


ISZ MLKCT 




JMP MLK7 




LDA DATLN 


LENGTH 


STA MWQRD 


OF OAT 


CCB 


NUMBER 


DIV ,*3 


qF oat 


8TA MLKCT 


ENTRIES 


INA 




STA MLKTC 




LOB LSTOA 




AOB ,+2 




OLD B#I 


DISC 


OST MLKJN 


ADDRESS 


LOB LIBDI 


CORE ADORESS 


LDA MLKIP 




JSB DISCZ,! 


READ DAT 


JMP ODERR 




LOA LIBD 


FIRS T 


Ina 


OAT DISC 


STA MUK10 


ADDRESS 


ADA ,4-2 


»> second Entry 


LOB ,*32 


SET TO FULL 


STB A, I 


LENGTH 
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0144 
0145 
0146 
0147 

0l4» 
0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157* 

0156*' 

0159*1 

0160* 

0161* 

0162* 

0163* 

0164* 

0165* 

0166* 

0167* 

0168 

0169 

0170 

0171 

0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0164 
0185 
0186 
0187 
0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196* 

0197 



75204 
75205 
75206 
75207 
75207 
75210 

75211 
75212 
75213 
75214 
75215 
75216 
75217 



040355 
034030 
027203 

00740a 
003400 

017552 
000000 
063212 
040355 
073212 
037761 
027207 



MLK9 



ADA 

isz 

JMP 
EQU 
CCB 
CCA 
JSB 

MLK10 NOP 
LDA 

ADA 
8TA 
ISZ 
JMP 



, + 3 

MLKTC 
*»3 



MUCK 

MUK10 
t *3 

ML*i0 
MLKCT 

MLK9 



PRINT MESSAGE ON ERROR 
DISTANCE FROM ADDR TO LENGTH 
CHECK THIS ADDRESS 

UPDATE 
TO NEXT 

dat Entry 



SEARCH DIRECTORY FOR ENTRIES WHICH ** 
LIE IN THE RANGE OF BLOCKS TO BE LOCKED ** 

READ EACH DIRECTORY TRACK AND CHECK FOR DISC ADDRESSES WHICH LIE 
IN THE RANGE OFTHE BLOCKS TO BE LOCKED, f-OR EACH SUCH ENTRY 
FOUND, ADD A 4-WORD ENTRY TO A TABLE CONSISTING OF j 

U A POIN T ER TO THE DIREC ENjRY FOR jHIS DIRECTORY T*ACK 

2) A POINTER To THI8 E N TRY»S POSITION In THE DIRECTORY 

3) THE TWO-WORq uISK A D0 RfcSS OF THg FILE OR PROGRAM 



75220 
75221 
75222 
75223 
75224 
75225 
75226 
75227 
75227 
75230 
75231 
75232 
75233 
75233 
75234 
75235 
75236 
75237 
75237 
75240 

75241 
75242 
75243 
75244 
75245 
75246 
75247 
75250 
75251 



063770 

073767 

002400 
070030 
065002 
074037 
067733 

074036 
160001 
002002 
027237 

044361 
057734 
027345 
027227 

070072 
007400 

100400 
000365 

073761 
064036 
044360 
160001 
064566 
016231 
026311 



LDA 
STA 
CLA 
STA 
LDB 
STB 
LDB 

MLKll EQU 
STB 
LDA 
SZA 
JMP 

MLK12 EQU 
ADB 
CPB 
JMP 
JMP 

MLK13 ECU 
STA 

CCB 
DIV 



MLKRP 
MLKRD 

MLKTC 
L8192 

MLKTP 

MLDIR 

* 

MLKOI 

B,I 

MLK13 

* 

.♦7 

MLKDU 

MLK20 

MLKll 

* 

WORD 
.♦12 



75252 064562 



STA mlkct 

LDB MLKDI 
ADB ,+6 
LDA BrI 
LDB LIBDI 
JSB DRUML 
JMP DDERR 

LDB LIBD 



BUFFER FOR ENTRIES tO 

return to disc adt 
initialize count 

of table entries 
*> beginning 

of table buffer 

OlKfcC 

POINTER 
ANY ENTKlEg 

ON THIS TRACk? 
YES 

NO, BUMP POINTER 
ALL FINISHED? 
YES 
NO 

FOR DRUM TRANSFEH 
COMPUTE * 
OF ENTRIES 

ON TRACK 



DRUM ADDRESS 
READ IN 

DIRECTORY TRAC« 



INITIALIZE 
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0198 


75253 


044362 


AOB 


.♦8 


DIRECTORY 


fc>199 


75254 




MLK14 EQU 


* 




0200 


75254 


077260 


STB 


MLKDP 


POINTER 


0201 


75255 


006400 


CUB 




SKIP RETURN ON FOUND 


0202 


75256 


060355 


LDA 


.♦3 


DISTANCE BETWErN AOOR AND LENG 


0203 


75257 


017552 


JSB 


MLKCK 


CHECK THJS ADDRESS 


0204 


75260 


000000 


MLKDP NOP 






0205 


75261 


027324 


JMP 


MLKJ5 


NOT IN RANGE 


0206 


75262 


027304 


JMP 


MLKJ7 


NO SPECIAL ENTRY FOUND 


0207 


75263 


067260 


LOB 


MLKDP 


■> DISC ADDRESS 


0208 


75264 


160001 


IDA 


B,I 




0209 


75265 


173767 


STA 


MLKRO,I 


SAVE FIRST WORD 


0210 


75266 


006004 


INB 






0211 


75267 


037767 


ISZ 


MLKRD 




0212 


75270 


160001 


LDA 


8.1 




0213 


75271 


173767 


STA 


MLKRO, I 


SAVE SECOND WORD 


0214 


75272 


037767 


ISZ 


MLKRD 




0215 


75273 


1444354 


AOB 


,♦2 




0216 


75274 


160001 


LDA 


B,I 


GET LENGTH 


0217 


75275 


002021 


SSAi 


>RSS 




0218 


75276 


027302 


JMP 


* + 4 


IT POSITIVE 


0219 


75277 


001727 


ALF, 


,ALF 


CONVERT 


0220 


75300 


030762 


IQR 


HlMSK 


TO 


0221 


75301 


003004 


CMAj 


>INA 


BLOCKS 


0222 


75302 


173767 


STA 


MLKRD, I 


SAVE THE LENGTH IN BLOCKS 


0223 


75303 


037767 


ISZ 


MLKRD 




0224 


75304 




MLK17 EOU 


* 




0225 


75304 


064036 


LOB 


MLKOI 


SAVE POINTER 


0226 


75305 


174037 


STB 


mlktp,i 


TO DIREC 


0227 


75306 


034037 


ISZ 


MLKTP 


IN TABLE 


0228 


75307 


067260 


LOB 


MLKDP 


3AVE POINtEh 70 


0229 


75310 


174037 


STB 


MLKTP, 1 


DIRECTORY ALSO 


0230 


75311 


034037 


isz 


MLK T P 


GET DI 8 C 


0231 


75312 
75313 


104200 
100001 


D U D 


B,I 


ADDRESS 


0232 


75314 
75315 


104400 
100037 


DST 


MLKTP, I 


AND SAVE 


0233 


75316 


064037 


LOB 


MLKTP 


ADVANCE TABLE 


0234 


75317 


044354 


AOB 


.♦2 


POSTER 


0235 


75320 


054530 


CPB 


LULEN 


OVERFLOW? 


0236 


75321 


027332 


JMP 


MLK16 


YES 


0237 


75322 


074037 


8TB 


MLKTP 


NO 


0238 


75323 


034030 


* S Z 


MLKTC 


BUMP COUNT OF TABLE ENTRIES 


0239 


75324 




MlK15 EUU 


* 




0240 


75324 


067260 


LOB 


MLKDP 


BUMP DIRECTORY 


0241 


75325 


044366 


AOB 


. + 12 


P0IN T ER 


0242 


75326 


037761 


ISZ 


MLKCT 


FINISHED THIS DIRECTORY TRACK? 


0243 


75327 


027254 


JMP 


MLK14 


NO 


0244 


75330 


064036 


LOB 


MLKDI 


yES, CHECK 


0245 


75331 


027233 


JMP 


MLK12 


NEXT TRACK 


0246 


75332 




MLK16 EQU 


* 




0247 


75332 


064330 


LOB 


.-18 


TABl,E OVERFLOW 


0248 


75333 


017536 


JSB 


MLKER 




0249 


75334 


005114 


OCT 


5114 




0250 


75335 


047503 


ASC 


8,UCK FEWER BLOCKS 
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75336 


045440 












75337 


043105 












75340 


053505 












75341 


051040 












75342 


041114 












75343 


047503 












75344 


045523 










025 U 














0252* 


NOW COMPARE TABLE JU8T BUILT WITH 


FUSS TABLE TO 


0253* 


DETERMINE IF 


THE TRACKS 


TO BE LOCKED CONTAIN ACTIVE 


0254* 














0255 


75345 




MLK20 


EQU 


* 




0256 


75345 


060030 




L 0A 


mlktc 


SKIP CHECKING 


0257 


75346 


003007 




Cm*i 


-InA,SZA,rS8 FUSS IF NO 


0250 


75347 


027723 




JMP 


MLK30 


TABLE ENTRIES 


0259 


75350 


070030 




8TA 


mlktc 




0260 


75351 


060732 




IDA 


M2000 




0261 


75352 


070072 




STA 


WORD 




2 62 


75353 


001100 




AR3 




NUMBER OF FUSS 


0263 


75354 


073761 




STA 


MLKCT 


TABLE ENTRIES 


0264 


75355 


160540 




IDA 


FUSS, J 


READ 


0265 


75356 


064566 




LOB 


LIBdI 


FUSS 


0266 


75357 


016231 




JSB 


DRgML 


TABLE 


0267 


75360 


026311 




JMP 


DDERR 




0268 


75361 


064562 




LDB 


HBD 


INITIALIZE 


02 6 9 


7S3 6 2 


074037 




STB 


MLKTP 


FU8S POINTER 


0270 


75363 




MLK21 


EQU 


* 




0271 


75363 
75364 


104200 
100037 




DLD 


MLKTP, I 


CET FUSS ENTRY 


0272 


75365 


03000J 




IOR 


B 


CHECK 


0273 


75366 


002003 




SZA, 


rRSS 


FOR ZERO 


0274 


75367 


027416 




JMP 


MLK23-1 


IT 13, SKIP IT 


0275 


75370 


065002 




LDB 


L8192 


NON*ZERO, SET 


0276 


75371 


044354 




ADB 


.♦2 


TABLE POINTER IN 


0277 


75372 


060030 




LDA 


MLKTC 


NUMBER 0^ 


0278 


75373 


070036 




STA 


MLKDI 


TABLE ENTRIES 


0279 


75374 




MUK22 


EQU 


* 




0280 


75374 


160001 




LDA 


B,I 


COMPARE 


0281 


75375 


006004 




INB 




FIRST WORD 


0282 


75376 


150037 




CPA 


MLK T P,I 


OF EN T RIES 


0283 


75377 


027404 




Jmp 


* + 5 




0284 


75400 


031036 




IOR 


BITlg 




0285 


75401 


150236 




CPA 


LOCTPfl 




0286 


75402 


002001 




RSS 






0287 


75403 


027413 




JMp 


MLK25 


UNEQUAL 


0288 


754^4 


034037 




ISZ 


MLKTP 


EQUAL, 


0289 


75405 


160001 




LDA 


B,I 


COMPARE 


0290 


75406 


150037 




CPA 


MLKTP, I 


SECOND WORD 


0291 


75407 


027423 




Jmp 


MLK24 


EQUAL, FI1.E In U8E 


0292 


75410 


003400 




CCA 




UNEQUAL, MOVE 


0293 


75411 


040037 




ADA 


MLKTP 


POINTER BACK 


0294 


75412 


070037 




STA 


MLKTP 


TO FIRST WORD 


0295 


75413 




MUK25 


EQU 


* 




0296 


75413 


044355 




ADB 


.♦3 


BUMP TO NEXT TABLE 


0297 


7 5414 


034336 




ISZ 


MLKDI 


FINISHED TABLE? 



C6) 
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0298 
0299 

0300 

0301 

0302 

0303 

0304 

0309* 

0306 

0307 

0306 

0309 

031k) 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325* 

0326* 

0327* 

0326* 

0329* 

0330 

0331 
0332 
0333 
0334 
0335 

0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 

0346 
0347 
0348 
0349 
0350 
0351 
0352 



75415 
75416 
75417 
75417 
75420 
75421 
75422 

75423 
75423 
75424 
75425 
75426 
75427 
75430 
75431 
75432 
75433 
75434 
75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 



027374 

034037 

034037 
037761 
027363 
027723 



044347 
074037 

164001 
160001 
070072 
044360 
160001 
064566 
016231 
02631* 
060037 
002004 
160000 
073444 
007400 
060355 
017552 
000000 



MLK23 



MIK24 



MU26 



JMP MLK22 


NO 


I3Z MLKTP 


YfcS 


EUU * 




I3Z MLKTP 


BUMP TO NEXT J-USS ENTRY 


isz mlkct 


FINISHED FuSS 


JMP MLK2J 


NO 


JMP MLK30 


YES 


EQU * 




ADB ,«3 


GET POINTER 


STB MLKTP 


TO OIREC 


LOB B,I 


IN (B) 


IDA B,I 


TRACK 


STA WORD 


LENGTH 


ADB ,+6 




LDA B,I 


READ 


LDB LIBDI 


DIRECTORY 


JSB ORUML 


TRACK 


JMP ODERR 




LDA MLKTP 


TO DRUM 


INA 


to drum 


LOA A, I 


ADDRESS FOR 


STA MLK26 


subroutine 


CCB 


OUTPUT 


LOA ,'*3 


'CAN'T 


JSB MLKCK 


LOCK» 


NOP 


MESSAGE 



MLKNO SCANS THE INPUT STRING FOR AN INTEGER LESS THAN 2**19, 
FOUND IT RETURNS TO (P*2) WITH THE INTEGER IN MLKIN10UJ AND 
THE FOLLOWING CHARACTER IN (A), ERRORS EXIT TO (P+2), 



IF 



75445 

75446 
75447 
75450 
75451 
75452 
75453 
75453 
75454 
75455 
75456 
75497 
75460 
75461 
75462 
75463 
75464 
75465 
75466 
75467 
75470 
75471 
75472 



000000 

007400 
074037 
006400 
077764 
077765 

016025 
0275H 
064000 
044316 
006021 
027511 
044364 
006020 
0275U 
074037 
063765 
067764 
100022 
000040 
043765 
002040 



MLKNO NOP 
CCB 
SjB 
CLB 
SfB 
STB 

MLKNl EQU 
JSB 
JMP 
LOB 
ADB 
SSy, 
JMP 
ADB 
SSB 
JMP 
STB 
LOA 
LDB 
AsL 
CLE 
ADA 
SEZ 



MLKJP 

MLKIN 
MLKIN+1 

* 

T35CQ 

MLKN2 

A 

H72B 

RSS 

MLKN2 

• + 10 

MLKN2 
MLKTP 
MLKIN+1 
MLKIN 

2 
MLKIN*1 



set flag for 

number occurrence 
initialize 

twq„digit 

RESULT 



GET 
CR 



A CHARACTER 



DIGIT? 

NO 

MAYBE 

NO 

YES, SAVE IT 

GET PREVIOUS 
RESULT 

MuLTlpLY By 4 
ADD PREVIOUS 
RESULT, 

Producing 
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0353 

B354 
0355 

0356 

0357 

0356 

0359 

0360 

0361 

0362 
0363 

0364 

0365 

0366 

0367 

036g 

0369 

0370 

0371* 

0372* 

0373* 

0374* 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385* 

0386* 

0387* 

0386* 

0389* 

0390 
0391 

0^92 

0393 

0394 

0395 

0396 

0397* 

0398* 

0399* 

0400 

0401 

0402 

0403 

0404 
0405 
0406 



75473 

75474 
75475 

75476 
75477 
75500 
75501 
75502 
75503 
75504 
75505 
75506 
75507 
75510 
75511 
75511 
75512 
75513 



006034 

047764 
100021 
000040 
040037 
002040 
006004 
077764 
073766 
060001 
010361 
050001 
027453 
127445 

034037 
037445 
127445 



MLKN2 



MLKT8 SUBTRACTS THE 

LEAVING THE RESULT IN t(8),CA)], 

75514 000000 MLKTS NOP 



INB 


MULTIPLICATION 


ADB MLKIN 


BY 5 


A3L 1 


NOW 10*PREVIOU3 RESULT 


CLE 


AOD IN 


ADA MLKTP 




SEZ 


NEw DIGIT 


INB 




STB MLKIN 


SAVE NEW 


STA MLKIN+1 


RESULT 


LOA B 


TOO 


ANU ,*7 




CPA B 


BIG? 


JMP MLKN1 


NO 


JMP MLKNQ,I 


YES 


EQU * 




I8Z MLKTP 


OIO NUMBER OCCUR? 


ISZ MLKNO 


YES 


JMP MLKNO, I 


NO 


TWO«WORU INTEGER IN UB),U)J FROM MLKIN[0ji}, 



75515 
75516 

75517 
75520 
75521 
75522 
75523 
75524 
75525 



003104 
007040 

006004 
000040 
043765 
002040 
006004 
047764 
127514 



CMA,CLE,INA 


NEGATE 


CMB,3EZ 




INB 


SUBTRAHEND 


CLE 




AOA MLKI N *1 


ADD I N 


SEZ 




INB 


MINUEND 


ADB MLKIN 




JMP MLKTS, I 





mlkds Takes the oisc address in mlkini0|U and computes it 

RELATIVE TO THE DISC WHOSE EOT ENTRY 13 POINTED TO BY MLKTP, 
EXITING WITH THt RESULT IN [(B), (A)), 



75526 
75527 
75530 

75531 
75532 
75533 
75534 
75535 



000000 
104200 

100033 
000065 
005500 

101100 
017514 
127526 



MLKDS 



NOP 
OLD 



MLKLP,I GET FIRST SECTOR NUMBER 



CLE, ERA 
ER8 

SwP 

JS8 MLKTS 

JMP MLKDSrl 



CONVERT TO 
BLOCKS 

COMPUTE RELATIVE ADDRESS 



MLKER OUTPUTS AN ERROR MESSAGE TO THE CONSOLE 



75536 000000 

75537 074037 

75540 060305 

75541 070051 

75542 063g36 

75543 070050 

75544 005100 



MLKER NOP 

STB MLKTP 

LDA T35B1 

STA MOVED 

LDA MLKER 

STA MQyES 

BR3 



MOVE 

MESSAGE 
INTO 

CONSOLE 
BUFFER 
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0407 

0406 

0409 

0410 

0411 

0412* 

0413* 

0414* 

0415* 

0416* 

0417 

0416 

04.19 

0420 

0421 

0422 

0423 

0424 

0425 
0426 
0427 
0426 

0429 
0430 
0431 
0432 

0433 
0434 

0435 
0436 

0437 
0436 
0439 
0440 
0441 
0442 
0443 
0444 

0445 
0446 
0447 
044$ 
0449 
0450 

0451 
0452 

0453 
0454 
0455 
0456 



75545 
75546 
75547 
75550 
75551 



M16257 
060037 
003004 
064305 
026271 



JSB MQVfcH 
LDA MUKTP 
CMA,INA 
LOB T35B1 
JMP LEND+2 



OUTPUT IT 



MLKCK CHECKS 
BLOCK TO BE 
TABLE bfcjWEE 
ADDRESS, 

75552 000000 

75553 074040 

75554 070041 

75555 167552 

75556 074043 

75557 037552 

75560 104200 

75561 100043 

75562 104400 

75563 075764 

75564 030001 

75565 002003 

75566 127552 

75567 104200 

75570 000046 

75571 017745 

75572 002020 

75573 027606 

75574 104200 

75575 075762 

75576 017745 

75577 002021 

75600 127&98 

75601 034040 

75602 027651 

75603 063765 

75604 067764 

75605 027615 
75606 

75606 017657 

75607 000046 

75610 127552 

75611 034040 

75612 027654 

75613 060047 
75$14 6 404$ 
75615 

75615 100400 

75616 001032 

75617 074032 

75620 067736 

75621 074031 

75622 017711 

75623 060032 

75624 006400 



WHETHER A GIVEN TABLE ENTRY IS IN THE RANGE OF THE 
LOCKEO UPON ENTRY (A) CONTAINS THE DISTANCE IN THE 
N JHE ADDRESS AND jHE LENGjH AND JSB,I ■> T ME DISC 



MLKCK NOP 

STB MLKEX 
STA MLKTI 
LOB MLKCK, I 
STB MLKBR 
ISZ MLKCK 
DLO MLKBR, I 

DST MLKIN 

IOR B 
SZA,RSS 

jmp mlkck#i 
dld mlkfb 

J3B MLKTW 

S3* 

JMP MLKC1 

olo mlkl» 



JSB 

SSA, 

JMP 

13Z 
JMP 
LDA 

udb 

JMP 

MLK^l equ 
JSB 
DEF 
JMP 
ISZ 

Jmp 

LDA 

LDB 

MLKC2 EQU 
DIV 



MLKTW 

RSS 

MLKCK,! 

MLK £x 
MLKC5 
MLKIN+j 

mlkIn 

MLKC2 

* 

MLKEC 

MLKFB 

MLKCK, I 

MLKEX 

h LKC4 

MLKFB t i 

MLKFB 

* 

DVSRS 



STB MLKFA 
LDB MLKD3 
STB MLKLA 
JSB MLKNM 
LDA MLKFA 
CLB 



SAVE TABLE INCREMENT 
«> DISC 
ADDRESS 

GET DISC ADDRBSS 



SKIP 

CHECK 

IF ZERO 
SUBTRACT FIRST 

BLOCK ADDRESS 
IN RANGE? 
NO 
YES, CHECK AGAINST 

LAST BLOCK 
IN RANGE? 
NO 

YES, PRInT FRRQR? 
NO 
YES, GO 

OUTPUT 

ERROR MESSAGE 

CHECK FOR MIDDLE OF ENTRY 
OVERLAPPING FIRST BLOCK 
IT DOESN'T 
ID DOES, PRINT ERROR? 

NO 
YES 



COMPUTE 



FIRST PAIR 

OF DIGITS 
COMPUTE 
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0457 


75625 
75626 


100400 
000437 


DIV 


,100 


SECOND PAIR 


0458 


75627 


074032 


STB 


MLKFA 




0459 


7563^ 


017711 


JSB 


MLKNM 


OF DIGITS 


0460 


75631 


060032 


LDA 


MLKFA 


COMPUTE THIRD 


0461 


75632 


0l77n 


JSB 


MLKNM 


PAIR OF DIGITS 


0462 


75633 


064322 


LOB 


,-24 


OUTPUT 


0463 


75634 


017536 


JSB 


MLKER 


MESSAGE 


0464 


76635 


005103 


OCT 


5103 




0465 


75636 


040516 


ASC 


8,AN«T LOCK BLOCK 




75637 


023524 










75640 


020114 










75641 


047503 










75642 


045440 










75643 


041114 










75644 


047S03 










75645 


045440 








0466 


75646 




MLKC3 EQU 


* 




0467 


75646 


000000 


BSS 


3 


FOR BLOCK NUMBER 


0468 


75651 




MLKC5 EQU 


* 




0469 


75651 


017667 


JSB 


MLKEC 


CHECK FOR MIDDLE 


0470 


75652 


075762 


DEF 


MLKLB 


IN RANGE OF LA 


0471 


75653 


002001 


RSS 




IT ISN'T 


0472 


75654 




MUC4 EQU 


* 




0473 


75654 


037552 


ISZ 


MLKCK 




0474 


75655 


037552 


ISZ 


MLKCK 




0475 


75656 


127552 


JMp 


MLKCK, I 




0476* 












0477* 












0478 


75657 


000000 


MLKEC NOP 






0479 


75660 


060043 


LDA 


MLKBR 


(A) »> 


0480 


75661 


040041 


ADA 


MLKTI 


LENGTH 


0481 


75662 


164000 


LOB 


A, I 




0482 


75663 


006021 


SSB, 


>RSS 




0483 


75664 


027670 


JMP 


♦ ♦4 


♦ BLOCKS 


0484 


75665 


003400 


CCA 




• WORDS 


0485 


75666 


101110 


RRR 


8 


CONVERT TO 


0486 


75667 


007004 


CMB, 


,INB 


♦ BLOCK3 


0487 


75670 


044351 


ADB 


.-1 




0488 


75671 


160043 


LOA 


MLKBR, I 


COMPUTE 


0489 


75672 


034043 


ISZ 


MLKBR 




0490 


75673 


000040 


CLE 




FIRST 


0491 


75674 


144043 


AOB 


MLKBR, I 




0492 


75675 


002040 


SEZ 




unused 


0493 


75676 


002004 


INA 






0494 


75677 

75700 


104400 
075764 


OST 


MLKIN 


block 


0495 


75701 


163657 


LOA 


MLKEC,I 




0496 


75702 
75703 


104200 
100000 


OLO 


A, I 


SUBTRACT FjRST 


0497 


75704 


037657 


isz 


MLKEC 




0498 


75705 


017745 


JSB 


MLKTW 


BLOCK ADDRESS 


0499 


75706 


002021 


SSA, 


pRSS 


IN RANGE? 


0500 


75707 


037657 


ISZ 


MLKEC 


YES 


0501 


75710 


127657 


JMp 


MLKEC, I 


NO 
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0502* 

0504* 
0505 
0506 
0507 

050a 

0509 

0510 

05U 

0512 

0513 

0514* 

0515* 

0516* 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

1*524 

0525* 

0526 

0527 

0528 

0529 

0530 

0531* 

0&32 

0533 

0534 

0535 
0536 
0537* 

0&3e* 

0539* 
0540* 
0541 

0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551* 

0552 
0553 
0554 
0555 



MLKNM COMPUTES A NUMBER <100 TO ASCII AND SAVES ZT FOR QUTPUTTING 



75711 000000 MLKNM NOP 



75712 
75713 
75714 
75715 
75716 
75717 
75720 
75721 
75722 



006400 
100400 
000364 
001727 
040001 
040574 
170031 
034031 
1277H 



CUB 
UIV 



♦10 



ALF,ALF 
ADA B 



ADA 
STA 

13Z 

JMP 



ASC00 
MLKLA,! 
MLKLA 
MLKNM, I 



CONVERT TO ASCII 



READ IN OVERLAY 



MLK30 EQU * 

EDA MOtEN 

STA WORD 

UOA LIB 
INA 

EDA A/I 

LOB #LlBj 

JMP MORS 



WORD COUNT FOR 

MLOCk overlay 

DRUM ADDRESS 



75723 

75723 063735 

75724 070072 

75725 060260 

75726 002004 

75727 160000 

75730 064504 

75731 027742 

75732 000352 

75733 030000 

75734 031060 

75735 177036 

75736 075646 

75742 
75742 

75742 016231 

75743 116015 

75744 027000 

MLKTW SUBTRACTS THE TWQ»WORD INTEGER IN((A)r(B)l FROM MLKIN[0|1J, 
LEAVING THE RESULT IN ((A),CB)J, 



MLKD, 


DEF 








MLDIR 


DEF 


DIREC 






MLKDU 


DEF 


DIREU 






MOLEN 


abs 


LIBRA-MORG 




MLKD3 


DEF 


MLKC3 








ORG 


LIBRA*5l2*30 




MORG 


EUU 


* 








JSB 


DRUML 


READ 


OVERLAY 




J3B 


SlCKP,! 








JMP 


LIBRA 


EXECUTE IT 



75745 

75746 
;5 7 47 

75750 
75751 
75752 
75753 
75754 
75755 
75756 



000000 

007104 
003040 
002004 
000040 
047765 
002040 
002004 
043764 
127745 



75757 000000 

75760 000000 
75757 

75761 000000 



MLKTW NOP 

CMB,CLE, INB 

CMA,S£Z 

INA 

CLE 

ADB MLKIN+1 

SEZ 

INA 

ADA MLKIN 

JMP MLKTW, I 

MLKPP BSS 1 
MLKND BSS 1 
MLKXB EQU MLKPP 
MLKCT BSS 1 



NEGATE 

SUBTRAHEND 
ADD IN 

MINUEND 
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19556 


75762 


000000 


MLKLB 


B8S 


2 


0557 


75764 


000000 


MLKlN 


BBS 


2 


0558 


75766 


000000 


MLKLN 


BSS 


1 


0559 


75767 


000000 


MLKRD 


BBS 


1 


0560 


75770 


075771 


ML.KRP 


UEF 


*♦! 


0561 


75771 


000000 




BBS 


6 


0562 


75777 


075764 


MLKIP 


DEF 


MIKIN 


0563 


76000 




$MUO 


EQU 


* 


0564* 












0565 


00030 




MLKTc 


EQU 


LTEMP 


0566 


00031 




MLKLA 


equ 


ltemp+i 


0567 


00032 




MLKFA 


EQU 


LTEMp+2 


056B 


00033 




MUKLP 


EQU 


LTEMP+3 


0569 


00036 




MLKOI 


EQU 


LTEMP*6 


0570 


00037 




MLKTP 


EQU 


LTEMP+7 


0571 


00040 




MLKEX 


EQU 


LTEMP*8 


0572 


00041 




MLKTI 


EQU 


LTEMP+9 


0573 


00043 




MLKBR 


EQU 


LTEMP+H 


0574 


00046 




MLKFB 


EQU 


LTEMP+14 


0575* 












0576* 


LTEMP 


♦ A, 5# 


10f 12# AND 13 ALS 



15 ALSO USED, 
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0082* 
0003* 
0004* 
0005* 
0006* 
0007* 

000a* 

0009* 

0010* 

00U* 

0012* 

0013* 

0014* 

0015* 

0016* 

0017 

0018 

0019 

0020 

0021 
0022 
0023 

0024 
0025 
0026 

0027 

0026 

0029 

0030 

0031* 

0032* 

0033* 

0034 

0035 
0036 
0037 
0036 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0040 
0049 
0050 
0051 
0052 
0053 
0054 



THE MLOCK OVERLAY DOES ALL THE WORK FOR MLOCK, 
8UJLT BY MLOCK AND PROCEEDS AS POLLOWSi 



IT USES THE TABLE 



1) UPDATE LOCKED BLOCKS TABLE, 

2) UPDATE THE DIRECTORY BY REMOVING ENTRIES WHOSE DISC 
ADDRESSES LIE IN t h E RANGE OF |HE BLOCKS jO BE LOCKED, 

3) UPDATE THE ADT WITH DRUM SpACE RETURNED FroM SANCTIFIED 
PROGRAMS AND FILES WhICh HAVE BEEN REMOVED, 

4) UPDATE THE IDT WITH SPACE RETURNED FROM DELETED PROGRAMS 
AND FILES, 

5) UPDATE DISC ADT BY REMOVING ENTRIES WHICH ARE IN THE RANGE 
OF THE BLOCKS TO BE LOCKED, 

ISN'T THIS A RIDICULOUS AMOUNT OF THRASHING? 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 



060762 
070215 

104200 
100033 
000065 
005540 
044355 
002040 
002004 
104400 
075764 
063777 
064566 
114217 
026311 



ORG LIBRA 
LDA M256 
STA MWORO 
OLD MLKLP/I 

CLE, ERA 
£RB,CLE 
ADB .+3 
SEZ 

INA 

DST MLKIN 

LDA MLKIP 
LDB LIBDI 
JSB DI8CZ,I 
JMP DDERR 



* UPDATE LOCKED BLOCKS TABLE 



/5017 
75020 
75020 
75021 
75022 
75023 
75024 
75025 
75026 

75027 
75030 
75031 
75032 
75033 
75034 

75035 
75036 
75037 
75037 

75040 
75041 



064562 

160001 
002003 
027154 
003104 
040032 
002003 
027043 
002041 
027124 
044354 
057736 
002001 
027020 
017556 
027163 

103100 
002400 
070260 



LDB 
MLK71 EQU 
LDA 
SZA, 
JMP 
CMA, 
ADA 
8ZA, 
JMP 
SEZ, 
JMp 
ADB 
CPB 
RSS 
JMP 
JSB 
JMP 
MLK72 EQU 
CLF 
CLA 
STA 



LIBD 

* 

B,I 

RSS 

MLK81 

CLE,INA 

MLKFA 

RSS 

MLK73 

RSS 

MLK78 

• ♦2 

MLKLZ 

MLK71 
MLKPB 
MLK82 

* 


LIB 



LENGTH OF 
BAD BLOCKS 



RESIDES ON BLOCK 3 



READ BAD 
BLOCKS 
TABLE 



*> FIRST ENTRY 



FINISHED SEARCH? 

YES, GO INSERT AT END 

THIS 

ENTRY 
EQUAL? 
Y£S 

NO, GREATER? 
YES 
NO, TABLE 

FULL? 
YES 
NO LOOP 

check preceeding block 
entries merged 



Nq RUUTINE IN CuRE 
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0055 
0056 
0057 
0056 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
1^068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
m77 
0078 
0079 
0060 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0069 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 

0107 
0108 
0109 



75042 
75043 
75043 
75044 
75045 
75046 
75047 
75050 
75 51 
75052 
75053 
75054 
75054 
75055 
75056 
75057 
75060 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 
75071 
75072 
75073 

75074 
75075 
75076 
75077 
75100 
75101 
75101 
75102 

75103 
75104 
75105 
75105 
75106 
75107 
75110 
75111 

75U2 
75U3 
75114 
75115 
75116 
75U6 
75H7 
75120 
75121 
75122 

75123 



126024 

006004 
063766 
003104 
140001 
002040 
027547 
063766 
170001 
006004 

057736 
027J63 
160001 
002003 
027163 
044350 
160001 
006004 
140001 
003100 
006004 
140001 
006044 
027le3 
140001 
002045 
027101 
044350 
140001 
170001 
006005 

044351 
074043 
077757 

044354 

057736 
027116 
160001 
002003 
027116 

I73757 
037757 

006004 
027105 

002400 
173757 
037757 
173757 

064043 
027054 



MLK73 



MLK74 



MU75 



MLK76 



MLK77 



JMP MLFLAfI 


output table full mi 


EUU * 




INB 




LOA MLKLN 


is THE 


CMA,CLE,INA 


NEW 


ADA B,l 


BLOCK 


8EZ 


LONGER? 


JMP MLK99 


NO 


LDA MUKLN 


YES, RESET 


STA B,I 


length 


INB 




EQU * 




CPB MLKLZ 


END OP TABLE? 


JMP MLK82 


YES 


LOA B,l 


ALL ENTRIES 


SZA,RSS 


FINISHED? 


JMP MLK82 


YES 


ADB ,.2 


NO 


(.DA B,I 


DOES THIS 


INB 




Ada b,i 


ENTRY 


CMA,CLE 




INB 


OVERLAP THE 


ADA B,I 




8EZ,INB 


NEXT ONE? 


JMP MUK82 


NO 


ADA B,I 


YES, ENCLOSE 


8EZ,INA,RSS 


THE ENTRY? 


JMP MLK75 


YES 


ADB f .2 


NEW LENGTH 


ADA B,I 


AND 3AVE 


STA B,i 




XNB r RS8 




EUU * 




ADB ,»i 




8TB MLKBR 


SAVE (B) 


STB MLKPP 


DESTINATION POINTER 


ADB ,*2 


SOURCE PoINTEk 


EUU * 




CPB MLKLZ 




JMP MLK77 




LDA B,I 


MOVE 


8ZA f RSS 




JMP MLK77 


TABLE, 


STA MLKPP, I 




ISZ MLKPP 


ELIMINATING 


INB 




JMP MLK76 


ONE ENTRY 


EQU * 




CLA 




STA MLKPP,! 


ZERO TWO 


ISZ MLKPP 


WORDS AFTER 


STA ML.KPP, I 


LAST ENTRY 


LDB MLKBR 


RESTORE (B) 


JMP MLK74 


GO CHECK NEXT ENTRY 
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0110 
Bill 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 

0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150* 

0151* 

0152* 

0153* 

0154* 

0155* 

0156* 

0157* 

0158* 

0159* 

0160* 

0161 

0162 

0163 

0164 



75124 
75124 
75125 
75126 
75127 
75130 

75l3l 
75132 

75133 
75134 
75135 
75135 
75136 
75137 
75140 
75141 
75142 
75143 
75144 
75145 
75146 
75146 
75147 
75150 
75151 
75152 
75153 
75154 
75154 
75155 
75156 
75157 
75160 
75161 
75162 
75163 
75163 
75164 
75165 
75166 



017556 
027054 
074043 
067737 
160001 
002002 
027037 
*777i>7 
044350 

160001 
173757 
054043 
027146 
044351 
003400 
043757 
073757 
027135 

060032 
170001 
006004 
063766 
170001 
027053 

017556 
027163 

060032 
170001 
006004 
063766 
170001 

063777 
064562 
114217 
115020 



MUK78 EOU 
JSB 
JMP 
STB 
LOB 
LDA 
SZA 
JMP 
STB 
AOB 

MLK79 E8U 
LDA 
STA 
CPB 
JMP 
AOB 
CCA 
ADA 
STA 

JMP 
MIK80 EQU 
LOA 
STA 
INB 
LOA 
STA 
JMP 
MLK81 fcQU 
JSB 
JMP 
LDA 
STA 
INB 
LOA 
STA 
MLK82 EQU 
LOA 
LOB 
JSB 
JSB 



* 

MLKPO 

MLK74 

MLKBR 

MLKLY 

b,l 

MLK72 
MLKPP 
,w2 

* 

b,i 

MLKPP, I 
MLKBR 
MLK80 
«»l 

MLKPP 

MLKPP 

MLK79 

* 

MLKFA 

B,I 

MLKLN 

MLK74-1 

* 

MLKPB 

MLK82 

MLKFA 

B,I 

MLKLN 

B,I 

* 

MLKIP 

LIBD 

DISCZ,! 

MDEDP,I 



CHECK PRECEEDING BLOCK 
GO CHECK NEXT ENTRY 
SAVE (B) 
TABLE 

FULL? 
YES 

DESTINATION POINTER 
SOURCE POINTER 

MOVE 

TABLE, 

MAKING 

ROOM FOR 

new entry 

INSERT 

Ntw 

entry 
go check next entry 

check preceeding block 
entries merged 

INSERT 
NEw entry 
at tab^e end 

w RIT£ OUT 

LOCKED BLOCKS 
IABLE 



* UPDATE DIRECTORY 



* 

** 

* 



using the Table built previously, remove each referenced entry, 
replace the first two words of the table by thf id and length in 
♦blocks for use in updating the idt, for sanctified entries, 

H EPLACE THE tHIrD AND FOURT* wO r Ds BY THE DrUM ADDrEss 

In ^sectors for use i n updating the adt, set the third 

ZERO FOR NON-SaNCTIFIED ENTRIES, 
75167 060030 LDA MLKTC SKIP UPDATE 

75170 002003 SZA,Rss IF NO 

75171 027361 JMP MLK59 ENTRIES 

75172 073761 STA MLKCt 



AND LENGTH 
WORD TO 
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0165 


75173 


065U02 


LOB L8192 


POINTER TO 


0166 


75174 


074037 


STB MLKTP 


FIRST ONE 


0167 


75175 




MLK 4 » EQU * 




0166 


75175 


164337 


LOB MLKTP, I 


SAVE OIREC 


0169 


75176 


074036 


STB MLKOI 


POINTER 


0170 


75177 


160001 


LOA B,I 


WORD 


0171 


75200 


070072 


3TA WORD 


COUNT 


0172 


75201 


003004 


CMA,INA 


COMPUTE END 


0173 


75202 


040562 


AOA LIBD 


OF DIRECTORY 


0174 


75203 


073760 


STA MLKND 


BUFFER 


0175 


75204 


044360 


ADB ,+6 


REAO 


0176 


75205 


160001 


LOA b,I 




0177 


75206 


064566 


LOB LI80I 


DIRECTORY 


0176 


75207 


016231 


JSB DRUML 




0179 


75210 


116017 


J8B OeADP,I 




0180 


75211 


064562 


LOB LlBO 


INITIALIZE 


0181 


75212 


074050 


STB MOVES 


MOVE 


01«2 


75213 


074051 


8TB MOVED 


POINTERS 


0183 


75214 




MLK41 EQU * 




0184 


75214 


060037 


lda mlktp 




0185 


75215 


002004 


INA 


»> DIRECTORY ENTRY 


0165 


75216 


164000 


LOB A, I 




0187 


75217 


044342 


AOB ,-e 


•> ID WORD 


0188 


75220 


040351 


AOA ,.l 




0189 


75221 


070037 


8TA MLKTP 




0190 


75222 


160001 


LOA B,I 


SAVE ID 


0191 


75223 


170037 


STA MLKTP#I 


IN TABLE 


0192 


76224 


074043 


STB MLKBR 


SAVE POINTER FOR move 


0193 


75225 


034037 


I3Z MLKTP 




0194 


75226 


044365 


AOB , + u 




0195 


75227 


160001 


LOA BrI 


GET LENGTH 


0196 


75230 


002021 


SSA,RSS 


CONVERT 


0197 


75231 


027235 


JMP **4 




0196 


75232 


001727 


ALF,ALF 


TO BLOCKS 


0199 


75233 


030762 


IOR HIMSK 




0200 


75234 


003004 


CMA,INA 


AND SAVE 


0201 


75235 


170037 


STA MLKTP,! 




0202 


75236 


034037 


ISZ MLKTP 


IN TABLE 


0203 


75237 


044346 


AOB ,.4 




0204 


75240 


160001 


LDA B,I 


SAVE ORUM 


0205 


75241 


170037 


STA MLKTP, I 


ADDRESS 


0206 


75242 


034037 


ISZ MLKTP 




0207 


75243 


002003 


SZA,RSS 




0208 


75244 


027257 


JMP MLK42+2 




0209 


75245 


044356 


AOB ,+4 




0210 


75246 


160001 


LDA Bfl 


6ET LENGTH AGAIN 


0211 


75247 


002021 


SSA,RSS 




0212 


75250 


027255 


JMP MUK42 




0213 


75251 


001121 


ARS,ARS 


CONVERT 


0214 


75252 


001121 


ARS,ARS 




0215 


75253 


00U21 


ARS,ARS 


TO SECTORS 


0216 


/5254 


003005 


CMA,INA,RSS 




0217 


75255 




MLK42 EQU * 




0218 


75255 


001020 


ALS,ALS 


AND SAVE 


0219 


75256 


170037 


STA MLKTPfl 
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0220 

0221* 

0222* 

0223* 

0224 

ld225 

0226 

0227 

0228 

0229 

0230 
02 3 1 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
024J 
0242 
0243 
0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

025a 

0259 

0260 

0261* 

0262* 

0263* 

0264 

0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 



75257 034037 
MOVE PORTION 



ISZ M'LKTP 



OF DIRECTORY 



75260 
75261 
75262 
75263 
75264 
75265 
75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 
75276 
75277 
75300 
75300 
75301 
75302 
75303 
753«4 
75305 
75306 
75307 
75310 
75311 
75312 
75313 
75314 
75315 
75316 
75317 

75320 
75321 

75322 
75323 



064043 
007004 
044050 
016257 
064043 
044366 
074050 
160036 
040366 
170036 
037761 
002001 
027300 
164037 
054036 
027214 

067760 
00^004 
044050 
016257 
064036 
160001 
070072 
006004 
074051 
044357 
160001 
064562 
074050 
016231 
116017 
064346 
016257 

063761 
002002 
W27l70 



MLK43 



LOB 

CMB, 

AOB 

J SB 

LOB 

ADB 

STB 

LOA 

ADA 

STA 

ISZ 

RS3 

JMP 

LOB 
CPB 
JMP 

EQU 

LOB 

CMS, 

AOB 

JSB 

LOB 

LOA 

STA 

1MB 

STB 

AOB 

LOA 

LOB 

STB 

JSB 

JSB 

LDB 

JSB 

LOA 

SZA 

JMP 



I 



MLKBR 

INB 

MOVES 

MQVEW 

MLKBR 

, + 12 

MOVES 

MLKDIr 

.♦12 

MLKDlrl 
MLKCT 



MLK43 

MLKTP^I 

MLKOI 

MLK41 

* 

MLKND 

INB 

MOVES 

MOVEW 

MLKOI 

wqRO 

MOVEO 

b,I 
LIBO 

MOVES 
ORUML 
DEADP,! 

MOVEW 
MLKQT 

MLK40 



* UPOATE AOT ANO IOT 



75324 
75325 
75326 
75327 
75330 
75331 
75332 
75333 
75334 
75335 
75336 



060030 
07 3 76l 
060113 
070072 
060112 
064566 
016231 
116017 
065002 
044354 



MLK50 



LOA 
STA 
LOA 
STA 
LOA 
LOB 
JSB 
JSB 
LOB 
AOB 
EQU 



MLKTC 

MLKCT 

AOLEn 

WORO 

AOLOC 

LIBDI 

DRUML 

OEAOP, I 

L8192 

,♦2 

* 



CqMruTE 
NUMBER 

OF WOROS 

UPOATE 

POINTER 
UPOATE 

DIRECTORY 
LENGTH 
FINISHED TABLED 
NO 
YES 

GET NEXT OIREC ENTRY FROM TABLE 
SAME DIRECTORY T* ACK ? 
YES 

NO, MOVE END 

QF DIRECTORY 



WRITE 
OUT 



DIRECTORY 



RESET 

DiREC 
FINISHED 

TABLE? 
NO 



NUMBER OF 

TABLE ENTRIES 
READ 



IN 

ADT 

p> FIRST DRUM 
ADDRESS 



PAGE 0649 #55 MLOCk GVERJ.AY 



0275 


75336 


074037 




STB 


MLKTP 




0276 


75337 


160037 




LDA 


MLKjP,! 




0277 


75340 


034037 




I8Z 


MLKTP 




0278 


7^341 


002003 




SZA, 


-RSS 




0279 


75342 


027347 




JMP 


MLK51 




0280 


75343 


070044 




8TA 


KILD 


SET ADDRESS WORD 


0281 


75344 


160037 




IDA 


MLKTP, I 




0282 


75345 


070045 




STA 


KILOF 


SET LENGTH wORO 


0283 


75346 


116012 




J38 


RSF8P, I 


RETURN SPACE TO ADT 


0284 


75347 




MLK51 


EQU 


* 




0285 


75347 


064037 




ID6 


MLKTP 


UPDATE TABLE 


0286 


75350 


044355 




ADB 


,♦3 


POINTER 


0287 


75351 


037761 




ISZ 


MLKLT 


FINISHED TABLE? 


0288 


75352 


027336 




JMP 


MLK50 


NO 


0289 


75353 


060113 




LDA 


AOLEN 


YES, WRITE 


0290 


75354 


070072 




STA 


WORD 




2 91 


75355 


060112 




LDA 


ADLOC 




0292 


75356 


064562 




LOB 


LIBO 


ADT TO 


0293 


75357 


016231 




JSB 


DROML 


DRUM 


0294 


75360 


116017 




J8B DEADP,! 




0295* 














0296#* UPDATE DISC 


ADT 








0297* 














0298 


75361 




MLK59 


EQU 


* 




0299 


75361 


116007 




JSB 


FAOTPrl 


GET THjS OjSC ADT 


0300 


75362 


16^045 




loa 


KILOF,} 




0301 


75363 


070072 




STA 


WORD 




0302 


75364 


160044 




UOA 


KILO, I 


READ 


0303 


75365 


064566 




LOB 


LlBDi 


disc 


0304 


75366 


016231 




JSB 


DRUML 


ADT 


0305 


75367 


116017 




JSB 


DEADP,! 




0306 


75370 
75371 


104200 
000046 




OLD 


mlkfb 


Compute 


0307 


75372 
75373 


104400 
075764 




DST 


MLKXN 


this entry 


0308 


75374 




MLK57 


EQU 


* 




0309 


75374 


067767 




LOB 


MLKRD 


GET PglNTtR TO SPECIAL TABLE 


0310 


75375 


057770 




CPB 


MLKRP 


ENO OF TABLE? 


0311 


75376 


027414 




JMP 


MLK58 


YES 


0312 


75377 


044351 




AOB 


.•» 




0313 


75400 


160001 




LOA 


B,I 


GET LENGTH 


0314 


75401 


070043 




STA 


MLKBr 




0315 


75402 


044351 




AOB 


t-1 




0316 


75403 


160001 




LOA 


B,I 


SECOND WORD OF DISC ADDRESS 


0317 


75404 


070047 




STA 


MLKFB*1 




0318 


75405 


044351 




AOB 


f •»! 




0319 


75406 


160001 




LOA 


B,l 


FIRST WORD OF DISC ADDRESS 


0320 


75407 


070046 




STA 


MLKFB 




0321 


7&410 


*777$7 




STB 


MLKRD 


TABLE POINTER 


0322 


754U 


115011 




JSB 


RADTP,I 


RETURN SPACE TO DISC ADT 


0323 


75412 


000000 




NOP 






0324 


75413 


027374 




JMP 


MLKS7 




0325 


75414 




MU58 


EGU 


* 




0326 


75414 
75415 


104200 
075764 




OLD 


MLKXN 


RESTORE 
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10327 


75416 
75417 


104400 
000046 


D3T 


MLKFB 


MLKFB 


0326 


75420 


160045 


IDA 


KJLOF,I 


COMPOTE 


0329 


75421 


003004 


CMA, 


-INA 


END OF 


0330 


75422 


0405$2 


ADA 


LIBD 


TABLE 


0331 


75423 


073760 


8TA 


MLKNO 


BgFFEH 


0332 


75424 


064562 


LOB 


LXBO 


INITIALIZE 


0333 


75425 


074037 


STB 


MLKTP 


TABLE POINTER 


0334 


75426 




MU60 EQU 


* 




0335 


75426 
75427 


104200 
100037 


DUD 


MLKTP, I 


^STARTING 


0336 


75430 


017745 


JSB 


MLKTW 


BLOCK 


0337 


75431 


002003 


SZA, 


,R33 




0338 


75432 


006002 


SZB 




EQUAL? 


0339 


75433 


002001 


R33 




NO 


0340 


75434 


027450 


JMP 


MLK61 


YE3 


0341 


75435 


002020 


S3A 




GREATER? 


0342 


75436 


027553 


JMP 


MLK65 


YES 


0343 


75437 


064037 


LOB 


MLKTP 


UPDATE 


0344 


75440 


044355 


ADB 


,+3 


TABLE 


0345 


75441 


074037 


STB 


MLKTP 


POINTER 


034^ 


75442 


057760 


CPB 


MLKND 


ENO OF TABLE? 


0347 


75443 


002001 


RS3 




YES 


0346 


75444 


027426 


JMP 


MLK60 


NO 


0349 


75445 


0176H 


J 3 B 


MLKPE 


CHECK PrECEEDING EN Tr y 


0350 


75446 


027536 


JMP 


MLK64 


MERGED 


0351 


75447 


027544 


JMP 


MLK96 


NO WORK DONE 


0352 


75450 




MLK61 tQU 


* 




0353 


75450 


064037 


LOB 


MLKTP 




0354 


75451 


044354 


AOB 


.♦2 




0355 


75452 


063766 


LDA 


MLKLN 


18 THIS 


0356 


75453 


003100 


CMA, 


.CLE 


ENTRY 


0357 


75454 


140001 


ADA 


B,I 


COMPLETELY 


0356 


75455 


002045 


SEZ, 


'INA,R8S 


Enclosed? 


0359 


75456 


027464 


JMP 


MLK62 


YE8 


0360 


75457 


170001 


ST A 


B,I 


NE W LENGTH 


0361 


75460 


027532 


JMP 


MLK67 




0362 


75461 




MLK66 EQU 


* 




0363 


75461 


064037 


LDB 


MLKTP 


UPDATE 


0364 


75462 


044350 


AOB 


t *2 


TABLE 


0365 


75463 


074037 


STB 


MLKTP 


POINTER 


0366 


75464 




MLK62 EQU 


* 




0367 


75464 


064037 


LOB 


MLKTP 


SET UP 


036^ 


75465 


074051 


STB 


MOVEO 


POINTERS 


0369 


75466 


044355 


AOB 


.♦3 


FOR 


H57k) 


75467 


074050 


STS 


MOVES 


MOVE 


0371 


75470 


063760 


LOA 


MLKNO 


COMPUTE 


0372 


75471 


003004 


CMA, 


,INA 


LENGTH 


0373 


75472 


044000 


AOB 


A 


OF MOVE 


0374 


75473 


016257 


JSB 


MOVEW 


ELIMINATE ENTRf 


0375 


75474 


164045 


LOB 


KILOF,l 


UPDATE 


0376 


75475 


044355 


AOB 


t+3 


DISC AOT 


id377 


75476 


174045 


STB 


kJld^i 


length 


0376 


75477 


067760 


LDB 


MLKNO 


UPDAIE ENO, 


0379 


75500 


044347 


AOB 


t»3 


OF TABLE 
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0380 
0381 
0382 
0383 
0384 
0385 

0386 

0387 

0388 
0389 
0390 

039l 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413* 

0414 

0415 

0416 

0417 

0418* 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 



75501 
75502 
75502 

75503 
75504 

75505 
75506 
75507 
75510 
755H 
75512 
75513 
75514 
75515 
75516 
75517 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75532 
75533 
75534 
75535 
75536 
75536 
75537 
75540 
75541 
75542 
75543 



077760 

064037 

057760 
027536 
104200 

100037 
104400 
075764 
104200 
075762 
017745 
002021 
027536 
034037 
034037 
000040 
144037 
006003 
027461 
002041 
027461 
174037 
064037 
044350 
074037 

104200 
075762 

104400 
100037 

160045 
070072 
160044 
064562 
016231 
116017 



75544 

75544 060030 

75545 002002 

75546 117740 

75547 

75547 103100 

75550 002400 

75551 070260 

75552 026267 
75553 

75553 017611 

75554 027502 

75555 027502 



STB MLKND 
MU63 EQU * 

LOB MLKTP 
CPB MLKNO 
JMP ML*64 
DL.D MLKTP, I 

08T MLKIN 
OLD MLKLB 



J8B 
SSA 
JMP 
ISZ 

isz 

CLE 
AOB 
S^B 
JMP 

SEZ 

JMP 

sTe 

LOB 
AOB 
STB 
MLK67 EQU 
OLD 



MLKTw 
f RSS 
MLK64 
MLKTP 

mlktp 

MLKTP, I 
,RSS 

MLK66 
,R8S 

MLK66 

MLKTP, I 

MLKTP 

.-2 

MLKTP 

* 

MLKLB 



OST MLKTP, I 

MLK64 EQU * 

LOA KILDF,! 

STA WQRO 

LOA KILD,1 

LOB LIBD 

J3B DRUML 

JSB DEAOP,I 

MLK98 EQU * 

L DA ML*TC 

S2A 

JSB MLKUI r I 



MLK99 



MLK65 



EQU * 
CLF 
CLA 
STA LIB 

jmp l £ nd 

EQU * 
JSB MLKPE 
JMP MLK63 
JMP MLK63 



POINTER 

END OF 

TABLE? 
YES 
NO, 

OVERLAP 

NEXT 

ENTRy? 

NO 
YES, 

COMPLETELY 

Enclose 
it? 

YES 

MAyBE 

YES 

no, save length 
starting 



block 

write 
disc aot 

TO DRUM 

ANY TAB1.E E N TRlES 
YES, UPDATE IDT 



CHECK PRECEEDING ENTRy 
CO CHECK 

SUCCEEDING ENTRY 



0428* 

4 2g* MLKPB CHfcCKS THE PRECEEDING BLOCK TO SEE IF THE NE* ENTRY IS IN 
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0430* 


jTS RANGE, iF 


so, it mqdiFtes T rt E 


PRECEEDjNG ENT3Y AND RETURNS 


0431* 


TO (P+l), OTHERWISE TO 1 


CP+Z). 




0432* 












0433 


;5556 


000000 


MLKPB NOP 






0434 


75557 


054562 


CPB 


LIBD 


BEGINNING OF TABLE? 


0435 


75560 


027607 


JMP 


MLKP1 


YES 


0436 


75561 


044351 


ADB 


t "»1 


NO, NEW 


0437 


75562 


160001 


LUA 


B,I 




0438 


75563 


04435J 


ADB 


• -1 


BLOCK IN 


0439 


75564 


140001 


ADA 


8f I 




0440 


75565 


003100 


CMA, 


rCLE 


RANGE OF 


044J 


75566 


040032 


ADA 


MLKFA 




0442 


75567 


002040 


SE* 




PRECEEDInG one? 


0443 


75570 


027606 


JMP 


MLKP1-1 


NO 


0444 


75571 


160001 


U DA 


8,1 


yes, Compute 


0445 


75572 


003004 


c«a, 


-Ina 




0446 


75573 


040031 


ADA 


MLKLA 


NEW LENGTH 


0447 


75574 


006004 


IN8 






0448 


75575 


073757 


STA 


MLKXB 




0449 


75576 


003104 


CMA, 


,CLE, INA 




0450 


75577 


140001 


AOA 


B,I 


BIGGER THAN 


0451 


75600 


002040 


SEZ 




PREVIOUS LENGTH? 


0452 


75601 


027604 


JMP 


* + 3 


NO 


0453 


75602 


063757 


LDA 


MLKXB 


YES, SAVE NEW 


0454 


75603 


170001 


ST A 


B,I 


LENGjH 


0455 


75604 


006004 


JNB 




HE8T0RE (B) 


0456 


75605 


127556 


JMP 


MLKPB, i 




0457 


75606 


044354 


ADB 


.♦2 


RESTORE (B) 


0450 


75607 




MLKP1 EUU 


* 




0459 


75607 


037556 


I»Z 


MLKPB 




04^0 


7561B 


127556 


JMP 


MLKPB, I 


EXIT TO (P*2) 


0461* 












0462* 












0463 


75611 


000000 


MLKPE NOP 






0464 


75612 
75613 


104200 
000046 


DID 


MLKFB 


FOR SUBTRACT 


0465 


75614 
75615 


104400 
075764 


D3T 


MLKIN 


ROUTINE 


0466 


75616 


060037 


L DA 


mlktp 


BEGINNING 


0467 


75617 


050562 


CPA 


LIBD 


OF TABLE? 


0466 


75620 


027641 


JMP 


MLKE1 


YES 


0469 


75621 


040351 


ADA 


.-1 


NO 


0470 


75622 


164000 


L DB 


A, I 


SAVE 


0471 


75623 


\d777S7 


STB 


MLKXB 


LENGTH 


0472 


75624 


040350 


ADA 


,"2 


SAVE 


0473 


75625 


070037 


STA 


MLKTP 


POINTER 


0474 


75 6 26 


1^00-37 


LDA 


MLKTP, I 


IS THE N£* 


0475 


75627 


034037 


191 


MLKTP 




0476 


75630 


000040 


CLE 




BLOCK I N 


0477 


75631 


144037 


ADB 


MLKTP,! 




0478 


75632 


002040 


sez 




RANGE OF THE 


0479 


75633 


002004 


1NA 






0480 


75634 


017745 


JSB 


mlktw 


PRECEEDING ONE? 


0481 


75635 


034037 


ISZ 


MLKTP 




0482 


75636 


002020 


SS* 
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0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 

0492 
0493 

0494 
0495 
0496 
0497 

0498 
0499 
0500 
0501 
0502 

0503 

0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
05U 
0515 
0516 
0517 
051a 
0519 
0520 
0521 
0522 
0523 
kj524 
0525 
0526 
0527 
0528 
0529 

0530 
0531 



75637 
75640 
75641 
75641 
75642 
75643 
75643 
75644 
75645 
75646 
75647 
75650 
75651 
75652 
75653 
75654 
75655 
75656 
75657 
75660 
75661 
75662 
75663 
75664 
75665 
75666 
75667 
75670 
75671 
75672 
75673 
75674 
75675 
75676 
75677 
75700 
75701 
75702 
75703 
75704 
75705 
75706 
75707 
75710 
75711 
75712 
75713 
75714 
75715 
75716 
75717 
75720 
75721 
75722 
75723 



027643 
034037 

0376U 
127611 

060037 
040350 
104200 
100000 
017745 
174037 
064037 
044350 
074037 
104200 
100037 
000040 
047757 
002040 
002004 
104400 
075764 
104200 
075762 
017745 
002003 
006002 
002001 
027732 
002020 
027732 
*777$7 
tdb776Q 
057741 

027732 
074050 
044355 
074051 

07776*5 
044345 
007004 
044037 
01g243 
164045 
044347 
174045 
064037 
044355 
074037 
104200 
076762 
104400 
100037 
064037 



MLKE1 



MLKE2 



JMP 

ISZ 

EQU 
ISZ 

JMP 

EQU 

loa 

AQA 

DID 



MLKE2 
MLKTP 
* 
MLKPE 

MLKPE, I 

* 

MLKTP 

.-2 

A,l 



YES 



JSB MLKTW 
STB MLKTP, I 
LDB MLKTP 
ADB ,.2 
STB MLKTP 
DLO MLKTP, I 

CLE 

ADB MLKXB 

SEz 

Ina 

dSt mlkin 

old mlklb 



JSB 

SZA, 

SZB 

RS3 

JMP 

3SA 

JMP 

STB 

LDB 

CPB 

JMP 

STB 
ADB 

STB 

STB 

ADB 

CMS, 

ADB 

JSB 

LOB 

ADB 

STB 

LOB 

ADB 

STB 

OLO 



MLKTW 
RSS 



MLKE3 

MLKE3 
MLKXB 
MLKND 
ML819 
MLKE3 

MOyEs 
, + 3 

MOVED 
MLKND 
»5 

!nb 

MLKTP 

MOVEB 

KILDF,! 

• "3 

KILDF,I 

MLKTP 

,♦3 

MLKTP 

MLKLB 



DST MLKTP, I 
LDB MLKTP 



COMPUTE 

NEW LENGTH 

AND SAVE 

IS THE 

UNLOCKED 

PORTION 

IN THE MIddU 



OF THE PREVIOUS 

BLOCK? 

NO 

MAYBE 

NO 

YES 

TABLE 

FULL? 
YES 

SET UP 

FOR 

MOVE 

MAKE ROOM FOR NEW ENTRY 
UPDATE 
DISC ADT 
LENGTH 
UPDATE 
TABLE 
POINTER 
SAVE ADDRESS 

OF NEW ENTRY 

SAVE 
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0552 


75724 


044354 




adb 


. + 2 




0533 


75725 


063757 




LOA 


MUKXB 


LENGTH 


0534 


75726 


170001 




8TA 


B,I 




0535 


75727 


006004 




IN8 




ALSO 


0536 


75730 


074037 




STB 


MUKTP 




0537 


75731 


1276U 




JMP 


MLKPE,! 




0538 


75732 




MUKE.3 


EQU 


* 




0539 


75/32 


064037 




LOB 


MLKTP 


RESTORE 


0540 


75733 


044355 




AOB 


.♦3 


TABLE 


0541 


75734 


074037 




STB 


MLKTp 


POINTEk 


0542 


75735 


127611 




JMP 


MLKPE,I 




0543 


75736 


001630 


MLKLZ 


DEF 


UIBU3+256 




0544 


75737 


001627 


MLKLY 


DEF 


LIBU3+2&5 




0545 


75740 


072727 


HUKUI 


DEF 


TBIDT 




0546 


75741 


021226 


ML819 


DEF 


LiBUS+8190 




0547 


75742 




sjmlu 


EQU 


* 
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0002* 

0003* 

0004* 

ww05* 

0006* 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0010 

0019 

0020 

0021 

0022 

0023 

0024 

0026 

0026 

0027 

0026 

0029 

0030 

0031 

0032 
0033 
0034 
0035 
0036 
0037 
0036 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0046 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 



THE COPY COMMAND IS USED TO COPY A PROGRAM OR FILE FROM ONE USER'S 
LIBRARY TO ANOTHER US^'S LIBRARY. THE FORMAT I{jl 



COPY„QLDID, OLDNAME, NEWIU, NEWNAME 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75017 
75020 
75021 
75022 
75023 

75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75»3; 
75040 
75041 
75042 
75043 
75044 
75045 
75045 
75046 
75047 
75050 

75051 
75052 
75053 

75054 
75055 
75056 



060520 
017512 
054426 
002301 
026275 
063742 
017512 
054367 
002001 
026275 
116005 
027017 
063714 
064342 
027613 

064035 
044354 
063742 
040354 
070042 
160001 
011036 
130042 
170042 
006004 
034042 
160001 
011036 
130042 
170042 
006004 

160001 
002021 

027045 
063701 
064340 
027613 

070042 
044355 
160001 
072137 
006004 
160001 
070043 
006004 
160001 
070044 



COP00 



CUP0 



ORG 
LDA 
JSB 
CpB 
RSS 
JMP 
LOA 
jSB 

CPB 
RSS 
JMP 
JSB 
JMP 
LOA 
LOB 
JMP 
EQU 
LOB 
ADB 
LOA 
AOA 
STA 
LOA 
AND 
IOR 
STA 
INB 

ISZ 

L OA 

AND 

IOR 

STA 

INB 

LDA 

SSA, 

JMP 

LDA 

LOB 

JMP 

EQU 

STA 

ADB 

LOA 

STA 

INB 

LDA 

STA 

INB 

LOA 

STA 



LIBRA 
DLTEM 
COPIN 
.♦54B 

LFRER 
COPPT 
COPiN 

.♦15B 

LFRER 

OLOKPfJ 

QOP00 

COPEG 

COPFG 

COPIL 

* 

COPS 

.♦2 

COPPT 

.♦2 
COPP 
B,I 
BIT15 
COPP, I 
COPP, I 

COPP 
B,I 
BITI5 
COPP, I 
COPP,! 

6,1 

RSS 

COPy 

COPEF 

COPFF 

COPIL 

* 

copp 

,♦3 

B,I 
COPDR 

6,1 
COPOI 

B,I 
CQPDIM 



GET OLD ID AND NAME 

COMMA FOLLOWS? 

YES 

NO, ERROR 

GET NEW jD AND NAME 

CR FOLLOWS? 

YES 

NO, ERROR 



"NO SUCH ENTRY" 



MOVE 
FILE 
FLAG 



MOVE 
SEMI- 
COMPILED 
FLAG 

GET WORD FOUR 

CHECK FOR ILL-STORED PROGRAM 

"ILL»3TORED PROGRAM" 



SAVE WORD 4 

DRUM ADDRESS 

DIRST WORD OF DISC ADDRESS 

SECOND WORD OF DISC ADDRESS 
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0057 


75057 


044354 


ADB ,+2 






0058 


75060 


160001 


LOA B,I 






0059 


75061 


070040 


STA cqpwd 


SAVE LENGTH 




0060* 












0061 


75062 


002021 


S3A,RSS 






0062 


75063 


027067 


JMP *+4 






0063 


75^64 


001727 


ALF,ALF 


CONVERT 




0064 


75065 


030762 


IOR HIM8K 


LENGTH 




0065 


75066 


003004 


CMA,INA 


TO 




0066 


75067 


072315 


8TA COPUN 


BLOCKS 




0067* 












0068 


75070 


163742 


LOA COPPT,I 


FIND WHAT 




0069 


75071 


070052 


STA ID 


TRACK NEW 




0070 


75072 


016370 


J88 GTIL 


ID IS ON 




0071 


75073 


060076 


LOA IDLNP 






0072 


75074 


164000 


LDB A, I 


LENGTH 




0073 


75075 


006003 


SZB,RSS 


ZERO? 




0074 


75076 


027124 


JMP C0P2 


YES, ERROK 




0075 


75077 


074072 


8T8 WORD 


NO, SAVE IT 




0076 


75100 


007004 


CMS, INB 


s et pointer 




Qid77 


75101 


044562 


ADB LI6D 


TO LAST 




0078 


75102 


074031 


STB LTEMP+l 


WORD *\ 




0079 


75103 


040351 


ADA ,.1 






0080 


75104 


160000 


LOA A, I 


DRUM ADDRESS 




0081 


75105 


064566 


LDB LIBDI 






0082 


75106 


016231 


JSB DRUML 


READ ID TRACK 




0063 


75107 


116015 


JS8 81CKP,I 






0084* 












0085 


75110 


064562 


LDB LIBD 






0086 


75111 


COPl EQU * 






0087 


75U1 


054031 


CPB LTEMP+l 


END OF TABLE? 




0088 


75112 


027124 


JMP C0P2 


YES 




0089 


75113 


160001 


LOA brl 


NO/ GET CURRENT ID 




0090 


75H4 


003004 


CMA,INA 






0091 


75115 


040052 


ADA ID 






0092 


75116 


002003 


SZA,RSS 


EQUAL? 




0093 


75117 


027127 


JMP CQp3 


YESr FOUND ThE ONE wt 


WANT 


0094 


75120 


002020 


SSA 


NO, GREATER? 




0095 


75121 


027124 


JMP COP2 


YES, ERROR 




0096 


75122 


044362 


ADB ,«8 


NO, MOVE TO NEXT ONE 




Id097 


75123 


027111 


JMP COPl 






0098 


75124 


C0P2 EQU * 






0099 


75124 


063635 


lda cqpeb 


"NO SUCH ID" 




0100 


75125 


064344 


lob copfb 






0101 


75126 


027613 


JMP COPIL 






0102 


75127 


C0P3 EQU * 






0103 


75127 


070045 


STA COPDU 


SET DRUM ADDRESS 




0104 


75130 


044361 


ADB ,+7 






0105 


75l3l 


076132 


STB COPF 


SAVE POINTER TO ENTRY 




10106 


75132 


160001 


LDA B,I 


GET TOTAL 




0107 


75133 


042315 


ADA COPLN 


SPACE USED 




0108 


75134 


003004 


CMA, INA 






0109 


75135 


044351 


ADB ,«1 






0110 


75136 


000040 


CLE 






0111 


75137 


140001 


ADA b f I 
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0112 


75140 


002040 




sez 




COMPARE WITH ALLOTMENT 


0113 


75141 


027145 




JMP 


C0P4 


OK 


0114 


75142 


063644 




LDA 


COPEC 


"LIBRARY SPACE FULL" 


0115 


75143 


064340 




LOB 


COPFC 




0116 


75144 


027613 




JMP 


COPIL 




0117 


75145 




CUP4 


EQU 


* 




0118 


75145 


069342 




LDA 


t »8 


B POSSIBLE DISC ADTS 


0119 


75146 


072435 




SjA 


COPDF 




0120 


75147 




C0P5 


EQU 


* 




0121 


75147 


062010 




lda 


rkcyp 


GET CYCLIC POINTER 


0122 


75150 


002004 




INA 




AND ADVANCE 


0123 


75151 


053752 




CPA 


cplna 


IT TO T H E 


0124 


75152 


063753 




LOA 


cplca 


NEXT ENTRY 


0125 


75153 


072010 




STA 


RKCYP 


In the table 


0126 


75154 


040362 




ADA 


,*dadln- 


.DADLC 


0127 


75155 


072164 




8TA 


cqpd 




0126 


75156 


162164 




lda 


CQPD#X 




0129 


75157 


002003 




sza< 


-R8S 


IS THIS DISC AVAILABLE? 


0130 


75160 


027205 




JMP 


COP7 


NO 


0131 


75161 


070072 




STA 


WORD 


YES, SAVE LENGTH 


0132 


75162 


162010 




LDA 


RKCYP, I 


GET DRUM ADDRESS 


0133 


75163 


064566 




LOB 


LIBDI 




0134 


75J64 


016231 




JSB 


DRUML 


REAO IT 


0135 


75165 


027205 




JMP 


COP7 




0136 


75166 


ee74m 




CCB 




COMPUTE 


0137 


75167 


162164 




LDA 


CUPD,I 


ENTRY 


0138 


75170 
75171 


100400 
000355 




DIV 


.♦3 


COUNT 


0139 


75172 


070041 




STA 


COPC 




0140 


75173 


0645fi2 




LDB 


LIBD 




0141 


75j74 


044354 




ADB 


.♦2 


■> LENGTH MORD 


0142 


75175 




C0P6 


EQU 


* 




0143 


75175 


160001 




LDA 


8,1 




0144 


75176 


003100 




CMA, 


rCLE 




0145 


75177 


042315 




ADA 


CqpLN 




0146 


75200 


002041 




SEZ, 


>RS5 


Entry large e N ough? 


0147 


75201 


027215 




JMP 


CQP10 


yes 


0146 


75202 


044355 




ADB 


.♦3 


NO 


0149 


75203 


034041 




ISZ 


copc 


ANY LEFT? 


01&0 


75204 


027175 




JMP 


CUP6 


YES 


0151 


75205 




COP7 


EQU 


* 




0152 


75205 


036435 




isz 


COPDF 


NO, ANy ADTS LEFT? 


0153 


752U6 


027147 




JMP 


C0P5 


Yfes 


0154* 














0155 


75207 




C0P8 


EQU 


* 




0156 


75207 


063657 




LDA 


COPED 


"SYSTEM OVERLOAD" 


0157 


75210 


064342 




LDB 


COPFD 




0158 


75211 


027613 




JMP 


COPIL 




0159* 














0l6fe) 


75212 




C0P9 


EQU 


* 




0161 


75212 


063670 




LDA 


COPEE 


"DUPLICATE ENTRY" 


0162 


75213 


064342 




LDB 


CQPFE 




0163 


75214 


027613 




JMP 


COPIL 




0164* 














0165 


75215 




COP10 


EQU 


* 
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0166 


75215 


062315 


LOA 


COPLN 


SAVE 


0167 


75216 


003004 


C«Ai 


,INA 


NEGATIVE NUMBER 


0168 


75217 


140001 


ADA 


B,I 


OF SECTORS LEFT 


0I69 


75220 


072435 


STA 


CQPDF 




0j70 


75221 


044350 


AOB 


• -2 


SAVE LOCATION OF 


0171 


75222 


07404J 


8TB 


COPC 


DISC ADT ENTRY 


0172 


75223 
75224 


104200 

100001 


DLD 


M 


GET DISC ADDRESS 


0173 


75225 
75226 


104400 

000036 


03T 


COPDS 


AND SAVE 


0174* 












0175 


75227 


060520 


IDA 


DLTfcM 


MOVE JD/NAME 


0176 


75230 


070051 


STA 


MOVED 


TO LTEMPI013] 


0177 


75231 


063742 


IDA 


CQPPT 




0178 


75232 


070050 


STA 


MOVES 




0179 


75233 


064346 


LDB 


.-4 




0180 


75234 


016257 


JSB 


MOVEW 




0181 


75235 


116005 


JSB 


DLOKP,I 


SEARCH FOR ENTRY 


0182 


75236 


027212 


JMP 


C0P9 


FOUND, ERROR 


0183* 












0184 


75237 


164034 


LOB 


COP I, I 


IF TRACK IS FULL, G 


0185 


75240 


054714 


CPB 


M8184 


DO OVERLAY SECTIO 


0186 


75241 


027735 


JMP 


C0P98 




0187* 












0188 


75242 


007000 


CMB 




MAKE 


0189 


75243 


044562 


ADB 


LIBD 




0190 


75244 


074050 


STB 


MOVES 


ROOM 


0191 


75245 


044366 


ADB 


, + 12 




0192 


75246 


074051 


STB 


MOVED 


f-UR NEW 


0193 


75247 


007000 


CMB 1 






0194 


75250 


044402 


ADB 


.♦24 


Directory 


0195 


75251 


044035 


ADB 


COPS 




0196 


75262 


016243 


JSB 


MQVEB 


ENTHy 


0197* 












0198 


75253 


060520 


LOA 


DuTEM 


MOVE 


0199 


75254 


070050 


STA 


MOVES 




0200 


75255 


060035 


IDA 


COPS 


ID/NAME 


0201 


75256 


040366 


ADA 


,♦12 




0202 


75257 


070051 


STA 


MOVED 


INTO 


0203 


75260 


064346 


LDB 


, mA 




td204 


75261 


016257 


JSB 


MOVEW 


DIRECTORY 


0205 


75262 


060042 


LDA 


COPP 


WORD 4 


0206 


75263 


170051 


STA 


MOVED, I 




0207 


;5264 


0160 7 6 


JSB 


DATE 


LAST REFERENCE DATE 


0208 


75265 


034051 


ISZ 


MQyED 




0209 


75266 


I7005* 


STA 


MOVED, I 




0210 


75267 


034051 


isz 


MOVED 




0211 


75270 


060201 


LDA 


DATlM 


LAST CHANGE DATE 


0212 


75271 


170051 


STA 


MOVED,! 




0213 


75272 


034061 


ISZ 


MOVED 




0214 


75273 


002400 


CUA 




drum aqoRess 


0215 


75274 


170051 


STA 


MOVED, I 




0216 


75275 


034051 


ISZ 


MOVED 




0217 


75276 
75277 


104200 
000036 


DLD 


COPDS 


DISC ADDRESS 
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0218 


75300 
75301 


104400 
100051 


D3T 


MOVED, I 




0219 


75302 


064051 


LDb 


MOVED 




0220 


75303 


044355 


ADB 


.♦3 




0221 


75304 


060040 


lda 


COPWO 


LENGTH 


0222 


75305 


170001 


sta 


6,1 




0223* 












0224 


75386 


160034 


IDA 


copi,i 


ADJUST 


0225 


75307 


040336 


ADA 


.-12 


DIRECTORY 


0226 


75310 


172034 


STA 


COPI,I 


LENGTH 


0227 


75311 


070072 


STA 


WORD 




022B 


75312 


060034 


LOA 


COPI 




0229 


75313 


002004 


INA 






0230 


75314 


070051 


STA 


MOVED 




0231 


75315 


040357 


ADA 


.♦5 




0232 


75316 


160000 


LOA 


A, I 




0233 


75317 


064562 


LOB 


LIBO 




0234 


75320 


074050 


STB 


MOVES 




0235 


75321 


016231 


JSB 


DRUML 


WRITE DIRECTORY BACK 


0236 


75322 


115017 


JSB 


DEADP,! 




0237* 












0238 


75323 


064346 


LOB 


• •4 


RE8ET 


0239 


75324 


016257 


JSB 


MOVEW 


DIrEC 


0240* 












0241 


75325 




COPU EQU 


* 




0242 


75325 


060076 


LOA 


IDLNP 




0243 


75326 


164000 


iDB 


A, I 




0244 


75327 


074072 


8TB 


WORD 




0245 


75330 


040351 


ADA 


t*»i 




0246 


75331 


I60000 


LOA 


A, I 




0247 


75332 


064566 


LOB 


LIBDI 




0248 


75333 


015231 


JSB 


DRUML 


READ IQT AGAIN 


0249 


75334 


116017 


JSB 


DEADP, I 




0250* 












0251 


75335 


162132 


LOA 


COPF,X 


UPDATE 


0252 


75336 


042315 


ADA 


COPLN 


DISC 


0253 


75337 


172132 


STA 


COPF,I 


USED 


0254* 












0255 


75340 


160075 


LDA 


IDLCP,! 




0256 


75341 


064562 


LOB 


HBD 




0257 


75342 


016231 


JSB 


DRUML 


WRITE OUT IDT 


0256 


75343 


116017 


JSB 


DEADP,I 




0259* 












0260 


75344 


162164 


LOA 


CQPD,I 




0261 


75345 


070072 


STA 


WORD 




0262 


75346 


163010 


LOA 


RKCYP,! 




0263 


75347 


064566 


LDB 


LIBDI 




0264 


75350 


016231 


JSB 


DRUML 


READ DxSC ADT BACk 


0265 


75351 


027373 


JMP 


CQP14 


CAN'T, GO ZAP IT 


0266* 












0267 


75352 


062435 


LDA 


COPDF 




0268 


75353 


002002 


SZA 




ADT ENTRY COMPLETELY USED? 


0269 


75354 


027377 


JMP 


C0P15 


NO 


0270* 












0271 


75355 


064041 


LDB 


COPC 


YE3# REMOVE IT 
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0272 

0273 

0274 

0275 

0276 

0277 

0279* 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286* 

0287 

0288 

0289 

0290 

0291 

0292* 

0293 

0294 

0295 

0296 

0297 

02 9 8 
0299 

0300 
0301 
0302 

0303* 

0304 

0305 

0306 

0307 

0308 

0309* 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 



75356 074051 STB MOVED 

75357 044355 ADB f+ 3 

75360 074050 STB MOVES 

75361 044674 ADB MLIBO 

75362 044072 ADB WQRD 

75363 016257 JSB MOVE* 

75364 060355 LOA ,*3 

75365 166164 LOB CQPD,J 

75366 044000 ADB A 

75367 176164 STB COPD,I 

75370 040072 ADA WORD 

75371 070072 STA WORD 

75372 027412 JMP C0P16 

75373 C0P14 EQU * 

75373 002400 CLA 

75374 172164 STA GQPD,I 

75375 172010 STA RKCyP,! 

75376 027416 JMp COpt7 

75377 C0Pi5 EQU * 
75377 064041 LDB COPC 

75400 044354 ADB ,+2 

75401 170001 STa titl 

75402 10 4 200 OLD CQPC»i 

75403 100041 

75404 000040 CLE 

75405 046315 aDB COPLN 

75406 002040 SEZ 
754^7 00g004 INA 

75410 104400 DST COPC, I 

75411 100041 

75412 C0P16 EQU * 

75412 162010 LDA RKCYP,! 

75413 064562 LDB LIBD 

75414 016231 J3B DRUML 

75415 027373 JMP C0P14 

75416 CUP17 EQU * 

75416 062137 LDA COPDR 

75417 002003 S* A >RSS 

75420 027436 J M p CoP20 

75421 066315 LOB CqpL n 

75422 005727 BlF,BlF 

75423 007004 C« 8 'INB 

75424 074072 STB WORD 

75425 074215 STB MWORD 

75426 064566 LDB LIBDI 

75427 016231 JSB DRUML 

75430 027611 JMP COPOE 

75431 063750 LDA COPAP 

75432 064562 LDB LIBD 

75433 114217 JSB DISCz,I 



shorten table length 
Shorten word count 



ZERO LENGTH 
ZERO ADDRESS 



UPDATE THE LENGTH 
MOVE THE DISC ADORESS 



BY LOPLN BLOCKS 
AND SAVE IT 



WRITE ADT BACK OUT 



GET DRUM ADDRESS 

ZEpO? 

YES 

NO* 

COMPUTE 

LENGTH 

OF 

TRANSFER 

READ FROM DRUM 
FAILURE 



WRITE TO OISC 
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0325 


75434 


027611 




JMP 


COPDE 


FAILURE 


0326 


75435 


026267 




JMP 


LEND 


DONE 


0327 


75436 




COP20 


EQU 


* 




0328 


75436 


006400 




CUB 






0329 


75437 


06231b 




LDA 


COPLN 




0330 


75440 
75441 


100400 
000422 




DIV 


,♦40 




0331 


75442 


003000 




CMA 






0332 


75443 


070041 




STA 


COPC 


# OF 40 BLOCK READS ♦ 


0333 


75444 


074042 




STB 


COPP 


# OF BLOCKS IN LAST W 


0334 


75445 




C0P21 


EUU 


* 




0335 


75445 


034041 




ISZ 


COPC 


ANY 40 BLOCKERS LEFT? 


0336 


75446 


027452 




JMP 


C0P22 


yes 


0337 


75447 


060042 




LDA 


COPP 


NO, READ AND 


0338 


75450 


017475 




jse 


COPRW 


WRITE LAST ONE 


0339 


75451 


026267 




JMP 


LEND 


DONE 


0340 


75452 




CUP22 


EQU 


* 




0341 


75452 


060422 




LDA 


,♦40 


READ AND WRITE 


0342 


75453 


017475 




jse 


COPRW 


40 BLOCKS 


0343 


75454 
75455 


10420k! 
000036 




DLD 


CUPDS 


UPDATE 


0344 


75456 


000040 




CLE 






0345 


75457 


044422 




ADB 


t*40 


WRITE 


0346 


75460 


002040 




SEZ 






0347 


75461 


002004 




INA 




ADDRESS 


0348 


75462 
75463 


104400 
000036 




D3T 


CopDS 


UPDATE 


0349 


75464 
75465 


104200 
000043 




DLD 


COPDI 


UPDATE 


0350 


75466 


000040 




CLE 






0351 


75467 


044422 




ADB 


.♦40 


READ 


0352 


75470 


002040 




SEZ 






0353 


75471 


002004 




INA 




ADDRESS 


0354 


75472 
75473 


104400 
000043 




DST 


COPDI 




0355 


75474 


027445 




JMP 


C0P21 


LOOP 


0356* 














0357* 


COPRW 


READS AND WRITES 






0358* 














0359 


75475 


000000 


COPRW 


NOP 






3 60 


75476 


001787 




ALF, 


.ALF 


COMPUTE 


0361 


75477 


003004 




CMA, 


rINA 


n OF 


0362 


75500 


070215 




STA 


M W 0RD 


HORDS 


0363 


75501 


063747 




LDA 


COPIP 




0364 


75502 


064566 




LDB 


LIBDI 




0365 


75503 


U4217 




JSB 


DISCz^I 


READ IT 


0366 


75504 


027611 




JMP 


COPDE 


FAILURE 


0367 


75505 


063750 




LDA 


COPAP 




0368 


75506 


064562 




LDB 


LIBD 




0369 


75507 


114217 




JSB 


DISC Zr I 


WRITE IT 


0370 


75510 


027611 




JMP 


COPDE 


FAILURE 


0371 


75511 


127475 




JMP 


COPRW,! 




0372* 














0373* 


COPIN 


GET8 AN 


ID AND NAME 




0374* 
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0375 
0376 
0377 
0378 
0379 

03 8 l 

0382 

0363 

0384 

0365 

0386 

0387 

0386 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0396 

0399 

0400 

0401 

0402 

0403 

0404 

0405* 

0406* 

0407* 

0408 

0409 

0410 

04U 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 
0426 
0429 



75512 
75513 
75514 
75515 
75516 
755*7 
75520 
75521 
75522 
75523 
75524 
75525 
75526 
75527 
75527 
75530 
75531 
75532 
75533 
75534 
75535 
75536 
75537 
75540 
75541 
75542 
75543 
75543 
75544 
75545 



000000 
070042 
016315 
002001 
026275 
050426 
002461 
026275 
072132 
060052 
170042 
060347 
070041 

017546 
001727 
034042 
170042 
017546 
130042 
170042 
034041 
027527 
017546 
050412 
127512 

063625 
064343 
027613 



COpIN 



COPI1 



CUPI2 



NQp 
STA 
JSB 
R88 
JMP 
CPA 
CLA 
JMP 
STA 
LDA 
STA 
LDA 

ST* 
EQU 
J38 

AlF 
ISZ 
STA 
JSB 
IQR 
STA 
ISZ 

Jmp 
JSB 

CPA 

JMP 
E8U 
LDA 
LOB 
JMP 



COPP 
GETID 

LFREK 
t*54B 
t RSS 
LFRER 
COPF 
ID 

COPP, I 
.-3 
COPC 
* 

COPR 
,AtF 

COPP 

COPPrl 

CQPR 

cqpp,i 

COPP'I 
CQPC 

copii 

COpH 
.♦40B 

COPjN,i 

* 

COPEA 
COPFA 
COPIL 



75546 
75547 

75550 
75551 
75552 
75552 
75553 
75554 
75555 
75556 
75557 
75560 
75561 
75561 
75562 
75563 
75564 
75565 
75566 

75567 
75570 
75571 



000000 
062132 
050412 
127546 

114572 
027607 

064000 
010730 
002002 
050730 
027552 

062132 
002002 
027577 
054425 
026275 
054416 

027543 
054424 
027543 



COPR NOP 
LDA 
CPA 
JMP 

COPR1 EQU 
JSB 
JMp 
LDB 
AND 
SZA 
CPA 
JMP 

CQPR6 EQU 
LDA 
SZa 
JMP 
CPB 
JMP 
CPB 
JMP 
CPB 
JMP 



COPF 

,♦406 

COPR,! 

* 

T35CH,I 

CoPR5 

A 

.140 

.140 
COPR! 

* 

COPF 

C0PR2 
.+548 
LFRER 
.♦44B 

C0PI2 
.+52B 
C0PI2 



• > WHERE TO PyT IT 

GET THE ID 

YES 

C« CNN'T FOLLOW 

COMMA FOLLOWS? 

NO 

SAY 1ST CHAR 

SAVE ID 
6 CHAR 
MAXIMUM 

GET LEFT CHAR 



SAVE IT 

GET RIGHT CHAR 

SAVE IT 

FINISHED 6 CHARS'/ 

NO 

YEg, NEXT MU8T 

BE A BlAnk 
OK 

"INVALID NAME" 



COPR FETCHES CHARACTERS FOR THE NAME 



TEST TO RETURN BLANK 



GET A CHAR 



SKIP CONTROL CHARACTERS 



FIRST CHAR? 

NO 

YES, COMMA? 

YES 

NO, »S»? 

YES 

NO, >*t? 

YES 
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0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
043a 
0439 
0440 
0441 

0442 
0443 
0444 
0445 
0446 
0447 
0446 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 



0466 
0467 
0468 
0469 



0470 
0471 
0472 
0473 



75572 
75573 
75574 
75574 
75575 
75576 
75577 
75577 
75600 
75601 
75602 
75603 
75604 
75604 
75605 
75606 
75607 
75607 
75610 
756U 
756H 
75612 
75613 
75613 
75614 
75615 
75616 

7^617 
75620 

75621 
75622 
75623 
75624 
75625 
75626 
75627 
75630 
75631 
75632 
75633 
75634 
00343 
75635 
75636 
75637 
75640 
75641 
75642 
75643 
00344 

75644 
75645 
75646 
75647 
75650 



054367 
026275 

060001 
036132 
127546 

054426 
027604 
054367 
002001 
027574 

060412 
072132 
127546 

064000 
027561 

063725 
064343 

070050 
060305 
070051 
074030 
016257 
060030 
001000 
003004 
064305 
026271 
075626 
005111 
047126 
040514 
044504 
020116 
040515 
042440 

075636 
005116 
047440 
051525 

041510 
020111 
042040 

075645 
005U4 
044502 
051101 
051131 



NO, RESTORE A 



COMMA? 

YES 

CR? 

YES 

NO 

RETURN A BLANK 



CPB ,+150 NO, CR? 

JMP LFRER 
C0PR3 EQU * 

IDA B 

ISZ COPF 

JMP COPR,I 
C0PR2 EQU * 

CPB ,*54B 

JMP C0PR4 

CpB f +15B 

RSS 

JMP C0PR3 
C0PR4 EQU * 

LDA ,+40B 

STA COPF 

JMP COPR,I 
C0PR5 EQU * 

LDB A 

JMP C0PR6 
COPOE EQU * 

LDA COPEH 

LDB COPFH 
CQPIL EQU * 

STA MOVES 

LDA T35B1 

STA MOVED 

STB LTEMP 

JSB MOVfcW 

LD* LTEMP 

ALS 

CMArlNA 

LDB T35B1 

JMP LENU*2 
CopEA DEF **1 

OCT 5111 

ASC 6#NVALID NAME 



"UNSUCCESSFUL; KILL AND REPEAT" 



MOVE ERROR 



MESSAGE TO 
TTY BUFFER 



COPFA EQU f "*+COPEA+l 

COPEB DEF *♦! 

OCT 5116 

ASC 5,0 SUCH ID 



COPFB EQU ,-**COPEB*l 

COPEC DEF *♦! 

OCT 5U4 

ASC 9,IBRARY SPACE FULL 
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75651 


020123 










75652 


050101 










75653 


041505,, 










75654 


020105 










75655 


052514 










75656 


046040 








0474 


00340 




COPFC 


EQU 


.-♦♦COPEC+1 


0475 


75657 


075660 


COPED 


DEF 


**l 


0476 


75660 


005123 




OCT 


5123 


0477 


75661 
75662 
75663 
75664 
75665 
75666 
75667 


054523 
052105 
046440 
047526 
042522 
046H7 

040504 




A3C 


7,YSTEm overload 


0478 


00342 




COPFD 


EQU 


.••♦COPED+l 


0479 


75670 


075671 


COPEE 


DEF 


*n 


0480 


75671 


005104 




OCT 


5104 


0481 


75672 
75673 
75674 
75675 
75676 
75677 
75700 


052520 
046111 
041501 
052105 
020109 
047124 
051131 




AsC 


7,UPUCATE E N THY 


0482 


00342 




COPFE 


EQU 


t «#*CUPEE*l 


0483 


75701 


075702 


COPEF 


DEF 


* + l 


0484 


75702 


005U1 




OCT 


5111 


0485 


75703 
75704 
75705 
79706 
75707 
75710 

757U 
75712 

75713 


046114 
026523 
052117 
051109 

042040 
050122 
047507 
051101 
046440 




ASC 


9,U*STuRtD PHgGRA M 


0486 


00340 




COPFF 


EQU 


.•♦♦COPEF+1 


0487 


757j4 


0757 t 5 


COPfcG 


DEF 


**1 


0488 


75715 


005116 




OCT 


5U6 


0489 


75716 
75717 
75720 
75721 
75722 
75723 
75724 


047440 
051525 
041510 
020105 
047124 
051131 
020040 




ASC 


7,0 such Entry 


0490 


00342 




C0PF6 


EQU 


,«**C0PEG*1 


0491 


757g5 


0757g6 


COPEH 


DEF 


*♦! 


0492 


75726 


005125 




OCT 


5125 


0493 


75727 
75730 
75731 
75732 


047123 
052503 
041505 
051523 




ASC 


6,N8UCCESSFUL 
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0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501* 

0502 

0503 

0504 

0505 

0506 

0507 

0506 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0516 

0519 

0520 

0521 

0522 

0523* 

0524 

0525 
0526 

0527 
0528 
0529 
0530 
0531 



75733 
75734 
00343 
75735 
75735 
75736 
75737 
75740 
75741 

75742 
75743 
75747 
75750 
75751 
75752 
75753 
75754 
00034 
00035 
00036 
00040 
00041 
00042 
00043 
00045 
74132 
74137 
74315 
74164 
74435 

75773 
75773 
75773 
75774 
75775 
75776 
75777 
76000 



043125 
046040 



063754 
070072 
163751 
064504 
027773 

075743 
000000 
000043 
000036 
072044 

000125 
000115 
177005 



016231 
116015 
027000 
027325 
027207 



COPFH EOU ,***COPtH*l 
C0P98 EQU * 

LDA CM507 SET UP 

STA WORD OVERLAY 

LOA CQPQV,! 

LOB #LIBI 

JMP C0P99 

COPPT OEF **1 

BSS 4 
COPXP DEF COPDI 
CQpAp DEF copoa 
COPOV DEF SAV0+C0M6«C0M3 
CPLNA DEF OADLN 
CPlCA DEF DADlC 
CM507 DEC *507 
COPI EQU LTEMP+4 
C0P 8 E«U LtEMP*5 
COPDS EQU LTEMP*6 7 ALSO USED 
COPWD EQU LTEMP*8 
COPC EQU LTEMP+9 
CUPP EQU LUMP+10 
COPDI EQU LTEMP+U 12 ALSO USED 
COPDU EQU LTEMP+J3 
COPF EQU LOUT 
COPDR EQU LTYPR 
COPLN EQU GETID 
COPD EQU LCHAR 
COPDF EQu 8CHLQ 



ORG HBKA+507 
C0P99 EQU * 

J3B DRUML 
J96 sICKP,! 
JMP lib k a 

JMP COPll 
JMP C0P8 
*COP EQU * 



CALL OVERLAY 



NORMAL RETURN 
ERRQR RETURN 
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0002* 


THE BESTOW COMMAND 


IS USED TO TRANSFER PROGRAMS AND FILES FRO 


0003* 


ONE USER'S LIBrArY 


TO ANOTHER USE 


r»S LIBRARY, THE FORMAT OF T 


0004* 


COMMAND IS» 






0005* 










0006* 


BES - QLDXD, NEW1D t,NAMEl 




0007* 










0008* 


IF NAME IS OMITTED, 


ALU PROGRAMS 


ARE TRAN3FERED EXCEPT FOR TH 


0009* 


WHOSE 


NAMES ALREADY 


' EXIST IN NEWID'S LIBRARY. 


0010* 










0011 


75000 




ORG LIBRA 




0012 


75000 


016315 


J3b GETID 


GET OLDlD 


0013 


75001 


002001 


R3S 




0014 


75002 


026275 


JMP LFRER 


CR IS ERRUR 


0015 


75003 


05^426 


CPA ,+540 


COMMA FOLLOWS? 


0016 


75004 


002401 


CLA,RSS 


YES 


0017 


75005 


026275 


JMP LFRER 


NO, ERROR 


0018 


75006 


072137 


STA BESDE 


SET DUPLICATE ENTRY COUNTER 


0019 


75007 


060052 


LDA ID 


SAyE 


0020 


75010 


070030 


STA LTbMP 




0021 


75011 


072132 


STa besoi 


IP 


0022* 










0023 


75012 


016315 


JSB GET1D 


GET NEWID 


0024 


75013 


000000 


NOP 




0025 


75014 


050367 


CPA ,*15B 


C R follows? 


0026 


75015 


02706J 


JMP BES3 


YES 


0027 


75016 


050425 


CPA ,+54B 


NO, COMMA? 


0028 


75017 


002401 


Ci.A,R8S 


YES 


0029 


75020 


026275 


JMP LFRER 


NO, ERROR 


0030 


75021 


070043 


STA BESF 




0031 


75022 


060520 


LDA DLTEM 




0032 


75023 


070042 


STA besp 




0033 


75024 


060347 


LDA ,«3 


6 CMAR 


0034 


75025 


070041 


STA BESC 


MAXIMUM 


0039* 










0036 


75026 


BESl 


EUU * 




0037 


75026 


017504 


JSB BE8R 


GET LEFT CHAR 


0038 


75027 


001727 


ALF,ALF 




0039 


75030 


034042 


I3Z BESP 




0040 


75031 


170042 


STA BESP, I 


SAVE IT 


0041 


75032 


017504 


JSB BeSR 


GET RIGHT cHAR 


0042 


75 33 


130042 


IOR BESP, I 




0043 


75034 


170042 


STA BESP,I 


SAVE IT 


0044 


75035 


034041 


ISZ BESC 


FINISHED 6 CHARS? 


0045 


75036 


027026 


JMP BES1 


NO 


0046 


75037 


017504 


JSB besr 


YES, NEXT MUST 


0047 


75040 


0J,0 4 1 2 


CPA ,+408 


BE A BLANK 


0048 


75041 


002001 


RSS 


OK 


0049 


75042 


026275 


JMP LFRER 




0050 


75043 


054367 


CpB .+15B 


cr follows? 


0051 


75044 


003401 


CCA,RSS 


YES 


0052 


75045 


026275 


JMP LFRER 


NO 


0053* 










0054 


75046 


072164 


STA BESMF 


SET MODE FLAG 


0055 


75047 


116005 


JSB DLOKP,I 


SEARCH FOR ENTRY 


0056 


75050 


027054 


JMP BES2 


FOUND 
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0057 
0058 
0059 

0060 
0061 

0062 

0063 

0064 

0065* 

0066 

0067 

0068 

0069 

0070 

0071 

0072* 

0073 

0074 

0075 

0076 

mi7 

0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0068 
0089 
0090 

00^1 
0092 

0093 
0094 
0095 
0096 
0097 
009B 
0099 
0100 
0101 
0J02 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0U0* 



75051 
75052 
75053 
75054 
75054 
75055 
75056 
75057 
75060 

75061 

75061 
75062 
75063 
75064 
75065 

75066 
75066 

75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 
75100 
75101 
75102 
75102 
75103 
75104 

75105 
75106 
75107 
75110 
75111 
75112 
75113 
75114 
75115 
75116 
75117 
75120 
75121 

75122 
75123 

75124 

75125 

75126 

751 2 7 
75130 



063552 
064342 
027146 

104200 
000034 
072025 
076315 
027164 



002400 
072164 
070031 
070032 
070033 



116005 
027160 
064035 
044366 
074035 
164034 
007004 
044562 
054035 
002001 
027131 
064034 

»4436l 
057650 
027134 

160001 
002003 
027102 
006004 
160001 
050030 
002001 
027134 
044351 
076025 
060562 
072315 
160001 

070072 
044360 
160001 
064566 
016231 
116015 
027164 



BES2 



BES3 



BES4 



BES5 



IDA BE3EA 


"ENTRY NOT FOUND" 


LDB BESFA 




JMP BESIL 




EQU * 




OLD LTEMP*4 


SAVE 


8TA BESD4 


DIRECTORY 


STB BESoS 


POINTERS 


JMP BES10 




EQU * 




CLA 


SET MODE 


STa besmf 


fuag 


STA L.TEMP + 1 


I NiT I A U ZE 


STA LTEMP*2 




STA LTEMP+3 


NAME 


EQU * 




JSB DLOKP,I 


SEARCH FOR ENTRY 


JMP BES9 


FOUND 


LDB UTEMP+5 




ADB ,*12 




8jB LtEMP*5 




LDB LTEMP+4,1 


NOT FOUND 


CMB,INB 


DO WE POINT 


ADB LIBD 


BEYOND THE 


CPB LTEMP*S 


DIRECTORY? 


Rss 


YEs 


JMP BES6 


NO 


LDB LTEMP+4 




EQU * 




ADB ,*7 


»> NEXT DIREC ENTRY 


CPB BOIRU 


LAST ONE? 


JMP BES7 


YES 


LDA B,I 


NO 


SZA,RSS 


LEN6TH ZERO? 


JMP BE S 5 


YE S 


INB 


NO 


LDA B,I 


GET FIRST ID ON TRACft 


CPA LtEMP 


8 AME A s tHIs ONE? 


RSS 


YES 


JMP BES7 


NO 


ADB ,«1 


SAVE 


STB BESD4 


DIREC 


LDA HBD 


POINTERS 


STA BE8D5 




LDA B,X 


READ 


STA WORD 




ADB t+ 6 


NEW 


LDA B,l 




LOB LIBDI 


DIRECTORY 


JSB DRUML 




JSB SICKP,I 


TRACK 


JMP BE810 
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am 


75131 




BfcS6 


EUU * 




0112 


75131 


164035 




LDB LTtMP+5,1 


OWOID jHfc SAME 


0113 


75132 


054030 




CPB LTEMP 


AS THIS ONE? 


0114 


75133 


027160 




JMP BES9 


YES 


0115* 












0116 


75134 




Bfc$7 


EQU * 




0117 


75134 


002400 




CLA 


FIRST TIME 


0118 


75135 


052164 




CPA besmf 


THRU? 


0119 


75136 


027144 




JMP BES8 


YES 


0120 


75137 




BfcslS 


Equ * 




0121 


75137 


052137 




CPA BE80E 


NO, ANY DUPLICATE ENTRIES? 


0122 


75140 


026267 




JMP LEND 


NO 


0123 


75141 


063563 




LOA BESEB 


"DUPLICATE ENTRY(IES)" 


0124 


75142 


064337 




LDB BESFB 




0125 


75143 


027146 




JMP BESIL 




0126 


75144 




BtS8 


EQU * 




0127 


75144 


063577 




LOA BESEC 


"NO ENTRIES FOR OLOIO" 


0128 


75145 


064337 




LOB 8ESFC 




0129 


75146 




BE3IL 


EOU * 




0130 


75146 


070050 




8TA MOVES 


MOVE MESSAGE 


0131 


75147 


060305 




LOA T35B1 




0132 


75150 


070051 




STA MOVED 


TO TTY 


0133 


75151 


074030 




STB LTEMP 




0134 


75152 


016257 




J8B MOVE* 


BUFFER 


0135 


75153 


060030 




LOA LTEMP 




0136 


75154 


00100(2 




ALS 




0137 


75155 


003004 




CMA,INA 




0138 


75156 


064305 




LOB T35BJ 




0139 


75157 


026271 




JMP LENO+2 




0140 


75160 




BES9 


EUU * 




0141 


75160 
75161 


104200 
000034 




OLD LTEMp*4 


SAVE 


0142 


75162 


072025 




STA BES04 


OIREC 


0143 


75163 


076315 




STB BES05 


PQINTERS 


0144 


75164 




B£S10 


EQU * 




0145 


75164 


066315 




LOB BEsOS 




0146 


75165 


044365 




AqB , + u 




0147 


75166 


160001 




LOA BrI 


GET LENGTH 


0148 


75167 


070040 




STA BE8WD 


SAVE IT 


0149 


75170 


002021 




SSA,R88 




0150 


75171 


027175 




JMP **4 




0151 


75172 


001727 




ALF^ALF 


CONVERT 


0152 


75173 


030762 




IOR HIMSK 


TU 


0153 


75174 


0fc'3004 




CMA,INA 


BLOCKS 


0154 


75175 


070044 




STA BESLN 


SAVE # OF BLOCKS 


0155 


75176 


044340 




AOB ,.10 


move 


0156 


75177 


160001 




LOA B r j 




0157 


75200 


010274 




AND INF 




0158 


75201 


070031 




STA LTEMp*l 




0159 


75202 


006004 




INB 


id/name 


0160 


75203 


160001 




LOA B#I 




0161 


75204 


070032 




STA LTEMP+2 




0162 


75205 


006004 




INB 


INTO 


0163 


75206 


150001 




LOA B,I 




0164 


75207 


070033 




STA LTEMP+3 
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0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0j86 
0187 
0186 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0206 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 



75210 
75211 
75212 
75213 
75214 
75215 
75216 
75217 
75220 
75221 
75222 
75223 
75224 
75225 
75226 
75227 
75230 
75231 
75231 
75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 
75244 
75245 
75246 
75247 
75250 

75251 
75252 
75253 
75254 
75255 
75256 
75257 
75260 
75261 
75262 
75263 
75264 
75265 
75266 
75267 
75270 
75271 
75272 
75273 
75274 
75275 



060052 
070030 
116005 
027423 
017440 
044361 
160001 
040044 
003004 
044351 
000040 
140001 
002040 
027231 
063623 
064340 
027146 

006004 
160001 
040044 

170001 
017476 
062132 
070052 
017440 
044361 
060044 
003004 
140001 
170001 
017476 
062025 

164000 
074072 

048360 
160000 
064566 
016231 
116015 
066315 
074051 
044356 
160001 
070042 
044355 
160001 
070045 
006004 
160001 
070036 
006004 
160001 
070037 
044355 



BfcSU 



LDA ID 


LTEMP [0I3J 


STA LTEMP 




JSB DLOKP,! 


SEARCH FOR NEW ENTRY 


JMP 8 E313 


FOUND, DUPLICATE 


JSB BESIS 


GET TRACK FOR NEWJD 


ADB ,+7 




LDA B,I 


COMPUTE 


ADA BESLN 


TOTAL 


CMA,INA 


DISC 


ADB ,.1 


USED 


CLE 




ADA B,I 




SEZ 


GREATER THAN ALLOTMENT? 


JMP BESU 


NO 


LDA BESEE 


"LIBRARY SPACE FULL" 


LDB BESFE 




JMP BESIL 




EQU * 




INB 


UPDATE 


LDA B,I 


OI9C 


ADA BESLN 


USED 


STA B,I 




JSB BESIW 


WRITE OUT ID TRACK 


LDA besoi 




8TA ID 




JSB BESIS 


GET TRACK FOR OLDID 


ADB ,*7 




LDA BE8LN 


REDUCE 


CMA,INA 


DISC 


ADA B,| 


USED 


STA Bfl 




JSB BESIW 


WRITE OUT ID TRACK 


LDA BESD4 


READ 


LDB A, I 




STB WORD 


DIRECTORY 


ADA ,*6 




LDA Afi 


FOR OLD 


LDB LIBDI 




JSB DRUML 


entry 


JSB SICKP,I 




LDB 0ESD5 




STB MOVED 




ADB ,44 




LDA Bfl 


SAVE 


STA BESP 


WORD 4 


ADB ,*3 




LDA B#I 


Save drum 


STA BESDU 


ADDRESS 


INB 




LDA B,i 


SAVE 


STA BESDS 




lN» 


DISC 


lda b#i 




STA BESOS+1 


ADDRESS 


ADB f+ 3 
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0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
022a 
022g 
0230 
0231 

*>232 

0233 

0234 

0235 

0236 

0237 

0236 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247* 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0g56 

0257* 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 



75276 
75277 

75300 
75301 
75302 
75303 
75304 
75305 
75306 
75307 
75310 
75311 

75312 
75313 
75314 
75315 
75316 
75317 

75320 
75321 

75322 
75323 
75324 
75325 
75326 
75327 
75330 

75331 
75332 
75333 
75334 
75335 
75336 
75337 
75340 
75341 

75342 

75343 

75344 

75345 

75346 

75347 

75350 

75351 

75352. 

75353 

75354 
75355 

75356 
75357 
75360 
75361 
75362 



074050 
146025 
044674 
016257 
066025 
160001 
040366 
170001 
070072 
006004 
074051 
044357 
076435 
160001 
064562 
074050 
016231 
027416 
064346 
016257 
060030 
070052 
116005 
000000 
164034 
054714 
027433 

007000 
044562 
074050 
044366 
074051 
007000 
044402 
044035 
016243 

060520 
070050 
060035 
040366 
070051 
064346 
016257 
060042 
170051 
016076 
03 4 05l 
170051 
03405I 
060201 
170051 
034051 
060045 



SIB MOVES 


ELIMINATE 


ADB BESD4,I 




A08 MLIBD 


ENTRY 


JSB MOVEW 




LOB BESD4 




LDA B,I 


UPDATE 


ADA , + 12 


TRACK 


STA B,I 


LENGTH 


STA WQRP 




INB 




STB MOVED 




AOB ,45 




STB BE3RD 




IDA B,I 




LDB LIBD 




STB MOVES 




JSB DRUML 


WRITE DIRECTORY TRAC 


JMP BE812 


TRY TO SALVAGE 


LDB .-4 


RESET 


JgB MOVEW 


DIrEC 


LOA LTEMP 


RESET 


SrA ID 


ID 


JSB DLOKP,I 


SEARCH FOR NEW ENTRY 


NOP 




LDB LTEMP+4,1 


IF TRACK IS FULL, GO 


CP8 M8184 


DO OVERLAY SECTION 


JMP BE398 




CMB 


MAKE 


ADB H6D 




STB MOVES 


ROOM 


ADB ,+12 




STB MOVED 


FOR NEh 


CMB 




ADB ,+24 


DiRtCTORY 


ADB LjEMP+5 




JSB MOVEB 


ENTRY 


1.DA DtTfcM 


MOVE 


STA MOVES 




LDA LTEMP+5 


ID/NAME 


ADA ,+12 




STA MOVED 


INTO 


LDB ,«4 




JSB MOVEW 


DIRECTORY 


LDA BeSP 


WORD 4 


STA MQVEO,I 




JSB DATE 


LAST REFERENCE DATE 


ISZ MOVED 




SjA MOvED,I 




ISZ MOVED 




LOA DATJM 


LAST CHANGE DATE 


STA MOVED,! 




ISZ MOVED 




LD* BeSqU 


drum a dd res8 
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0275 


75363 


170051 




8TA 


MOVEDrl 




0276 


75364 


034051 




ISZ 


MOVED 




0277 


75365 
75366 


104200 
000036 




OLD 


BESDS 


DISC ADDRESS 


0278 


75367 
75370 


104400 
100051 




DST 


MOVED, I 




0279 


75371 


064051 




LDB 


MOVED 




0260 


75372 


044355 




ADB 


,♦3 




2 8i 


75373 


060040 




LOA 


BESWO 


LENGTH 


0282 


75374 


1716MI 




8TA 


B,J 




0283* 














0284 


75375 


160034 




LOA 


LTEMP*4,j 


UPDATE 


0285 


75376 


040336 




ADA 


,*12 


QIHECTORY 


0286 


75377 


170034 




STA 


LTEMP*4,i 


LENGTH 


0287 


75400 


070072 




8TA 


WORD 




0288 


75401 


060034 




LDA 


LtEMP*4 




0289 


75402 


002004 




INA 






0290 


75403 


070051 




STA 


MOVED 




0291 


75404 


040357 




ADA 


.♦s 




2 92 


75405 


072435 




STA 


BESRD 




0293 


75406 


160000 




LDA 


A, I 




0294 


75407 


064562 




LDB 


LIBO 




0295 


75410 


074050 




STB 


MOVES 




0296 


75411 


016231 




JSB 


DRUML 


W 


0297 


75412 


027416 




JMP 


BES12 




0298 


75413 


064346 




LDB 


t-4 


RESET 


0299 


75414 


016257 




JSB 


MOyEw 


DIREC 


0300 


75415 


027424 




JMP 


BE813*1 




0301 


75416 




BE812 


EUU 


* 




0302 


75416 


064346 




LDB 


«*4 • 


RESET 


0303 


75417 


016257 




JSB 


MOVEW 


DIREC 


0304 


75420 


064072 




LDB 


WORD 




0305 


75421 


062435 




LDA 


BESRD 




0306 


75422 


116016 




JSB 


8ALVP,I 


ATTEMPT TO SALVAGE 


0307 


75423 




BES13 


EQU 


* 




030& 


75423 


036137 




ISZ 


BESOE 


BUMP DUPLICATE FLAG 


0309 


75424 


062132 




LDA 


BESOI 


RESET 


0310 


75425 


070030 




S T A 


LjEMP 


OLDID 


0311 


75426 


034033 




ISZ 


LTEMP+3 


BUMP NAME FOR SEARCH 


0312 


75427 


036164 




ISZ 


BESMF 


MORE T H AN ONE ENTRY? 


0313 


75430 


027066 




JMP 


BES4 


YES 


0314 


75431 


002400 




CLA 




NO 


0315 


75432 


027137 




JMP 


BES15 




0316* 














0317 


75433 




BES98 


EQU 


* 




0318 


75433 


063647 




LDA 


BM507 


SET UP OVERLAY 


0319 


75434 


070072 




STA 


WORD 




0320 


75435 


163646 




LDA 


BE30V,I 




0321 


75436 


064504 




LDB 


#LIBI 




0322 


75437 


027773 




JMP 


BES99 




0323* 














0324* 


BfcSXS 


SEARCHES THE 


id table 




0325* 














0326 


75440 


000000 


BESIS 


KQP 






0327 


75441 


016370 




JSB 


GTIL 


FIND OUT WHICH TRACK 
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0326 


75442 


060076 




LDA 


IULNP 




0329 


75443 


164000 




L OB 


A, I 


^Ength 


0330 


75444 


006003 




SZB, 


-RSS 


ZERO? 


0331 


75445 


027473 




JMP 


BESI2 


YES 


0332 


75446 


074072 




STB 


WORD 


NO, SAVE IT 


0333 


75447 


007004 




CMS, 


,IN8 


GET POINTER 


0334 


75450 


044562 




ADB 


LIBD 


TO LA$T 


0335 


75451 


074036 




STB 


BESDS 


WORD +1 


0336 


75452 


040351 




ADA 


.-1 




0337 


75453 


160000 




LDA 


A, I 




0338 


75454 


064566 




LOB 


LIBDI 




0339 


75455 


016231 




JSB 


DRUML 


READ ID TRACK 


0340 


75456 


116015 




JSB 


SICKP,I 




0341 


75457 


064562 




LDB 


LIBD 




k)342 


75460 




BESIl 


EQU 


* 




0343 


75460 


054036 




CP8 


BESDS 


END OF TABLE? 


0344 


75461 


027473 




JMP 


BESI2 


YES 


0345 


75462 


160001 




LDA 


8,1 


no, get Current id 


0346 


75463 


003004 




CMA, 


,INA 




0347 


75464 


040052 




ADA 


ID 




034b 


75465 


002003 




SZA, 


• RSS 


EQUAt? 


03 4 9 


75466 


127440 




JMP 


BESI8,I 


YES, FOUND THE ONE WE WANT 


035g 


75467 


002020 




SSA 




NO, GREATER? 


0351 


75470 


027473 




JMP 


BESI2 


Y ES, error 


0352 


75471 


044362 




ADB 


.♦8 


NO, MOVE TO NfcXT ON& 


0353 


7547 2 


027460 




JMP 


BESIl 




0354 


75473 




BESI2 


EQU 


* 




03 55 


75473 


0$36l3 




LDA 


BESED 


"NO SUCH NEWID" 


0356 


75474 


064343 




LDB 


BESFD 




0357 


75475 


027146 




JMP 


BESIL 




0356* 














0359* 


besiw 


WRITES 


OUT THE ID 


TABLE 




0360* 














0361 


75476 


000000 


BESIW 


NOP 






0362 


75477 


160075 




LDA 


IDLCP,! 


DRUM ADDRESS 


0363 


75500 


064562 




LDB 


LIBD 




0364 


75501 


016231 




JSB 


DRUML 


WRITE IT 


0365 


75502 


116017 




JSB 


DEADP,I 


FAIL 


0366 


75503 


127476 




JMP 


BESIW, I 




0367* 














10368* 


BESR FETCHES 


CHARACTERS 


FOR THE 


NAME 


0369* 














0370 


75504 


000000 


BESR 


NOP 






0371 


75505 


060043 




LDA 


BESF 


THEST TO RETURN BLANK 


0372 


75506 


050412 




CpA 


,+40B 




0373 


75507 


127504 




JMP 


BESR, I 




0374 


75510 




BESR1 


EQU 


* 




0375 


75510 


U4572 




JSB 


T35CH,I 


GET A CHAR 


0376 


75511 


027545 




JMP 


BESR4 


CR 


0377 


75512 


064000 




L^B 


A 




0378 


75513 


010730 




AND 


,140 


SKIP CONTROL CHARACTERS 


0379 


75514 


002002 




S*A 






0380 


75515 


050730 




CPA 


,140 




0381 


75516 


027510 




JMP 


BESR1 




0382 


75517 




BE8R5 


EQU 


* 
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03»3 
0384 
0365 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 

0400 
0401 
0402 

0403 
04fe>4 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 

0413 
0414 
0415 
0416 



0417 
0418 
0419 

0420 



0421 
0422 



75517 
75520 
7&521 
75522 
75523 
75524 
75525 
75526 
75527 
75530 
75531 
75532 
75532 
75533 
75534 
75535 
75535 
75536 
75537 
75540 

75541 
75542 
75543 
75544 

75545 
75545 
75546 
75547 
75547 
75550 
75551 
75552 
75553 
75554 
75555 
75556 
75557 
75560 
75561 
75562 
00342 
75563 
75564 

75565 
75566 
75567 
75570 
75571 
75572 
75573 
75574 
75575 
75576 
00337 
75577 



06^043 
002002 
027535 
054426 
026275 
054416 
027547 
054424 
027547 
054367 
026275 

060001 
034043 
127504 

054426 
027547 
054367 
002001 

027532 

060412 

070043 
127504 

064000 
027517 

063636 
064343 
027146 
075553 

005105 
047i24 
051131 
020116 
047524 
020106 
047525 
047104 

075564 

005104 

05252B 
046111 
041501 
052105 
020105 
047124 
051131 
0241U 
042523 
024440 

075600 



6ESR3 



8ESR2 



BESR4 
BESR6 

BE$EA 



LOA 
SZA 

JMP 
CPB 
JMP 
CPB 
JMP 
CPB 
JMP 
CPB 
JMP 
EQU 
LDA 
I3Z 
JMP 

Eyu 

CPB 
JMP 
CPB 
RSS 
JMP 
LDA 
S T A 
JMP 
EQU 
LDB 
JMP 
EQU 
LOA 

LDB 
JMP 
DEF 

UCT 
ASC 



BESFA EQU 

BEsEB DEF 

OCT 

ASC 



BESF 

BtSR2 
,♦546 
LFRER 
.♦446 
BESR6 
,♦528 
BESR6 

.♦158 

LFRER 

* 

B 

BESF 

BESR,I 

* 

• +54B 
BESR6 
.♦15B 

BESR3 
,♦408 

BESI- 

BESR,I 

* 

A 

BE3R5 

* 

BESEF 

BE3FF 

BESJL 

♦ ♦1 
5105 
7,NTRY 



FIRST CHAR? 

NO 

YES, COMMA? 

YES 

NO, «$«? 

YES 

NO, '*•? 

YES 

NO, CR? 



No* RESTORE A 



COMMaV 
YES, ERROR 
NO, CR? 

YES 

NO 

RETURN A BLANK 



•UNyALID NAME" 



NOT FOUND 



,~*+BESEA+l 

* + l 

5104 

10,UPLICATE ENTRYCIES) 



BESFB EQU 
BESEC DEF 



,«**BESEB+1 
♦♦1 
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0423 


75600 


005116 




OCT 


5U6 


0424 


75601 
75602 
75603 
75604 
75605 
75606 
75607 
75610 
75611 
75612 


047440 
042516 
052122 
044505 
051440 
043117 
051040 
047514 
0421H 
042040 




ASC 


10,0 tMRlES FUK QUID 


0425 


00337 




BESFC 


EQU 


,»*+BESEC*l 


0426 


75613 


075614 


BEsED 


DEF 


**1 


0427 


75614 


005116 




OCT 


5116 


042a 


75615 
75616 
75617 
75620 
75621 
75622 


047440 
051525 
041510 
020116 
042527 
044504 




ASC 


6,0 SUCH NEWJD 


0429 


00343 




8ESFD 


EQU 


,»*+BESED+l 


0430 


75623 


075624 


BEsEE 


DEF 


**1 


0431 


75624 


005H4 




OCT 


5114 


0432 


75625 
75626 
75627 
75630 
75631 
75632 
75633 
75634 
75635 


044502 
051101 
051131 
020123 
050101 
041505 
020106 
052514 
046040 




ASC 


9,IBRARY SPACE FULL 


0433 


00340 




BESFE 


EQU 


,.**BE3tE+l 


0434 


75636 


075637 


BEsEF 


DEF 


* + l 


0435 


75637 


005111 




UCT 


5111 


0436 


75640 
75641 
75642 
75643 
75644 
75645 


047126 
040514 
044504 
020H5 
040515 
042440 




ASC 


6,NVAUD NAME 


0437 


00343 




BESFF 


EQU 


,»**BESEF*1 


0438* 












0439 


75646 


072044 


BE3QV 


OEF 


SAVO*Com6«.CQM3 


0440 


75647 


177005 


BM507 


DEC 


*507 


0441 


75650 


031060 


BOIRU 


DEF 


DIREU 


0442* 












0443 


00036 




BESpS 


EQU 


UTEMP+6 


0444 


00040 




BtSWQ 


EQU 


LTEMP+8 


0445 


00041 




BEsC 


EQU 


LTEMp*9 


0446 


00042 




BE8P 


EQU 


UTEHP*ltf 


0447 


00043 




BESF 


EQU 


LTEMP+ll 


0446 


00044 




BESIN 


EQU 


UTEMP+12 


0449 


00045 




BESOU 


EQU 


ITEMP+13 


0450 


74025 




BES04 


EQU 


T35CQ 
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0451 

0452 

0453 

0454 

0455 

0456* 

0457* 

0456 

0459 

0460 

0461 

0462 

0463 

0464 

0465 



74315 
74132 
74137 
74164 
74435 



75773 
75773 
75773 
75774 
75775 
75776 
75777 
76000 



016231 
116015 

02^000 

027424 
102041 



BES05 EQU GETIU 
BESOI EQU LOUT 
BESDE EOU LTYPR 
BE3MF EQU tCHAR 
BESRD EQU SCHLO 



ORG tIBRA+507 
BE899 EQU * 

JSB DRUMi. 

J3B SICKP,! 

JMP LIBRA 

JMP BE813+1 

HLT 4iB 
SBE8 EQU * 
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0467* 

0468* 

0469* 

0470* 

0471* 

0472* 

0473* 

0474 

0475* 

0476 

0477 

0478 

0479 

0480 

0481 

0482* 

0483* 

0484* 

0485 

0486 

0487 

0h88 

0489 

0490 

0491 

0492* 

0493 

0494 

0495 

0496 

0497 

0498* 

0499* 

0500* 

0501 

0502 

0503* 

0504 

0505 

0506 

0507* 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

W5l7 

0518 

0519 

0520 

0521 



this routine is used to copy a file from the 
disk onto the ohum, 

ThE primary purpose is to put frequently used 
files a mo programs onto faster access storage. 

FORMAT IS; SAN-<ID>r<NAME>lCR) 



75000 

75000 
75001 
75002 
75003 
75004 
75005 



016315 
002001 
026275 
050426 
002401 
026275 



ORG LIBRA 

JSB GETID 

RSS 

JMP LFRER 

CpA ,+548 

CLA,RSS 

jMp LFRER 



GET THE ID CODE IN UUfcSTION 

FORMAT ERROR * - NO FILE NAME 
CqMMA? 

no, format Error 



HAVE ID» NOW GET NAME 



75006 
75007 
75010 
75011 
75012 
75013 
75014 

75015 
75016 
75017 
75020 
75021 



070055 
017257 
070031 
017257 
070032 
017257 
070033 

114572 

002001 
026275 

060052 
070030 



STA T35LC 
JSB SANIP 
STA LTEMP*1 
JSB SANIP 
STA LTEMP+2 
JS8 SANIP 
STA LTEMP+3 

JSB T35CH,I 

RSS 

JMP LFRER 

IDA ID 

STA LTEMP 



NAMES ARE <* Six CHARACTERS 
SAyE THE ID CODE 

FOR THE DLOOK ROUTINE 



NOW SEARCH THE DIRECTORY FOR THIS ENTRY 



75022 116005 

75023 027027 

75024 063315 

75025 064341 

75026 027300 



75027 
75027 

75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 
75040 
75041 

75042 
75 42 



064035 

044365 
160001 
070036 
002020 
027042 
003004 

040412 
002020 
027270 
027045 

043402 



JSB dcokp,i 

JMP SANC 

LDA SANEA 
LDB SANFA 
JMP SANIL 

8ANC EUU * 

LDB LTEMP+5 

ADB t +ll 

LDA B,I 

STA SANLA 

SSA 

JMP SANCA 

CMA,INA 

ADA .+32 

SSA 

JMP SaNKB 

JMP SANCB 

SANCA EUU * 

ADA SAN8K 



"ENTRY NOT PRESENT" 



GET POINTER TO THE ENTRY 
■> LENGTH WORD 
A a LENGTH 
SAVE LENGTH 

PROGRAM 

3 2 IS LONGEST ALLOWABLE 

"ENTRY TOO LONG" 
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0522 

0523 

0524* 

0525 

0526 

0527 

0528 

0529 

0530 

0531* 

0532 

0533 

0534 

0535 

0536 

0537 

8530* 
0539 

054^ 
0541 

0542 

0543 

0544* 

0545* 

0546* 

0547* 

0546 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557* 

0556 

k}559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0566 

0569 

0570 

0571 

0572 

0573* 

0574* 



75^43 002020 

75044 027270 

75045 

75045 064035 

75046 044361 

75047 160001 

75050 002002 

75051 027273 



75052 
75053 
75054 
75055 
75056 
75057 



070215 
060035 
04(4362 
114212 
102030 
102031 



75060 064035 

75061 044354 
75^)62 160001 

75063 002021 

75064 027U5 



SSA 

JMP SANKB 

SANCB EQU * 

LDB LTEMP+5 

ADB ,*7 

LDA B,I 

SZA 

JMP SAnKC 

STA MWORD 

IDA LTEMP+5 

ADA v +8 

JS8 DISCA,I 

HLT 30B 

HUT 31B 

LOB LTEMP+5 

ADB v *2 

LDA B,I 

S3A,RSS 

JMP SANCM 



PROGRAM TOO LONG CHECK 
"ENTRY TOO LONG" 



«> DRUM ADDRESS 



"Entry already sanctified" 



*» directory entry 

*> disk address 

overlap seek with drum diddling 



»> WORD TWO 

BIT 15 SET SEZ FI L E 
PROGRAM, W0NI T Bt IN FgSS 



THE FUSS TABLE IS NOW SEARCHED TO SEE IF THIS 
FILE IS IN USE, 



75065 
75066 
75067 
75070 
75071 
75072 
75073 
75074 
75075 
75076 
75077 

75100 
75101 
75101 
75102 
75103 
75104 
75105 
75106 
75107 
75U0 
75111 
75111 
75112 
75113 
75114 



044360 
104200 

100001 
104400 
000037 
060732 
070072 
160540 
064566 
016231 
116015 

064562 

160001 
006004 
050037 
002001 
02711! 
160001 

050040 
027276 

006004 
054536 
027115 

027l0i 



ADB ,*6 
DLD B,I 

DST 3ANLB 

LD A M2000 
STA WORD 
LDA FUSS,! 
LDB LIBDI 
JSB DRUML 
J3B 8ICKP,I 



LDB 
SANCC EQU 
LDA 
INB 
CPA 

RSS 
JMP 
LDA 
CPA 
JMP 
SAnCD EQU 
INB 
CPB 
JMP 
JMP 



LIBD 

* 

B,I 
3ANLB 

SANCD 
8,1 
SANLC 
SANKD 

* 

L1024 
SANCM 
SANCC 



■> DISK ADDRESS 



SAVE DISK ADDRESS FOR SEARCH 

LENGTH OF FUSS TABLE 
REAp 
IN 
FUSS 
TABLE 
IT»3 STUCK ON THE DRUM 

•> FIRST ENTRY OF FUSS 



•> SECOND WORD OF ENTRY 

CHECK FOR FIRst WORD FOR MAyCH 

MATCH, MUST CHECK SEC()ND WqRDS 

NO MATCH 

LqAD sECqNO wqrD 

SECOND WORD MATCH? 

"FILE IN USE" 

«> NEXT ENTRY 

TEST FOR SEARCH DONE 

NOT DONE* TEST NEXT ENTRY 



NOW READ IN THE ADT AND FIND ROOM ON THE DRUM 
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0575* 

0576 
W577 
^578 
0579 

0580 

0581 

0582 

0583 

0584 

0585 

0585 

0587 

0588 

0589 

0590 

0591* 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 
0604 

0605 

0606* 

0607 

0606 

0609 

0610* 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

061g 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628* 

0629 



75 
7 5 

75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 

75 
75 
75 
75 
75 
75 
76 
75 
75 
75 
75 

75 
75 
75 

75 

75 
75 

75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 
75 



15 
15 

16 
17 

20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 

33 
34 
35 
36 
37 
40 
40 

41 
42 
43 
44 

45 
46 

47 

50 
51 
52 

53 
53 

54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 
67 
70 
71 

72 



060036 
002021 
027123 
007400 
101026 
003005 
001020 
070037 
060113 
070072 
060U2 
064566 
016231 
116015 

060113 
001100 
070040 
064562 
006004 

060037 
003004 
140001 
002021 
027153 

044354 
034040 

027140 

063365 

064336 
027300 



070041 
170001 
044351 
160001 

040037 
170001 
060041 
002002 
027177 
074051 
044354 
074050 
044674 
044072 
016267 



SANCM EQU * 

LOA SANLA 
SSA,RSS 
JMP SANCP 

SANCO CCB 

ASR 6 
CMA,INA,RSS 

SANCP AlS,ALs 

STA SANLB 
LOA ADLEN 
STA WORD 
LOA ADLUC 
LOB L1BDI 
JSB DRUML 
JSB SICKP,I 



LOA ADLEN 

ars 

ST* sANLC 
LOB LIBO 
INB 

tuu * 
lda sanlb 
cma, Ina 

ApA B,I 
SSAr RSS 
JMP S A NcT 
AOB .*g 
ISZ SANLC 
JMP SANCR 



SancR 



LpA SANEE 

l ob sanfe 

JMp SANK 



SANCT EQU 
STA 
STA 
AOB 

LOA 
STA 

ADA 
STA 
LD A 
SZ A 
JMP 
STB 
AOB 
STB 
ApB 
ApB 
JSB 



SANLD 

B,I 

,»1 

b»l 

SANLC 
SAfjLB 

b,X 

SANLD 

SANCV 
MOVED 
,♦2 

MOVES 
MLIBO 

WORD 
MOVEW 



GET THE LENGTH WORD 
POSITIVE bLOCKS IF FILE 

CONVERT 

NEGATIVE WORDS 
TO SECTORS 
CONVERT BLOCK CNT TO SECTOR CNT 



READ 
IN 
THE 
AOT 
DRUM ERROR, DIE WITH CONSIDERATI 

GET COUNT 
UF AOT 
ENTRIES 
»> FIRST ENTRf 
■> uEnGTH OF THIS tNTRY 

GET DESIRED LENGTH 

A q IN ENTRY LENGTH 
SKIP IF TOO SHORT 
ENTRY IS BIG ENOUGH 
ADVANCE TO NEXT ENTRY 
CHECK COUNT 



"INSUFFICIENT D«UM SPAcE" 



SAVE THE LENGTH REMAINING IN THI 



GET THE DRUM ADDRESS, 
SAVE A COPY, 
A N UPDATE IT 
IT 
CHECK THE NEW LENGTH 
SKIP IF ENTRY REMOVED 

SQUEEZE 

Out 

THE 

OLD 
ENTRY 



75173 060U3 



LOA ADLEN 



update 
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0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638* 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647* 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

10658 

0659 

0660 

0661 

0662 

0663* 

0664 

0665 

0666 
k}667 
0668 
0669 

0670* 

0671 

0672 

0673 

0674 

0675 

0676 

W677* 

0678 

0679 

0680 

0681 

0682 

0683* 

06&4 



75174 
75175 
75176 
75177 
75177 
75200 
75201 
75202 

75203 
75204 
75205 
75206 
75207 
75210 
752U 
75212 

75213 
75214 
75215 
75216 
75217 
75220 
75221 
75222 
75223 
75224 
75225 
75226 
75227 
75230 
75231 

75232 
7 5232 

75233 
75234 
75235 
75236 

75237 
75240 
75241 
75242 
75243 
75244 

75245 
75246 
75247 
75250 
75251 



040354 

070H3 
070072 

060112 
064562 
016231 
116015 

160034 
070072 
064034 
044360 
160001 
064566 
016231 
116015 

064035 
044361 
060040 
170001 
064034 
044360 
160001 
064562 
016231 
002001 
027232 
060034 
164000 
040360 
116016 



060037 
1000 2 6 
003004 
070215 
070072 

060035 
040362 
064566 
114212 
027242 
102031 

060214 
002020 

027245 
002002 
116015 



ADA ,*2 

STA ADLEN 

STA WORD 

IANCV EQU * 

LDA ADLOC 

LUB LIBD 

JSB DRUML 

J88 SICKP,I 



THE ADT AND 
TRANSFER 
UNGTH 

WRIU OUT 
THE UPDATED 
A U T 



LDA L TEMP*4,I GET THE DIRECTORY TRACk LENGTH 
STA WORD 

»> DIREC ENjRY 

»> drum address of o*r. track 



75252 060040 



LDB LjEMP+4 
ADB ,*6 
LDA B,j 
LDB UBDJ 
JSB DRUML 
JSB SICKP,! 

LDB CTEMP+5 
ADB ,*7 
LDA SAn^C 
STA B,I 
LDB LjEMP+4 
ADB ,+6 
LDA B,J 
LOB LIBD 
JSB DRUML 
RSS 

JMP SANDO 
LDA LTEMP+4 
LDB A, I 
ADA ,*6 
JSB 3ALVp,I 

SANDO EUU * 

LOA SANLB 
ASL 6 
CMA^INA 
8TA M W 0RD 
STA WORD 

I^DA lTEmP+5 
ADA .+8 
LDB LIBuI 
JSB DI3CA,I 
JMP *»1 
HLT 31b 

LDA MBUSY 

SSA 

JMP *»2 

S2A 

JSB SICKR,I 

LDA SANLC 



READ BACK ThE 

DIRECTORY TRACK 
DRUM ERROR 



•> DRUM ADDRESS 
LOAD THE Drum ADDRESS AnD 
MODIFY THE DIRECTORY 

m> DRUM ADDRESS OF DIR, TRACK 

WRITE OUT THE N£W 
DIRECTORY TRACK 

CONTINUE 

•LENGTH OF TRACK IN COrE 
*> DRUM ADDRESS 
SALVAGE TRACK 



CONVERT PROGRAM LENGTH FROM 
SECTORS TO WORDS 

make negative for drum and disk 
set disk and 
drum transfer lengths 

«» Directory Entry 
»> disk address 

READ IN THE FILE OR PROGRAM 
STILL BUSY DOING SEEK 



WAIT FOR TRANSFER TO BE COMPLETE 



LOAD THE DRUM ADDRESS 
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0685 


75253 064662 




LOB 


HBO 




0686 


75254 016231 




USB 


DRUML 


COPY TO THE DRUM 


0687 


752.55.116*15- 




JSB 


SICKP,1 




0688* 


■ 










0689 


75256 026267 




JMP 


LEND 




0690* 


■ », 










0691* 


GE7 TWO CHARACTERS { 


JF NAME 




0692* 


% 










0693 


75257 000.000 


SAN1P 


NOP 






0694 


75260 114572 




JSB 


T35CH f I 


GET NEXT CHARACTER 


0695 


75261 060412 




LOA 


,+40B 


RETuRN BLANKS AT END 


0696 


75262 001727 




ALF, 


,ALF 


TO LEFT HALF 


0697 


75263 070036 




STA 


SANLA 




0696 


75264 114572 




JSB 


T35CH,I 


GET NEXT CHARACTER 


0699 


75265 060412 




LOA 


.♦408 


RETURN BLANX AT END 


0700 


75266 030036 




10R 


SANLA 




0701 


75267 127257 




JMP 


SANIP,! 


RETURN 


»7\dZ* 


v 










0703* 


ERROR MESSAGE PRINTER 




0704* 


f 










0705 


75270 063327 


sankb 


LOA 


SANEB 




0706 


75271 064342 




LOB 


SANFB 




fd7H7 


75272 027300 




JMP 


SANIL 




0708* 


;-. . 










0709 


75273 063340 


sankc 


LOA 


SANEC 




0710 


75274 064339 




LOB 


SANFC 




0711 


75275 027300 




JMP 


SANlL 




0712* 


- 










0713 


75276 863356 < 


sanko 


LOA 


SANEO 




0714 

0715* 

0716 


75277 064344 




LDB 


SANFD 




75300 


3ANIL 


EQU 


* 




0717 


75300 070090 


5 , 


STA 


MOVES 




0718 


75301 060305 




LOA 


T35B1 


MOVE THE ERROR MESSAGE 


071 9 


75302 070051 




STA 


MOVED 


INTO THE TTY 


0720 


75303 074030 




ST8 


LTEMP 


BUFFER 


0721 


75304 416257 




JSB 


MOVEW 




0722 


75305 066J214 




LOA 


MBUSY 


WAIT FOR 


0723 


75306 002020 




S3A 




SEEK TO 


0724 


75307 027305 




JMp 


*«2 


CoMpLETE 


0725 


75310 060030 




LOA 


LTEMP 




0726 


75311 001000 




ALS 






0727 


75312 003004 




CMA, 


.InA 


AND PRINT 


»728 


75*13 06430* 
7b3l4 026271, 




LOB 


T3gBl 


THE MESSAGE 


0729 




JMP 


LEND*2 




0730* 












0731 


75315 07531& 


SANEA 


DEF 


*♦! 




0732 


75316 005105 




OCT 


5105 




0733 


75317 047124 

76320 051131 ' 

75321 020116 

75322 04.7524- 

75323 02012k 

75324 051105 

75325 05^50S 


*■ 


ASC 


8,nTRY NO 


T PRESE N T 



•t ■.. 
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75326 


047124 










0734 


00341 




Sanfa 


EQU 


,»**sanea*i 




0735* 














^736 


75327 


075330 


SANEB 


DEF 


*♦! 




0737 


75330 


005105 




OCT 


5105 




0738 


75331 
75332 
75333 
75334 
75335 
75336 
75337 


047124 
051131 
020124 
047517 
020114 
047516 
043440 




ASC 


7,ntny too long 




0739 


00342 




sanfb 


EQU 


.••♦saneb+i 




0740* 














0741 


75340 


075341 


SANEC 


DEF 


*+i 




0742 


75341 


005105 




OCT 


5105 




0743 


75342 
75343 
75344 
75345 
75346 
75347 
75350 
75351 
75352 
75353 
75354 
75355 


047124 
05U31 
020101 
046122 
042501 
042131 
020123 
040516 
041524 
044506 
044505 
042040 




A3C 


12,NTRY ALREADY 


SANCTIFIED 


0744 


00335 




sanfc 


EQU 


.•♦♦SaNEC*1 




0745 


75356 


075357 


SANED 


DEF 


♦♦1 




0746 


75357 


005106 




OCT 


5106 




0747 


75360 
75361 
75362 
75363 
75364 


044514 
042440 
044516 
020125 
051505 




ASC 


5,Il,E In USE 




0748 


00344 




sanfd 


EQU 


,»*+3ANED*l 




0749* 














0750 


75365 


075366 


SANEE 


DEF 


♦ ♦1 




0751 


75366 


005111 




OCT 


5111 




0752 


75367 
75370 
75371 
75372 
75373 
75374 
75375 
75376 
75377 
75400 
75401 


047123 
052506 
043111 
041511 
042516 
052040 
042122 
052515 
020123 
050101 
041505 




ASC 


INSUFFICIENT 1 


3RUM SPACE 


0753 


00336 




3ANFE 


EQU 


••»+3ANEE+i 




0754 


00036 




SANLA 


EQU 


LTEMp*6 




0755 


00037 




SANLB 


EQU 


LTEMP+7 




0756 


00040 




SANLC 


EQU 


LTEMP*8 
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0757 00041 SANUD EQU LTEMP+9 

0758 754^2 02«>0«0 SAN8K OEC 8j92 

0759 75403 $SAN EQU * 
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0002* 

0003* 
0004* 

0005* 
0006* 

0007* 

0008* 

0009* 

0010* 

0011* 

0012 

0013 

0014 
0015 
0016 
0017 
0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026* 

0027 

0028 

0029 

0030 

0031 

0032* 

0033* 

0034* 

0035 

0036 

0037* 

0038 

0039 

0040 

0041* 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 



THIS ROUTINE IS USED TO RESTORE FILES AND 
PROGRAMS TO THEIR DISC AREAS, THE DRUM SpACE 
IS RESTORE TO THE AqT, 

IP THE ENTRY IS A FILE, IT IS COPIED BACK TO 
THE DISC, IF THE ENTRY IS A PROGRAM, IT IS 
NOT NECESSARY TO COPY IT SACK, SINCE THE ORUM 
COPY CANNOT BE ALTERED, 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
750U 
75012 
75013 
75014 

75015 
75016 
75017 
75020 
75021 



016315 
002001 
026275 
050426 
002401 
026275 
070055 
017215 
070031 
017215 
070032 
017215 
070033 

114572 
002001 
026275 
060052 
070030 



ORG 

JSB 

RSS 

JMP 

CPA 

CLA, 

JMP 

8TA 

JSB 

8TA 

JSB 

STA 

JSB 

STA 



LIBRA 
GETID 

LFRER 

.♦54B 

RSS 

LFRER 

T35LC 

DESIP 

LTEMP+1 

DESIP 

LTEMP+2 

DESIP 

LTEMP*3 



JSB T35CH,I 

RSS 

JMP LFRER 
LDA JD 
STA LTEMP 



SEARCH DIRECTORY FOR THIS ENTRY 



75022 
75023 

75024 
75025 
75026 

75027 
75027 

75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 
75037 
75040 
7504 1 
75 42 
75043 



116005 
027027 

063244 
064341 
027200 



064035 
044361 
160001 
002002 
027037 
063276 
064337 
027200 

070044 
044356 

160001 
002021 
027056 



JSB DLOKP,I 
JMP DES1 

LDA DESEA 
LDB DESFA 
JMP DESIL 



DE31 



DES2 



EUU 
LDB 
ADB 
LDA 
SZA 

JMP 

LDA 

LDB 

JMP 

EUU 

STA 

ADB 

LDA 

SSA, 

JMP 



LTEMP+5 

.♦7 

8,1 

DES2 

DESEC 

DEsFC 

DE3IL 

* 

KILD 

.♦4 

B,I 

RSS 

DES3 



GET THE ID CODE 

FORMAT ERROR 

COMMA? 

YES 

NO, ERROR 

GET THREE 

words of 

NAME 



CR FOLLOWS? 

YES 

NOr ERROR 

SAVE ID 

FOR DLOOK 



FOUND 

"ENTRY NOT PRESENT" 



GET DRUM ADDRESS 

ZERO? 
NO 

"Entry not sa n ctified" 



SAVE DRUM ADDRESS 



GET LENGTH 

FILE? 

YES 
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0057 


75044 


001121 


ARS, 


rARS 


NO, CONVERT 


10058 


75045 


001121 


ARS, 


rARS 




0059 


75046 


001121 


ARS, 


rARS 


PROGRAM LENGTH 


0060 


75047 


003004 


CMA, 


>INA 




0061 


75050 


070045 


STA 


KILDF 


TO SECTORS 


0062 


75051 


U44346 


ADB 


t »4 


ZERO 


0063 


75052 


002400 


CIA 




DRUM 


01464 


75053 


170001 


STA 


B,I 


ADDRESS 


0065 


75054 


017226 


JSB 


DE3OW 


GO WRITE OUT DIRECTORY 


0066 


75055 


027160 


JMP 


DE$7 




0067* 












0066 


75056 


DE83 


EQU 


* 




0069 


75056 


001020 


ALS, 


,ALS 


CONVERT FILE 


0070 


75057 


070045 


STA 


KILDF 


LENGTH TO SECTORS 


0071 


75060 


002400 


CLA 




5U UP 


0072 


75061 


070215 


STA 


MWQRD 




d\o7i 


75062 


044347 


ADB 


,-3 


FOR EARLY 


UV74 


75063 


060001 


LDA 


B 




0075 


75064 


114212 


JSB 


DISCA,I 


SEEK 


0076 


75065 


102030 


H U 


30B 




mn 


75066 


102031 


HIT 


318 




0076* 












0079* 


CHECK 


FUSS TABLE FOR FILE IN USE 




0090* 












0061 


75067 
750/0 


104204 

100001 


DLO 


6,1 


SAVE DISC 


0082 


75071 
75072 


104400 
000040 


DST 


DESLB 


ADDRESS 


0083 


75073 


060732 


EDA 


M2000 




0084 


75074 


070072 


STA 


WORD 




0085 


75075 


00H00 


ARS 




COUNT 


0086 


75076 


070037 


STA 


DESCT 


OF ENTRIES 


0087 


75077 


160540 


EDA 


FUSS, I 


READ 


0088 


75100 


067322 


LDB 


DE8RA 


FUSS 


0089 


75101 


016231 


JSB 


DRUML 


TABLE 


0090 


75102 


116015 


JSB 


SICKPrl 




0091* 












00 9 2 


75103 


065002 


LDB 


L81 9 2 


9> FIRST ENTRY 


0093 


75104 


DES4 


EQU 


* 




0094 


75104 


160001 


LOA 


B,I 




0095 


75105 


006004 


IN** 






0096 


75106 


050040 


CpA 


DEgLB 


FIRST WOrD MATCH 


0097 


75107 


002001 


R33 




YES 


0098 


75110 


027114 


JMP 


DES5 


NO 


0099 


75111 


160001 


LDA 


8,1 




0100 


75112 


050041 


C PA 


DESt8*l 


secumd word MATgH? 


0101 


75113 


027176 


JMP 


DESlL-2 


YES, CAN'T DESECRATE 


0102 


75114 


DES5 


EQU 


* 




0j03 


75U4 


006004 


INB 




NO 


0104 


75115 


034037 


ISZ 


DESCT 


FINISHED TABLE? 


0105 


75116 


027104 


JMP 


DES4 


NO 


0106* 












0107* 


UPDATE DIRECTORY 








0108* 












0109 


75117 


064035 


LOB 


LTEMP+5 
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0110 


75120 


044361 


adb 


.♦7 




0111 


75121 


002400 


CIA 




ZERO DRUM 


0112 


75122 


170001 


STA 


B,I 


AODRESS 


0113 


75123 


006004 


INB 






0114 


75124 
75125 


104200 
100001 


DLD 


B,I 


SAVE DISC 


0115 


75126 
75127 


104400 
000040 


D3T 


DESLB 


ADDRESS 


0116 


75130 


017226 


JSB 


DESDW 


WRITE OUT 


0117 


75131 


060045 


LDA 


KILDP 


CONVERT 


0116 


75132 


001700 


ALF 






0119 


75133 


001020 


ALS, 


rALS 


SECTORS 


0120 


75134 


003004 


CMA, 


rINA 




0121 


75135 


070072 


STA 


WORD 


TO WORDS 


0122 


75136 


070215 


STA 


MWORD 




0123* 












0124* 


COP FILE TO OiSC 








0125* 












0126 


7513 7 


060044 


LDA 


KILD 


READ 


0127 


75140 


064566 


LDB 


LIBD1 


FILES 


012a 


75141 


016231 


JSB 


DRUML 




0129 


75142 


027155 


JMP 


DES6 




0130* 












0131 


75143 


063321 


IDA 


DESLP 


WRITE 


0132 


75144 


064562 


LDB 


LXBD 


FILE 


0133 


75145 


114212 


JSB 


DlSCA,i 


TO DISC 


0134 


75146 


027145 


JMP 


*«1 


WAIT FOR READY 


0135 


75147 


102031 


HIT 


3ib 




0136 


75150 


060214 


LDA 


MBUSY 


WAIT FOR 


0137 


75151 


002020 


SSA 




TRANSFER 


013a 


75152 


027150 


JMp 


*-2 


Complete 


0139 


75153 


002003 


SZA, 


rRSS 


SUCCESSFUL? 


4140 


75154 


027160 


JMP 


DES7 


YES 


0141 


75155 


0ES6 


EQU 


* 




0142 


75155 


063256 


LDA 


DESEB 


"BAD TRaSFER, 


0143 


75156 


064333 


LDB 


DESFB 




0144 


75157 


027200 


JMP 


DESiL 




0145* 












0146* 


RETURN SPACE TO DRUM ADT 




0147* 












014a 


75160 


0E87 


EQU 


* 




0149 


75160 


060113 


LDA 


ADL&N 


read 


0150 


75161 


070072 


STA 


WORD 




0151 


75162 


060112 


LDA 


ADLOC 


ADl TO 


0152 


75163 


064566 


LDB 


LIBDI 




0153 


75164 


016231 


JSb 


DRUML 


CORE 


0^4, 


75165 


M 60 l 9 


JSB 


SJCKP f I 





0150* 
0156 


75166 116012 


JS B R8F3P,I 


RETURN SPAcE TO ApT 


0157* 








0158 


75167 060113 


LDA ADLEn 


WRITE 


0159 


75170 070072 


STA WoRD 




0160 


75171 060112 


LDA ADLOC 


ADf TO 


0161 


75172 064562 


LDB LIBD 




0162 


75173 016231 


JSB DRUML 


DRUM 
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0163 

0164* 

0165 

Mies* 

W167 

0168 

0169 
0170 

0171 
0172 

0173 
0174 

0175 

0176 

0177 

0178 

0179 

0180 

0l8i 

0182 

0183* 

0184* 

0185* 

018$ 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0I94 

0195* 

0196* 

0197* 

0198 

0199 

0200 

0201 

0202 

((3203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212* 

0213 

0214 

0215 



75174 116015 

75175 02^267 



JSB $ICKP,I 
JMP LEND 



75176 
75177 
75200 
75200 
75201 
75202 
75203 
75204 
75205 
75206 
75207 
75210 
75211 
75212 
752 A 3 
75214 



063312 
064344 

070050 
060305 
070051 

074030 
016257 
060214 
002020 
027205 

060030 

001000 

003004 
064305 
026271 



LDA 
LOB 
DESIL EUU 
STA 
LDA 
STA 
STB 
JSB 
LDA 
S3A 
JMP 
LDA 
ALS 
CMA 
LDB 
JMP 



DE8ED 
DESFD 

* 

MQVE8 
T35B1 
MOVED 

LTEMP 
MOVEW 

MBUSY 

*«2 
LTEMP 

,INA 
T35B1 
LEND*2 



GET TWO CHARACTERS OF NAME 

75215 000000 DE81P NOP 

75216 114572 J3B T35CH,I 

75217 060412 LDA ,+408 

75220 001727 ALF,ALf- 

75221 070036 sT A DE$LA 

75222 114572 JSB T3$CH,I 

75223 060412 LDA ,*40& 

75224 030036 IOR DESLA 

75225 127215 JMP QESIP,I 

WRITE OUT DIRECTORY 



75226 
75227 
75230 
75231 

75232 
75233 
75234 
75235 
75236 
75237 
75240 
75241 
75242 
75243 

75244 
75245 
75246 
75247 
75250 



000000 
064034 
160001 
070072 
044360 
160001 
064562 
016231 
002001 
127226 
060034 
164000 
040360 
116016 

075245 
005105 
047124 
05U31 
020116 



DESOW NOP 
LDB 

LDA 
STA 
ADB 
LDA 
LDB 
JSB 

RSS 
JMP 
LDA 
LDB 
ADA 
JSB 

DE3EA DEF 
OCT 
A3C 



LT&MP+4 
B,I 

WORD 
,+6 

u,x 

LIBD 
DRUML 

DESDWfl 
LT|MP*4 
A, I 
.♦6 
SALVP,J 

*♦! 

5105 

8, N TRY 



"FILE IN USE 

MOVE ERROR 

MESSAGE TO 

TTY BUFFER 
WAIT FOR 

ADVANCE SEEK 
TO COMPLETE 



GET NEXT CHARACTER 
RETURN BLANKS AT END 

TO LEPT half 

GET NEXT CHARACTER 
RETURN BLAKS AT END 



DRUM ADDRESS 
CORE ADDRESS 
WRITE IT OUT 
fcRROR 



••LENGTH OF TRACK 
•> DKUM ADDRESS 
ATTEMPT TO SALVAGE 



NOT PRESENT 
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75251 


047524 




75252 


020120 




75253 


051105 




75254 


051505 




75255 


047124 


0216 


00341 




fc32l7 


75256 


075257 


0218 


75257 


005102 


0219 


75260 


040504 




75261 


020124 




75262 


051101 




75263 


047123 




75264 


043105 




75265 


051054 




75266 


020106 




75267 


044514 




75270 


042440 




75271 


042105 




75272 


051524 




75273 


051U7 




75274 


054505 




75275 


042040 


0220 


00333 




0221 


75276 


075277 


0222 


75277 


005105 


0223 


75300 


047124 




75301 


051131 




75302 


020116 




75303 


047524 




75304 


020123 




75305 


040516 




75306 


041524 




75307 


044506 




75310 


044505 




753U 


042040 


0224 


00337 




0225 


75312 


»753l3 


0226 


75313 


005106 


0227 


75314 


044514 




75315 


048440 




75316 


044516 




75317 


020125 




75320 


051505 


0228 


00344 




0229* 






0230 


75321 


000040 


0231 


75322 


121230 


0232* 






0233 


00036 




0234 


m*S7 




0235 


00040 




0236 


75323 





DESFA EQU ,»**DE8Ea*1 
DESEB DEF *M 

OCT 5102 

A8C 14, AD TRANSFER, FILE DESTROYED 



DE8F8 EQU .•♦♦DESEB+1 
DESEC DEF *♦! 

OCT 5105 

ASC 10, N TRY NOT SA N CTlFIED 



DE8FC EQU ,«»**DE8EC*1 
DESED DEF *+i 

OCT 5106 

A8C 5,IU In USE 



DESFD EQU f -*+DESED*l 

DESUP DEF DESL8 

DESRA DEF LlBUS+8192,1 



DE8LA EQU LTEMP*6 
DESCT EQU LTfcMP*7 
DEsLB EQu LTEMP*8 
$»ES EQU * 



9 USED AUSO 
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0238* 
19239* 
024(9* 
0241* 
0242* 
0243* 
0244* 
024S* 
0246* 
0247* 
0248* 
k)249* 
0250* 



the purge command makes xt possible to remove From the library 
prqgrans which have not been accessed for some period of time, 
the format for the commano is as follows* 

purge. oay/year 

WHERE DAY IS AN INTEGER FROM j TO 366 AND YEAR IS AN INTEGER FROM 
TO 99, ALL PROGRAMS OR FILES WHICH HAVE NOT BEEN ACCESSED SINCE 
THE SPECIFIED DATE ARE DELETED FROM THE LIBRARY, 



PURGE WILL REFUSE 
TODAY»S DATE, 



TO OPERATE IF THE SPECIFIED DATE IS BEYOND 



0252 
0253 

0254 

0255 

0256 

0257 
0258 
0259 
0260 
0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275* 

0276* 

0277* 

02 7 8 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 



75000 
75000 
75001 

75002 
75003 
750^4 
75005 
75tf06 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 



104200 
075460 
104400 
000030 
104200 
075462 
104400 
000032 
116005 
002001 

027032 
016076 
064035 
044357 
170001 
060034 
040360 

160000 
064562 
016231 

002001 
027032 
064072 
060037 
116016 



INTERPRET DATE, 



75032 
75033 
75034 
75035 

75036 
75037 
75040 
75041 
75042 



feil7074 
177221 

050431 
006003 
027I3I 
074040 
017074 
177634 
050367 



PUR2 



ORG LIBRA 




OLD PZ999 


PREVENT HELLO PROGRAM 


DST LTEMP 


FROM BEING PURGED, 


DLD PURHE+i 




DST LTEMP+2 




JSB DLOKPrl 


search directory for Entry 


RSS 




JMP PUR2 




JSB DATE 




LDB LTEMP+5 




ADB ,+S 




STA 1,1 




LOA LT£MP*4 




ADA ,*6 




STA PURP 




LOA 0,1 




LOB LIBD 




JSB DRUML 




RSS 




JMP PUR2 




j,OB WORD 




LDA PURP 




JSB SaLVP,1 




JSB PURNO 


GET DAY OF YEAR, 


DEC *367 




C HA ,+57 b 


TEST FOR NONZERO AND SLASH FOL 


3ZB,RSS 


LOWING, 


JMP PUR1 


PARAMETER ERROR, 


STB PUROT 


SAVE DATE, 


JSB PuRnO 


NOW GET THE YEAR, 


DEC «100 




CP* .+15b 


CHECK FOR RETURN FOLLOWING, 
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0287 

0288 

0269* 

029»3 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299* 

0300* 

0301* 

0302* 

0303* 

0304 

0305 

0306 

0307 

0306 

030» 

0310* 

0311 

3 1 2 

0313 

0314 

0315 

0316 

0317 

0316 

0319* 

0320* 

0321* 

0322 

0323 
0324 
0325 
0326 
0327 
0326 
0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340* 

0341* 



75043 
75044 

75045 
75046 
75047 
75050 
75051 
75052 
75053 
75054 
75055 



002401 
027131 

101107 
030040 
070040 
016076 
064040 
007104 
040001 
002041 
027131 



CLA,R3S 
JMP PUR1 

RRR 7 
IOR PURDT 
STA pURDT 
J3B pATE 
LOB PURDT 
CMB,CLE,IN8 
ADA 1 
SEZ,RS8 
JMP PURI 



MERGE YEAR AND DATE. 



NOW GET TODAY'S DATE. 
MAKE SURE SPECIFIED DATE 
^•TODAY'S DATE 



IS 



THE NEXT STEP IS TO GUARANTEE THAT WE DON'T KILL 
RENTLY IN USE, TO DO THIS WE WILL CHECK THAT THE 
EMPTY, 



ANY FILES CUR- 
FUSS TABLE IS 



75056 
75097 

75060 
75061 
75062 
75063 



060732 

160540 
064566 
016231 
116015 



75064 064g62 

75065 054536 

75066 027171 

75067 160001 

75070 002002 

75071 027144 

75072 006004 

75073 027065 



PUR4 



LDA M2000 
STA WORD 
LDA FUSS, I 
LDB LIBDI 
JSB DRUML 
JSB SICKP,I 

LDB LIBD 

CPB L1024 

JMP PUR3 

LDA 1,1 

SZA 

JMP PUR7 

INB 

JMP PUR4 



ROUTINE TO INPUT A NUMBER 



75074 
75075 
75076 
75077 

75100 
75101 
75102 
75103 
75104 
75105 
75106 
75107 
75110 
75111 
75112 
75113 
75114 
75U5 



000000 
017116 
026275 
074041 
147074 
006021 
027131 
017116 
027U3 
060041 
001222 
040041 
001200 
044000 
02707/ 

064^41 
037074 
127074 



PURNO NUP 
JSB 
JMP 

pURNl STB 
ADB 
S8B, 
JMP 
JSB 
JMP 
LDA 
RAL, 
ADA 

RAL 
ADB 
JMP 
PURN2 LDB 
ISZ 
JMP 



PURDG 
LFRER 
pURN 

PURNO#I 

RSS 
PUR! 

PURDG 

PURN;> 

PURN 

RAL 

PURN 



PURNl 
PURN 
PURNO 
PURNO, I 



INPUT FUSS 
TABLE, 



DONE? 
YES, 



GET A DIGIT 
ILLE6AL IF NONE, 
3AVE pARTlAL RESULT. 
CHECK FqR OVERF L oW, 



GET NEXT DIGIT, 

END OF NUMBER, 

MULTIPLY PREVIOUS RESULT BY 10, 



ADD In new value 

LOOP 

RETURN NO. 
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0342 


75116 


000000 


PURpG 


NOP 




GET DECIMAL OiGll 


0343 


75117 


016025 




J9B 


T35CQ 


GET CHAR, 


0344 


75120 


127116 




JMp 


pURDG,! 


NONE THERE, 


0345 


75121 


064000 




LOB 





00 O1G1T TEST, 


0346 


75122 


044316 




AOB 


M72B 




0347 


75123 


006021 




SSB» 


,RSS 




0348 


75124 


127116 




Jmp 


PURDG, I 




0349 


75125 


044364 




AoB 


.♦10 




0350 


75126 


006021 




SSB, 


-RSS 




0351 


75127 


037116 




13Z 


PUROG 




0352 


75130 


127H6 




JMP 


PURDG, I 




0353* 














0354* 


ERROR 


PRINT, 










0355* 














0356 


75131 


064330 


PURl 


LOB 


.-18 




W357 


75132 


017155 




J3B 


PURER 




0358 


75133 


005111 




OCT 


5111 




0359 


75134 
75135 
75136 
75137 
75140 
75141 
75142 
75143 


046114 
042507 
0405H 
020120 
040522 
040515 
042524 
042522 




A8C 


8,LLEGAL 


PARAMETER 


0360 


75144 


064337 


PUR7 


LOB 


.•u 




0361 


75145 


017155 




J8B 


PURER 




0362 


75146 


005102 




OCT 


5102 




0363 


75147 


052523 




ABC 


6,USY FILES 




75150 


054440 












75151 


043111 












75152 


046105 












75153 


051440 












75154 


020040 










0364 


75155 


000000 


PURER 


NOP 






0365 


75156 


074^4* 




STB 


PURN 




0366 


75157 


060305 




LOA 


T35B1 




0367 


75160 


070051 




STA 


MOVED 




0368 


75161 


063155 




LD A 


PURER 




0369 


75162 


070050 




STA 


MOVES 




0370 


75163 


005100 




BRS 






0371 


75164 


016257 




JSB 


MOVEW 




0372 


75165 


060041 




LOA 


PURN 




0373 


75166 


003004 




CMA, 


,INA 




0374 


75167 


064305 




LOB 


T 3 5B1 




0375 


75170 


026271 




JMP 


LENO+2 




0376* 














0377* 














0376* 


SEARCH DIRECTORY 








0379* 














038y 


75i7i 




PUR3 


EQU 


* 




0381 


75171 


002400 




CLA 






0382 


75172 


070031 




STA 


PURCT 




0383 


75173 


065002 




LOB 


L8192 




0384 


75174 


074033 




STB 


PURTP 
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0385 


75175 


067452 


LDB PUDlR 


FIRST DIRECTORY TRACK 


0386 


75176 




PURU EUU * 




0367 


75176 


074032 


SIB PURDI 




0386 


75177 


J60001 


IDA B,I 




0389 


75200 


002002 


SZA 


LENGTH ZERO? 


0390 


75201 


027210 


JMP PgR13 


NO 


0391 


75202 




PUR12 EQU * 




0392 


75202 


044361 


ADB »+7 


YES 


0393 


75203 


057453 


CPB PURDU 


LAST ONE? 


0394 


75204 


002001 


RSS 


YES 


0395 


75205 


027176 


JMP PuRU 


NO 


0396 


75206 


017362 


JSB pURFX 


FINI3ME FIXUPS 


0397 


75207 


026267 


JMp IEnD 




0398 


7521k) 


- 


PUR13 EM * 




0399 


75210 


070072 


STA WORD 




0400 


75211 


003004 


CMA,INA 




0401 


75212 


040562 


ADA UBD 




0402 


75213 


070036 


STA PURND 


END OF TABLE POINTER 


0403 


75214 


044360 


ADB ,+6 




0404 


75215 


160001 


LDA B,I 




0405 


75216 


064566 


LDB LIBDI 




0406 


75217 


016231 


JSB DRUML 


READ DIRECTORY TRACK 


0407 


75220 


116017 


JSB DEADP,I 




0408 


75221 


064562 


LDB HBO 




0409 


75222 


074050 


STB MOVES 




0410 


75223 


074051 


STB MOVED 




0411 


75224 




PUR15 EQU * 




0412 


75224 


074037 


STB PURP 


TABLE POINTER 


0413 


75225 


044357 


ADB ,+5 




0414 


75226 


060040 


IDA PURDT 




0415 


75227 


003104 


CMAfCUErlNA 




0416 


75230 


140001 


ADA B,I 




0417 


75231 


002040 


SEZ 


THIS ENTRY TO BE DELETED? 


0418 


75232 


027333 


JMP P U R16 


NO 


0419 


75233 


044345 


ADB ,.5 


YES 


0420 


75234 


160001 


LDA B,I 


save id 


0421 


75235 


170033 


STA PURTP,! 




0422 


75236 


044365 


ADB , + U 




0423 


75237 


034033 


ISZ PURTP 




0424 


75240 


160001 


LDA 0,1 


GEj length 


0425 


75241 


002021 


SSA,RSS 




0426 


75242 


027246 


JMP #+4 




0427 


75243 


001727 


A u F,A L r 




0428 


75244 


030762 


IOR HIMSK 




0429 


75245 


003004 


CMA,INA 




0430 


75246 


170033 


STA PURTP,! 


SAVE ♦ BLOCKS 


0431 


75247 


034033 


ISZ PURTP 




0432 


75250 


044347 


ADB ,.3 




0433 


75251 


160001 


LDA B,I 


FIRST DISC WORD 


0434 


75252 


170033 


STA PURTP,! 




0435 


75253 


034033 


ISZ PURTP 




0436 


75254 


006004 


INB 




0437 


75255 


160001 


loa b,i 


SECOND DISC WORD 


0436 


75256 


170033 


STA PURTP,! 




0439 


75257 


034033 


ISZ PURTP 
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0440 


75260 


044350 


ADB ,.2 




0441 


75261 


160001 


LOA tirl 


DRUM ADDRESS 


0442 


75262 


170033 


8TA PURTP,! 




0443 


75263 


034033 


l$Z PURTP 




0444* 










0445 


75264 


064037 


LOB PURP 


MOVE 


0446 


75265 


007004 


CMB,INB 


PORTION 


0447 


75266 


044050 


AOB MOVES 


OF 


0448 


75267 


016257 


JSB MOVE* 


DIRECTORY 


0449 


75270 


064037 


LOB PgRP 




0450 


75271 


044366 


AOB ,+12 




0451 


75272 


074050 


3TB MOVES 


UPDATE POINTER 


0452 


75273 


160032 


LOA PURDI,I 


UPDAJE 


0453 


75274 


040366 


ADA ,+12 


DIRECTORY 


0454 


75275 


170032 


STA PURDI,I 


LENGTH 


0455 


75276 


064031 


LOB PURCT 


COUNT 


0456 


75277 


006004 


INB 


OF TABLE 


0457 


75300 


074031 


STB PURCT 


ENTRIES 


0453 


75301 


057454 


CPB P409 


FULL? 


0459 


75302 


002001 


RS8 


YES 


0460 


75303 


027333 


JMP PUR16 


NO 


04 6 1 


75304 


050050 


LDA MOVES 




0462 


75305 


073450 


STA PUKES 




04 6 3 


75306 


060001 


LOA MOVED 




0464 


75307 


073451 


STA PUKED 




0465 


75310 


064562 


LOB LIBO 


WRITE 


0466 


75311 


060032 


LOA PUROI 


OUT 


0467 


75312 


040360 


ADA ,+6 


INTERIM 


0468 


75313 


160000 


LOA A, I 


DIRECTORY 


0469 


75314 


016231 


JSB ORUML 




0470 


75315 


116017 


JSB D E A0P,I 




0471 


75316 


017362 


JSB purfx 


CALL FIXUP ROUT 


0472 


75317 


063450 


LOA PUKES 




0473 


75320 


070050 


STA MOVES 




0474 


75321 


063451 


LOA PUKED 




0475 


75322 


070051 


STA MOVED 




0476 


75323 


063455 


LOA K8192 




0477 


75324 


070072 


STA WORD 




0476 


75325 


060032 


LOA PUROI 




0479 


75326 


040360 


ADA ,+6 




0480 


75327 


160000 


LOA A, I 




0481 


75330 


064566 


LOB LZBOI 




0482 


75331 


016231 


JSB ORUML 


READ DIRECTORY 


0483 


75332 


116017 


JSB DEADP,! 




0484* 










0465 


75333 




PUR16 EOU * 




0486 


75333 


064037 


LOB PURP 




0487 


75334 


044366 


AOB ,*12 




0486 


75335 


054036 


CPB purnd 


FINISHED TRACK 


0489 


75336 


002001 


RSS 


YES 


0490 


75337 


027224 


JMP PUR15 


NO 


0491 


75340 


007004 


CMB,INB 


END 


0492 


75341 


044050 


AOB MOVES 


OF 


0493 


75342 


016257 


JSB MOVEW 


DIRECTORY 


0494 


75343 


064032 


LDB purdi 
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0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509* 

0510* 

0511* 

0512 

0513 
0514 

5 l5 
fe)5l6 
0517 
0516 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
052 6 
0527 
0526 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 



75344 
75345 
75346 
75347 
75350 
75351 
75352 
75353 
75354 
75355 
75356 
75357 
75360 
75361 



160001 
070072 
006004 
074051 
044357 
160001 
064562 
074050 
016231 
116017 
064346 
016257 

064032 
027202 



LDA 
3TA 
INB 
STB 
AOB 
LDA 
LOB 
8TB 
JSB 
JSB 
LOB 
JSB 
LOB 
JMP 



B,I 

WQRD 

MOVED 

.♦5 

B,I 

LIBO 

MOVES 

DRUML 

DEADP,J 

,.4 

MOVEW 

PUROI 

PUK12 



WRITE OUT DIRECTORY 

RESET 

DIREC 
GO DO 

NEXT TRACK 



RETURN SPACE TO IDT, ADT AND DISC ADT 



75362 

75363 
75364 

75365 
75366 
75367 
75370 
75371 
75372 
75373 
75374 
75375 
75376 
75377 
75400 
75401 
75402 
75402 
75403 
75404 
75405 
75406 
75407 
75410 
75411 
75412 
75413 
75414 
75415 
75416 
75417 
75420 
75421 
75422 
75423 
75424 
75424 
75425 



000000 
060031 
003007 

1273 6 2 

070030 
070031 
060113 
070072 
060112 
064566 

016231 
116017 
065002 
074050 
074051 
044356 

074033 
160001 
002003 
027424 
070044 
044347 
160001 
001020 
070045 
064050 
077446 
054061 
077447 
116012 
067446 
074050 
067447 
074051 

064346 
016257 



PURFX 



PURFJ 



PURF2 



NOP 

LDA PURCT 

CMA,INA;3ZArR33 

JMP PURFX, I NO WORK TO DO 

STA PURTC 

8TA pURCT 

LDA ADLEN 

STA WORD 

LOA ADLOC 

LDB LIBDI 

JSB DRUML READ ADT 

JSB DEADP,! 

LOB L8192 

8TB MOVES 

STB MOVED 

ADB +4 

EQU * 

STB PURTP 
LDA B,I 

SZA,RSS 
JMP PURF2 
STA KILD 
ADB ,-3 
LDA B,l 

ALS,AL8 
STA KILDF 
LOB MOVES 
STB PUrES 
LDB MOVED 
8TB PURED 
JSB RSF3P,I 
LDB pURES 
8TB MOVES 
LOB PURED 
STB MOVED 
E«U * 

ldb .-4 move table 
jsb movew to delete 



get drum address 

ZEro? 
YES 

no, save it 



save # o F sectors 



RETURN SPACE TO ADT 
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0550 
0551 
0552 

0553 
fc)554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566* 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 
0566 



0587 



75426 
75427 
75430 

7543* 
75432 

75433 
75434 
75435 
75436 
75437 
75440 
75441 
75442 
75443 
75444 
75445 

00030 
00031 
00032 
00033 
00036 
00037 
00040 
00041 
75446 
75447 
75450 
75451 
75452 
75453 
75454 
75455 
75456 
75457 
75460 
75461 
75462 
75463 
75464 



034050 
064033 
044357 

03483I 
027402 
060U.J 

060112 
064562 
016231 
116017 
117456 
117457 
065002 
074033 
127362 



000000 
000000 

000000 
000000 
030000 
031060 
000631 
160000 
072612 
072727 

065747 

044105 
046H4 

047440 



I3Z MOVES 
LOB PURTP 
A08 ,*5 
I8Z PURCT 
JMP PURP1 
IDA ADLEN 
STA WORD 
IDA ADLOC 
LDB LIBD 
J8B DRUML 
JSB OEADP,I 
JgB Pu*uD,l 
JSB PURUlfl 
LDB 18192 
STB PURTP 
JMP PURFX,I 

PURTc EQU LTEMP 
PURCT e<3U LTEMP*i 
PURDI EQU LT^MP*2 
PURTP EQU LTEMP+3 
PURND EQU LTEMP+6 
PURP EQU LTEMP+7 
PURDT EQU LTEMP+8 
PURN EQU LTEMP+9 
PURES BSS 1 
PURED 638 1 
PUKES BSS l 
PUKED BSS 1 
PuDlR DEF DIREC 
PURDU DEF DIREU 
P409 DEC 409 
K8192 DEC -BlQa 
PURUD DEF TBDAD 
PURUI DEF TBXDT 
PZ999 OCT 65747 
PURHE A8C 3, HELLO 



SPUR EQU * 



drum aoorEss 

BUMP 

POINTER 
TABLE DONE i 
NO 

yes 



WRITE OUT ADT 

RfcTURN 3PACE JO DIsC ADT 
RETURN SPACE TO IDT 



USER NUMBER 2999 
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0002* THE MAGTAPE COMMAND Ig USED JU TELL THE SYSTEM OF THE EXISTENCE 

0003* OF A MAGTAPE UNIT, ThE FORMAT lSl 

0004* MAGTAPE-SELECT CODE, TYPE 

0005* THE SELECT CODE SPECIFIED IS THE LOWER NUMBERED OF THE 2 

0006* COOES FOR THE TAPE, A CODE OF INDICATES THAT NO TAPE EXISTS, 



0008 


75000 




ORG 


LIBRA 




0009 


75000 


017036 


JSB 


MAGOG 


GET FIRST DIGIT, 


0010 


75001 


001723 


ALF, 


-RAR 


MULTIPLY BY 8 AND SAVE, 


0011 


75002 


070030 


STA 


LTEMP 




0012 


75003 


002003 


8?A ( 


,RSS 




0013 


75004 


027033 


JMP 


MAGI 




0014 


75005 


017036 


JS8 


MAGOG 


GET 2ND DIGIT, 


0015 


75006 


040030 


ADA 


LTEMP 


COMPUTE #, 


0016 


75007 


070030 


STA 


LTEMP 




0017 


75010 


050734 


CpA 


B77 


ILLEGAL IF 77, 


0018 


75011 


026275 


JMP 


LFrER 




0019 


75012 


040333 


ADA 


,-17B 


LESS THAN 


0020 


75013 


002020 


SSA 




17 OCTAL? 


0021 


75014 


026275 


JMP 


LFRER 


YES 


0022 


75015 


016025 


JSB 


T35CG 


NO, NEXT CHARACTER 


0023 


75016 


027030 


JMP 


MAG5 


GR, MUST BE OLD STANOBY (3030) 


0024 


75017 


050424 


CPA 


,♦528 


ASTERISK? 


0025 


75020 


002001 


RSS 




YES 


0026 


75021 


026275 


JMP 


LFRER 


NO 


0027 


75022 


016025 


, JSB 


T35C0 


YES# CARRIAGE RETURN FOLLOWS? 


0026 


75023 


002001 


RSS 




YES 


0029 


75024 


026275 


JMP 


LFRER 


NO 


0030 


75025 


060030 


LDA 


LTEMP 


FLAG 


0031 


75026 


031036 


IOR 


BIT15 


AS 


0032 


75027 


00J001 


RSS 




7970 


0033 


75030 


060030 


MAG5 LDA 


LTEMP 




0034 


75031 


070176 


8TA 


MA(j3C 


STORE IN SYSTEM LOCATION, 


0035 


75032 


026267 


JMP 


LEND 




0036 


75033 


016025 


MAGI J8B 


T35CQ 


MORE CHARACTERS 


0037 


75034 


027030 


JMP 


MAGS 


NO 


0038 


75035 


026275 


JMP 


LFRER 


NO««ERRQR 


0039* 












0040 


750*6 


000000 


MAGOG NOP 




GET AN OCTAL OIGIT, 


0041 


75037 


016025 


JSB 


T35CQ 




0042 


75040 


026275 


JMP 


LFRER 


FAIL IF NONE, 


0043 


75041 


070001 


STA 


1 




0044 


75042 


010342 


AND 


t* 8 


TEST FOR OCTAL DIGIT, 


0046 


75043 


050432 


CPA 


,+608 




0046 


75044 


002001 


RSS 






0047 


75045 


026275 


JMP 


LFRER 


FAIL, 


0048 


75046 


020001 


XOR 


1 


CONVERT TO BINARY, 


0049 


75047 


127036 


JMP 


MAGOG,! 


RETURN, 


0050 


75050 




SMAG EUU 


* 
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0052* 

0053* 

0054* 

0055* 

0056* 

0057* 

005$* 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

$Q77 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 



THE FORMAT FOR THE PHONES COMMAND ISj 

PHONES-TIME LIMIT 

TIME LIMIT REFERS TO THE NUMBER OF SECONDS ALLOWED A USER TO 
LOG ON, IT IS ORIGINALLY ASSUMED TO 8£ 120, 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
75011 
75012 
75013 
75014 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 



002400 

070030 
040762 
002021 
026275 
016025 
027023 
040316 

002021 
026275 
040364 
002020 
026275 
064030 
005222 

044030 
005200 
040001 

02700; 

060030 
002003 
026275 
030223 
114500 
026267 



ORG 
CLA 
PHQ6 STA 
ADA 
S3A, 
JMP 
JS6 
JMP 
ADA 
S8A, 
JMP 
ADA 
SSA 
JMP 
LDB 

R8L, 
ADB 

R8L 

ADA 

JMP 

PH05 LDA 
SZA, 
JMP 
IOR 
J8B 
JMP 

$PHQ EQU 



LIBRA 

LTEMP 

M256 

RSS 

LFRtH 

T35CQ 

PH05 

M72B 

RSS 

LFRER 

. + 10 

LFRER 
LTEMP 

R8L 
LTEMp 

1 

PH06 

LTEMP 

RSS 

LFRER 

PHO 

S14SC,! 

LEND 



INITIALIZE COUVIT TO », 

TEST FOR 
TOO 
BIG 
GET A CHAR, 
LAST CHAR, 
TEST FOR DIGIT, 



MULTIPLY OLO VALUE BY 10 AND 
Add IN NE*« 



AilNPUT VALUE 

jES] for zero 

ERROR 

SEND TIME LIMIT 

TO 2114 
TERMINATE 
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0087* THE PRINTER COMMAND 13 USED TO TELL THE SYSTEM OF THE EXISTANQE 

0066* OF A LINE PRINTER. THE FORMAT IS! 

0089* PRINTER-SELECT CODE t*J t*J 

0090* a CODE OF INDICATES THAT NO PRINTER EXISTS, 



0092 
0093 
0094 
0095 
0096 

0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0l2l 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 

0133* 

0134 

W135 
0136 
0137 
0136 
0139 
0140 
0141 



75000 
75000 
75001 
75002 
75003 

75004 
75005 
75006 
75007 
75010 
750U 
75012 
75013 

750H 
75015 

75016 
75017 
75020 
75021 
75022 
75023 
75 24 
75025 
75026 
75027 
75030 
75031 
75032 
75033 

75034 
75035 

75036 
75037 
75040 
75 41 
75042 
75043 
75044 
75045 
75046 
75047 

75050 
75051 
75052 

75 53 
75054 
75055 
75056 
75057 



017050 
001723 
070030 
002003 
027036 
017050 
040030 
070030 
040334 
002020 
026275 
040343 
002021 
026275 
016025 
027041 
050424 
002001 
026275 
060030 
031036 
070030 
016025 
027041 
050424 
002001 
026275 
060030 
030222 
070030 
016025 
002001 
026275 
060030 
001727 
030245 
114500 
002400 
070255 
026267 

000000 
016025 
026275 

070001 
010342 
050432 
002001 
026275 



PRI1 



PR12 



PRIDG 



org libra 




JSB PRlflG 


GET FIRST qIGIT 


ALF,Ra* 


MULTIPLY BY 8 


STA LTEMP 


AND SAVE 


SZA,RSS 


TEST FOR ZERO 


JMP PRU 


YES 


JSB PRIDG 


GET SECOND DIGIT 


ADA LTEMP 


COMPUTE NUMBER 


STA LTEMP 




ADA t «16B 


LESS THAN 


3SA 


OCTAL 16? 


JMP lfrer 


YES • ILLEGAL 


ADA »-7b 


GREATER THAN 


SSA,RS3 


OCTAL 24? 


JMP LFRER 


YES - ILLEGAL 


JSB T35CQ 


GET NEXT CHARACTER 


JMP PR12 


CR • M UST BE 2778A 


CpA ,+52B 


ASTERISK? 


RSS 


YES 


JMP LFKER 


NO * ERROR 


LDA LTEMP 


FLAG 


IOR BIT15 


AS 


STA LTEMP 


26 10 A 


JSB T35CG 


GET NEXT CHARACTER 


JMP PRI2 


CR 


CpA ,*52B 


ASTERISK? 


RSS 


YES 


JMP LFRER 


NO m ERROR 


LDA LTEMP 


FLA G 


IOR BIT14 


AS 


STa LTEMP 


2767a 


JSB T35CQ 


NEXT CHARACTER 


RSS 


CARRIAGE RE TU RN? 


JMP LFRER 


NO m ERROR 


LDA LTEMP 




ALF,ALF 


MnVE to b *ts 12-8 
TtLL I/O 


IOR PgC 


JSB S14SC,I 


PROCESSOR 


CLA 


CLEAR THE LI N E PRl N TER 


STA PRIST 


USER INDICATOR 


JMP L£N D 


terminate 


NOP 


GET OCTAL DIGIT 


JS6 T35CO 




JMP LFRER 


ERROR • NO INPUT 


STA J 




AND ,»6 


TEST F R qCTAL DIGIT 


CPA ,+60B 




RSS 




JMP LFRER 


ERROR - NOT OCTAL 
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0142 


75060 


020001 


0143 


75061 


127050 


0144 


75062 





XOr 1 CONvErt TO BINArY 
JMP PRIDG,I 
SPRX EQU # 
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0146* 
0147* 
0149* 
0149* 
0180* 

0151* 

0152* 

0153* 

0154* 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0I69 

0170* 

0171 

0172 

0173 

0174 

0175 

0I76 

0177 

0178 

0179 

0}80 

0181 

0182 

0183 

0104* 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 



THIS COMMAND IS USED TO CONFIGURE A PORT FOR A 
SPECIFIED SPEED & CHAR, SIZE, 

THE FORMAT FOR THIS OPERATORS COMMAND IS* 



OR 



75000 
75000 
75001 
75002 
75003 
75004 
75005 

750^6 
75007 
75010 
75011 
75012 
75013 
75013 
75014 

75015 
75016 
75017 
75020 
75021 
7 5022 
75023 
75024 
75025 

75026 
75027 
75030 
75031 

75032 
75033 
75034 
75035 
75036 
75037 
75040 

75041 
75042 
75043 
75044 
75044 
75045 
75046 
75047 
75050 



3PEED*BAUD RATE, CHAR. SIZE OR *, PORT*, PORT*, ,,. , , f CR 
SPEED-BAUD RATE, CHAR, SIZE OR *,All CR 



060177 
070032 
063305 
070034 
002400 
070031 
070035 
070030 
070036 
114572 
026275 

017176 
017232 

114572 
026275 

050426 
002001 
027013 
060039 
043350 
002020 
026275 
060030 
043347 
002021 
026275 

114572 
026275 
050424 
002001 
027044 
114572 
026275 
050426 
027061 
026275 

017176 
017242 
114572 
026275 
050426 



SPD01 



ORG 
LDA 
STA 

IDA 
STA 
CLA 
STA 
STA 
STA 
STA 
JSB 
JMP 
EQU 
JSB 
jSb 

JSB 
JMP 
CpA 

RSS 
JMP 

IDA 

ADA 

SSA 

JMP 

LDA 

ADA 

SSA, 

JMP 



JSB 
JMP 
CpA 
RSS 
JMP 
JSB 
JMP 
CPA 
JMP 
JMP 
SPD14 EQU 
JSB 
JSB 
JSB 
JMP 
CpA 



LIBRA 
NPORT 
SPDCN 
PTABl 
TABPN 

SPDTM 

SPDOC 

SPDNR 

SPDSZ 

T35CH,I 

LFRER 

* 

SPDDG 

spdck 

T35CH,I 

LFRER 

.♦54B 

SPD01 
SPDNR 
BAUDL 

LFrEr 

SPDNR 

BAyDH 

RSS 

LFRER 

T35CH,I 
LFRER 
, + 52B 

SPD14 

T35CH,I 

LFRER 

.♦54B 

SPD03 

LFRER 

* 

SPDDG 

SPDCL 

T35CH,I 

LFRER 

,+54B 



SET UP LIMIT. 

SET TABlE ADDRESS, 

zero out Counters, 



ZERO OUT SPEED INDICATOR, 
ZERO OUT CHAR, SIZE INDICATOR, 
GET 1ST DIGIT OF SPEED, 
CR, ERRQRj 

NO CR, DIGIT? 

YES, COMPUTE SPEED INDICATOR, 

GET NEXT CHAR, 
CR, ERRORl 
NO CR, Co MM A? 

NO, 

YES, CHECK BAUD RATE, 

LESS THAN 5B? 
YES, ErrOrI 



greater than 277b? 

YES, ERRORl 

NO, GET NEXT CHAR, 

CR. ERRORJ 

NO CR, A3TERIK? 

NO, 

YES, GET NEXT CHAR, 

CR, ERRORl 

no ck, comma? 
yEs 

NO, ERRORl 

DIGIT? 

YES, COMPUTE CHAR. SIZE. 

GET NEXT CHAR, 

CR, ERRORl 

no Ck, Comma? 
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0201 


75051 


002001 


RSS 






0202 


75052 


027044 


JMP 


SPD14 


NO, 


0203 


75053 


060036 


IDA 


SPDSZ 


CHECK SPtED INDICATOR, 


0204 


75054 


050354 


CpA 


,♦2 


• 2? 


0205 


75055 


027061 


JMP 


SPD03 


YES, 


0206 


75056 


050353 


CPA 


.♦i 


NO, «1? 


0207 


75057 


002001 


RSS 




YES, 


0208 


75060 


026275 


JMP 


LFRER 


NO, ERRQRJ 


0209 


75061 




SPD03 EQU 


* 




0210 


75061 


114572 


J3B 


T35CH,I 


GET NEXT CHAR, 


0211 


75062 


026275 


JMP 


LFRER 


CR, ERROR; 


0212 


75063 


053351 


CPA 


SP,A 


NO CR, «A? 


0213 


75064 


027114 


JMP 


SPD9 


YEs, 


0214 


7506b 




3PD16 EQU 


* 




0215 


75065 


017176 


J9B 


SPDDG 


NO, DIGIT? 


0216 


75066 




SPP17 EQU 


* 




0217 


75066 


017252 


J SB 


SPDSP 


YES, COMPUTE PORT NR, 


0218 


75067 


114572 


JSB 


T35CH,I 


GET NEXT OHAR, 


0219 


75070 


027074 


JMP 


SPD4 


CR, 


0220 


75071 


050426 


CPA 


,*54b 


NO CR* COMMA? 


0221 


75072 


002001 


RSS 




YES, 


0222 


75073 


027065 


JMP 


SPD16 


NO, 


0223 


75074 




SPU4 EQU 


* 




0224 


75074 


060031 


IDA 


SPOTM 


CHECK LIMIT, 


0225 


75075 


040032 


ADA 


SPDCN 




0226 


75076 


002021 


SSA, 


RSS 


GREATER THAN LiMIT? 


0227 


75077 


026275 


JMP 


LFRER 


YES, ERRORJ 


0228* 












0229 


75100 


060031 


IDA 


3PDTM 


NO, PORT LOGGED ON? 


0230 


75101 


017262 


JSB 


SPD11 




0231 


75102 


060031 


IDA 


SPDTM 


NO, SET PORT* INTO TABLE 


0232 


75103 


017206 


JSB 


SPSET 




0233 


75104 


060055 


UDA 


T35LC 


PICK UP LAST CHAR, 


0234 


75105 


050367 


CPA 


.♦15B 


WA S Ij A C R ? 


0235 


75106 


027216 


JMP 


3PD10 


YES, CONFIGURE PQRT(S), 


0236 


75107 


002400 


CLA 




NO, 


0237 


7bii0 


070031 


STA 


SPOTM 




0236 


75111 


114572 


JSB 


T35CH,I 


GET NE X T CHAR, 


0239 


75112 


027216 


JMP 


SPD10 


CR. 


0240 


75113 


027065 


JMP 


SPD16 


NO C H . 


0241* 












0242 


75114 




SPD9 EQU 


* 




0243 


75114 


114572 


JSB 


T35CH#I 


GET NEXT CHAR, 


0244 


75115 


026275 


JMP 


LFRfcR 


CR, ERRORI 


0245 


75116 


053352 


CPA 


SP,L 


NO CR, *L? 


0246 


75U7 


002001 


RSS 






0247 


75120 


026275 


JMP 


LFRER 


NO, £RRQRj 


0248 


75121 


114572 


JSB 


T35gHi 1 


YES. GET NEXT gHAR. 


0249 


75122 


026275 


JMP 


LFRER 


CR, ERRORI 


0250 


75123 


053352 


CPA 


SP,L 


NO CR, «L? 


0251 


75124 


002001 


RSS 






0252 


75125 


026275 


JMP 


LFRER 


NO, ERROR| 


0253 


75126 


114572 


JSB 


T35CH,! 


YES, GET NEXT CHAR. 


0254 


75127 


002001 


RSS 




CR, START CONFIGURATION, 


0255 


75130 


026275 


JMP 


LFRER 


NO CR, ERRORI 
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0256 
0257 
0258 
0259 
02 6 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 

0277 
0278 

0279* 

0280 
0281 
02 8 2 
02Q3 
0284 
0285 
0286 

0287 
0288 
0269 

0290 
0291 
0292 

0293 

0294 

0295 

0296 

0297 

0298* 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308* 

0309 

0310 



75131 
75132 
75133 
75133 
75134 
75135 
75136 
75137 
75140 
75141 
75142 
75142 
75143 
75144 
75145 
75146 
75146 
7514 7 
75150 
75151 
75152 

75l5 3 
75154 

75155 
75155 
75156 
75157 
75160 
75161 
75162 

75163 
75164 

75165 
75166 
75167 
75170 
75171 
75172 
75173 
75174 
75175 

75176 
75176 
75177 
75200 
75201 
75202 
75203 
75204 
75205 

75206 

75206 



002400 
070035 

017262 
034032 
002001 
027142 
034035 
060035 
027133 

060177 
070032 
002400 
070035 

017155 
034032 
002001 
026267 
034035 

060035 
027146 



000000 
070033 
066773 
001727 
030001 
064036 
005722 
030001 
114500 
060033 
066772 
001727 
030001 
064030 
030001 
114500 
127155 



000000 
040316 
002021 
026275 
046364 
002020 
026275 
127176 



000000 



CUA 
STA 

SP018 EQU 
JSB 
ISZ 
RSS 
JMP 
ISZ 
LDA 
JMP 

SPD19 EQU 
LDA 
STA 
CLA 
STA 

EQU 
JSB 
ISZ 
RSS 
JMP 

ISZ 
LDA 
JMP 



SPD6 



SP07 



SPODG 



SPOOC 

* 

spun 

SPOCN 

SPD19 
SPDOC 
SPDQC 
3P018 

* 

NPORT 

SPDCN 

SPOOC 

* 

SPD7 

SPDCN 

LEND 
SPDOC 
SPDQC 
SPD6 



EQU 
NOP 
STA 
LDB 
ALF 
10R 
LDB 
BLF 
IOR 
JSB 
LDA 
LDB 
ALF 
IOR 
LDB 
IQR 
JSB 
JMP 



SPDPO 

CMS 
, ALF 

B 

SPDSZ 
#RBL 

B 

S14SC,! 

SPDPO 

SPE 
,ALF 

B 

3PDNR 

B 

SM3C,I 

SPD7»I 



EQU * 

NOP 

ADA M72B 

SSA,RSS 

JMP L F R£R 

Ada ,*10 

SSA 
JMP 
JMP 



LFRfcR 
SPDDG, 



SPSET EQU * 

NOP 



PORT LOGGED ON? 
NO, BUMP COUNTER, 

PORTS CHECKED, 
BUMP PORT NUMBER, 



SET UP COUNTER, 

set up for port#00, 

CONFIGURE PORT, 
BUMP COUNTER, 

DONE* 
NOT DONE, 

TREAT NEXT PORT, 



PORT CONFIGURATION SUBROUTINE, 

SAVE PORT NH. 

B« CHAR, SIZE OPCODE, 

ROTATE PORT NR, 

MERGE PORT NR, 

B« CHAR, SIZE INDICATOR, 

ROTATE INTO POSITION, 

MERGE CHAR, SIZE, 

TELL 2114, 

ALPORT NR, 

B" SPEED OPCODE, 

RQTAEE PORT NR, 

MERGE PORT NR, 

B» 3PEED INDICATOR, 

H ERGE SPEED, 

TELL 2114, 

RETURN. 



DETERMINES IF CHAR, IS A DIGIT, 

DIGIT? 
NO, error? 

MAY B E , 

NOT A DIGIT, ERROR! 
DIGIT, OKI EXIT1 



SET PORT NR, INTO TABLE, 
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0311 


75207 


064034 




LDB 


TABPN 


GET POINTER, 


0312 


75210 


057346 




CPB 


PEND 


TABLE LIMIT EXCEEDED? 


0313 


75211 


026275 




JMP 


LFRER 


YES, ERROR1 


0314 


75212 


170001 




STA 


Bil 


NO, SET PORT NR, INTO TABLEt 


0315 


75213 


034035 




isz 


SPDOC 


BuMP COyNTE^, 


0316 


75214 


034034 




I3Z 


TA8PN 


BUMP POINTER, 


0317 


75215 


127206 




JMP 


3PSET,I 


EXIT, 


0318* 














0319 


75216 




SPP10 


EQU 


* 




0320 


75216 


060035 




LDA 


SPDqC 


set up counter for number 


0321 


75217 


003004 




CMA, 


'INA 


OP PORTS 


0322 


75220 


070035 




STA 


SPDQC 


TO BE CONFIGURED, 


0323 


75221 


063305 




IDA 


PTABL 


SET Up TABLE pOlNTER, 


0324 


75222 


070034 




STA 


TABPN 




0325 


75223 




SP013 


EQU 


* 




0326 


75223 


160034 




LDA 


TABPN, I 


GET PORT NR, 


0327 


75224 


017155 




J30 


SPD7 


CONFIGURE PORT, 


0323 


75225 


034035 




isz 


SPDOC 


BuMP COUNTER, 


0329 


75226 


002001 




RS3 






0330 


75227 


026267 




JMP 


LEND 


DONE! 


0331 


75230 


034034 




ISZ 


TABPN 


NOT YET, BUMP POINTER, 


0332 


75231 


027223 




JMP 


SPD13 


GO BACK, 


0333* 














0334* 














0335 


75232 




SPpCK 


EQU 


* 




0336 


75232 


000000 




NOP 






0337 


75233 


070033 




STA 


SPDPO 


SAVE (A), 


0338 


75234 


060030 




LDA 


SPDNR 


tjPDA T E 


0339 


75235 
75236 


100200 
000364 




MPY 


, + 10 




0340 


75237 


040033 




AOA 


SPDPO 


SPEED 


0341 


75240 


070030 




STA 


SPDNR 


INDICATOR, 


0342 


75241 


127232 




JMP 


BPDCK,! 




0343* 














0344* 














0345 


75242 




SPOCL 


EQU 


* 




0346 


75242 


000000 




NOP 






»347 


75243 


070033 




STA 


SPDPO 


SAVE (A), 


0348 


75244 


060036 




LDA 


3PDSZ 


UPDATE 


0349 


75245 
75246 


100200 
000364 




MpY 


,♦10 


CHAR, 


0350 


75247 


040033 




ADA 


SPDPO 


SIZE 


0351 


75250 


07003a 




STA 


SPDSZ 


INDICATOR, 


0352 


75251 


127242 




JMP 


8PDCL,I 




0353* 














0354* 














0355 


75252 




SPOSP 


EQU 


* 




0356 


75252 


000000 




NOP 






0357 


75253 


070033 




STA 


SPDPO 


SAVE (A), 


0358 


75254 


060031 




LDA 


8PDTM 


UPDATE 


0359 


75255 
75256 


100200 
000364 




MPY 


, + 10 




0360 


75257 


040033 




ADA 


SPDPO 


PORT 


0361 


75260 


070031 




STA 


SPDTM 


NUMBER, 


0362 


75261 


127252 




JMP 


SPDSP f I 
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0363* 
0364* 














0365* 


ENTER WITH CA)»PORT NR. 






0366* 














0367 


75262 


000000 


SPDil 


NOP 






0368 


75263 
75264 


100200 
000375 




MPY ,+TTYiji* 


TTY00 




0369 


75265 


040546 




ADA DTTY0 


A«> ?FlAQ 




0370 


75266 


040356 




ADA f +UO 


A*» ?Io 




0371 


75267 


160000 




LOA A, I 


An 710 




0372 


75270 


002003 




SZA/RSS 


USER LOGGED ON? 




0373 


75271 


127262 




JMP S PDU,I 


NO, 




0374 


75272 


060370 




LOA ,+14 


YEs. GIVE Error 


MESSAGE, 


0375 


75273 


067275 




LOB 8P012 






0376 


75274 


026271 




JMP LEND+2 






0377 


75275 


075276 


SPD12 


DEF *♦! 






0378 


75276 


005116 




OCT 5116 


LF-N 




0379 


75277 
75300 
75301 
75302 
75303 
75304 


047440 
041517 
047106 
027040 
042117 
047105 




A8C 6,0 CONF 


, DONE 




0380* 














0381* 














0382* 














0363* 














0384 


75305 


075306 


PTABL 


DEF * + j 






0385 


75306 


000000 




BSS 32 






0386 


75346 


075346 


PfcND 


OEF * 






0387 


00030 




SPDN R 


EQU LtEMP 






0388 


00031 




8P0TM 


EOU LTEMP+1 






0389 


00032 




SPOCN 


EQU LTEMP*2 






0390 


00033 




8P0P0 


EQU LTEMP+3 






0391 


00034 




TABPN 


EQU LTEMP+4 






0392 


00035 




8P00C 


EQU LTEMP*5 






0393 


00036 




SPDSZ 


EQU LTEMP+6 






0394 


75347 


177800 


BAgOH 


OC7 «300 






0395 


75350 


177773 


BAUDl 


OCT -5 






0396 


75351 


000101 


8P,A 


OCT 101 






0397 


75352 


000114 


SP.L 


OCT 114 






0398 


75353 




JSPE 


EQU * 
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0400* 

0401* 
0402* 
0403* 
0404* 

0405* 

0406* 

0407* 

0408* 

0409* 

0410* 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 
0434 
0435 
043 6 
0437 
0438 
0439 

0440 

0441 

0442 

0443 

0444 

0445 

044$* 

0447 

0448 

0449 

0450 

0451 

0452 



THIS COMMAND IS USED TO ENABLE THE ABORT CAPA* 
BILITY WITH THE "BREAK" KEY DESPITE THE FACT 
THAT THE ABORT CAPABILITY WAS DISABLED BY EVA- 
LUATION QF THE BRK(0) FUNCTION. 

THE FORMAT OF THIS OPERATORS COMMAND IS| 

BRfcAK.PORT NR 



75000 
75000 
75001 
75002 
75003 
75004 
75005 
75006 
75007 
75010 
750U 
75012 
75013 
75014 
75015 
75015 
75016 
75017 
75020 
75021 
75022 
75023 
75024 
75025 
75026 
75027 
75030 
75031 
75032 
75033 
75034 
75035 
75036 
75037 
75040 
75041 
75042 

75043 
75043 
75044 
75045 
75046 
75047 



002400 
070031 
114572 
026275 
017061 
017071 
114572 
027015 
017061 
017071 
114572 
002001 
026275 

060031 
0(54177 
040001 
002021 
026275 
060031 
100200 
000375 
040546 
040356 
160000 
002003 
027043 
060031 
100200 
000375 
040546 
064000 
160000 
030446 
170001 
026267 



060376 
067046 
026271 
075t$47 

005125 



BREK1 



ORG 
C L A 
STA 
JSB 
JMP 
J3B 
JSB 

JSB 
JMP 

J3B 
JSB 
JSB 
RSS 
JMP 
EQU 
LDA 
LDB 
ADA 
SSA 
JMP 
LDA 
MpY 



LIBRA 

BRKPN 

T35CH,I 

LFRER 

brkdg 

BRKSP 

T35CH,I 

BREK1 

BRKDG 

BRKSP 

T35CH,I 

LFRER 
* 

BRKPN 
NPORT 
B 
,RS3 

LFRER 
BRKPN 

.♦TTY0t< 



ADA DTTY0 

A A ,*?lo 

LDA Afl 

SZArRSS 

JMP BREK2 

LU* BRKPN 

MPY .♦TTY0WTY00 



CLEAR STORAGE qF 

PORT NR, 
GET 1ST DIGIT OF PORT NR. 
CR, ERROR? 
NO CRt DIGIT? 
YES, COMPUTE PORT NR, 
GET NEXT CHAR, 
CR. 

NO CR. DIGIT? 
YES, COMPUTE PORT NR, 
GET NEXT CHAR, 
CR, 
NO CR, ERROR! 

CHECK LIMIT, 



PORT NR. > AVAILABLE PORTS? 
YEftt gRRQRi 

NO, CHECK IF USER IS LOGGED ON, 
TTY00 

A»»?F| B A6 
A*> ?IQ 

A» ?IO 

USER LOGGED ON? 

NO, PRINT ERROR MESSAGE, 

YE». SET c^LG IT. 



ADA DTTY0 

LDB A 

LDA A, I 

IOR CBFLG 

STA B,I 

JMP LEND 

BHEK2 EQU * 

LDA ,420 
LDB BREK3 
JMP LEND*2 

BREK3 DEF *♦! 
OCT 5125 



A»> ?FuAG 
B«» ?FLAG 
A* ?FLAG 
SET CBFLG BIT, 

DONE, 



OUTPUT ERROR MESSAGE, 



LF-U 
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0453 



0454* 
0455* 

0456 
0457 

045a 

0459 

0460 

0461 

0462 

0463 

0464 

0465* 

0466* 

0467 

0466 

0469 

0470 

0471 

0472 

0473 

0474 

0475* 

0476* 

0477 

0478 

0479 



75050 
75051 
75052 
75053 
75054 
75055 
75056 
75057 
75060 



75061 
75061 
75062 
75063 
75064 
75065 
75066 
75067 
75070 



75071 
75071 
75072 

75073 
75074 

75075 
75076 
75077 

75ik)(a 



00030 
00031 
75101 



051505 
051040 
047117 
052040 
046U7 
043507 
042504 
020117 
047040 



000000 
040316 
002021 
026275 
040364 

002020 
026275 
127061 



000000 
070030 
060031 
100200 
000364 
040030 
070031 

127071 



ASC 9,3ER NOT LOGGED ON 



BRKDG EQU * 
NOP 

ADA M72B 
SSA,RSS 

Jmp i,frer 

ApA ,*10 

S3A 

JMP IFReR 

JMP BRKOG, I 



BRKSP EQU * 
NOP 

8Ta brkpo 

IDA BRKPN 
MpY ,*10 

ADA BRKPO 
8TA BRKPN 
JMP BRKSP, I 



BRKPO £QU LUMP 
BRKpN EQU LTEMp*! 
$»RE EQU * 



DETERMINES IF CHAR, IS A DIGIT, 

DIGIT? 
NOt ERROR! 
MAY B E , 

NOT A oieiTl eRRori 
DIGIT, OKI EXIT! 



Save digit, 

UPDATE 



PORT 



NUMBER* 
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0481 
0482 

0483 
0484 
0485 
0466 
0487 
0488 
0489 
0490 
0491 
0492 

0493 
0494 

0495 
0496 
0497 
0496 
0499 
0500 

0501 
0502 

0503 
0504 

0505 
0506 
0507 
0506 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0516 
0519 
0520 
0521 
0522 

0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 



75000 
75000 
75001 
75020 
75021 
75040 
75041 
75060 
75061 
75100 

75101 
75120 
75121 
75140 
75141 
75160 
75161 

75200 
75201 

75220 
75221 

75240 
75241 
75260 
75261 
75300 
75301 

75320 
75321 

75340 
75341 
75360 
75361 
75400 
75401 

75420 
75421 
75440 

75441 
75460 
75461 
75500 
75501 
75520 
75521 
75540 

75541 
75560 
75561 
75600 
75601 
75620 
75621 
75640 



177771 
047525 
177763 
044514 
177763 
042530 
177762 
046511 
177761 

041510 
177762 
046511 
177761 
046511 
177762 
046511 
177761 
046511 
177764 
046511 
177763 
046511 
177764 
0465U 
177763 
046511 
177762 
046511 
17777a 
044514 
177766 
051511 
177762 
046511 
177765 
044514 

177762 
044514 
177761 
046501 
177761 
047117 
177761 
047117 
177764 

046511 
177763 
046511 

177761 
050101 
177765 
052516 
177761 



SUP 

ORG LIBRA 

DEC -7 

ASC 15, OUT OF STORAGE 

DEC .13 

ASC 15, ILLEGAL OR MISSING INTEGER 

PEC .13 

ASC 15, EXTRANEOUS LIST DELIMITER 

DEC .14 

ASC 15,MISSING ASSIGNMENT OPERATOR 

DEC *15 

ASC lSfCHARACTERS AFTER STATEMENT END 

DEC «14 

ASC 15, MISSING OR ILLEGAL SUBSCRIPT 

DEC .15 

ASC 15, MISSING OR BAD LIST DELIMITER 

DEC .14 

ASC 15, MISSING OR BAD FUNCTION NaME 

DEC .15 

ASC 15'MISSING OR BAD SIMPLE VARIABLE 

DEC .12 

ASC 15, MISSING OR ILLEGAL 'OF' 

DEC .13 

ASC 15, MISSING OR ILLEGAL «!HEN« 

DEC -12 

ASC i5#MI3SING OR ILLEGAL 'TO' 

DEC .13 

ASC 15, MISSING OR ILLEGAL 'STEP' 

DEC .14 

ASC 15, missing or illegal data item 

DEC .8 

ASC 15, illegal EXPONENT 

DEC »10 

ASC 15, SIGN WITHOUT NUMBER 

DEC .14 

ASC 15, MISSING RELATIONAL OPERATOR 

DEC .11 

asc 15, illegal read variable 

DEC .14 

ASC ISflLLEGAL SYMBOL FOLLOWS 'MAT' 

DEC .15 

aSc is, matrix cannot b£ on both sides 

DEC .15 

ASC 15, NO '*' AFTER RIGHT PARENTHESIS 

DEC .15 

A 3C 15, NO LEGAL BINARY OPERATOR FOUND 

DEC .12 

ASC 15#MISSIN6 LEFT PARENTHESIS 

DEC .13 

asc is, missing right parenthesis 

DEC .15 

asc 15, parameter not string variable 

dec »n 

ASC is, undecipherable operand 

DEC .15 
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0536 


75641 


046511 


0537 


75660 


177761 


0538 


75661 


051524 


0539 


75700 


177761 


0540 


75701 


046511 


0541 


75720 


X7777Q 


0542 


75721 


047117 


0543 


75740 


177762 


0544 


75741 


033462 


0545 


75760 


177761 


0546 


75761 


051524 


0546 


75000 




0549 


75000 


177761 


0550 


75001 


046511 


0551 


75020 


177762 


0552 


75021 


023520 


0553 


75040 


177761 


0554 


75041 


044514 


0555 


75060 


177761 


0556 


75061 


053101 


0557 


75100 


000017 


0558 


75101 


052516 


0559 


75120 


000015 


0560 


75121 


047105 


0561 


75140 


000014 


0562 


75141 


051501 


0563 


75160 


000013 


0564 


75161 


043125 


0565 


75200 


000015 


0566 


75201 


053101 


0567 


75220 


000014 


0568 


75221 


046101 


0569 


75240 


177771 


0570 


75241 


052516 


0571 


75260 


177767 


0572 


75261 


0525I6 


0573 


75300 


\7/77% 


0574 


75301 


040522 


0575 


75320 


177762 


0576 


75321 


040522 


0577 


75340 


000007 


0576 


75341 


047525 


0579 


75360 


000015 


0580 


75361 


042111 


0581 


75400 


177762 


0582 


75401 


041510 


0583 


75420 


177763 


0584 


75421 


041101 


0585 


75440 


177763 


0586 


75441 


046511 


0587 


75460 


000013 


0588 


75461 


043517 


0589 


75500 


000015 



ASC 15, MISSING OR BAD ARRAY VARIABLE 

DEC -15 

ASC 15, STRING VARIABLE NOT LEGAL HERE 

DEC .15 

ASC 15, MISSING OR BAD STRANG OPERAND 

DEC -8 

ASC lBfNO CLOSING QUOTE 

DEC -14 

ASC 15,72 CHARACTERS M A X FOR STRING 

DEC -15 

ASC 15, STATEMENT HAS EXCESSIVE LENGTH 



ORG LIBRA 

DEC -15 

ASC 15, MISSING OR BAD FILE REFERENCE 

DEC -14 

'PRINT' MUST PRECEDE 'USING' 



ASC 15 
DEC -15 
ASC 15 
DEC »15 
ASC 15 
DEC 15 
ASC 15 
DEC 13 
ASC 15 
DEC 12 
ASC 15 
DEC H 
ASC 15 
DEC 13 
ASC 15 
DEC 12 
ASC 15 
DEC .7 
ASC 15 

DEC -» 
ASC I5 
DEC -8 
ASC 15 
DEC -14 
ASC 15 
DEC 7 
ASC 15 
DEC 13 
ASC 15 
DEC -1 
ASC 15 
DEC -1 
ASC 15 
DEC -1 
ASC 15 
DEC U 
ASC 15 
DEC 13 



illegal operand after 'using' 
variable missing or wrong type 
undefined statement reference 
next without matching for 
Same for-vaRIable nested 
function defined twice 

VARIABLE DIMENSIONED TWICE 
LAST STATEMENT NOT 'END' 
UNMATCHED FOR 
UNDEFINED FUNCTION 
ARRAY TOO LARGE 
ARRAY OF UNKNOWN DIMENSIONS 
OUT OF STORAGE 
DIMENSIONS NOT COMPATIBLE 
CHARACTERS AFTER COMM A ND END 
BAD FORMAT OR ILLEGAL NaME 
MISSING OR PROTECTED FILE 
GOSUBS NESTED TEN DEEP 
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0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
k>598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 

060S 
0609 
0610 
0611 
0612 



75501 
75520 
75521 
75540 
75541 
75560 
75561 
75600 
75601 
75620 
75621 
75640 
75641 
75660 
75661 
75700 
75701 
75720 
75721 
75740 
75741 
75760 
75761 



051105 
000014 
051525 
000013 
047105 
000017 
047117 

000010 

051524 
000006 
047525 
000011 
042101 
000014 
052516 
000011 
046501 
000017 
051105 
000013 
047105 
000014 
046117 



ASC 15, RETURN WITH NO PRIOR GO9UB 

DEC 12 

A8C 15, SUBSCRIPT OUT OP BOUNDS 

DEC 11 

ASC 15'NEGATIVE STRING LENGTH 

DtC 15 

ASC 15, NON-CONTIGUOUS STRING CREATED 

DEC 8 

ASC 15, STRING OVERFLOW 

DEC 6 

ASC 15*0UT OF DATA 

DEC 9 

ASC 15, DATA OF WRONG TYPE 

DEC 12 

ASC 15, UNDEFINED VALUE ACCESSED 

DEC 9 

ASC 15, MATRIX NOT SQUARE 

DEC 15 

ASC l5'REDIMENSI0NED ARRAY TOO LARGE 

DEC H 

ASC 15, NEARLY SINGULAR MATRIX 

DEC 12 

ASC 15, log op negative argument 



0614 
06i5 
0616 
0617 
0616 
0619 
0620 
0621 
0622 

0623 
0624 
0625 
0626 
0627 
0626 
0629 
0630 
0631 

0632 
0633 
0634 
0635 
0636 
10637 
0638 
0639 
0640 

0641 
0642 
0643 



750*50 
75000 
75001 
75020 
75021 
75040 
75041 
75060 
75061 
75100 
75101 
75120 
75121 
75140 
75141 
75160 
75161 
75200 
75 2 0i 
75220 
75221 
75240 
75241 
75260 
75261 
75300 
75301 
75320 
75321 
75340 



000014 
051521 
000011 
055105 
000017 
047105 

000017 
040522 

177761 
047526 
177761 
046101 
177763 
052117 
000016 
047117 
000017 

53522 

000015 
042516 
000012 
051524 
000017 
047117 
000014 
041510 
000016 
050122 
177763 



ORG LIBRA 

DEC 

ASC 

DEC 9 

ASC 

DEC 

ASC 

DEC 

ASC 

DEC 

ASC 

DEC 

ASC 



DEC .13 



aSC 

DEC 

aSc 

DEC 
ASC 

DEC 
ASC 
DEC 
ASC 
DEC 
ASC 
DEC 
ASC 
DEC 
ASC 



5,8QR OF NEGATIVE ARGUMENT 

5, ZERO TO ZERO POWER 

5 

5, NEGATIVE NUMBER TO REaL POWER 

5 

5, ARGUMENT OF SIN OR TaN TOO bIG 

15 

5#QVER/UNDERFL0W8 - WARNING ONLY 

15 

s, Last input ignored* retype it 



5, TOO M A NY FILES STATEMENTS 

4 

5, NON-EXISTENT FILE REQUESTED 

5 

5, WRITE TRIED ON READ-ONLY FILE 

3 

5,END-0F-FILE/END OF RECORD 



5, STATEMENT NOT IMAGE 

5 

5, NON-EXISTENT PROGRAM REGUESTEO 

2 

5, CHAIN REQUEST IS A FILE 

4 

5, PROGRAM CHAINED IS TOO LARGE 



DEC -13 
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0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 

0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 

066^ 
0661 
0662 
0663 
0664 
0665 

«666 
0667 
0666 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 



75341 
75360 
75361 
75400 
75401 
75420 
75421 
75440 
75441 
75460 
75461 
75500 
75501 
75520 
75521 
75540 

75541 
75560 
75561 

75600 
75601 
75620 

7562i 
75640 
75641 
75660 
75661 

75700 
75701 
75720 
75721 
75740 
75741 
75760 
75761 



041517 
000016 
040522 
000016 
041101 
000007 
041101 
000014 
041101 
000017 
041501 
000017 
044514 
177772 
050122 
000016 

0465" 
000016 
044514 

000010 
047117 
000017 
041101 
000012 
051105 

000010 
051105 

000014 
046525 
000015 
04H01 
000016 
044514 
000015 
044514 



5, ARGUMENT OF TIM OUT OF RaNGE 

4 

5, BAD FORMAT STRING SUBSCRIPT 

5, BAD FILE READ 

2 

5, BAD FILE WRITE DETECTED 

5 

5, CANT READ PROGRAM CHAINED TO 

5 

5, ILL-STORED PROGRAM CHAINED TO 

6 

5, PROGRAM BAD 

4 

5, MISSING FORMAT SPECIFICATION 

4 

5, ILLEGAL OR MISSING DELIMITER 

5, NO CLOSING QUOTE 

5 

5, BAD CHARACTER AFTER REPLICATOR 



5, REPLICATOR TOO LARGE 

5, REPLICATOR ZERO 

2 

5, MULTIPLE DECIMAL POINTS 

3 

5, BAD FLOATING SPECIFICATION 

4 

5, ILLEGAL CHARACTER IN FORMAT 

3 

5, ILLEGAL FORMAT FOR STRING 



0680 
0681 
0662 

0683 
0684 
0665 
0686 
0687 
0686 
0689 
0590 
0691 
0692 
0693 
0694 
0695 
0696 
0697 



75000 
75000 
75001 

75020 
75021 
75040 
75041 
75060 
75061 
75100 

75101 
75120 
75121 
75140 
75141 
75160 
75161 
75200 



000016 
046511 

000011 
046511 
000016 
052117 
000014 
046511 
000015 

0445U 
177762 
041101 
000015 
046117 
000017 
055105 
000017 



ORG LIBRA 

DEC 13 

ASC 15, MISSING RIGHT PARENTHESIS 

DEC 9 

ASC 15, MISSING REPLICATOR 

DEC 14 

A sc 15, too m a ny parenthesis levels 

DEC 12 

asc 15, missing left parenthesis 

DEC 13 

asc 15, illegal format for number 

DEC -14 

ASC 15, BAD INPUT, KfeTYPE FROM ITEM 

DEC 13 

ASC 15, LOG OF ZERO « WARNING ONLY 

DEC 15 

ASC 16, ZERO to negative power*w a rning 

DEC 15 
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0696 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
070$ 
d7ft7 
0708 
0709 
0710 
0711 
0712 



75201 
75220 
75221 
75240 
75241 
75260 
75261 
75300 
75301 
75320 
75321 
75340 
75341 
75342 
75343 



042111 
000016 
042530 
000014 
047526 
000014 
052516 
177763 
042530 
17777V 
051105 
177775 
011423 
005012 
025040 



A3C 15, DIVIDE dY ZERO . WARNING ONLY 

DEC 14 

ASC 15, EXP OVERFLOW • HORNING ONLY 

DEC 12 

ASC 15, OVERFLOW « WARNING ONLY 

DEC 12 

ASC i5»UNDERFL0W <« WARNING ONLY 

DEC -13 

ASC 15, EXTRA INPUT • WARNING ONLY 

DEC «8 

ASp 15, READ-ONLY FILES! 

DEC »3 

OCT 11423 

OCT 5012 

ASC 13,* 



0714 

0715 
0716 
** NO 



00000 
00000 



000000 



ERRORS* 



ORG 

NOP 

END 



SIGNAL LOADER THAT Wt'RE UONE, 



■><**.*», 



#»#M# CROSS«»REFERENCE SYMBOL TABLE 

#ALCU 0420/06 0434 

#ARJD 0U6/05 0259 

#ARIN 0095/16 0346 

#ASYM 0198/08 0306 

#BKSP 0389/19 0396 

0BLOI 0097/06 0408 0109/06 

#BnqP 0386/14 0348 

*CH£B 0185/20 0386 

#CHOU 0025/22 0416 

#CMPR 0118/14 0332 

#CRST 0461/05 0276 

#CUSP 0517/06 0312 

#OB10 0317/22 0292 

#DCMP 0385/07 0308 

#DGCK 0326/06 0278 

#DLPR 0497/05 0300 

#DSCH 0352/25 0450 

#OTLl 0256/25 0442 

#EOAB 0070/21 0470 

#EOBi 0082/21 0076/21 

WEOLM 0329/19 0378 0334/19 

»ENOT 0019/19 0370 

#EPRU 0121/11 0462 

#EVEP 0408/25 0454 

#EXp 0454/20 0382 

#FAD 0560/15 0356 

#FCUC 0318/14 0468 



#FUAT 


#FDPS 


#FDV 


*FENC 


#FILR 


#FIUS 


*FJNC 


#FLOT 


#FLUN 


#FMP 


#FQKM 


#FPOH 


# FRCK 


#FRMT 


#FSb 


#FSC 


#F$CH 


*FTCH 


#GTC« 


#GTDG 


#GTPf 


#G13T 


#GTTY 


#I£nt 


#IFIX 


0INCL 


#ICDL 



CROSS-REFERENCE SYMBOL TAbUE 



0111/12 0340 

0017/06 0302 

0040/16 0362 

0358/14 0438 

0159/06 0422 

0297/15 0428 0367/15 

0344/14 0286 

0250/20 0328 

0133/16 0366 

0005/16 0360 

0335/12 0320 

0446/04 0255 

0415/04 0253 

0021/23 0460 

056 8 /15 035 8 

0199/04 0249 

0298/14 0942 

0279/12 0336 

0403/l 9 **9 A 0416/1 9 

0273/19 0374 

0062/06 0265 

0180/05 0318 

0379/15 0430 

0229/20 0388 

0043/16 0368 

0208/12 0392 

0230/32 0466 



cross-reference symbol table 



#LIB# 0277 0133/29 0529/29 0306/30 0563/42 0125/47 

#1181 0275 0324/30 0389/33 0347/36 0507/37 0596/44 0523/54 

0499/56 0321/57 

#LOG 0007/21 0364 

#LPCK 0547/06 0267 

ftLTCK 0343/06 0260 

#LTEN 0034/30 0078/29 0063/29 0090/29 0093/29 0040/30 

#LTR 0269/06 0272 

#MB10 0191/22 0290 

#MCHR 0377/26 0452 

#MCOT 0573/21 0402 

#MOVt k)287/16 0418 0294/16 

#MTG1 0243/25 0440 

#NMCK 0057/22 0288 

#NMQT 0042/19 0372 

*NRML 0224/22 0294 

#OPCK 0403/14 0352 

#OTBl 0322/23 0446 

#OTCL 0331/25 0448 

#QTCR 0368/19 0398 

OOTIN 0300/19 0400 

#OTLN 0349/19 0376 

#0T3T 0611/21 0404 

#QUTC 0474/30 0333 0487/30 0501/30 0519/30 0722/32 

#QVFL 0010/22 0298 

#PACK 0260/22 0296 

#PCHK 0094/14 0334 



##•#»• CRUSS*REFERENCE SYMBOL TABtE 

#PFSH 0390/06 0458 

#PGIN 0081/06 0261 

#PN3T 0017/08 0310 

#f»8HS 0474/14 0344 

*PSTR 0185/14 0326 

#PWR2 0264/20 0390 

#ROIM 0321/18 0410 

#RECk 0134/06 0420 

#RPCK 0308/06 0269 

#RQ8T 0093/15 0426 

*RSCK 0437/14 0354 

#RSTQ 0158/05 03J6 

#RST? 0254/08 0436 0266/08 0290/08 9303/08 

#RUND 0278/25 0444 

#SBCK 0027/05 0251 

#SBFX 0020/15 0324 

#SBPU 0533/06 0282 

#SCR 0546/29 0J05/31 

*SERR 0309/16 0414 

#SINI 0306/12 040$ 

#SlCK 0560/06 0464 

#SSYM 0127/06 0304 

#STOP 0034/12 0338 0044/12 

#STOP 0293/06 0274 

#STPT 0291/12 0380 

#STRI 0128/05 0314 

#STST 0272/14 0322 



#•#### CRUSS^REFERENCE SYMBOL TABLE 

#STTP 0471/14 0350 

#SYCK 0362/06 0284 

#TAP 0004/30 0106/31 

#TAP1 0022/30 0015/30 

#TbSR 0185/06 0263 

#TRST 0515/15 0330 0533/15 

#UNPK 0538/15 03b4 

#USCk 0205/05 0456 

#yCHK 0284/18 0412 

#VLFI 0062/12 0424 

#VROP 0399/05 0257 

*WRBU 0422/15 *>432 

$$MLO 0547/55 0061/34 

$$SAV 0539/37 0017/34 

$ANN 0655/48 0050/34 

$APP k3452/38 0019/34 

SASN 0360/35 0013/34 

$BtS 0465/57 0063/34 

$BRE 0479/59 0071/34 

$BYfc 0579/39 0021/34 

$CA T 0248/41 0025/34 0026/34 0027/34 

$CHA 0160/49 0052/34 

$CHN 0672/35 0014/34 

$COP 0531/56 0062/34 

$DEL 0530/43 0033/34 

$OES 0236/58 0065/34 

*t>IR 0280/46 0044/34 0045/34 



'•MM CROSS-REFERENCE SYMBOL TABLE 

SDIR* 0623/41 9028/34 0029/34 

SECH 0096/48 0039/34 

iFLB 0559/34 0012/34 

SGET 0249/38 0018/34 

JHEL 0395/39 0020/34 

SKID 0466/51 0056/34 

SKXL 0845/39 0022/34 

SLEN 0052/45 0038/34 

SLOC 0586/52 0058/34 

SLPR 0252/45 0041/34 

SMAG 0050/59 0067/34 

SMES 0200/45 0040/34 

SMLO 0563/54 0060/34 

SMuN 0424/53 0059/34 

SNAM 0550/40 0024/34 

SNEW 0520/50 0055/34 

SGPE 0625/44 0037/34 

SPHQ 0085/59 0068/34 

SPOR 0425/48 0048/34 

SPORS 0577/45 0042/34 

SPRI 0^44/59 0069/34 

SPRg 0090/44 0035/34 0036/34 

SPUR 0587/58 0066/34 

SREN 0471/40 0023/34 

SREp 0810/45 0043/34 

SREPS 0233/42 0030/34 

SRE8 0816/48 005i/34 







CROSS* 


REFERENCE 


SYMBOL TABI.E 






$ROS 


0515/48 


0049/34 












SSAN 


0759/57 


0064/34 












$SAV 


0375/36 


0615/34 


0016/34 










*SLE 


0470/49 


0053/34 


0054/34 










$SLPL 


0074/34 


0018 


0009/34 










$SPE 


0398/59 


0070/34 












$STA 


0266/47 


0046/34 


0047/34 










$STA$ 


0713/42 


0031/34 


0032/34 










$TIM 


0621/43 


0034/34 












$UNL 


0686/51 


0057/34 












%ABOH 


0233 














XUISC 


0237 


0567/28 


0366/30 


0190/49 








XENTO 


0238 


0549/28 












XINPT 


0234 


0458/28 


0348/30 










XOUTW 


0235 
0178/33 


0070/27 


0516/28 


0527/28 


0109/29 


0203/30 


0498/30 


XPUN 


0239 


0461/27 


0590/28 










XSYNj 


0236 


0073/27 


0488/28 


049^/28 


0493/26 


0500/28 


0557/28 




0141/29 


0182/29 


0325/29 


0399/29 


0521/29 


0526/29 


0197/30 




02210/30 


0297/30 


10311/30 


0243/32 


0366/33 


0337/39 




• 


0217 


0233 


0234 


0235 


0236 


0237 


0238 




023» 


0502 


0503 


0510 


0511 


0512 


0513 




0514 


0515 


0026/03 


0036/03 


0039/03 


0053/03 


0079/03 




0080/03 


0114/03 


W154/03 


0159/03 


0273/03 


0284/03 


0287/03 




0290/03 


0292/03 


0325/03 


0349/03 


0385/03 


0401/03 


0438/03 




0454/03 


0457/03 


0460/03 


0493/03 


0500/03 


0537/03 


0577/03 




0580/03 


0585/03 


10612/03 


0644/03 


0658/03 


0669/03 


0680/03 




0684/03 


0688/03 


10690/(03 


072io/03 


0015/04 


0018/04 


0036/04 




Id048/u4 


0061/04 


0075/04 


0077/04 


0KI93/04 


0109/04 


0150/04 




0153/W4 


0155/04 


0201/04 


0217/04 


0234/04 


0251/04 


0261/04 




0269/04 


0273/04 


0265/(04 


0289/04 


10302/04 


0307/04 


0316/04 




0318/04 


0323/04 


0349/04 


0355/04 


0371/04 


0375/04 


0393/04 




0446/04 


0027/05 


0033/05 


0041/05 


0049/05 


0058/05 


0074/05 




0076/05 


W128/05 


0133/05 


0143/05 


0182/05 


0206/05 


0215/05 




0224/05 


10238/05 


0284/05 


0316/05 


0363/05 


0402/05 


0406/05 




04l2/w5 


1.9426/05 


K5463/05 


0482/05 


0612/05 


0624/05 


0626/05 




0036/06 


0062/06 


0105/06 


0137/06 


0208/06 


0211/06 


0308/06 



CRQSS'REFErENCE symbol table 



0330/06 
0456/06 
0085/07 
0198/07 
0312/07 
0387/07 
0046/08 
0204/08 
0278/08 
0320/08 
0420/08 
0049/09 
0155/09 
0374/09 
0434/09 
0093/10 
0147/10 
0206/10 
0269/10 
0351/10 
0069/11 
0105/11 
0260/11 
0318/11 
0428/U 
0473/11 
0534/11 
0614/11 
0154/12 
0239/12 
0365/12 
0471/12 
0170/13 
0386/13 
0191/14 
0438/14 
0048/15 
0158/15 
0255/15 
0357/15 
0423/15 
0470/15 
0098/16 
0346/16 
0463/16 
0054/17 
0184/17 
0385/17 
0344/18 
0122/19 
0166/19 
0225/19 
0300/19 
0356/19 



0347/06 
0467/06 
0124/07 
0204/w7 
0317/07 
0410/07 
0060/06 
0208/08 
0279/08 
0322/08 
0442/08 
0065/09 
0316/09 
0376/09 
0437/09 
0100/10 
0158/10 
0229/10 
0276/10 
0356/10 
0083/11 
0140/11 
0271/11 
0321/11 

0430/11 

0475/11 
0540/11 
0616/11 
0163/12 
0292/12 
0395/12 
0025/13 
0194/13 
0401/13 
0194/14 
0446/14 
0051/15 
0173/15 
0259/15 
0396/15 
0430/15 
0471/15 
0117/16 
0367/16 
0466/16 
0066/17 
0194/17 
0409/17 
0022/19 
0130/19 
0174/19 
0235/19 
0311/19 
0377/19 



0364/06 
0492/06 
0130/07 
0210/07 
0320/07 
0428/07 
0109/08 
0210/08 
0293/06 
0334/06 
0445/08 
0074/09 
0326/09 
0378/09 
0440/09 
0103/10 
0165/10 
0243/10 
0283/10 
0362/10 
0064/11 
0154/11 
0285/11 
0332/11 
0439/U 
0483/11 
0542/11 
0620/11 
0165/12 
0294/12 
0397/12 
0034/13 
0209/13 
0104/14 
0261/14 
0457/14 
0054/15 
0185/15 
0271/15 
0400/15 
0434/15 
0477/15 
0161/16 
0369/16 
0469/16 
0117/17 
0196/17 
0025/16 
0049/19 
0136/19 
0176/19 
0249/19 
0319/19 
0380/19 



0367/06 
0547/06 
0147/07 
0227/07 
0321/07 
0446/07 
0127/08 
0219/08 
0301/08 
0345/08 
0450/08 
0086/09 
0344/09 
(0381/09 
0444/09 
0110/10 
0174/10 
0246/10 
0293/10 
0378/10 
0085/11 
0163/11 
0287/11 
0389/11 
0442/11 
0487/11 
K)563/ll 
0036/12 
0220/12 
0296/12 
0423/12 
0052/13 
0227/13 
0124/14 
0348/14 
0460/14 
0103/15 
0187/15 
0282/15 
0402/15 
0439/15 
0520/15 
0189/16 
0375/16 
04/1/16 
0155/17 
0276/17 
0060/18 
0051/19 
0143/19 
0186/19 
0253/19 
0332/19 
0417/19 



0375/06 
0560/06 
0166/07 
0228/07 
0350/07 
0447/07 
0136/06 
0225/08 
0304/06 
0348/08 
0004/09 
0092/09 
0346/09 
0384/09 
0068/10 
0112/10 
0176/10 
0251/10 
0297/10 
0387/10 
0086/11 
0183/11 
0296/11 
0400/11 
0458/11 
0507/11 
0578/11 
0038/12 
0222/12 
0306/12 
0430/12 
0063/13 
0255/13 
0130/14 
0417/14 
0463/14 
0110/15 
0213/15 
0299/15 
0409/15 
0452/15 
10602/15 
0207/16 
0393/16 
0493/16 
0166/1/ 
0340/17 
0069/16 
0064/19 
0151/19 
0209/19 
0258/19 
0336/19 
0446/19 



0390/06 
0004/07 
0178/07 
0232/07 
0352/07 
0450/07 
0149/08 
0239/08 
0308/08 
0415/08 
0016/09 
0094/09 
0350/09 
0422/09 
0062/10 
W131/10 
0190/10 
0261/10 
0318/10 
0061/11 
0089/11 
0197/11 
0296/11 
0413/11 
0469/U 
0515/11 
0586/11 
0043/12 
0226/12 
0358/12 
0453/12 
0068/13 
0264/13 
0140/14 
0421/14 
0475/14 
0118/15 
0237/15 
0313/15 
0410/15 
0456/15 
U606/15 
0276/16 
0403/16 
0494/16 
0168/17 
0341/17 
0075/18 
0066/19 
0156/19 
0211/19 
0259/19 
0352/19 
0500/19 



0450/06 
0041/07 
0195/07 
0291/07 
0362/07 
0025/08 
0158/08 
0273/08 
0319/08 
0016/08 
0025/09 
0130/09 
0359/09 
0431/09 
0084/10 
0141/10 
0194/10 
0263/10 
0336/10 
0065/11 
0098/11 
0235/11 
0309/H 
0418/U 
0471/11 
0523/H 
0597/H 
0090/12 
0235/12 
0364/12 
0454/12 
0127/13 
0278/13 
0154/14 
0426/14 
0025/15 
0137/15 
0242/15 
0320/15 
0412/15 
0468/15 
0033/16 
0327/16 
0405/16 
0498/16 
0182/17 
0383/17 
0235/18 
0062/19 
0162/19 
0223/19 
0260/19 
0354/19 
0513/19 



CROSS-REFERENCE 'SYMBOL TABLE 



0018/20 
0168/20 
0345/20 
0253/21 
03J3/21 
0380/21 
0437/21 
0501/21 
0586/21 
0121/22 
0055/23 
0238/23 
0309/23 
0376/23 
0051/24 
0120/24 
0168/24 
0266/24 
0004/25 
0080/25 
0192/25 
0220/25 
0296/25 
0431/25 
0192/26 
0364/26 
0463/26 
0158/27 
0476/27 
0213/28 
0292/28 
0490/28 
0539/28 
0569/28 
0010/29 
0082/29 
0168/29 
0262/29 
0294/29 
0331/29 
0395/29 
0512/29 
0554/29 
0115/30 
0221/30 
0275/30 
0308/30 
0361/30 
0419/30 
0506/30 
0157/31 
0323/31 
0378/31 
0015/32 



0034/20 
0179/20 
0511/20 
0259/21 
0315/21 
0401/21 
0441/21 
0507/21 
0010/22 
0123/22 
0057/23 
0248/23 
0312/23 
0398/23 
0066/24 
0125/24 
0190/24 
0273/24 
0007/25 
0112/25 
0196/25 
0227/25 
0332/25 
0456/25 
0212/26 
0366/26 
0073/27 
0160/27 
0504/27 
0256/28 
0294/28 
0493/28 
0544/26 
0583/28 
0012/29 
0095/29 
0171/29 
0267/29 
0312/29 
0334/29 
0398/29 
0523/29 
0556/29 
0130/30 
0224/30 
0276/30 
0310/30 
0365/30 
0431/30 
0521/30 
0177/31 
0335/31 
0406/31 
0035/32 



0047/20 
0234/20 
0109/21 
0261/21 
0344/21 
0404/21 
0444/21 
0512/21 
0026/22 
0138/22 
0074/23 
0265/23 
0314/23 
0408/23 
0077/24 
0126/24 
0192/24 
0276/24 
0009/25 
0162/25 
0201/25 
0230/25 
0334/25 
0458/25 
0219/26 
0383/26 
0073/27 
0182/27 
0511/27 
0262/28 
0372/28 
0493/28 
0548/28 
0584/26 
0034/29 
0119/29 
0180/29 
0269/29 
0321/29 
0341/29 
0418/29 
0525/29 
0016/30 
0141/30 
0235/30 
0297/30 
0312/30 
0370/30 
0433/30 
0531/30 
0183/31 
0337/31 
0409/31 
0040/32 



0052/20 
0250/20 
B124/21 

0274/21 
0347/21 
0419/21 
0447/21 
0547/21 
0028/22 
0195/22 
0104/23 
0262/23 
0369/23 
0420/23 
0084/24 
0127/24 
0216/24 
0289/24 
0031/25 
0165/25 
0202/25 
0279/25 
0336/25 
0082/26 
0245/26 
0387/26 
0088/27 
0457/27 
0026/28 
0270/28 
0428/28 
0500/26 
0556/28 
0588/28 
0041/29 
0130/29 
0164/29 
0271/29 
0324/29 
0363/29 
0429/29 
0526/29 
0036/30 
0197/30 
0241/30 
0297/30 
0334/30 
0384/30 
0491/30 
0132/31 
0207/31 
0354/31 
0415/31 
0047/32 



0104/20 
0292/20 
0171/21 
0295/21 
0357/21 
0428/21 
0471/21 
0562/21 
0065/22 
(0281/22 
0122/23 
10305/23 
0370/23 
0422/23 
0089/24 
0148/24 
0224/24 
0292/24 
0033/25 
0170/25 
0203/25 
0290/25 
0356/25 
0085/26 
0277/26 
(0392/26 
0143/27 
0460/27 
10051/28 
0272/28 
0466/28 
0500/26 
0557/28 
10601/28 
0052/29 
0137/29 
0201/29 
0286/29 
0325/29 
10366/29 
0440/29 
0526/c29 
0047/30 
0197/30 
0255/30 
0300/30 
0338/30 
0387/30 
W495/30 
0135/31 
0218/31 
0359/31 
0419/31 
0049/32 



0128/20 
0313/20 
0185/21 
0306/21 
0376/21 
0432/21 
0472/21 
0580/21 
0080/22 
0320/22 
0144/23 
0307/23 
0371/23 
0449/23 
0091/24 
0157/24 
0226/24 
0295/24 
0035/25 
0181/25 
0215/25 
0294/25 
0358/25 
0170/26 
0288/26 
0410/26 
0146/27 
0463/27 
0070/28 
0274/28 
0486/26 
0504/28 
0557/28 
0658/28 
0068/29 
0141/29 
0214/29 
0288/29 
0325/29 
0370/29 
0463/29 
0531/29 
0091/30 
0217/30 
0261/30 
0302/30 
0345/30 
0389/30 
0497/30 
0145/31 
0252/31 
0365/31 
0499/31 
0067/32 



0161/20 
0339/20 
0195/21 
0310/21 
0378/21 
0436/21 
0474/21 
0581/21 
0107/22 
0053/23 
0163/23 
0308/23 
0374/23 
0048/24 
0116/24 
0164/24 
0252/24 
0308/24 
0039/25 
0183/25 
0218/25 
0296/25 
0360/25 
0179/26 
0360/26 
0429/26 
0153/27 
10467/27 
02u9/28 
0290/28 
0490/28 
0508/28 
0566/28 
0689/28 
0074/29 
0144/29 
0257/29 
0291/29 
0327/29 
0390/29 
0489/29 
0532/29 
0099/30 
0219/30 
0266/30 
0304/30 
0347/30 
0415/30 
0502/30 
10153/31 
0297/31 
0376/31 
0531/31 
0090/32 



###### 



CNQ3S*KEFErENCE SYMBqU TA8U 



0094/32 
0142/32 
0178/32 
0206/32 
0237/32 
0306/32 
0372/32 
0047/33 
0120/33 
0230/33 
0337/33 
0401/33 
0481/33 
0137/34 
0186/34 
0279/34 
0391/34 
0447/34 
0498/34 
0051/38 
0133/35 
0207/35 
0275/35 
0319/35 
0401/35 
0456/35 
0550/35 
0020/38 
0083/36 
0140/36 
0212/36 
0285/36 
0412/36 
0040/37 
0088/37 
0192/37 
0275/37 
0351/37 
0458/37 
0036/38 
0100/38 
0165/38 
0271/38 
0333/38 
0445/38 
0127/39 
0196/39 
0268/39 
0352/39 
0474/39 
0535/39 
0607/39 
0681/39 
0823/39 



0098/32 
0153/32 
0182/32 
0206/32 
0242/32 
0328/32 
0382/32 
0057/33 
0141/33 
0237/33 
0353/33 
0404/33 
0503/33 
0143/34 
0200/34 
0287/34 
0401/34 
0449/34 
0501/34 
0064/35 
0138/35 
0210/35 
0277/35 
0376/35 
0407/35 
0482/35 
0552/35 
0022/36 
0092/36 
0152/36 
0217/36 
0317/36 
0420/36 
0047/37 
0091/37 
0195/37 
0296/37 
0353/37 
0498/37 
0039/38 
0109/38 
0175/38 
0285/38 
0335/38 
0012/39 
0137/39 
0201/39 
0272/39 
0363/39 
0488/39 
0538/39 
0620/39 
0726/39 
0826/39 



0100/32 
0155/32 
0185/32 
0210/32 
0245/32 
0342/32 
0386/32 
0063/33 
0150/33 
0264/33 
0361/33 
0405/33 
0509/33 
0145/34 
0210/34 
0297/34 
0402/34 
0452/34 
0519/34 
0080/35 
0147/35 
0215/35 
028J/35 
0384/35 
0419/35 
0492/35 
056J/35 
0024/36 
0100/36 
0167/36 
0223/36 
0322/36 
0436/36 
0049/37 
0111/37 
0202/37 
0317/37 
0363/37 
0013/36 
0042/38 
0122/38 
0183/38 
0293/38 
0342/38 
0042/39 
0152/39 
0215/39 
0284/39 
0406/39 
0503/39 
0543/39 
0630/39 
0734/39 
0016/40 



0104/32 
0157/32 
0189/32 
0218/32 
0251/32 
0354/32 
0398/32 
0076/33 
0153/33 
0269/33 
0365/33 
W407/33 
0519/33 
0147/34 
0228/34 
0303/34 
0414/34 
0462/34 
0539/34 
0085/35 
0158/35 
0219/35 
0290/35 
0388/35 
0422/35 
0500/35 
0567/35 
0031/36 
0112/36 
0163/36 
0230/36 
0334/36 
0017/37 
0053/37 
0123/37 
0213/37 
0323/37 
0380/37 
0020/38 
0074/36 
0125/38 
0206/38 
0295/38 
0412/38 
0054/39 
0171/39 
0227/39 
0291/39 
0415/39 
0519/39 
0563/39 

0641/39 
0741/39 

0022/40 



0107/32 
0159/32 
0191/32 
0220/32 
0260/32 
0356/32 
0412/32 
0087/33 
0161/33 
0278/33 
0368/33 
0452/33 
0531/33 
0161/34 
0260/34 
0324/34 
0416/34 
0471/34 
0025/35 
0105/35 
0166/35 
0238/35 
0298/35 
0390/35 
0431/35 
0513/35 
0590/35 
0037/36 
0115/36 
0186/36 
0235/36 
0337/36 
0019/37 
0066/37 
0147/37 
0224/37 
0324/37 
0384/37 
0024/38 
0080/J8 
0132/38 
0206/38 
0298/38 
0414/38 
0086/39 
B181/39 
0245/39 
0332/39 
0420/39 
0526/39 
0594/39 
0646/39 
0747/39 
0036/40 



0115/32 
0163/32 
0195/32 
0223/32 
0266/32 
0364/32 
0034/33 
0099/33 
0163/33 
0313/33 
0374/33 
0453/33 
0118/34 
0172/34 
0264/34 
0340/34 
0427/34 
0482/34 
0043/35 
0125/35 
0173/35 
0256/35 
0309/35 
0393/35 
0433/35 
0516/35 
0639/35 
0073/36 
0122/36 
0193/36 
0259/36 
0392/36 
0029/37 
M069/37 
0157/37 
0228/37 
0328/37 
0393/37 
0026/38 
KJ087/38 
0154/38 
0219/38 
0305/38 
0424/38 
0106/39 
H186/39 
0256/39 
0336/39 
0435/39 
0630/39 
0600/39 
0659/39 
0758/39 
0042/40 



0134/32 
0176/32 
0197/32 
0232/32 
0271/32 
0368/32 
0045/33 
0115/33 
0182/J3 
0323/33 
0398/33 
0463/33 
0121/34 
0175/J4 
0268/34 
0370/34 
0441/34 
10489/34 
0045/35 
0129/35 
0190/35 
0270/35 
0315/35 
0395/35 
0453/35 
0523/35 
0653/35 
0077/36 
0130/36 
0195/36 
0265/36 
0407/36 
0035/37 
0083/37 
0180/37 
0230/37 
0336/37 
0451/37 
0031/38 
0095/38 
0163/38 
0264/38 
0312/36 
0436/38 
U122/39 
0193/39 
0259/39 
0344/39 
0454/39 
0532/39 
0603/39 
0667/39 
0764/39 
0044/40 



CRUSS"R£f-"£RENC£ SYMBOL TABU 



0048/4$ 
0209/40 
0299/40 
0436/40 
0525/40 
0018/41 
0077/41 
0122/41 
0156/41 
0227/41 
0332/41 
0405/41 
0471/41 
0509/41 
0566/41 
0595/41 
0058/42 
0134/42 
0163/42 
0192/42 
0262/42 
0312/42 
0359/42 
0484/42 
0629/42 
0693/42 
0066/43 
0122/43 
0197/43 
0243/43 
0305/43 
0399/43 
0537/43 
0606/43 
0046/44 
0116/44 
0163/44 
0239/44 
0295/44 
0355/44 
0444/44 
0504/44 
0028/45 
0112/45 
0209/45 
0357/45 
0461/45 
0561/45 
0710/45 
0040/46 
0142/46 
0230/46 
0327/46 
0387/46 



0050/40 
0231/40 
0314/40 
0438/40 
0529/40 
0035/41 
0087/41 
0137/41 
0166/41 
0262/41 
0354/41 
0413/41 
0484/41 
0536/41 
0568/41 
0598/41 
0062/42 
0136/42 
0171/42 
0200/42 
0268/42 
0319/42 
0361/42 
0515/42 
0638/42 
0697/42 
0075/43 
0127/43 
0206/43 
0260/43 
0307/43 
0435/43 
0542/43 
0610/43 
0049/44 
0131/44 
0166/44 
0248/44 
0315/44 
0362/44 
0455/44 
0508/44 
0030/45 
0122/45 
0234/45 
0377/45 
0487/45 
0565/45 
0724/45 
0054/46 
0203/46 
0245/46 
0350/46 
0390/46 



0054/40 
0241/40 
0325/40 
0478/40 
0535/40 
0039/41 
0101/41 
0141/41 
0175/41 
0275/41 
0363/41 
0427/41 
0486/41 
0545/41 
0570/41 
0633/41 
0073/42 
0142/42 
0173/42 
0202/42 
0272/42 
0331/42 
0422/42 
0529/42 
0647/42 
0705/42 
0081/43 
0158/43 
0207/43 
0268/43 
0313/43 
0438/43 
0562/43 
0013/44 
W059/44 
0133/44 
0170/44 
0256/44 
0316/44 
0367/44 
0467/44 
0512/44 
0037/45 
0126/45 
0237/45 
0400/45 
0496/45 
0618/45 
0735/45 
0062/46 
0215/46 
0265/46 
0352/46 
0396/46 



0056/40 
0258/40 
0349/40 
0484/40 
0538/40 
0045/41 
0104/41 
0143/41 
0178/41 
0301/41 
03/1/41 
0449/41 
0494/41 
0546/41 
0576/41 
0009/42 
0095/42 
0146/42 
0175/42 
0205/42 
0277/42 
0336/42 
0432/42 
0546/42 
0674/42 
0709/42 
0090/43 
0173/43 
0216/43 
0270/43 
0330/43 
0478/43 
0568/43 
0022/44 
0072/44 
0142/44 
0183/44 
0268/44 
0325/44 
0388/44 
0468/44 
05/0/44 
0039/45 
0138/45 
0270/45 
0431/45 
0520/45 
0623/45 
0748/45 
0071/46 
0216/46 
0291/46 
0354/46 
0404/46 



0060/40 
0261/40 
0365/40 
0501/40 
0541/40 
0049/41 
0110/41 
0145/41 
0195/4J 
0305/41 
0378/41 
0454/41 
0496/41 
0548/41 
0578/41 
0013/42 
WH7/42 
(0148/42 
0178/42 
0215/42 
0299/42 
0339/42 
0441/42 
0548/42 
0681/42 
0011/43 
0100/43 
0177/43 
0219/43 
0275/43 
0373/43 
0483/43 
0573/43 
0031/44 
0078/44 
0154/44 
0188/44 
0271/44 
0327/44 
0394/44 
0470/44 
0585/44 
0042/45 
0154/45 
0274/45 
0434/45 
0529/45 
0642/45 
0752/45 
0087/46 
0223/46 
0313/46 
0363/46 
0410/46 



0164/40 
0267/40 
0370/40 
0514/40 
0013/41 
0060/41 
0113/41 
0152/41 
0205/41 
0317/41 
0396/41 
0458/41 
0500/41 
0554/41 
0582/41 
0025/42 
0121/42 
0150/42 
0187/42 
0241/42 
0301/42 
0345/42 
04t>6/42 
0561/42 
0683/42 
0015/43 
0109/43 
0183/43 
0229/43 
0260/43 
0394/43 
0485/43 
0598/43 
0039/44 
0086/44 
0156/44 
0205/44 
0277/44 
0343/44 
0409/44 
0487/44 
0006/45 
0047/45 
0162/45 
0298/45 
0436/45 
0549/45 
0662/45 
0765/45 
0118/46 
0226/46 
0319/46 
0370/46 
0412/46 



0192/40 
0273/40 
0397/40 
0523/40 
0015/41 
0068/41 
0119/41 
0154/41 
0220/4 1. 
0327/41 
0398/4! 
0460/41 
0502/41 
0561/41 
0593/41 
0034/42 
0129/42 
0152/42 
0189/42 
0245/42 
0303/42 
0353/42 
0475/42 
0603/42 
0685/42 
0034/43 
0118/43 
0196/43 
0234/43 
0296/43 
0397/43 
0506/43 
0602/43 
0043/44 
0111/44 
0158/44 
0229/44 
0284/44 
0349/44 
0426/44 
0490/44 
0013/45 
0087/45 
0174/45 
0310/45 
0447/45 
0553/45 
0678/45 
0038/46 
0123/46 
0229/46 
0322/46 
0382/46 
0470/46 



CROSS-KEFErENCE SY*BuL TAttUE 



0480/46 
0093/47 
0252/47 
0360/47 
0418/47 
0461/47 
0520/47 
0098/48 
0228/48 
0392/48 
0489/48 
0573/48 
0607/48 
0754/48 
0019/49 
0087/49 
0189/49 
0228/49 
0292/49 
0388/49 
0496/49 
0081/50 
0184/50 
0218/50 
0356/50 
0056/51 
0128/51 
0223/51 
0287/51 
0362/51 
0584/51 
0061/52 
0175/52 
0278/52 
0405/52 
0455/52 
0015/53 
0070/53 
0187/53 

0345/53 
0028/54 
0091/54 
0141/54 
0198/54 
0296/54 
0487/54 
0089/55 
0194/56 
0273/55 
0364/55 
0457/55 
0524/55 
0027/56 
0118/56 



0486/46 
0085/47 
2272/47 
0356/47 
0434/47 
0477/47 
0523/47 
0101/48 
0247/48 
0410/48 
050KJ/48 
0581/48 
0609/48 
0761/48 
0036/49 
0093/49 
0192/49 
0238/49 
0326/49 
0393/49 
0017/50 
0099/50 
0186/50 
0225/50 
0358/50 
0078/51 
0130/51 
0241/51 
0297/51 
0373/51 
0640/51 
0086/52 
0181/52 
0283/52 
0410/52 
0461/52 
0017/53 
U075/53 
0201/53 
0355/53 
0036/54 
0108/54 
0142/54 
0202/54 
0307/54 
0507/54 
0092/55 
0203/55 
0286/55 
0369/55 
0469/55 
0527/55 
0048/56 
0126/56 



0497/46 
0104/47 
0304/47 
0360/47 
0438/47 
0482/47 
0014/46 
0103/46 
0280/48 
0435/48 
0533/48 
0563/48 
0689/48 
0769/48 
0045/49 
0098/49 
0196/49 
0253/49 
0331/49 
0395/49 
0026/50 
0106/50 
0194/50 
0229/50 
0367/50 
0086/51 
0134/51 
0249/51 
0305/51 
0449/51 
0653/51 
0098/52 
0204/52 
0310/52 
0414/52 
0504/52 
0025/53 
0085/53 
0242/53 
0361/53 
0045/54 
0111/54 
0144/54 
0215/54 
0312/54 
0526/54 
0119/55 
0209/55 
0312/55 
0376/55 
0472/55 
0532/55 
0057/56 
0138/56 



0015/47 
0108/47 
W313/47 
0365/47 
0439/47 
0491/47 
0023/46 
0148/48 
0292/48 
0443/48 
0539/48 
0585/48 
0719/48 
0784/48 
0047/49 
0103/49 
0213/49 
0258/49 
^340/49 
0410/49 
0045/50 
0114/50 
0205/50 
0235/50 
0371/50 
0095/51 
0147/51 
0266/51 
0312/51 
0481/51 
0663/51 
0103/52 
0211/52 
0319/52 
0417/52 
0544/52 
0034/53 
0111/53 
0262/53 
0307/53 
0057/54 
0115/64 
0153/54 
0234/54 
0322/54 
0023/55 
0125/55 
0229/55 
0315/55 
0379/55 
0490/55 
0540/55 
0079/56 
0141/56 



0024/47 
0194/47 
0319/47 
0396/47 
0448/47 
0507/47 
0025/48 
0159/46 
0307/48 
0448/48 
0544/48 
0596/48 
0722/48 
0793/48 
0062/-»9 
0138/49 
0215/49 
0266/49 
0354/49 
0447/49 
0049/50 
0149/50 
0210/50 
0237/50 
0361/50 
0110/51 
0164/51 
0274/51 
0316/51 
0494/51 
0667/51 
0158/52 
0218/52 
0386/52 
0423/52 
0549/52 
0046/53 
0126/53 
0320/53 
0373/53 
0069/54 
0119/54 
0181/54 
0241/54 
0343/54 
0045/55 
0175/55 
0232/55 
0318/55 
0401/55 
0495/55 
0010/56 
0096/56 
0146/56 



0055/47 
0203/47 
0328/47 
0408/47 
0449/47 
0515/47 
0031/48 
0202/48 
0332/48 
0453/48 
0549/48 
0598/48 
0738/48 
0798/48 
0071/49 
0143/49 
0217/49 
0272/49 
0364/49 
10453/49 
0056/50 
0153/50 
0212/50 
0255/50 
0443/50 
0114/51 
0167/51 
0279/51 
0351/51 
0500/51 
0037/52 
0165/52 
0248/52 
0397/52 
0433/52 
0554/52 
0053/53 
0140/53 
0323/53 
0386/53 
0082/54 
0126/54 
0188/54 
0247/54 
0363/54 
0072/55 
0167/55 
0250/55 
11344/55 
0436/55 
0516/55 
0015/56 
0104/56 
0170/56 



0069/47 
0211/47 
0341/47 
0412/47 
0458/47 
0517/47 
0057/48 
0210/48 
0384/46 
0464/48 
0557/aS 
0603/48 
0741/*<8 
0811/48 
0077/49 
0152/49 
0226/49 
0282/49 
0J73/49 
0456/49 
0066/50 
0162/50 
0214/50 
0300/50 
0038/51 
0127/51 
0170/51 
0283/51 
0357/51 
0675/61 
0053/52 
0168/52 
0266/52 
0401/52 
0436/52 
0558/52 
0066/53 
0145/53 
0329/5J 
0026/54 
0086/54 
0131/54 
0191/54 
0276/54 
0462/54 
0084/55 
0188/55 
0256/55 
0354/55 
0438/65 
0519/55 
0026/56 
0109/56 
0179/56 



.74 
.75 

.A 

,CHEB 

t ExP 

,EXP1 
,EXP2 
.FAD 



,FD V 

,F0V2 
.FLUN 

,FMP 



,FSB 



,FS81 
.IENT 



ChOsS««EFErENCE SVMBOL TAbLE 

0008/12 0220/14 

0006/19 00/0/J9 

0007/19 0180/19 

0006/23 0189/23 0362/23 

0150/02 0317/02 0344/02 0436/02 0471/02 

0216/20 0316/20 0364/20 0413/20 

0146/02 0320/02 0343/02 0467/02 0364/13 

0505/20 0512/20 



0503/20 0468/20 0808/20 
0506/20 0458/20 0465/20 



0120/02 
0562/15 
0289/20 
0017/21 

0126/02 
0087/16 
0032/21 

0081/16 

0084/16 

01-J0/02 
0096/19 

0124/02 
0006/16 
0215/18 
0310/20 
0409/20 
0042/21 

0122/02 
0122/14 
0219/18 
0314/20 
0488/20 



0339/02 
0300/17 
0298/20 
■0034/21 

0342/02 
0142/16 
0119/21 

0047/16 

0044/16 

34 8/02 
0267/20 

0341/02 
0036/16 
0260/18 
0318/20 
0415/20 
0113/21 

0340/02 
0563/15 
0249/18 
0349/20 
0490/20 



0444/02 
0246/18 
0336/20 
0040/21 

0464/02 
0373/20 
0127/21 



0349/02 
0012/21 

0463/02 
0298/17 
0165/20 
0333/20 
0454/20 
0138/21 

0470/02 
0569/15 
0267/18 

0355/20 
0021/21 



0579/15 0573/15 0576/15 



04^9/02 
0085/19 
0346/20 
0115/21 

0337/13 
0404/20 



0152/02 
0489/19 



03l8/«52 
0236/20 



0345/02 
0237/20 



0045/15 
0106/21 

0331/13 
0044/18 
02M4/20 
0358/20 
0473/20 



0183/10 
W032/15 

0*06/20 
0362/20 
0028/21 



0437/02 
0242/20 



0180/10 
0090/19 

0476/20 
0121/21 

0402/13 

0480/20 



0541/15 

0260/23 

0362/13 
0154/18 
0215/20 
0360/20 
0484/20 



0325/13 

0088/16 
0213/20 
0411/20 
0038/21 



0472/02 

0293/20 



0188/20 0217/20 



0452/20 0502/20 



Ki319/13 
0208/20 
0486/20 
0129/21 

0041/16 
0494/20 



0408/13 
0167/18 
10286/20 
0366/20 
0026/21 



0046/14 
U37/18 
0301/20 
0432/20 



0430/19 
0340/20 



0561/lS 
0261/20 
0496/20 
0140/21 

0083/16 
0023/21 



0553/15 0139/16 



0416/13 
0199/18 
0296/20 
0407/20 
0036/21 



0055/14 
0203/18 
0306/20 
0470/20 



0456/j9 
0457/20 



.If^M 0242/02 0425/^6 0030/08 0399/09 0233/16 4395/16 



,LOG 


0148/02 


CHOSSw 
0473/02 


REFERENCE 
0361/13 


SYM801 T 
0005/21 


ABIE 
0044/21 


0048/21 




,L0G1 


0045/21 


0008/21 












.PACK 


0060/02 


0347/02 


0631/15 


0035/16 


0082/16 


0021/20 


0103/20 




0253/20 


0175/22 


0262/22 


0297/22 


0300/22 


0305/22 


0310/22 


,PWR2 


0154/02 


0319/02 


0346/02 


0438/02 


0269/20 


0276/20 


0277/20 




0291/20 


10312/20 


0338/20 


0344/20 


0500/29 


0123/21 


0131/21 


» X 


0003/23 


0187/23 


0330/23 


0357/23 


0009/24 


0109/24 




7ABP2 


0007/33 


0142/33 












7ADJN 


0268 


0030 


0557/26 










7ATBL 


0397 
0486/51 


0056/26 
0043/52 


0267/30 


0273/42 


0381/42 


0323/46 


0429/46 


7CLQC 


0254/27 


U258/27 


0180/29 


0184/29 


0401/33 


0404/33 


0452/33 


7DISC 


0234/27 


0010 


0238/27 


0241/30 


0261/30 


0251/32 


0271/32 




k)388/32 


0063/33 


0^74/33 


0024/36 


0419/43 


0420/43 


0263/4/ 




0264/47 


0258/49 


0079/52 


0577/52 








7FLAG 


0212/27 


0230/27 


0467/27 


0037/36 


0415/39 


0420/39 


0013/45 


7ID 


0242/27 


0011 


0422/09 


0026/22 


0246/27 


0463/27 


0467/27 




0267/29 


0269/29 


0260/32 


0342/32 


0398/32 


0099/33 


0210/34 




0025/35 


0393/35 


0395/35 


0401/35 


0020/36 


0022/36 


0013/38 




0436/38 


0420/39 


0594/39 


0039/41 


0275/41 


0301/41 


0009/42 




0241/42 


0013/44 


0111/44 


0487/44 


0490/44 


02/0/45 


0434/48 




0442/48 


0447/48 


0452/48 


0266/49 


0282/49 


0292/49 


0447/49 




0453/49 


0038/51 


0110/51 


0127/51 


0370/59 


0434/59 




7LINK 


0267/27 


0085/07 


0350/07 


0387/07 


0422/09 


0380/19 


0271/27 




0457/27 


0566/28 


0689/28 


0012/29 


0294/29 


0331/29 


0334/30 




0361/30 


0370/30 


0384/30 


0387/30 


0521/30 


0531/30 


0232/32 




0260/32 


0266/32 


0057/33 


00/6/33 


0099/33 


0120/33 


0153/33 




0353/33 


0398/33 


0452/33 


0463/33 


0503/33 


0531/33 


0210/34 




0340/34 


0025/35 


0347/35 


0393/35 


0567/35 


0590/35 


0020/36 




0013/38 


0183/38 


0206/38 


0333/38 


0412/38 


0424/36 


0436/38 




0042/39 


0054/39 


0215/39 


0227/39 


0245/39 


0332/39 


0406/39 




0415/39 


9454/39 


0543/39 


0578/39 


0594/39 


0681/39 


0823/39 




0016/40 


0022/40 


0325/40 


0478/40 


0541/40 


0039/41 


0154/41 




0178/41 


0275/41 


0301/41 


0317/41 


0327/41 


0354/41 


0396/41 




0427/41 


0576/41 


0009/42 


0025/42 


0034/42 


0056/42 


011//42 




0178/42 


0241/42 


0561/42 


0693/42 


0705/42 


0478/43 


0483/43 




0542/43 


0013/44 


0111/44 


W455/44 


0467/44 


0487/44 


0008/45 




0087/*5 


0122/45 


0209/45 


02/0/45 


0549/45 


0561/45 


0134/51 


7NAMt 


0246/27 


0250/27 


0489/29 


0556/29 


0445/38 


0478/40 


0541/40 


7PLEV 


027I/27 


0276/27 


W012/29 


0171/29 


0286/29 


0286/29 


0291/29 







CROSS* 


REFERENCE 


SYMBOt TAdtE 








0294/29 
0300/30 
0242/32 


0321/29 
0302/30 
0361/33 


0324/29 
0345/30 
ID365/33 


0370/29 
0347/30 

0404/33 


0390/29 
0495/30 
0407/33 


0395/29 
0497/30 
0467/44 


0532/29 
0237/32 
0470/44 


?PROG 


0238/27 
0261/30 
0057/33 

0024/36 
0013/45 


0242/27 
0245/32 
0063/33 
0037/36 
0253/49 


0554/29 
0251/32 
0368/33 
0183/38 
0258/49 


0556/29 

0206/32 
10374/33 
0208/38 


0235/30 
0271/32 
0567/35 
0245/39 


0241/30 
0382/32 

0590/35 
IC016/40 


0255/30 
0386/32 

0022/36 

0006/45 


?RSTR 


0258/27 
0363/29 

0304/30 


0262/27 
0368/29 
0308/30 


0539/28 
0370/29 
0336/30 


0544/28 

0395/29 

0502/30 


0171/29 
K.398/29 
0506/30 


0327/29 
0525/29 
0407/3J 


0331/V.S. 
0532/29 

04 7 0/44 


?RTIM 


0276/27 
0576/41 


0298/11 
0034/42 


0280/27 
0058/42 


0466/28 
0117/42 


0327/41 
0178/42 


0354/41 
0455/44 


0396/41 

0490/44 


?3C 


0033 
0103/27 
0363/28 
0569/32 


0365/26 
0108/27 
0364/28 
0570/32 


0394/26 

0122/27 
0365/28 


0468/26 
0140/27 

0205/29 


0470/26 
0198/27 
0470/32 


#052/27 
0190/28 
£515/32 


0068/27 
0347/28 
0567/32 


?8TAT 


0262/27 
0486/28 
0566/26 
0324/29 
0224/30 
0365/30 
0242/32 
0481/33 
0130/51 


0350/07 
0504/28 
0601/26 
0327/29 
0300/30 
0367/30 
0245/32 
0336/J9 


0186/21 
0508/28 
0180/29 
0334/29 
0302/30 
0491/30 
0412/32 
0561/42 


0026/22 
0548/28 
0269/29 
0368/29 
0304/30 
0495/30 
0365/33 
0607/48 


0267/27 
0556/28 
0286/29 
0398/29 
0308/30 
0497/30 
0368/33 
0189/49 


0460/27 
0566/28 
0288/29 
0523/29 
0346/30 
0502/30 
0398/33 
3192/49 


0463/27 
0569/26 
0291/29 
0525/29 
0347/30 
0531/30 
0401/33 
0127/51 


?T8L 


0085 


0397 












?TEMP 


0280/27 
0561/45 


0154/41 


0178/41 


0427/41 


0693/42 


0705/42 


0549/45 


?TI*E 


0250/27 


0254/27 


0378/39 


0454/39 


0542/43 


0292/49 




?TNUM 


0230/27 
0153/33 
0563/39 

0192/49 


0494/1$ 

0340/34 
0681/39 
0196/49 


0234/27 
0042/39 
0317/41 


*>47e/27 

0054/39 
0025/42 


0334/30 
0215/39 
0087/45 


033g/30 
0406/39 
4122/45 


0370/30 
0543/39 

0209/45 


?TT2 


0060/27 


0260 


0938/26 


0552/26 


0044/27 


0110/27 


0695/32 


?TT35 


0037/27 


0289 


0043/27 


0056/27 


0694/32 






A 


0020 
0134/15 

0160/26 

0269/30 

0356/31 

0081/35 


0fl3l/06 
0139/15 
0163/26 
02/7/30 
0379/31 
0106/35 


0032/06 
0H2/15 
0166/26 
0314/31 
0365/32 
0441/35 


0275/07 
0200/15 
0175/26 
0338/31 
0491/32 
0267/36 


0279/07 
0438/19 
0185/29 
0347/31 
0239/34 
0323/36 


0402/09 
0024/23 
0329/29 
0353/31 
0261/34 
0085/37 


0324/14 
0457/25 
0176/30 
0355/31 
0424/34 
0098/37 



fMPM 



CrUSS*REFErENCE symbol table 



A, 10 
A000 

Al 

A2 

AAA 

AAAA 

ABCHK 

ABCK 

ABR 

ABRJ 

AB R 2 

ABT 

ABTRY 

ABUCU 

ACC5A 

ACCS1 

ACCS2 



0105/37 
0234/37 
0139/40 
0159/41 
0107/42 
0354/42 
0346/44 
0737/45 
0393/46 
0288/46 
0048/61 
0319/54 
0470/55 
0281/56 
W337/57 
0371/59 



0505 
0049/38 

0439/02 
0012/16 

0441/^2 
0017/16 

0053/21 
0516/20 

0461/33 
0656/35 

0299 
0472/28 

0485/28 
0503/28 
0156 

0&1 7 

0380/32 

0293 

0586/05 

0594/05 



0112/37 
0350/37 
0154/40 
0182/41 
0165/42 
0356/42 
0396/44 
0751/45 
0405/46 
0605/48 
0317/51 
0339/54 
0491/55 
0415/56 
0377/57 
0435/59 



0004/07 0066/09 



0425/09 
0256/41 

0538/15 
KJ024/16 

0550/15 
0025/16 

0035/21 

0477/20 

0299 



0141/37 
0059/38 
0177/40 
0263/41 

0304/42 

0383/42 
0118/45 
0292/46 
0407/46 
0390/49 
0290/52 
0481/54 
0072/56 
0447/56 
0408/57 
0441/59 



0148/37 
0650/39 
0182/40 
0634/41 
0322/42 
04/6/42 
0123/45 
0355/46 
0431/46 
0306/50 
0071/53 
0496/54 
0060/56 
0198/57 
0660/57 
0442/59 



0181/37 
0682/39 
0295/40 
0067/42 
0330/42 
0577/42 
0443/45 
0373/46 
0016/47 
0413/50 
0238/53 
0522/54 
0232/56 
0201/57 
0209/58 



0189/37 
0080/40 
0298/40 
0082/42 
W340/42 
0239/43 
0612/45 
0381/46 
0138/47 
0424/50 
0087/54 
0186/55 
0243/56 
0293/57 
0468/58 



0219/34 0360/34 0044/35 

0303/41 0011/42 0243/42 

0589/15 0592/15 06l8/l5 

0045/16 10085/16 

0570/J5 0580/15 0590/15 

0042/16 0054/16 0058/16 



0471/07 0303/09 0569/H 0475/16 0279/32 

0434/26 

0480/28 

0492/28 

0609/28 

0482/28 fe)356/29 04y5/32 047 /33 

0113/31 

0209/03 0210/03 0215/03 0260/03 

0580/05 0593/05 0608/05 

0574/05 0582/05 



0229/37 
0105/40 
0304/40 
0090/42 
0342/42 
0085/44 
0624/45 
0391/46 
0487/47 
0447/50 
0143/54 
0373/55 
0246/56 
0329/57 
0480/58 



0231/35 0447/35 
0272/45 0022/51 

0622/15 0630/15 



0591/15 0608/15 
0063/16 



0760/32 0472/33 0342/35 0610/35 0642/35 



»»»•»# 



CHUSS*RtFERENLE SYMBOL TABLE 



ACC33 0607/05 0615/05 

ACC34 0616/0? 0573/05 

ACCS5 0618/05 0253 0592/05 

ACCS6 0629/05 (0567/05 0621/05 

ACC3A 2»1 0326/03 0350/03 

0613/03 0641/03 0645/03 

0721/03 0724/03 0037/04 

0124/04 0154/04 0272/05 

ACC3T 0561/05 0291 0317/05 

ADB10 0429/26 0436/26 

AOLEN 0061 0027/28 0217/31 

0788/39 0056/43 0294/47 

0536/51 0544/51 0599/51 

0266/55 0289/55 0585/57 

0158/58 0518/58 0555/58 

ADLOC 0080 0829/28 0783/39 

0391/51 0407/51 0416/51 

0332/52 0268/55 0291/55 

0520/58 0557/58 



0411/03 

0659/03 
0049/04 
0287/05 



0467/03 
0670/03 
0062/04 
0517/16 



0538/03 
0685/03 
0076/04 



0564/03 

0709/0J 
0087/04 



0219/31 

0379/51 
*}600/51 
0592/57 



0790/39 
0546/51 
0587/57 



0258/31 
0389/51 
0298/52 
0629/57 



0055/43 
»603/5l 
W634/57 



0259/31 
0005/51 
0.^24/ 52 
0631/57 



0293/47 

0121/52 
0151/58 



0781/39 
0414/51 
0330/52 
0149/58 



0381/51 
0300/52 
0160/56 



ADMU1 0585/15 0564/15 0601/15 

ADMU2 0602/15 0588/15 

ADMU3 0610/15 0636/15 

ADMU4 0630/15 0605/^5 0620/15 0624/i5 kj628/i5 

A0MU5 0633/15 06n/|5 

AEnD 0532/04 0477/03 ^704/03 

ALCO0 0446/06 0454/06 

ALCOt 0424/06 0505/06 

ALC02 0455/06 W433/06 0502/06 

ALC03 0467/06 0458/06 

ALCU4 0472/06 0469/06 

ALC05 0487/06 0481/05 

ALC06 0434/06 0504/06 



##M#P 


AUCQ? 


ALCOM 


All 


ANN ( A 


ANN.L 


ANN! 


ANN2 


ANN3 


ANN4 


ANN5 


ANN6 


ANN7 


ANNCt 


ANNtg 


ANNC3 


ANNCH 


ANNJM 


ANOT 


APP01 


APP02 


APPi 


APP10 


APP2 


APP3 


APP5 


APP6 



CROSS-REFERENCE SYMBOl, TA81E 

0493/06 0466/06 0471/06 

0198/02 0436/06 0449/06 0051/07 0048/36 0389/36 

0144 0632/05 0414/29 

0652/48 0528/48 

0653/43 0567/48 0570/48 

056^/48 0540/48 

0564/48 0529/48 

0580/48 0563/48 

0587/48 0593/48 

0594/48 0591/48 

t 

0602/48 0619/48 

0616/48 0611/48 

0628/48 0637/48 0650/48 

0645/48 0642/48 

0648/48 0644/48 

0622/48 0582/48 0584/48 0586/48 0592/48 0595/48 0597/48 

0599/43 0651/48 

0654/48 0600/48 

0266 0335/04 

0278/38 0267/38 

0291/38 0281/38 

0346/38 0326/38 

0341/38 0316/38 

0394/38 03/3/38 0380/38 

0433/38 0409/38 

03e4/38 0377/38 0388/38 

0445/38 0440/38 



CK08S. REFERENCE SYM90U TABU 

0359/38 0349/38 

0368/38 0358/38 

0421/38 0400/J8 W4»5/38 

0448/38 0354/38 

04S /38 0297/38 044l/<*8 

0451/38 0384/38 ^39j/38 

0006/07 0202/08 

0005/07 0231/08 

0003/12 0435/J2 

0008/02 0577/28 0196/29 0505/30 

0058/14 0048/J4 

0049/14 0057/J4 

0120/16 0105/16 01U/18 

0100/16 0097/16 

0122/16 0099/J6 

0110/02 0381/jl 0133/13 0121/16 0l25/t6 86/l8 265/i8 

0047/19 O006/20 0156/20 0343/20 

0024/02 0386/02 0381/02 0033/04 0060/04 00/4/04 0135/04 

0147/04 0163/04 0118/05 

0538/04 0399/03 0408/03 0410/03 0090/04 0032/05 0034/05 

W046/05 0056/^5 «064/05 0l3l/u5 0146/05 0181/05 0189/05 

0624/H 0403/11 0445/H 0511/11 

0493/02 0.446/U tfSig/H 0517/11 0527/U 053«/H 0070/35 

0092/35 0333/35 

ASBUP 0356/35 0039/35 0047/35 0098/35 0140/35 0146/35 0149/35 

0151/35 0153/35 0l55/35 0157/35 0159/35 01&5/35 2 6/,j5 

0218/35 0233/35 0235/35 0237/35 0240/35 0255/35 0266/35 

0280/35 0297/35 0318/35 

ASC00 0331 0280/26 &291/26 0507/27 0039/30 0145/32 0139/41 

0198/41 0129/45 0768/45 tf 248/46 0492/48 0f4//52 0510/54 

ASC0B 0625/28 0076/29 



#•##•# 


APP7 


APP8 


APP9 


APPOP 


APPLS 


APP8 


APTR1 


APTR2 


ARBA8 


AREG 


ARGj 


ARG2 


ARINl 


ARIN2 


ARIN3 


ARINV 


ARRIO 


ARyAD 


A3BFA 


A8BFP 



****** CKOSS'REFERENCfc SYMBOL TABU 

ASCbkJ 0278/46 0188/46 

ASCBA 0524/28 0069/29 

ASCBB tf327 0028/36 0614/39 0132/45 0718/45 0469/48 

ASCC 0242/41 0092/41 

ASCEK 0520/16 0325/16 

ASCF 0243/41 0099/41 

ASCFF 0623/28 0065/29 

ASC1N 0622/28 0063/29 

ASCP 0244/41 0108/41 

AsCs 0245/41 0117/41 

ASCSS 0279/46 

ASFBf- 0368/35 0038/35 

ASFCB 0348/35 0053/35 0268/35 0269/36 0272/35 0273/35 0279/35 

0285/35 0268/35 (o289/35 02*1/35 0293/35 02*4/35 0295/35 

0307/35 0308/35 0310/35 0312/35 0313/35 0314/35 0323/35 

0324/35 W326/35 W327/35 w328/35 0329/35 0331/35 0332/35 

0335/35 0337/35 0339/35 

ASGNA 0044/31 0121/31 

ASINP 0292/02 0071/07 0332/09 0402/11 

ASM 0041/35 

A§N10 0227/35 0223/35 

ASNn 0237/35 0212/35 0232/35 

AgNl2 0297/35 0284/35 

ASNi3 0314/35 0296/35 

ASNU 0341/35 0123/35 

AsN2 0049/35 

ASN20 0087/35 0078/35 

ASN21 0092/.J5 0061/35 

AsN22 0098/35 0091/35 



M###P CKOSS*REFERENCE SYMBOL TABLE 

ASN23 0111/35 0108/35 

A3N24 0113/35 0128/35 0137/35 

A3N25 0l3b/3g 0132/35 

ASN25 0122/35 0116/35 

ASN28 0346/35 

ASN3 01U/35 0144/35 

A3N30 0248/35 0242/35 

A8N3J 0252/35 0246/35 

ASNj2 0254/35 0247/35 

ASN4 0124/35 0112/35 

ASN5 0147/35 

A3N5K5 0179/35 

A3N6 0205/35 0225/35 

ASN7 0209/35 021&/35 

ASN9 0218/35 02U/3& 

ASNPS 0350/35 0197/35 0200/35 0258/35 

A8NIB 0121/31 0491/H 

ASNJU 0351/35 0027/35 0031/35 0041/35 0062/35 0135/35 0161/35 

0229/35 0244/35 

ASNJF 0357/35 0203/35 0228/35 0249/35 

ASN8 0358/05 0514/05 

A3NS4 0366/05 

ASNSP 0347/35 0l8tt/ 3 5 

AsO«D 0349/35 0050/35 W194/35 

ASSAV 0355/35 0059/35 0142/35 k)32^/35 

As 3 CH 0354/35 0299/35 0303/35 0311/35 

A3SQP 0505/04 0316/03 0383/03 0523/03 0098/04 0391/04 

ASTEP 0540/04 0541/03 



0$(HH>$ 



CROSS-REFERENCE SYMBOL TAbtE 



ASTYP 0494/(02 0417/11 

ASUf-S 0353/35 0193/35 

ASYMT 0070/02 0303/&2 

ATA8 0279 0391/06 



ATHEN 0459 



ATIM 
ATMP 



0264/02 
0264/15 

0021 

0347/09 

0134/11 

0184/H 

0361/14 

039//15 

0472/15 

0186/21 

0466/27 

0283/28 

0608/26 

0323/29 

0301/30 

05U0/31 

U24W/32 

0302/32 

0384/32 

0306/33 

028io/34 

0459/34 

0396/35 

0514/35 

0117/36 

0320/35 

0214/37 

0114/38 

0302/38 

0285/39 

0649/39 

0152/40 

0279/41 

0397/41 

0d59/42 

0562/42 

0257/43 

0423/44 

0491/44 

0191/45 



0507/03 



0419/02 
0459/J5 

0468/05 
0349/09 
I'll 39/ 11 
0188/H 
0164/15 
0401/15 
0474/15 
0206/26 
0477/27 
0358/28 
0045/29 
0326/29 

0305/30 
0043/32 
0244/32 
0320/32 
0389/32 
0310/33 
0284/34 
0475/34 
0413/35 
0553/35 
0150/36 
0122/37 
0318/37 
0123/38 
0306/38 
0288/39 
0765/39 
0179/40 
0302/41 
0472/41 
0118/42 
0578/42 
0374/43 
0457/44 
0494/44 
0271/45 



0434/11 
0209/35 
0301/07 
0479/21 



0042/35 



0198/08 02^3/08 0222/08 0232/08 



0257/02 0255/H 0263/11 



0420/02 
0461/15 

0029/06 
0400/0V 
0141/H 
0192/11 
0175/15 
0403/15 
0478/15 
0235/26 
0506/27 
0477/28 
0186/29 
0330/29 
0309/30 
0044/32 
0247/32 
0323/32 
0391/32 
0314/33 
0294/34 
0477/34 
0427/35 
0556/35 
0154/36 
0124/37 
0382/37 
0166/38 
0375/38 
0292/39 
0072/40 
io543/40 
0328/41 
0479/41 
0179/42 
0026/43 
0398/43 
0460/44 
0497/44 
0637/45 



0457/11 

0201/20 

0399/06 
0106/11 
0164/U 
0225/11 
0188/15 
0424/15 
0075/21 
0279/26 
0060/28 
0495/28 
0189/29 
0007/30 

0325/31 
0099/32 
0252/32 

0345/32 
0407/32 
0406/33 
0298/34 
0126/35 
0444/35 
0568/35 
0214/36 
0156/37 
0496/37 
0169/38 
0216/39 
0566/39 
00/8/40 
0096/41 
0355/41 
0501/41 
0242/42 
0076/43 
0014/44 
0469/44 
0505/44 
0663/45 



0460/11 
0207/20 

0401/06 
0108/11 
0167/11 
0406/11 
0236/15 
0429/15 
0081/21 
0290/26 
0071/28 
0498/28 
0309/29 
0182/30 
0326/31 
0114/32 
0254/32 
0346/32 
0408/32 
0409/33 
0304/34 
0130/35 
0483/35 
0592/35 
0237/36 
0158/37 
0062/38 
0184/38 
0230/39 
0567/39 
0098/40 
0105/41 
0372/41 
0010/42 
0305/42 
0110/43 
0073/44 
0472/44 
0509/44 
0190/46 



0538/11 
0214/20 

0075/08 
0123/11 
0172/11 
0423/11 
0280/16 
0431/15 
0083/21 
0462/2/ 
0217/28 
0605/28 
0318/29 
0262/30 
0417/31 
0144/32 
0267/32 
0369/32 
0496/32 
0414/33 
0442/34 
0134/35 
0501/35 
0647/35 
0287/36 
0168/37 
0088/38 
0210/38 
0231/39 
0642/39 
0102/40 
0114/41 
0376/41 
0026/42 
0477/42 
0139/43 
0293/44 
0477/44 
0128/45 
0210/46 



0262/15 



0345/09 
0129/11 
0179/11 
0347/14 
0314/15 
0435/15 
0186/21 
0466/27 
0227/28 
0606/28 
0319/29 
0296/30 
0463/31 
0233/32 
0272/32 
0374/32 
0064/33 
0242/34 
0454/34 
0139/35 
0505/35 
0648/35 
0316/36 
0212/37 
0110/38 
0299/38 
0269/39 
0645/39 
0137/40 
0276/41 
0379/41 
0035/42 
0649/42 
0254/43 
0411/44 
0486/44 
0190/45 
0218/46 



CR0S3-RE.FEHfcNCE 8YM& L TABU 



B100 

B1000 

B120 

B120K 

B130K 

B133 

B140 

B160K 

B175 
B177 



0227/46 
0351/47 
0643/48 
0111/50 
0051/51 
0185/52 
0381/52 
0419/52 
0127/53 
0176/53 
0321/53 
0380/53 
0212/54 
0310/54 
00610/55 
0085/55 
0141/55 
0210/55 
036W/55 
0029/56 
0089/56 
0296/56 
0156/57 
0194/57 
0227/57 
0541/57 
0618/57 
0074/58 
0203/58 
0437/58 
0288/59 

0457 
0154/47 

0229 
03&1/15 

0092/21 

0005/26 

0006/26 

0252/05 

0616/28 

0007/26 

0684/51 

0225 
0130/27 



0356/46 
0378/4/ 
0193/49 
0244/50 
0280/51 
0201/52 
0387/52 
0422/52 
0130/53 
0183/53 
0324/53 
0383/53 
0216/54 
0313/54 
0064/55 
0066/55 
0144/55 
0246/55 
tfl437/55 
0035/56 
0106/56 
0433/56 
0160/57 
0195/57 
0233/57 
0549/57 
0643/57 
0081/58 
0388/58 
0441/58 
0293/59 

0516 



0017/47 
0435/47 
0254/49 
0324/50 
0284/51 
0252/52 
0396/52 
0451/52 
0138/53 
0186/53 
0340/53 
0088/54 
023J/54 
0362/54 
0069/55 
0096/55 
0170/55 
0251/55 
0439/55 
fc>040/56 
01U/56 
0090/57 
0163/57 
0208/57 
0262/97 
0560/57 
0651/57 
0094/58 
k?404/58 
0495/58 
0295/59 



0501/47 
0259/49 
0426/50 
0268/51 
0261/52 
0403/52 
0456/52 
05.41/53 
01U8/53 
0344/53 
0132/54 
02?2/54 
0364/54 
0073/55 
0115/55 
0176/55 
0313/55 
0444/55 
0049/56 
0143/56 
0094/57 
01/1/57 
02H/57 
0345/57 
0565/57 
W654/57 
0099/58 
0416/58 
0500/58 
0314/59 



0119/47 
0504/47 
0271/49 
0446/50 
0425/51 
0280/52 
0406/52 
0072/b3 
0149/53 
0191/53 
0348/53 
0177/54 
0280/54 
0425/54 
0075/55 
0121/55 
0190/55 
0316/55 
0450/55 
0052/56 
0168/56 
0102/57 
0176/57 
0214/57 
0395/57 
0600/57 
0045/58 
0112/58 
0420/58 
0530/58 
0428/59 



0139/47 
0102/48 
0389/49 
0455/50 
0154/52 
0281/52 
0409/52 
0102/53 
0167/53 
0261/53 
0358/53 
0192/54 
0289/54 
0509/54 
0078/55 
0132/55 
0195/55 
0319/55 
0454/55 
0055/56 
0172/56 
0105/57 
0184/57 
0217/57 
U5U/67 
0613/57 
0054/58 
0114/58 
0424/58 
0535/58 
0444/59 



0519 0099/08 0036/11 0453/11 
0450/15 

0255/21 0268/21 0278/21 

0118/27 0196/27 

0120/27 

0291/04 

043V30 
0101/27 

0585/51 

0199/06 0373/06 0369/19 0400/21 
0141/27 0145/27 0286/28 0361/28 



0314/47 
0608/48 
0396/49 
0041/51 
0169/52 
0284/52 
0415/52 
0123/53 
0172/53 
0263/5"? 
0369/53 
0208/54 
0309/54 
0036/55 
0081/55 
0135/55 
0204/55 
0357/55 
0534/55 
0*58/56 
0222/56 
0147/57 
0186/57 
0225/57 
8928/57 
0615/57 
0064/58 
0200/58 
0433/58 
0285/59 



0433/21 0064/26 0406/41 0122/42 0593/42 



0253/15 0335/15 



0263/22 0229/26 
0042/33 0532/34 



#«•#* 




CROSS- 


REF£RE N Ct 


SYMBOL TABU 








0465/41 
0370/48 


0557/41 


0316/43 


0132/46 


0154/46 


0234/47 


0034/48 


B1777 


0337 
0125/42 


0072/29 
0016/44 


0235/34 
0693/45 


0437/35 
0092/46 


0055/38 
0475/48 


0280/41 
0027/51 


0409/41 
0044/51 


B200 


0226 
0165/34 


0517 
0581/51 


0284/22 
0190/52 


0290/22 
0314/52 


0368/26 
0531/52 


0131/27 


0362/28 


82000 


0345 


0505 


0520 


0140/06 


0032/11 


0501/11 


0085/12 


B20M 


0230 


0523 












B3000 


0347 


0143/06 


0034/11 


0098/17 








B30M 


0231 


0079/21 


0474/28 


0603/28 


0564/39 






B377 


0227 

0426/H 

0162/14 

0327/14 

0231/2tf 

0292/22 

0168/32 

0607/41 

0511/45 


0219/09 
0142/12 
02KJ8/14 
0258/15 
0272/2(0 
0033/23 
0171/32 
0610/41 


0224/09 
0192/12 
0224/14 
0455/15 
0398/20 
0382/25 
0430/35 
0045/42 


0303/10 
0408/12 
0234/14 
0119/16 
0135/21 
0075/27 
0025/41 
0049/42 


0157/11 
0417/12 
0260/14 
0428/16 
0555/21 
0465/28 
0028/41 
0617/42 


0252/11 
0434/12 
0278/14 
0435/16 
0596/21 
0414/30 
0339/41 
0620/42 


0338/U 
0070/13 
030//14 
0280/19 
0620/21 
0476/30 
0342/41 
0508/45 


B37TK 


0638/32 


0465/32 












B4ya 


022» 
0213/44 


05l8 
0424/44 


0103/1& 
0081/52 


0490/J9 
0357/52 


0495/19 


0510/19 


0180/34 


B400U 


0429 


0521 


0227/11 


0068/12 


0441/26 


0039/28 




B40M 


0004/16 


0095/16 












B63 


0091/21 


0396/21 












B72 


0222 


0403/42 


0451/46 










B73 


0417 


0614/03 


0671/03 


0027/04 


0070/04 


0144/06 




B77 


0427 
0257/26 
0311/43 
0542/52 


0224/12 
0270/30 
0149/46 
0017/59 


0241/12 
0286/37 
0325/46 


0038/17 
0552/41 
0375/46 


0059/26 
0275/42 
0102/47 


0066/26 
0324/42 
0029/48 


0226/26 
0009/43 
0312/50 


B776 


0050/21 


0047/21 












B777 

BAs S U 


0273 
0452/41 

0314/13 


0368/03 
0121/46 

0310/13 


0119/04 


0437/05 


0089/10 


0155/10 


0313/16 



#»»#(• 




CROSS-* 


REFERENCE 


SYMBOL TABLE 






BAUOH 


0394/59 


0181/59 












BAUDL 


0395/59 


0177/59 












B8133 


0255/05 


0404/05 












B8776 


0095/21 


0012/22 












BBBB 


051//20 


0479/20 












BCKSP 


0160/02 
07i4/ w 3 
0324/05 
0515/16 


0323/02 
0030/04 
0404/06 
0394/19 


0261/03 
0083/04 
0038/07 
0257/21 


0308/03 
0141/04 
0274/10 
0270/21 


0484/03 

0226/05 
0320/10 


0617/03 
0240/05 
0269/U 


0674/03 
026B/*5 
0237/1? 


BDIRU 


0441/57 


0088/57 












BES1 


0036/57 


0045/57 












BES10 


0144/57 


0064/57 


0109/57 










BtSll 


0182/57 


0178/57 












BES12 


0301/57 


0237/57 


0297/57 










BES13 


0307/57 


0J68/57 


0300/57 


0463/57 








BES15 


0120/57 


0315/57 












BES2 


0060/57 


0056/57 












BES3 


0066/57 


0026/57 












BE34 


0073/57 


0313/57 












BES5 


0086/57 


0092/67 












BES6 


0111/57 


0084/57 












BES7 


0116/57 


0089/57 


0097/57 










BES8 


0126/57 


0119/57 












BES9 


0140/57 


0075/57 


0114/57 










BES98 


0317/57 


0246/57 












BES99 


0459/57 


0322/57 












BESC 


0445/57 


0034/57 


0044/57 










BES04 


0450/57 


0062/57 


0099/57 


0142/57 


0197/57 


0221/57 


0224/57 


BE3p5 


0451/57 


0063/57 


0101/57 


0143/57 


0145/57 


0305/57 





##OM 




BESDE 


0453/57 


BESDS 


0443/57 


BESUU 


0449/5/ 


BESEA 


0414/57 


BE8EB 


0418/57 


BESEC 


0422/57 


BESEO 


0426/57 


BESEE 


0430/57 


BESEf- 


0434/57 


BESf- 


0447/57 


BESFA 


0417/57 


BESFb 


0421/57 


BESFC 


0425/57 


BESFU 


0429/57 


BE SHE 


0433/57 


BESFh 


0437/57 


BESI1 


0342/57 


BESI2 


0354/57 


BESIL 


0129/57 


BESIS 


0325/57 


BES1W 


0361/57 


BE3L.N 


U448/57 


BESMf- 


0454/57 


BESOI 


0452/57 


BESUV 


0439/57 


BESP 


0446/57 




1*265/57 



CRUSS-REKERENCt SYMBOL TABLE 

0318/57 0121/57 0308/57 

0215/57 0218/57 02/7/5/ 0335/57 0343/57 

0212/5/ 0274/57 

0057/57 0417/57 

0123/57 0421/57 

0127/57 0425/57 

0355/57 0429/57 

0179/57 0433/57 

0411/57 0437/57 

0030/57 0371/57 0383/57 0396/57 0405/57 

005fc/57 

0124/57 

8128/57 

0356/57 

01B0/57 

0412/57 

0353/5/ 

0331/57 0344/57 0351/57 

0059/57 0125/57 0181/57 10357/57 10413/57 

0169/57 0190/57 0349/57 

0187/57 0196/57 0366/57 

0154/57 0172/57 0185/57 0192/57 

0054/57 0068/57 0118/57 0312/57 

0021/57 0188/57 0309/57 

0320/57 

0032/57 0039/57 0040/57 0042/57 0043/57 0209/67 



• ••### CROSS»REPERENCE SYMBOL TABLE 

bESH 0370/57 0037/57 0041/57 0046/57 0373/57 0397/57 0406/57 

BE3R1 0374/57 0381/57 

bESR2 0396/57 0385/57 

BESR3 0394/57 0403/57 

BESR4 0407/57 0376/57 

6ESR5 0382/57 0409/57 

BESR6 0410/57 0389/57 0391/57 0400/57 

bESRD 0455/57 0232/57 02»2/57 0305/57 

BE8KD 0444/57 0148/57 0281/57 

BPE 0526/28 0436/28 

BFL 0515/28 0435/28 

BINOI 0266/02 0360/13 0381/13 0382/13 0406/13 0414/13 0417/13 

0418/13 0094/14 0387/14 0392/14 

BIN02 0267/02 0363/13 0383/13 0407/13 0415/13 0419/13 0049/J4 

0070/14 0079/14 0095/14 0390/14 

BINOP 0112/02 0268/02 0318/13 0324/13 0330/13 0336/13 0355/13 

0378/13 0045/14 0054/14 0066/14 0075/14 0121/14 0386/14 
0388/14 

BITH 0232 0473/15 0303/32 0121/59 

BIT15 0504 0343/09 0107/11 04U/14 0123/15 0189/15 0207/15 

0217/15 0315/J5 0398/15 0432/l5 0299^8 0452/J9 483/l9 

0527/19 0248/21 0089/27 0092/27 0054/28 0.173/28 0169/34 

0293/34 0397/34 0419/34 0164/35 0234/35 0243/35 0316/35 

0579/35 0596/35 0319/36 0424/36 0110/37 0146/37 0178/37 

0195/38 0224/38 0353/38 0363/38 0442/38 0081/39 0319/39 

0326/39 0462/39 0/01/39 0283/40 0482/40 0362/43 0069/44 

0303/44 0071/48 0348/49 0407/49 0418/49 0256/52 0103/54 

0284/54 0030/56 0036/56 0031/59 0113/59 

BK S 0151 0392/19 0108/30 0443/30 0319/41 0027/42 

BKSPC 0008/26 0156/27 

BLANK 0245/02 0465/05 0483/05 0252/^ »322/lS> ^363/1" 0282/U 

0286/11 0347/H 0390/11 0309/18 0415/19 0475/19 0368/23 

0024/24 0323/25 0385/25 0640/35 0393/36 0345/39 

BLOU 0110/06 0116/06 0119/06 



• M#M CROSS-REFERENCE SYMBOL TABLE 

bL0I2 0114/06 0100/06 0102/06 

tilOlH 0172/02 03b6/02 0270/03 0451/03 0085/06 0121/06 0039/07 

0258/21 0271/21 

bM50/ 0440/57 0318/57 

BREG 0007/02 0683/28 019//29 0507/30 

BREK1 0425/59 0419/59 

BREK2 0447/59 0437/59 

BREK3 0451/59 0449/59 

BRKUG 0455/59 0416/59 0420/59 0464/59 

bRKPN 0478/59 0413/59 0426/59 0431/59 0438/59 0470/59 0473/59 

BRKPO 0477/59 0469/59 0472/59 

BRKSP 0467/59 0417/59 042l/5g 0474/5g 

BS1 0410/02 0169/17 0211/17 0223/17 0227/17 0230/17 0235/17 

0251/1/ 0252/17 fc253/l7 0260/17 0265/17 0275/17 0279/17 

0286/17 W294/17 0301/17 0302/1/ 0308/17 0309/17 0353/1/ 

0355/17 0356/1/ 0361/17 0388/1/ 0392/1/ 0393/17 0411/1/ 

0005/18 0006/18 0007/18 W022/18 0026/18 0050/18 0064/18 
0174/18 

BS2 0411/02 0185/17 0222/17 0226/17 0228/17 0229/17 0234/17 

0245/17 0249/17 0250/17 026i/i7 «266/l7 0267/17 0289/17 

0295/17 0296/1/ 0297/17 0319/1/ 0321/17 03/4/17 0386/17 

0394/17 0399/17 0400/17 0405/17 0415/17 0417/17 0004/18 

0008/18 0010/18 0062/18 0176/18 0274/18 

BS3 0412/02 0197/17 0213/17 0216/17 0218/17 0221/17 0247/17 

0246/17 *268/i7 0278/17 028 /l7 0290/17 029l/l7 0299/17 

0303/17 0305/17 0322/17 0326/1/ 0023/18 0049/18 0054/18 

0063/18 0104/18 0112/16 0246/18 0250/18 

BTMP 0264/02 0421/02 0422/02 0193/20 0194/20 0200/20 0203/20 

BYBY 0541/39 0423/39 

ByE 0052/31 0474/29 0220/30 0311/30 

BYE1 0569/39 0514/39 

BYE2 0414/39 0409/39 

BYE3 0555/39 0551/39 

8YE4 0558/39 0554/39 



»»••«# 



CROSS-REFERENCE SYMBOL TABU 



BYEIO 0572/39 0424/39 0481/39 (3517/39 

BYEM 0576/39 0539/39 

BYEPT 0575/39 0436/39 0497/39 

BYESP 0576/39 0433/39 

BYET 0574/39 0491/39 0495/39 0525/39 0528/39 0531/39 0534/39 



BYETM 0573/39 0458/39 

0470/39 0471/39 

CI 0440/02 0542/15 

0016/16 0016/16 

C2 0442/02 0554/15 

0020/16 0023/16 

CARRD 0319/26 0168/26 

0233/26 0234/26 

0281/26 0262/26 

CARR3 0318/26 0180/26 

0268/26 0270/26 

CARRY 0265/26 0181/26 

CAT 0056/31 0493/28 

CAT00 0017/41 0034/41 

CAT01 0022/41 0032/41 

CATl 0038/41 0187/41 

CAT10 0061/41 0151/41 

CAT11 0204/41 0063/41 

CAT12 0072/41 0066/41 

CAT13 0068/41 0218/41 

CAT15 0079/41 0086/41 

CAT2 0043/41 0041/41 

CAT20 0094/41 0091/41 

CAT21 0102/41 0093/41 

CAT22 0059/41 0265/41 



0460/39 0462/39 0463/39 0465/39 0466/39 

0486/39 0492/39 0506/39 0522/39 

0593/15 0596/15 0603/15 0612/15 0014/16 
0092/16 

0579/15 0594/15 0595/15 0609/15 0013/16 

0027/16 0060/16 

0177/26 0204/26 0205/26 0222/26 0223/26 

0238/26 0239/26 0261/26 0269/26 0271/26 

0292/26 0293/26 

0191/26 0211/26 0244/26 0250/26 0252/26 



0193/26 0213/26 0246/26 0267/26 0272/26 



0257/41 0273/41 
0226/41 
0209/41 
0260/41 



0259/41 



cruss-reference symbul table 



CAT23 

CAT24 

CAT25 

CAT26 

CAT27 

CAT28 

CAT29 

CAT30 

CATC 

CATI 

CATIT 
CATJ 

CATLN 
C A TN 

CATP 

CATU 

CATS 

CATTR 

CATZS 

CBFLtt 

CC 



0077/41 

0188/41 

0198/41 

0199/41 

0197/41 

0227/41 

0180/41 

0158/41 

0238/41 

0233/41 

0247/41 

0235/41 
0179/41 



00/2/41 

0132/41 0134/41 



0136/41 0138/41 0202/41 



0194/41 

0196/41 

0191/41 

0224/41 

0186/41 

0164/41 

0078/41 0085/41 

0054/41 0204/41 0206/41 

0246/41 

0016/41 0033/41 0048/41 
0181/41 0184/41 



0239/4* 0189/41 0200/41 



CC1 
CC2 



0236/41 
0176/41 

0234/41 
0089/41 
0148/41 

0237/41 

0240/41 

0246/41 

0241/41 

0523 

0270/02 
0110/23 
0339/24 
0094/25 
0365/25 

0271/02 

0272/02 



0019/41 0031/41 0046/41 
0185/41 

0059/41 0061/41 0064/41 

0095/41 0103/41 0112/41 

0149/41 0261/41 



0155/41 0160/41 0161/41 



0150/41 0157/41 0163/41 



0079/41 0080/41 0083/41 
0121/41 W123/41 0127/41 



0057/41 0062/41 0213/41 

0021/41 0023/41 0027/41 0030/41 

0020/41 

0125/41 0192/41 0197/41 

0228/39 0443/50 



M026/23 0034/23 0039/23 

0111/23 0113/23 0116/23 

0013/25 0014/25 0025/25 

0105/25 0117/25 0125/25 



0060/23 0078/23 0079/23 

0126/23 0127/23 0324/24 

0041/25 0065/25 0093/25 

0127/25 0137/25 0363/25 



0042/23 0328/24 0053/25 0061/25 0116/25 0123/25 
0043/23 0065/25 00/3/25 0084/25 0091/25 



CrOS3«rEF&rENCE SYMBOL TA6UE 



CCC 
CCCC 
CDFUti 
CFUAG 

CHi 

CH2 



0055/21 0029/21 

0516/20 0483/20 

0349/02 0339/03 0347/03 

05U 0190/03 0083/07 0385/07 

0039/36 0023/40 0015/45 

0031 0458/26 0426/28 0451/28 
0458/32 0179/49 0462/49 

0032 0410/19 0412/19 0363/26 
0466/26 0559/26 0308/28 0310/28 
0400/28 0204/29 U2U/29 0457/29 
0428/30 0430/30 0460/32 0461/32 
0578/32 0579/32 0611/32 0633/32 
0549/39 0005/43 0007/43 0223/45 
0423/45 0425/45 0098/47 0100/47 
0274/48 0633/48 0635/48 



0238/21 0004/33 0533/33 



0464/28 0581/28 0213/29 



0460/26 
0404/26 
0459/29 
0462/32 
0157/33 
0226/45 
0261/48 



0461/26 
0406/26 
0011/30 
0464/32 
0159/33 
0412/45 
0263/48 



0465/26 
0407/28 
0013/30 
0570/32 
0547/39 
0414/45 
0272/48 



CHA„ 

CHAl 

CHA10 

CHA2 

CHA2E 

CHA3 

CMA4 

CHA 5 

CHA6 

CHA7 

CHAC 

CHAD 

CHAI1 

CHAX& 



0132/49 0105/49 0110/49 0153/49 

0034/49 0039/49 

0113/49 0076/49 0086/49 0092/49 0151/49 

0041/49 0035/49 

0051/49 0041/49 

0057/49 0038/49 

0073/49 0089/49 

0097/49 0063/49 0078/49 0088/49 

0091/49 0083/49 

0135/49 0154/49 

0158/49 0072/49 0081/49 

0j59/49 0j4l/49 0J45/49 

0157/49 0059/49 0069/49 0097/49 



0156/4 9 0058/49 0065/49 0066/49 
0074/49 0079/49 0080/49 0084/49 
0134/49 0142/49 0*49/49 



0067/49 0068/49 0070/49 
0099/49 0106/49 010//49 



CHAN0 0392/35 0379/35 



>##### CRUS8»RfcFENENCfc SYMBOL TABLE 

CHAN2 0446/35 0432/35 

CHAN3 0451/35 0435/35 

CHAN4 0465/35 0*23/35 

CHAN5 0474/35 0469/35 

CHAN6 0634/35 0629/35 

CHAN7 0655/35 0480/35 0489/35 0495/35 0545/35 0593/35 

CHAN8 0638/35 0650/35 

CHAN9 0642/35 0623/35 0631/35 

CHANS 0292/05 0537/05 

CHEB1 0195/20 0211/20 

CHE82 0212/20 0199/20 

CHLIb 0120/31 0015/12 

CHN00 0411/35 0415/35 

CHN01 0377/35 0391/35 

CHN10 0513/35 050J/35 

CHNU 0546/35 0535/35 0540/35 

CHN12 0594/35 0576/35 

CHN13 0599/35 0588/35 

CHN14 0490/35 0485/35 

CHN15 0589/35 0598/35 

CHN16 0651/-35 0565/35 

CMN17 0405/35 0399/35 

CHN18 0537/35 0532/35 

CHN19 0541/35 0536/35 

CHNC 0667/35 0569/35 0591/35 

CHNQ 0669/35 0554/35 0574/35 

CHNOi 067W/35 0557/35 0658/35 



»»••»» 




CHNDP 


0658/35 


CHNFG 


0519 


CHNI 


0666/35 
0605/35 


CHNLN 


0668/35 


CHNP 


0664/35 
0651/35 


CHNPD 


0665/35 


CH0U1 


0037/22 


CHOUF 


0180/02 
0306/22 


CHRCT 


0244/02 
0025/19 
0378/19 


CHRS1 


0466/05 


CHRS2 


0476/05 


CHRS3 


0480/05 


CHR3T 


0040/02 


CHS 


0544/33 


CLAOR 


0838/26 


CUC0 


0656/28 


CLCl 


0666/28 
0716/32 


CLC2 


0671/28 


CIF0 


0445/26 


CLKDR 


0264 


CLKED 


0682/28 


CUKIN 


0648/28 


CLN1 


0g07/28 


CLN1P 


0240/28 



CROSS.RfcFERENCE SyMBOL TABCE 

0580/35 

0307/09 0483/16 0474/33 0618/35 

0394/35 0405/35 0486/35 0599/35 
3607/35 

0525/35 0573/35 

0373/35 0400/35 0408/35 0414/35 
0652/35 



0643/35 

0600/35 0604/35 

0558/35 0560/35 



0481/35 0549/35 

0030/22 

0331/02 0035/22 003 6 /22 0039/22 0040/22 0301/22 



0296/10 0077/11 0388/U 0216/12 
0067/19 0177/19 0329/19 0340/19 
0442/19 0470/19 0518/19 0460/21 



0229/12 0414/16 
0350/19 0373/19 
8225/25 0339/25 



0479/05 

0473/05 

0467/05 0470/05 

3386/02 0402/03 0185/05 0286/05 0480/05 0484/05 

0283/59 

0192/28 

0651/28 

0363 0657/28 0679/28 0164/29 0377/30 0511/30 

0367 0163/29 

0406/26 

0037 0564/26 

0555/26 

0264 0541/26 0555/26 0670/28 0t80/28 0715/32 

0189/26 0220/28 0240/26 
0200/28 



#####* CROSS-Nt.FERF.NCE SYMBOL TABLE 

CLN2 0224/26 0210/28 

CLN3 0230/28 0226/28 

CCNB 0237/28 0183/28 0224/28 

CLNU1 0180/28 0085/28 0092/28 0122/28 0141/28 0161/28 0234/28 

CLNUP 0189/03 0238/03 

CLOCK 0037 0367/26 0388/26 0467/26 0669/28 0682/28 0202/2 9 
0203/29 

CLTOG 0239/28 ^194/28 

CM507 0509/56 0496/56 

CMA 0056 0420/28 0449/28 

CMB 0057 0421/28 0450/28 

CME 0058 0425/28 0445/28 

CMP00 0081/07 0067/07 0397/36 

CMP01 0122/07 0128/07 

CMP02 0129/07 0126/07 

CMP03 0147/07 0164/07 

CMP04 0169/07 0161/07 

CMP05 0186/07 0194/07 

CMP06 0198/07 0190/07 

CMP07 0205/07 0197/07 

CMP08 0208/07 0215/07 

CMP09 0216/07 0200/07 0214/07 

CMP10 0324/^7 ia2/7/07 0310/07 ^453/07 

CMPU 0330/07 0172/07 0184/07 

CMP12 0339/07 0336/07 

CMP13 0370/07 0363/07 

CMP14 0060/07 0348/39 

CMP15 0044/07 0037/07 



CMP16 


0078/07 


CROSS* 
W7^n7 


REFERENQ 


CMP17 


0344/07 


0080/07 




CMP18 


0360/07 


M77/V7 




CMP41 


0274/07 


0238/07 




CMP91 


0308/07 


0304/07 




CMPta 


0065/07 


0023/12 




CMPH 


0181/07 


0219/07 




CMPU2 


0221/07 


0202/07 


0212/07 


CMPt3 


0226/07 


0174/07 




CMP1.4 


0259/07 


0240/07 




CMPL5 


0265/07 


0262/07 




CMPU6 


0281/07 


0229/07 




CMPL7 


0290/07 


0106/08 




CMPU8 


0295/07 


0287/07 




CMPL9 


0301/07 


0231/07 


0234/07 


CMPUE 


0030/07 


0109/31 




CMTBt 


0432/28 


0429/28 




CqEF0 


0384/20 


0365/20 




COEFl 


0438/20 


0414/20 




C0EF2 


0324/20 


0317/20 




COH1 


0024/31 


0407 


0911/29 


comh 


0516 
0363/30 


0462/28 
0155/33 


0506/28 
0477/33 


COM2 


0031/31 
0620/28 
0221/30 


0352/07 
0141/29 
0297/30 


0073/27 

0325/29 
0311/30 


COM3 


0040/31 
0118/31 
0439/57 


0490/28 
0119/31 


0557/28 
W120/31 



0637/29 0130/30 0025/31 

0533/26 M546/28 0571/28 0259/29 
0132/51 

0490/28 0493/28 0500/28 0557/28 

0511/29 0526/29 0197/30 0220/30 
0312/30 

0526/29 0537/29 0221/30 0312/30 

0121/31 B351/36 0614/44 0606/56 



****** CROSS^HEFERfcNtE SyMBOL TABLE 

CUM4 0074/31 0130/30 

COMt> 01feJ&/31 0409 0635/28 0511/29 0537/29 0118/31 

C0M6 0118/31 0008 0303 0626/28 0119/31 0120/31 0121/31 

0/26/32 0351/36 0415/43 0614/44 0258/47 0126/52 0579/52 

0580/52 0506/56 0439/57 

COMCH 0045/31 0120/31 

COMFL 0043/31 *Hl9/3l 

COMMA 0479/04 0353/03 0593/03 0631/03 0662/03 0692/03 0040/04 

0U65/04 00/9/04 0097/05 0295/05 0320/05 0332/05 0339/05 

W361/05 0368/0b 0375/05 

COMQP 0433 0432/06 0237/07 0303/07 0438/07 0038/08 0264/08 
0487/21 

COMP1 0124/14 0120/14 

C0MP2 0135/14 0150/14 

CQMP3 0139/14 0136/14 

COMP4 0142/14 0138/14 

C0MP5 0145/14 0155/14 0164/14 

C0MP6 0151/14 0143/14 

CQMP7 0156/14 0153/14 

COMPK 0096/02 0412/02 0457/ 2 0005/14 0012/14 00l7/j4 tf 24/ t 4 

0031/14 0038/14 0123/14 0149/14 

COMPT 0369/02 0405/08 0448/08 0451/08 0084/09 0101/09 0125/09 

0134/09 0135/09 0136/09 0137/09 0138/09 0139/09 tf l40/09 

0141/09 0151/09 0152/09 0158/09 0214/09 0217/09 0223/09 

0233/09 0238/09 0239/09 

COMS 0339/03 0355/03 0517/05 

COMS0 0345/03 0257/05 

COMS1 0349/03 0345/03 

COMSN 0367/02 0023/08 0040/y0 0042/08 

COMTt 0123/31 0416/43 0259/4; 05/9/52 

CONjr 0273/02 0040/23 0063/23 0210/25 

COP0 0046/56 0042/56 



CROSS«REFERENCfc 3YMBUL TA8LE 

0023/56 0019/56 

0086/56 0097/56 

0165/56 0147/56 

0241/56 0529/56 

0287/56 0265/56 0308/56 

0293/56 0269/56 

0304/56 0285/56 

0310/56 0291/56 

0098/56 0074/56 0088/56 0095/56 

0327/56 0313/56 

0334/56 0355/56 

0340/56 0336/56 

0102/5$ 0093/56 

0117/56 0113/56 

0120/56 0153/56 

0142/56 0150/56 

0191/58 0130/56 0135/56 

0155/56 0538/56 

01*0/56 0162/56 

0495/56 0186/56 

0525/56 0500/56 

0505/56 0322/56 0367/56 

0514/56 0139/56 0149/56 0171/56 0271/56 0294/56 0297/56 

0302/56 0332/56 0335/56 0387/56 0396/56 

COPD 0521/56 0127/56 0128/56 0137/56 0260/56 0280/56 0282/56 
0289/56 

COPOfc 0449/56 0321/56 0325/56 0*66/56 0370/56 

COP0J- 0522/56 0119/56 0152/56 0169/56 0267/56 



COP00 


COP1 


COP10 


COPU 


C0P14 


C0P15 


COP 16 


CQP17 


C0P2 


COP20 


C0P21 


COP22 


COP3 


C0P4 


COPS 


C0P6 


COP7 


C0P8 


C0P9 


C0P98 


C0P99 


COPAP 


COPC 



CROSS*REFERENCE SYMBOL TA8U 



COPOi 0516/56 63053/56 0056/56 0349/56 0354/56 0504/56 

COPDR 0519/56 0050/56 0311/56 

COPOS 0512/56 0173/56 0217/56 0343/56 0348/56 0505/56 

COPDU 0517/56 0103/56 

COPEA 0463/56 3402/56 0466/56 

COPEb 0467/56 0099/56 0470/56 

COPEC 0471/56 0114/56 04/4/56 

COPED 0475/56 0156/56 0478/56 

COPEE 0479/56 0161/56 0402/56 

COPEF 0483/56 0043/56 0486/56 

COPEb 0487/5$ 0020/5<> 0490/5$ 

COPEH 0491/56 0450/56 0494/56 

COPF 0518/56 0105/56 0251/56 0253/56 0383/56 0409/56 0421/56 

0434/56 0444/56 

CQPFA 0466/56 0403/56 

COPFb 0470/56 0100/56 

COPFC 0474/56 0115/56 

COPFD 047b/b6 0157/56 

COPFE 0482/56 0162/56 

COPFh 0486/56 0044/56 

COPFG 0490/56 0021/56 

COPFH a494/ 5 6 04^1/56 

COPI 0510/58 0184/56 0224/56 0226/56 0228/56 

COP11 0388/56 0397/58 

C0PI2 0401/56 0427/56 0429/56 

COPIL 0452/56 0022/56 0045/56 0101/56 0116/56 0158/56 0163/56 
0404/56 

COPIN 0375/56 0009/56 0014/56 0400/56 



CRU8S«RtFERENCE SYMBOL TABU 



CQPIP 0504/56 0363/56 

COPLN 0520/56 10066/56 0107/56 01*5/56 0166/56 0252/56 0299/56 

0314/56 0329/56 

COPOV 0506/56 0496/56 

COPP 0515/56 0028/56 0031/56 0032/56 0034/56 0037/56 0036/56 

0047/56 0205/56 0333/56 0337/66 0376/56 0395/56 0391/56 

0392/56 0394/56 0395/56 

COPPT 0502/56 0013/56 0026/56 0068/56 0177/56 

COPR 0408/56 0389/56 0393/56 0398/56 0411/56 0435/56 0445/56 

CQPR1 0412/56 0419/56 

C0PR2 0436/56 0423/56 

C0PR3 0432/56 0441/56 

C0PR4 0442/55 0430/56 

C0PR5 0446/56 0414/56 

C0PR6 0420/56 0448/56 

COPRW 0359/56 0338/56 0342/56 03/1/56 

COPS 0511/56 0024/56 0195/56 0200/56 

COPWO 0513/56 0059/56 0221/56 

CORE 0138/26 0045/26 0083/26 0105/26 0165/26 0492/26 

COuN T 0344/02 0204/06 0214/06 036g/06 0370/06 

CP0 0467/02 0129/14 0135/14 

CP1 0468/02 0132/14 0151/14 0156/14 

CPLCA 0508/56 0124/56 

CPLNA 0507/56 0123/56 

CRLF 0457/33 0758/32 0007/33 0117/45 

CSAV 0047/31 0352/07 0496/29 

CSAV1 0398/36 0386/36 

CSAV2 0401/36 0008/07 



>»#»## CHUSS-KEf-ERENCE SYMBOL TABLE 

CSAV3 0438/36 0443/36 

C8AV4 0418/36 0411/36 

CSVRT 0008/07 0363/07 

CTAPK 0036/31 0447/29 

CTEMP 0630/28 0649/28 0660/28 0668/28 0712/32 

CTMP 0474/02 0J89/20 0195/20 0196/20 0197/20 0209/20 

CU1 0331/02 0518/06 0525/06 

CUS1A 0507/06 0486/06 0491/06 

CUSP 0076/02 0497/06 0526/06 0128/08 0205/08 0443/08 0019/09 

0060/09 0197/09 0251/09 0361/09 to290/13 0447/14 

CUSP1 0523/06 0507/06 

000b/23 0191/23 001^/24 

0100 0343 0500 0259/04 0293/06 0348/16 

Dllll 0250/05 0190/05 

0133 0256/05 0344/06 

D36K 0403 0041/20 0128/32 0202/32 0368/39 0493/39 0359/49 

D53 0259/05 0294/06 

0577 0251/05 0120/04 

060 «419 0088/29 0071/39 0365/39 0464/39 0490/39 0552/43 

0302/49 0356/49 

D600 0252 0043/20 0130/32 0204/32 0076/39 0369/39 0469/39 

0494/39 VJ557/43 *307/49 0360/49 

062 0093/21 0393/21 

065 0006/17 0039/17 

066 0004/12 0400/12 

072 0210 0211 0327/06 

OADDK 0137/26 0044/26 0118/26 0217/26 0224/26 0228/26 0487/26 

0493/26 0686/32 

DAOLC 0083 0157/31 0160/31 0011/33 0100/36 0349/36 0076/43 

0414/43 0256/44 0616/44 0257/47 0313/47 0108/52 0578/52 



****** CROSS«R£FERENCE SYMBOL TABLE 

0126/56 0508/56 

UADLN 0084 0157/31 0100/36 0350/36 0075/43 0418/43 0256/44 

0617/44 0262/47 0313/47 0126/56 0507/56 

DADRR 0459/02 0307/15 0336/15 0345/15 0356/15 

DALCA 0616/44 0254/44 

DALNA 0617/44 0253/44 

UASCC 0274/45 0213/46 

OASCf" 0275/46 0208/46 

0A8CP 0276/46 0221/46 

DASCS 0277/46 

DATAl 0582/03 0604/03 

DATA2 0591/03 0600/03 

DATA3 0596/03 0583/03 

DATA4 0801/03 0678/03 0501/03 

DATAs 0871/03 0595/03 0530/05 

DATE 0084/33 0091/33 0145/33 0301/34 0166/35 0548/35 0199/36 

0368/37 0161/38 0291/38 0332/44 0207/56 0267/57 0260/58 
0293/58 

DATIM 0092 0040/20 0045/20 0050/20 0650/28 0653/28 0654/28 

0102/32 0127/32 0100/32 0201/32 0373/32 0065/33 0083/35 

0203/36 0371/37 0066/39 0238/39 0361/39 0367/39 0459/39 

0485/39 0547/43 0071/44 0335/44 0297/49 0299/49 0351/49 

0498/49 0211/56 0271/57 

DATLN 0105 0235/43 0377/43 0483/47 0081/48 0123/54 

DATOP 0377 0082/08 0040/12 

DBLNK 0823/11 0404/H 0518/11 

DBY10 0056/02 0109/19 0116/19 0160/22 0319/22 0340/22 0249/25 
0262/25 

DCCNT 0388/02 0050/12 0114/12 0120/12 0123/12 0135/12 0150/12 

0151/12 0174/20 

DCFLC 0373/02 0270/08 0294/08 

DCHAN 0139/26 0068/26 



»»#»##• 



CRQSS-KEf-ERENCt SYMbOL TABLE 



DCUC1 0363 0458/07 0473/07 

04/4/16 0*77/16 0408/19 

0402/26 0412/28 0264/32 

0071/33 04U/33 0480/33 

0280/49 

UCLC2 0367 0472/07 0304/09 

0280/32 0070/33 0200/49 



0302/09 
0414/19 
0278/32 
0474/44 



030b/09 
0024/28 
0281/32 
0182/49 



0S66/11 
0182/28 
0411/32 
0201/49 



0571/11 
0399/28 
0066/33 
10245/49 



0570/li 0476/16 0413/19 0409/28 
0279/49 



UCMP1 0413/07 0423/07 

DCMP2 0428/07 0406/07 

DCMPj 0454/07 0397/07 0416/07 0444/07 0094/08 

UCMP4 0458/(67 0390/07 

DCMP5 0471/07 0461/07 0463/07 

UCMP6 0441/07 0437/07 



OCMPL 0072/02 0304/02 ®247/03 

0296/07 0325/^7 0337/v)7 

0228/08 0459/^8 0063/09 

0621/39 0446/43 

DCUM0 0257/05 0424/05 

UC0M6 0626/28 0316/30 

DCRI.F 0314/26 0162/26 0260/26 

OCTK 0490/02 0277/24 0283/24 

DDOD 0519/20 0487/20 

DDtRL 0073/32 0240/33 

UDERR 0236/33 0033/47 0074/46 

0287/52 0092/53 0099/53 

0316/54 0030/55 

UEAU 0138/28 0142/28 0426/32 

UEAOA 0426/32 0026/32 0057/32 

DEADM 0146/26 0140/28 

UEAUP 0019/33 0108/33 022 8 /36 

0161/37 0183/37 0218/37 

0374/44 0328/50 0459/50 

0320/51 0376/51 0384/51 

0460/52 0179/55 0255/55 



0523/06 0221/0 7 0249/07 2 63/07 
0342/07 0474/07 0048/08 0064/08 
0168/09 0255/34 0045/36 0319/38 



0290/24 0294/24 0303/24 0311/24 



0085/48 0551/51 0172/52 
0106/54 0137/54 0195/54 



0707/32 0019/33 
0064/32 



0238/52 
0267/54 



0243/36 
0301/37 
0101/51 
0394/51 
0271/55 



0114/37 
0463/37 
0144/51 
0410/51 
0294/55 



0127/37 
0537/37 
0198/51 
0419/51 
0305/55 



0151/3/ 
0360/44 
0253/51 
0390/52 
0412/55 



****** Cross-reference symbol table 

0236/56 0249/56 0858/56 0365/57 0407/58 0470/58 0483/68 

0504/56 0523/56 0560/58 

DEATH 0022 0315/36 

UEFNN 0509/37 0075/37 0496/37 0497/37 

DEFQP 0293/02 0282/07 

OEFS 0361/03 0520/05 

DEH 0389 0147/29 0222/33 0203/49 

DEL2 0442/43 0439/43 

DEL3 0468/43 0461/43 

DEL4 0482/43 0470/43 

DEL6 052^/43 0505/43 0508/43 

DEL7 0498/43 0518/43 

DEL99 0528/43 ®434/43 0460/43 

UELM 0525/43 0433/43 0443/43 0451/43 

DELMX 0529/43 0510/43 

OELN 0526/43 0437/43 0458/43 

DELNM 0496/43 0432/43 0436/43 0522/43 

OELP1 0500/05 0506/05 

DELP2 0507/05 0501/05 

PELPR 0064/02 0413/02 0214/03 0509/06 0585/05 

DEL8T 0207y03 0274/03 

PELT 0527/43 0499/43 0509/43 0513/43 0515/43 0520/43 

DENO 0094/26 0050/26 

DENOl 0095/26 0126/26 

DEN02 0090/26 0133/26 

OENRT 0595/28 0541/28 

OEqI 0452/30 0457/30 

0EQ2 0458/30 0453/30 



CROSS*REFEHENCE SYMBOL TABLE 



DEQut 0450/30 0522/27 0301/29 03b3/29 0200/30 0456/30 0460/30 

0721/32 0161/bl 

DESl 0042/58 0036/66 

UES2 0051/58 0047/66 

0ES3 0066/58 0056/58 

DE34 0093/50 0105/58 

DES5 0102/58 0098/58 

DES6 0141/58 0129/58 

0ES7 0148/58 0066/58 0140/58 

DESCT 0234/58 0086/58 0104/58 

DESDw 0198/58 0065/58 0116/58 0207/58 

UE8EA 0213/58 0038/58 0216/58 

UESEB 0217/58 0142/58 0220/58 

UEStC 0221/58 0048/J>8 0224/58 

0E3EU 0225/58 0167/58 0228/58 

DESFA 0216/58 00J9/58 

PESFB 0220/58 0143/58 

DESEC 0224/58 0049/58 

DESFO 0228/58 0166/58 

OESIL 0169/58 0040/58 0050/58 0101/58 10144/58 

UESIP 0186/58 0020/58 0022/58 0024/58 0194/58 

DESLA 0233/58 0190/58 0193/58 

DESLB 0235/58 0082/58 0096/58 0100/58 0115/58 0230/58 

UESLP 0230/58 0131/58 

DtSRA 0231/58 0088/58 

OEST 0327/02 0421/06 0434/0© 0442/06 0443/06 0447/06 04^2/06 

0453/06 0494/06, 0495/06 0464/07 0469/07 0080/10 0083/10 

0173/16 0192/16 k)248/16 W258/16 0263/16 0273/16 0277/16 

W289/16 0290/16 



*###•• CROSS-REFERENCE SYMBOL TABU 

DFAIL 0140/20 0072/2© 0130/26 

OFCHK 0518 0366/09 0313/29 0357/29 0234/32 0343/32 0397/35 

0186/49 0260/49 

OFCNT 0446/32 0295/32 0309/32 0315/32 0330/32 0352/32 

DFJUT 0248 0020/08 »5l7/33 0124/34 0434/36 

DFLAG 0528/04 0298/03 0340/03 0032/04 0126/04 003/Z05 003g/05 

0057/05 0066/05 0072/05 0073/05 0086/05 

DFNAM 0422/32 0296/32 0316/32 

DGCNT 0325/02 0301/19 0316/19 

DICCK 0042/02 0445/02 0409/05 0101/06 0329/08 0332/06 0334/06 

0335/06 0071/22 0129/22 0134/22 0143/22 0148/23 0159/23 
0174/23 

OICCT 0310/02 0123/19 0133/19 0187/19 0204/19 0208/19 0229/19 

0240/19 0324/21 0327/21 054 /21 0843/21 

UIHOP 0365 0305/07 0436/07 0266/08 §405/21 

DIMS 0333/03 0519/05 

DINT 0079/26 0268 0047/26 0097/26 0535/26 0549/26 0684/32 

DINTl 0086/26 0062/26 

DINT2 0123/26 0065/26 

DINT3 0125/26 0067/26 

DIR0S 0272/46 0125/46 0144/46 

DIR1 0266/46 0034/46 

DIR2 0051/46 0239/46 

DIR3 00Q0/46 0059/46 02^9/46 

DIR4 0106/46 0090/46 

DJR5 0210/46 0207/46 

DIR6 0216/46 0209/46 

DIR7 0163/46 0140/46 

DIRS 0063/46 0294/46 



##»M# CROSS-REFERENCE SYMBOL TABU 

DIR9 0085/46 0060/46 

DIRCi 0139/03 0115/03 0127/03 

DIRC2 0140/03 0113/03 0120/03 0126/03 

DIRC3 0117/03 0128/03 

DIRC4 0130/03 0124/03 

0IRC5 tfl4l/fc)3 011&/03 0117/03 0125/03 

DIRCM 0112/03 00 3 0/0 3 0067/0J 0087/03 «097/03 0129/03 0I3I/03 

0132/03 0520/37 

DIRCS 0520/37 0331/37 0343/37 

OIRDL 0135/03 0020/03 

0IREC 0004/03 0679/32 0517/37 04I2/43 0255/47 0455/51 0096/b2 

0575/52 0581/52 0527/54 0579/58 

OIREL 0005/03 0135/03 0518/37 0456/51 

DIREU 0006/03 0519/37 0413/43 0256/47 0582/52 0528/54 0441/57 
0580/58 

DIRFM 0250/46 0075/46 

OIRFX 02/1/46 0100/46 

OIRMS 0270/46 0098/46 

UIRNI 0028/4$ 0022/46 

DIRNM 0243/46 0103/46 0127/46 0133/46 0150/46 0160/46 0169/46 

0175/46 01/8/46 0194/46 0197/46 0249/46 

DIR30 0273/46 0157/46 

OIRSO 0262/46 0251/46 *260/46 0265/46 0265/46 

DIRSR 0265/46 0255/46 0258/46 

UIRWA 0425/32 0333/32 0337/32 0366/32 

UIkWU 0133/03 0041/03 0043/03 0425/32 0009/33 

DIRwP 0009/33 0254/34 0262/34 0313/34 0509/34 008 2 /35 0^07/35 

0110/35 0114/35 0118/35 01/1/35 

DlgCA 0108 0171/03 0218/15 0494/15 0507/35 0581/35 0159/36 

0304/36 0116/38 0197/38 0355/38 k>535/57 0674/57 0075/58 
0133/58 



CROSS-REFERENCE SYMBOL TABI.E 



OISCB 

DI3CZ 

DKTBL 
OLCHR 
DUK9A 
DLK9P 
DU9Q 

01.010 
OL0K1 

DL0K2 
DL0K3 
0L0K4 
DL0K5 
0L0K6 
DU0K7 
DL0K8 
DU0K9 
DLOKA 
OLOKB 
OLOKP 



DLOOK 



OLjEM 



0109 

0118 

0032/47 

0106/54 

0096 
0341/33 

B424/32 
0558/34 

0352/35 

0142/03 

0028/03 

0025/03 

0021/03 

0063/03 

0072/03 

0075/03 

0092/03 

0096/03 

0102/03 

0423/32 

0049/03 

0000/33 
0071/38 
0500/44 
0242/57 

0019/03 
0680/32 

0287 

0190/36 

0573/41 

0563/45 

U198/56 



0321/39 
0073/48 
0136/54 



0255/33 

0340/32 
0318/34 
0121/35 

0054/03 

0024/03 

0031/03 

0027/03 

0042/03 

0068/03 

0094/03 

0088/03 

0005/03 

0048/03 

0325/32 

0045/03 

0249/34 
0252/39 
0051/46 
0501/57 

0069/03 
0008/33 

0029/03 
0330/37 
0695/42 
0030/47 

0031/57 



0492/42 0364/43 0380/43 0440/44 
0084/48 0408/4* 0420/49 0091/53 
0029/55 0148/55 0324/56 0365/56 



0177/35 

0102/03 



0089/03 



0424/32 0558/34 0352/35 



0076/35 
0627/39 
0018/56 
0035/58 



0101/35 
0052/41 
0181/56 
0257/50 



0478/35 
0359/41 
0055/57 



0l73/3 e 
0056/44 
B074/57 



0065/03 
0342/37 
0707/42 
0072/48 
0258/57 



0083/03 
0361/37 
0029/44 
W 104/50 



0410/35 
0017/38 
0114/44 
0365/50 



0459/35 
0697/39 
0322/44 
0006/56 



0560/44 
0207/53 
0369/56 



0313/3 6 
0305/44 
0167/57 



0070/03 0090/03 0098/03 0100/03 0423/32 



0165/36 
0173/41 
0551/45 
0175/56 



CRQSS«REFEREnCE SYMBOL TAS^E 



DMA 0030 0069/26 (0094/26 

0124/26 0359/26 0603/32 
13612/32 

DqNEA am7/V7 (.3032/07 0057/07 

OP 0274/02 0028/23 0051/23 

0102/23 0107/23 0131/23 

0168/23 0172/23 0210/23 

0022/25 0026/25 0067/25 

0134/25 0352/25 0362/25 

DPFLG 0275/02 0064/22 0066/22 

0295/23 10061/24 0074/24 



0106/26 0107/26 0111/26 0112/26 
0605/32 0607/32 0608/32 0010/32 



0068/23 0072/23 0077/23 0082/23 

0134/23 0139/23 0153/23 0167/23 

0214/23 0341/24 0001/25 0017/25 

0097/25 0102/25 0119/25 0126/25 

0364/25 0395/25 

0152/22 0085/23 0194/23 0220/23 
0093/24 



0262/26 0687/32 
0236/26 0283/26 



OK, 66 0316/26 0159/26 

0K8NM 0286/26 *52j,l/2b 0255/26 02b8/26 0294/26 

OrA0s 0312/26 0221/26 

URA1 0174/26 0156/26 

DRA2 0180/26 0l7l/26 

URA3 0190/25 0187/26 

DRABb 0311/26 0203/26 

DRAIL 01§2/26 W093/2& 0154/26 

DRANM 0275/26 0207/26 0227/26 

DRAS0 0313/26 0232/26 

DRATS 0143/2g 0074/2 6 0091/26 0129/26 0247/2 6 025 6 /2 6 

DrSIs 0309/26 0165/26 

DROP 0298/26 0297/26 

URDFP (?297/26 0169/26 

t>RDOT 0310/26 0237/26 

URUR 0300/26 0299/ 2 6 

DRDRP 0299/26 0178/26 

OREDP 0112 0515/26 

DRIVE 0099/2$ 0061/26 0075/26 0101/26 0104/2e 0l3l/2e 



#####» 




CrQ§3« 


REFERENCE 


SYMBOL TABLE 






DRMER 


012«/26 


0063/26 


0089/26 










DRRE 


0302/26 


0301/26 












DRREP 


0901/26 


0188/26 












DRSA 


0306/26 


0305/26 












ORSAP 


030S/26 


0210/26 












DR3T 


0308/26 


0307/26 












DRSTP 


0307/26 


0243/26 












DRUM 


0455 


0208/J5 


0485/15 


0353/16 


0494/26 


0244/30 


0288/30 




0326/30 


0187/33 


0364/38 


0027/50 








DRUML 


0186/33 


0136/03 


0105/28 


0416/32 


0749/32 


0068/33 


0107/33 




0193/33 


0195/33 


0379/33 


0390/33 


03i7/34 


0336/34 


0433/34 




0120/35 


0176/35 


0184/35 


0262/35 


0564/35 


0597/35 


0058/36 




0108/36 


0227/36 


0242/36 


0250/36 


0292/36 


0325/36 


0370/36 




0113/37 


0126/37 


0180/37 


0160/37 


0182/37 


0217/37 


0300/37 




0462/37 


0536/37 


0178/38 


0225/38 


0315/38 


0021/39 


0038/39 




0096/39 


0114/39 


0327/39 


0429/3$ 


0449/39 


.0513/39 


0677/39 




0722/39 


0752/39 


0771/39 


0765/39 


0792/39 


D807/39 


0813/39 




0223/41 


0381/41 


0064/42 


0109/42 


0081/44 


M264/44 


0359/44 




0373/44 


0379/44 


0416/44 


0620/44 


0626/45 


0682/45 


0074/46 




0693/48 


0731/48 


0027/49 


0118/49 


0261/49 


0320/49 


0370/49 




0119/50 


0327/50 


0498/50 


0067/51 


0100/51 


0143/61 


0197/51 




0252/51 


0319/51 


0375/51 


0383/51 


0393/51 


0409/51 


0416/51 




0550/51 


0605/51 


0171/52 


0237/52 


0266/52 


0302/52 


0334/52 




0389/52 


0459/52 


0098/53 


0213/53 


0194/54 


0268/54 


0315/64 




0534/54 


0178/65 


0254/55 


0270/55 


0293/55 


0304/55 


0411/55 




0062/56 


0134/56 


0236/56 


0248/56 


0257/56 


0264/56 


0307/56 




0320/56 


0526/56 


0107/57 


0203/57 


0236/57 


0296/57 


0339/57 




0364/57 


0460/57 


0556/57 


0589/57 


W636/57 


£645/57 


0656/57 




0686/57 


0089/58 


0128/56 


0153/58 


0162/58 


0209/58 


0269/58 




0308/58 


0406/58 


0469/58 


0482/58 


0503/58 


0522/58 


0559/58 


DRUMP 


0416/32 
0274/32 


0485/31 
0339/32 


0494/31 
0393/32 


0025/32 


0056/32 


0063/32 


0256/32 


DRUMS 


0105/28 


0473/27 


0491/27 


0059/20 


0076/29 






DRUM* 


0136/03 


0047/03 


0057/03 










DRWR 


0304/2$ 


0303/26 












OrWrp 


0303/26 


0190/26 












OSAVE 


0141/26 


0061/26 


0095/26 










DSCEU 


013^/26 


0549/26 


0573/26 











•#•### CRUSS-REFErENCE SYMBOL TABU 

DSCH/ 0421/32 0413/32 

USCST 0054/26 0490/26 057j/26 05/4/26 

DStRA 0122/31 0009/15 

DSERR 0009/15 0341/16 

DSRCH 0214/02 0047/23 0083/23 0132/23 0018/25 0086/25 0098/25 

4120/25 0130/25 0357/25 0359/25 0361/25 0367/25 

DSTV2 0265/47 0080/48 

DSYID 0429/32 8092/32 0161/32 

OTAPR 0447/29 0481/29 

DTEMP 0142/26 0058/26 0114/26 

DTLl 0208/02 0404/23 0144/24 0241/24 0156/2& 026 /25 

UTL10 0257/25 0265/25 

UTMP 0265/02 0423/02 0424/02 0191/20 0202/20 0210/20 0212/20 

DTMTb 0057/20 0038/20 

UTRAX 0281 0573/42 0134/47 0656/51 0344/52 

DTT32 0311 0254/29 0197/49 0273/49 

DTTY0 0309 0586/28 0023/29 0606/48 0185/49 0231/49 0246/49 

0281/49 0446/4^ 0037/51 0109/51 0369/59 0433/59 0440/59 

DVSRS 0493 0486 0472/35 0131/41 0133/41 0135/41 0507/41 

0524/41 0213/42 0655/42 0293/43 0773/45 0167/46 0187/46 

0218/47 0011/48 0450/54 

E 0415 0247/19 0116/22 0146/23 0190/25 

EABS 0005/20 0481 

EALCA 0349/36 0098/36 

EALNA 0J50/36 0097/36 

EANO 0066/14 0154/13 

EAS00 0437/H 0432/11 

EAS01 0433/U 0429/11 

tAS02 049.1/11 0419/11 



##•### CROSS. REFERENCE SYMBOL TABLE 

EASN 0389/11 0247/12 

UsN0 0405/11 0409/11 

EASN1 0467/11 

EASN2 0496/U 

EASNJ 0936/11 0498/11 0803/11 0541/11 0543/11 

EASN4 0540/11 0493/11 

LASN5 0542/11 0492/11 

EATN 0396/20 0478 

EATN1 0406/20 0428/20 

EATN2 0427/20 0402/20 

EATN3 0429/20 0421/20 

EATN4 0431/20 0424/20 0426/20 

EBRK fe)l66/21 049J 

EBRK1 0192/21 0181/21 

EBRK2 0197/21 0191/21 0194/21 

0021/23 0032/23 0041/23 0209/23 0350/23 0331/24 

•557/99 9979/45 

0069/45 

0270/12 

0070/45 0075/46 

0068/45 

00fi3/4g 

0553/39 0080/45 

0490 

EOABR 023 4 /02 0599/11 0495/I6 0085/21 0183/21 0196/21 
EOELM 0142/02 0314/02 0397/02 0018/11 0134/17 0331/19 0344/19 
ED3TA 0276/02 0334/24 0427/25 0438/25 0476/25 



EC 


0475/02 
0338/24 


ECF 


0139 


ECHj 


0080/45 


ECHAN 


0014/12 


ECHF 


0094/45 


ECHN 


0093/45 


ECHO 


0095/ 4 5 


ECQ 


0138 


ECOS 


0281/20 



##»•*# CRUSS»REF'ERENCE SYMBOL TA8LE 

EEN10 0335/11 0JU7/U 

EENU 0363/11 03b4/H 

tEN t 4 0367/U 03b2/ll 

EENib 0369/11 0371/U 

EENJ6 0372/11 0368/H 

EEN17 0378/11 0315/11 0326/U 0329/11 0331/11 0334/U 

EEN16 0387/H 0279/11 0333/11 0362/11 0366/11 0370/11 0373/li 

EENT3 0248/H 0222/U 0229/11 

EENT6 0280/11 0266/11 

EEN T 7 0324/11 0319/11 

EENT8 0327/11 0323/H 

EEN79 0332/11 

EEnTK 0219/11 0271/12 

EEQL 0024/14 0152/13 0034/14 0085/14 

EEXP 0452/20 0479 

EFAD 0318/13 0144/13 

EFDv 0336/13 0147/13 

EFLAU 0277/02 0086/23 0227/23 0292/23 0057/24 0152/25 0300/25 

tf-MP 0330/13 0146/13 

EFN0 0396/^ 2 0079/10 0086/1^ 0109/10 011Q/10 01/3/10 0184/10 

EFrtl 0399/02 0111/10 0121/10 0167/10 0181/10 0182/10 

EFN2 kj400/ij2 0125/10 0176/10 0179/10 0185/10 

EFM3 0401/02 0130/10 0137/10 

EFOR 0068/10 0257/12 

EFOR0 0077/10 0099/ia 

EFUR1 0096/10 0101/10 

EF0R2 0102/10 0097/10 



#••#•# CR08S. REFERENCE SYMBOL TABLE 

EF0R3 0121/18) 10148/10 

EFQR4 0128/10 0136/10 0140/10 

EFQR5 0105/10 0078/10 0087/10 

EFQR6 0146/10 0119/10 

EFSB 0324/13 0145/13 

EGORE 0017/14 0169/13 

EGOS1 0061/10 0050/10 

EGOSB 0043/10 0259/12 

EGOTO 0037/10 0255/12 

EGTRT 0005/14 0149/13 

EH 0431/29 0389 

EHERR 0425/29 0383/29 0461/29 

EIF 0023/10 0256/12 

EIFl 0016/10 0027/10 

EIN10 0272/10 0264/10 

EINU 0289/10 0244/10 0247/10 

EIN12 0293/10 0258/10 0003/17 

EINp 0300/10 0227/10 

EIN14 0312/10 0288/10 

EIN15 0354/10 0348/10 

EXN16 0349/10 0353/10 

EIN17 0321/10 

EIN18 0338/10 0346/10 

EIN19 0340/10 0352/10 0357/10 

EIN20 0343/10 0329/10 

EIN21 0347/10 0327/10 

EINP0 0256/10 0004/17 



###M# CROSS-REFERENCE SYMBOL TABLE 

EINP1 0216/10 0205/17 

EINP2 0220/10 0262/10 0271/10 0275/10 

EINP3 0232/10 0223/10 

EIMP4 0239/10 0235/10 0279/10 0287/10 

ElNPb 0248/10 0292/10 

EINP6 0251/10 0339/10 0342/10 0350/10 0355/10 

EINP7 0276/10 0249/10 

EINP8 2 80/i0 0250/J0 0277/10 029^0 0364/J0 

tlNP9 0265/10 0260/10 0273/10 

E1NPT 0214/10 0264/12 

EINT 0014/20 0483 

EINT1 0023/20 0016/20 

EXOk 0075/14 0155/13 

ELBRC 0169/13 0138/13 

ELCNT 04W1/02 W034/17 0443/25 0466/25 0469/25 

ELEj 0007/10 0251/12 0272/12 

ELIN 0489/iy 0475 

EL1N1 0507/19 0494/19 

ELIN2 0527/19 0O06/J9 05i9/l9 

ELIN3 0520/19 0512/19 

ELOU 0005/21 0480 

ELORE 0031/14 0160/13 

ELST 0012/14 0150/13 

EMAT 0025/17 0268/12 

EMAJ1 0162/17 0028/17 

EMAT2 0175/17 0337/17 

EMAT3 0222/17 0189/17 



CR033-REFERENCE 3YMB0I, TABLE 



EMAT4 10260/17 0202/17 

EMAT5 0331/17 0179/17 

EMAT6 0339/17 0173/17 

EMAT7 0370/17 0360/17 

EMAT8 0378/17 0344/17 

EMAx 0045/14 0157/13 

EMXN 0054/14 0156/13 

tNUIN 0003/17 0197/17 

ENDOP 0375 0335/07 B024/10 0038/11 

ENDRM yj66 0209/15 0226/15 0486/15 0504/15 0354/16 0360/16 

0052/26 0090/26 0156/26 0474/26 0188/29 0159/30 0170/30 

0209/30 0211/30 0109/33 0194/33 0351/38 0396/38 0422/38 
0070/50 

EN00 0562/03 0127/05 0989/05 0529/05 

ENOST 0520 0107/29 0172/30 0177/30 

ENEQL 0038/H 0151/13 0150/13 0008/H 0071/14 0080/14 

ENEX1 0161/10 0166/10 

ENEX2 0167/10 0164/10 

ENEX3 01e3/10 0145/10 

E N Ex4 0193/10 0188/10 

ENEXT 0154/10 0258/12 

ENOT 0084/14 0161/13 

ENQuF 0256/02 0331/09 0317/11 0330/U 10386/11 0037/22 

ENOUT 0134/02 0058/H 0136/17 0028/19 

ENTRl 0323/06 0312/05 

ENTR2 0328/05 0322/05 

ENTRS 0306/05 0538/05 

ENTRT 0265/U . 0595/28 



##MM CROSS*REFtRENCE SYMBOL TABLE 

ENTVK 0348/02 

tOF 0b«2 fe)25»/l5 0368/15 0447/15 

EOFOP 0417/22 0532/04 

EOL 0408/02 0008/10 0028/10 0017/U 0021/11 0046/11 0055/11 

0074/11 0102/11 0411/U 0505/11 0094/13 0335/19 0338/19 

0433/19 0459/19 0492/19 0416/25 0422/25 0483/25 0417/35 

EOPF 63409/02 0024/19 0069/19 0179/19 0349/18 0351/19 

fcOR 0503 0233/15 0248/tb 0329/15 0355/15 0386/15 0445/15 

tORFl 0455/02 3096/U 0159/12 0407/15 0153/20 

E.O5T 0325/03 0319/03 0392/03 0456/03 0512/03 0546/03 0555/03 

0594/03 0632/03 0129/04 0140/04 0148/04 0171/04 0261/05 

fcOSTA 0261/05 0270/05 0296/05 0300/05 0346/05 0378/05 

EPRJ0 0093/H MOei/n 0088/H 

tPRll 0096/11 0039/11 

EPR12 0102/11 0029/11 

tPR!3 0105/11 0011/11 

EPRU 0013/11 0033/11 

EPR12 0019/H 0012/11 0015/11 0035/11 0112/11 

EPRI3 0022/11 0041/11 

EPRI4 0027/11 0056/H 0059/11 0063/11 0095/11 0099/11 

EPR15 0045/11 0025/11 

EPRI7 0060/11 0054/n 0072/H 0101/11 

EPRIB 0064/11 0037/H 0050/U 

EPH19 0082/11 0094/U 

EPRIN 0006/11 0266/12 

EPRU1 0151/11 0137/H 

LPRU2 0172/11 0168/u ^ 

EPRU3 0183/11 0171/U 

EPRU4 0191/11 0152/11 



#M#P# C«OSS«REFERENCE SYMBOL TA0UE 

tPRUS 0226/(92 0007/11 0126/11 0128/11 0133/11 0035/17 

EPWR 0349/13 0148/13 

EREA1 0383/10 0371/10 0393/10 

EREA2 0387/10 0375/10 

EREAD 0370/10 0386/10 0265/12 

ERE6 0008/02 0687/20 0192/29 

ERNO 0072/20 0484 

ERNDi 0079/20 0074/20 

ERR 0521/16 0520/16 

ERRCT 0335/02 0244/03 0042/06 0043/06 0i67/i6 0212/l6 02i3/i6 

0512/16 0514/16 

ER332 0371 0160/07 0192/07 0201/07 0224/40 0254/40 0264/40 

ERSCA 0307 0137/07 0185/07 0214/15 0351/16 0377/16 0199/40 
0247/40 

ER3EC 0269/02 0307 0371 0300/02 0449/02 0450/02 0451/02 

0452/02 0453/02 0455/02 0459/02 0460/02 0475/02 0476/02 

0477/02 0478/02 0479/02 W480/02 0481/02 0482/02 0483/02 

0484/02 0465/02 0486/02 0487/02 0488/02 0489/02 0490/02 
0624/11 

ER8TR 0207/tt 0267/12 

ERTRN 0202/10 0260/12 

E3CMJ 0196/13 0175/13 

E3CM2 0209/13 0203/13 

ESCMA 0189/13 0142/13 

ES6N 0124/20 0465 

ESIN 0286/20 0489 

E3IN1 0309/20 0304/20 

E8PA 0456/19 0476 

ESPAl 0475/19 0468/19 0478/19 

EspA4 0483/19 0461/19 0463/19 0474/19 



MM#» CROSSwREKERENCE SYMBOL T*8LE 

ESQR 10101/21 0482 

ESQRl 0117/21 0142/21 

ESQR2 0134/21 0108/21 

EST 0278/ M 2 0218/23 0337/23 0386/23 0095/24 0101/2* 

EST1 0436/02 0271/13 0297/13 0305/13 

EST2 0437/02 0282/13 0301/13 

EST3 0438/^2 0287/13 0294/13 

ESTR 0245/13 0143/13 

tSTRt 0250/13 0263/13 

ESTR2 0258/13 0249/13 

ESTR3 0264/13 02&0/13 

ESTR* 0303/13 0276/13 0280/13 

ESTR5 0308/13 0247/13 

ETAB 0430/19 0474 

ETABl 0446/19 0449/l9 

EJAB2 0441/19 0436/19 

ETAB4 0452/19 0440/19 0444/19 

tTAN 0333/20 047/ 

ETANi 0357/20 0377/20 

ETA N 2 0376/20 0353/20 

ETAN3 0378/20 0371/20 

ETIM 0029/20 0488 

ETIM0 0040/20 0056/20 

ETIMi 0045/20 0059/20 

ETIm2 0050/20 0060/20 

ETIM3 0054/20 0044/20 0049/20 0061/20 

ETO 0538/28 0437/28 



•##*•# CROSS-REFERENCE SYMBOL TABLE 

E-TYp 0145/20 0487 

ETYP1 0164/20 0171/20 0180/20 

ETYP2 0168/20 0175/20 

ETYP3 0173/20 0149/20 

EUMIN 0132/13 0141/13 

EVEX0 0412/26 0423/25 

EVEX3 0431/25 0420/25 

EVEX4 0440/25 0430/25 0481/25 

EVEX5 0443/25 0411/25 

EVEX6 0445/25 0486/25 

EVEX7 0468/25 0444/25 

EVEX8 0482/25 0453/25 

EVEX9 0475/25 0471/25 

EVEXP 0218/02 0255/23 0346/23 0414/25 0429/25 0441/25 0442/25 

0447/25 0451/25 0460/25 

EXIT 0550/11 0315 0261/12 0262/12 

EXIT0 0564/U 0621/11 

EXITj 0638/11 «572>ii 

EX1T2 0610/11 0565/11 

EXIT3 0567/H 0007/07 0005/12 0379/39 

EXIT4 0589/11 0583/U 

EXIT/ 0276/32 0236/32 0262/32 

EXITA 0315 0288/11 0236/12 

EXP 0304/02 0055/15 0062/15 0543/15 0586/15 0597/15 0600/15 

0627/15 0007/16 0009/16 0050/16 0051/16 0U98/19 0101/19 

0104/19 0111/19 0274/19 0282/19 0019/20 0069/20 0251/20 

0058/22 0077/22 0097/22 0108/22 ¥194/22 0)96/22 0210/22 

0231/22 0247/22 0246/22 0279/22 0321/22 0322/22 0261/23 

0277/23 0286/23 0395/23 0139/24 0141/24 0238/24 0149/25 

0153/25 0244/25 0257/25 



CrUs8"K£FEkENCE symbol table 



tXP2 
ExPON 



EXPQP 

EXPW 

EXT1 

EXT1A 

EXT3A 

F 

F0,0 
F0.0A 

M,0 
F1.0A 

FADBL 

FADBF 

FADBN 

FADDB 

FADT 

FADTP 

FALSE 

FBASE 



0443/02 
0610/15 

0305/02 
0154/19 
0261/19 
0161/22 
0068/24 
0145/24 
0193/25 
0261/25 

0249/05 

047B/02 

0605/H 

0601/11 

0005/12 

0096/21 

0021/1/ 

0020/17 

0023/17 

0022/17 

0136/31 

0150/31 

0148/31 

0426/31 

0131/31 

0010/33 

0123/13 

0454/02 
0610/11 
0185/12 
0125/15 
0147/15 
0174/15 
0191/15 
0275/15 



0555/15 
0055/16 

0100/19 
0158/19 
0263/19 
0164/22 
0117/24 
0151/24 
0197/25 
0264/25 



0449/21 
0020/17 
0373/17 
0022/1/ 
0371/17 
0147/31 
0143/31 
0154/31 
0141/31 
0159/31 
0799/39 
0007/14 

0018/10 
0613/11 
0198/12 
0126/15 
0148/15 
0179/15 
0199/15 
0278/15 



0578/15 
0065/16 

0107/19 
0192/19 
0061/22 
0166/22 
0121/24 
0208/24 
0199/25 
0303/25 



0386/04 

0287/23 0148/25 

0630/H 
0584/11 
0021/12 



0293/31 
0476/31 
0093/53 



0581/15 
0079/16 

0110/19 
10216/19 
0069/22 
0393/23 
0123/24 
0237/24 
0204/25 



0598/15 0599/15 0607/15 



0293/17 



0141/18 0257/18 



0021/10 
0153/12 
0105/15 
0127/15 
0149/15 
0160/15 
0236/15 
0279/15 



0435/31 
0510/31 
0299/55 



0115/19 
0250/19 
0073/22 
0405/23 
0128/24 
0243/24 
0206/25 



0118/19 
0254/19 
0153/22 
0411/23 
0130/24 
0151/25 
0247/25 



0727/32 0010/33 



04/2/11 
0168/12 
0106/15 
0128/15 
0154/15 
01B1/15 
0243/15 
0281/15 



04 8 2/il 
0169/12 
0109/15 
0130/15 
0155/15 
0182/15 
0245/15 
0283/15 



0484/11 
0176/12 
0111/15 
0133/15 
0163/15 
0184/15 
0270/15 
0298/15 



0121/19 
0256/19 
0159/22 
0064/24 
0137/24 
0158/25 
0256/25 



0019/14 0026/14 0041/14 0069/14 0101/14 



0533/11 
0164/12 
0122/15 
0138/15 
0167/15 
0186/15 
0272/15 
0303/15 



'##### CrUSS'REFErENCE symbol table 

0312/15 032^/15 0300/15 0395/15 0422/15 0440/15 0442/lS 

0467/15 0469/15 0483/15 0493/15 0380/35 0383/35 

f-BP 0131 0462/03 0245/06 

FCNTK 0379/02 0329/09 033e/09 03«>3/09 0433/09 0439/09 0464/H 

0556/U 0558/H 0564/11 0099/15 0102/15 0448/16 0395/32 

0369/35 0371/35 k>377/35 0263/49 

FCORE 0378/02 0402/08 0257/09 0561/U 0374/35 

FCUC 0232/02 467 0320/14 0333/l4 0334/14 

FCUCA 0467 0449/11 0463/35 

FD0 0444/02 0059/16 0067/16 0074/16 0281/19 0290/19 

FOAT1 0123/12 0115/12 

F0AT2 0137/12 0131/12 

FDAj3 0153/12 0113/12 

FDAT4 0166/12 0469 0164/12 

FDAT5 0176/12 0162/12 

FDAT6 0187/12 0178/12 

FDATA 0104/02 0300/02 0429/02 0381/10 0388/10 0136/12 0152/12 

0186/12 0199/12 0090/17 

FQ T 4A 0469 0156/15 0363/15 

POTTY 0580/ 2 8 0456/ 2 8 047 2 /28 05i5/ 2 8 0526/ 2 8 0538/ 2 8 05*>5/ 2 8 
0592/28 

F-ENCA 0626/li 0348/H 

FENCH 0202/02 0626/tl 0358/14 0362/14 

FERRA 0007/15 0227/16 0239/16 0398/16 0454/I6 0479/16 

FERRS 0533 0007/15 0000/15 0062/23 0076/23 0081/23 0103/23 

0115/23 0141/23 0154/23 0158/23 0169/23 2173/23 0176/23 

0179/23 0182/23 0221/23 0228/23 0240/23 0257/23 0332/23 

0349/23 0364/23 0111/24 0330/24 0011/25 0032/25 0040/25 

0052/25 0067/25 0096/25 0107/25 0111/25 

FETCH 0100/02 0310/02 0029/10 0051/10 0115/10 0120/10 0246/11 

0451/11 0079/12 0096/12 028 2 /i2 0331/17 0322/18 0332/18 
0470/35 

FFLAG 0306/02 0083/19 0093/19 0173/19 0175/19 0190/19 0214/19 



•###•# CRUSS-KEFEKEnCE SYMBOL TABLE 
0242/19 

FFLG 0279/02 0009/11 0121/11 0434/19 0466/19 0409/25 

FILBF 0447/32 0737/32 0557/34 0509/37 0526/37 

FILBP 0557/34 0115/34 

FILCT 0253/(32 0361/07 0026/08 0061/08 0516/33 0120/34 0432/36 

FILE* 0456/02 0415/09 0013/11 0052/11 0070/11 0082/12 0091/12 

0111/12 0364/15 0377/15 0109/17 0146/20 0159/20 0160/20 
0165/20 

FILES 0278/05 0536/05 

FILIB 0119/31 0365/07 

FILOP 0383 0066/08 0516/21 

FILPT 0252/02 0021/08 0067/08 0068/08 0518/33 0523/33 "4524/33 

0435/36 0439/36 0441/36 

FILRF 0186/02 0355/02 0481/03 06b8/03 0/01/03 0703/03 0723/03 

0073/04 0086/04 0134/06 0161/06 0165/06 0167/06 0168/06 

FILS0 0355/15 W325/15 

FILS1 0360/15 0306/15 

FILS2 0318/15 0309/15 

FXLS3 0321/15 0354/15 

FILS4 0331/15 0328/15 

FIL35 0340/15 0332/15 

FILS6 0347/15 0319/15 

FILS7 0312/15 0339/15 0346/15 

FILst 0192/02 0326/02 0062/11 0317/16 0118/17 

FILT 0460/02 02*7/15 0308/15 0318/15 0331/15 0358/15 0359/15 

FILTb 0355/02 0081/07 034j}/07 0370/07 0402/07 0415/07 0443/07 

0093/08 0315/08 0409/08 0333/09 0470/11 0562/11 0104/15 

0298/32 0511/33 0437/34 0052/35 0375/35 0403/36 0406/36 

0419/36 0428/36 

FINCA 0627/11 0323/10 

FINCH 0050/02 0315/02 0627/11 0344/14 0350/14 



CRQSS*REFERENCE SYMBOL TAbLE 



FtB$ 0545/34 4141/34 0150/34 0166/34 0170/34 

FLBi 0137/34 0194/34 

FLB10 0410/34 0361/34 

FLB11 0364/34 0405/34 

FLB12 0394/34 0387/34 

FLB13 0401/34 0383/34 03«2/34 

FLB14 0376/34 0384/34 

FLB15 0413/34 0429/34 

FLB16 0440/34 0504/34 

FLBJ8 0385/34 0377/34 

FLB19 0379/34 0388/34 

FlBg 0x65/34 0144/34 

FLB20 0470/34 0456/34 

FLB21 0488/34 0469/34 

FLB22 0169/34 0146/34 

FL023 0244/34 0224/34 

FUB24 0232/34 0222/34 

FLB25 fc)i49/34 0i74/34 

FLB26 0186/34 0183/34 

FL827 0226/34 0218/34 

FLB28 0306/34 0230/34 

FLB 2 9 0319/34 0315/34 

FUB3 0151/34 0159/34 

FLB30 0390/34 0369/34 

FLB4 0185/34 0162/34 

FUB5 0147/34 0168/34 

FLB6 0214/34 0308/34 



M#Mf» 



CRUSS«*REFERENCE SYMdOL TABLE 



FLB7 0258/34 0250/34 

FLB8 0252/34 0I48/34 0I63/34 

FLB9 0277/34 0271/34 

FLBA 0125/34 0*97/34 

FLBC1 0549/34 0119/34 0189/34 

0404/34 0411/34 0428/34 



0191/34 0267/34 0275/34 0329/34 



0199/34 0202/34 030//34 0322/34 



FLBC2 0550/34 0138/34 0158/34 0203/34 0321/34 0410/34 0503/34 



f-LBCH 0518/34 0142/34 0153/34 
0526/34 0534/34 0541/34 



0157/34 0167/34 0171/34 0522/34 
0543/34 



FIBCM 0546/34 0140/34 0192/34 

PLBCP 0552/34 0135/34 0523/34 

FLBFL 0555/34 0123/34 0196/34 

FLBFP 0556/34 0125/34 0127/34 0195/34 



0520/34 0542/34 
0527/34 



FLBPP 0548/34 0117/34 0206/34 

0470/34 (0491/34 0493/34 

FLBFS 0554/34 0345/34 0421/34 

FLBIU 0553/34 0212/34 0217/34 

FLBP 0551/34 0132/34 0525/34 

FUBUF 0547/34 0116/34 0152/34 

017//34 0181/34 0187/34 

0229/34 0234/34 0243/34 

0281/34 0283/34 0285/34 

0299/34 0300/34 0365/34 

0394/34 0395/34 0396/34 

FLGBT 0298/02 0375/03 0588/03 

0129/20 0172/21 

FUNK 0354/02 0170/07 0244/07 

0340/07 

FLOAT 0092/02 0241/H 0274/11 

0055/20 0166/20 0254/20 

FLSTS 0251/02 0248 

FM0 0038/23 0031/23 



W363/34 0412/34 0439/34 0453/34 

0495/34 0500/34 0502/34 

0422/34 0425/34 0426/34 

0241/34 0273/34 0290/34 0358/34 



0154/34 

0188/34 
0245/34 
0288/34 
0367/34 
0398/34 



0155/34 

0207/34 
0246/34 
0289/34 
0371/34 

0403/34 



0304/04 0443/05 



0251/07 0253/07 



10300/11 
0295/20 



0459/11 
0342/20 



0150/34 
0214/34 
0277/34 
0295/34 
0375/34 



0107/16 
0269/07 



0537/11 

0460/20 



0176/34 
0227/34 
0278/34 
0296/34 
0383/34 



0352/16 
0271/07 



0071/13 

0014/21 



MMM CROSS-REFERENCE SYMBOL TABLE 

FM00 0067/24 0083/24 

FM01 0091/24 0086/24 

FM02 0109/24 0105/24 

FM03 0147/24 0152/24 

FM04 0178/24 0159/24 

FM10 0227/25 0217/25 

FMU 0031/25 0024/25 

FMAIN 0632/28 0690/28 0166/30 0181/30 0103/30 0106/30 0714/32 

FMEND 0210/25 0037/23 0092/23 0256/23 0346/23 0333/24 0336/24 

FMT0 0142/23 0106/23 0216/23 

FMT00 0122/25 0115/25 

FMT01 0074/23 0070/23 

FMT02 0046/24 0037/24 

FMT05 0366/23 0382/23 

FMT06 0009/24 0005/24 

FM T 07 0030/24 12023/24 

FMT08 0217/23 0211/23 

FMT09 0328/24 0043/25 

FMTl 0060/23 0054/23 0056/23 

FMT10 0223/23 0190/23 

FH T il 0225/23 

FMT13 0227/23 0147/23 

FMT14 0230/23 0143/23 

FM T i5 0238/23 0193/23 

FMT16 0112/23 0124/23 

FMT18 0241/23 0219/23 

FM T 2 0047/23 0342/24 



###### CR0S8„REPER£NC£ SYM8UL TA8U 

FMT20 0324/23 0254/23 0340/23 

FMJ21 0330/23 0326/23 

FMT24 0344/23 0247/23 

PMT25 0347/23 0250/23 0388/23 

FM T 26 0357/23 0353/23 

FMT27 0362/23 0359/23 

FMT28 0383/23 0361/23 

FMT29 0379/23 0373/23 

FMT3 0084/23 00 & 9/23 003//25 0U&4/25 tf076/2g 0089/2g 0121/2$ 

FMT30 0392/23 0298/23 

FMT31 02«2/23 0264/23 027j/23 0274/23 

FMT32 0404/23 0397/23 0412/23 

FMJ33 0413/23 0403/23 

FMT34 0436/23 0003/24 0097/24 0206/24 03i8/24 

FMT35 0001/24 0446/23 

FMT36 0004/24 0439/23 

FMT37 0016/24 0011/24 0070/24 

FMJ4 0104/23 

FMT40 0069/24 0029/24 0040/24 0059/24 0062/24 

FMT42 0098/24 0076/24 0079/24 

PMT43 0425/23 04l8/23 0421/23 

FHT45 0136/24 K> 2 97/23 

FM T 46 03fe)2/23 0129/23 0135/23 0140/23 0320/23 

FMT47 0317/23 0311/23 

FMTb 017//23 0160/23 

FMT50 0153/24 0174/24 0212/24 0225/24 W232/24 

FMT5I 0183/24 0155/24 



#•###• CrQ$S«rEFE r ENCE symbol table 

FMT54 0195/24 0188/24 0l9i/24 

FMTS5 0226/24 0215/24 0218/24 0222/24 

FMT56 0042/24 0032/24 

FMT57 0074/24 0018/24 

FMT58 0050/24 0041/24 004$/24 

FMT59 0094/24 0443/23 0451/23 0015/24 0053/24 0073/24 

FMT6 0187/23 0149/23 

FMT8i 0207/24 0140/24 0143/24 

FMT62 0236/24 0294/23 

FMT67 0266/24 0260/24 0263/24 

FMJ68 0281/24 0276/24 

FMT7 0201/23 0196/23 

FMT7» 0287/24 0271/24 

FM T 72 0304/24 0280/24 0286/24 0297/24 0312/24 

FMT76 0100/24 0115/24 

FMT78 0116/24 0102/24 

FMT8 0204/23 0188/23 0200/23 0222/23 0226/23 0229/23 0237/23 

FMT80 0144/26 0426/23 0430/23 01 9 6/24 0203/24 0257/24 0263/24 
0315/24 

FM T 9 0220/23 0145/23 

FMT90 0322/24 3 06/23 0338/23 8387/23 0096/24 8*32/24 0209/25 

FMJ91 0331/24 0129/25 0139/25 

PMT92 0001/25 0327/24 0104/25 0108/25 0136/25 0j40/25 

FMT93 0012/25 0008/25 0044/25 

FMT94 0038/25 0016/25 0027/25 0034/25 

FMT95 0048/25 0239/23 

F H T96 0065/25 0055/25 

FMT97 0077/25 0005/25 0036/25 







CROSS* 


RtFERtNC 


FMF96 


0109/25 


0079/25 




FMT99 


0090/25 


0083/25 




FN 


0488/04 


0365/03 


0230/04 


FN0P1 


0020/06 


0034/06 




FNDP2 


0035/06 


0026/06 




FNDP3 


0052/06 


0021/06 


0028/06 


FNDPS 


0066/02 
0056/07 


0414/W2 
0291/21 


0208/03 
0630/35 


FUJI 


0138/13 


0003/12 




FOPBS 


0323 


0406/12 


0397/21 


FOPI 


0381/20 


0334/20 




FOR10 


0046/13 


0319 


t 


F0R12 


0060/13 


0472/12 


0075/13 


FORI 3 


0093/13 


0396/12 




F0R14 


0104/13 
0338/13 


0125/13 
0365/13 


0128/13 
0399/13 


FORM0 


0377/12 


0372/12 




FORMi 


0341/12 


0428/12 


0139/13 


F0RM2 


0388/12 


0345/12 


0369/12 


F0RM3 


0402/12 


0390/12 


0096/13 


F0RM4 


04i6/ 12 


0109/J3 


0140/13 


FORMS 


0429/12 


0421/12 


0307/13 


F0RM6 


0445/12 


0349/12 




FORM/ 


0452/12 


0447/12 




F0RH8 


0004/13 


0366/12 




FORMX 


00t*4/0Z 

0153/H 
0506/11 

0046/13 


0306/02 

0231/H 
0279/12 

0119/13 


0009/10 
0267/11 
0476/12 
0417/25 



0040/06 0045/06 

0572/05 0052/06 0053/06 0055/06 
0452/43 0463/43 



0134/13 0320/13 0326/13 0332/13 
0404/13 0050/14 0062/14 0105/14 



0208/13 0229/13 

0376/12 0451/12 0457/12 0056/13 



0257/J3 K>312/13 



0106/10 0224/10 0372/10 0047/H 

0290/11 0304/11 0412/11 0455/11 

0478/12 0010/13 0012/13 0023/13 

0484/25 0418/35 



••##•• CROSS«REFErEnCE symbol tabue 

FOROP 0294/02 0239/07 

FORQ 0382/02 0335/09 0096/10 0161/10 

F0R8 0518/03 0524/05 

FOR8T 0383/02 0077/10 00di/i« 0095/10 0102/10 0105/10 §107/10 

0143/10 0160/10 0168/10 0171/10 0189/10 0193/10 0173/12 
0291/12 

FPOP 0020/02 0358/02 0454/02 0465/04 0093/05 0071/06 

f-RCUH 0018/02 0354/02 0456/02 0439/04 0042/05 0063/06 

FRET 03l9 0453/19 0404/l9 0528/^9 0007/20 0022/20 0025/20 

0056/20 0105/20 0109/20 0126/20 0132/20 0167/20 0320/20 

0375/20 0379/20 0430/20 0434/20 0453/20 0006/21 0102/21 

0133/21 0199/21 

FRMAT 0224/02 0321/02 0374/02 0407/02 0492/02 0150/11 0190/11 

0201/11 0560/11 0449/16 0258/32 

FSC 0014/02 0236/02 0367/02 0312/03 0390/03 0437/03 0489/03 

0525/03 0536/03 0545/03 0657/03 07i9/03 0370/04 0404/04 

0433/04 0462/04 0051/05 0068/05 0299/05 0329/05 0365/05 

0066/06 0142/06 0166/06 

FSC0 0263/04 0C50/04 

F3C1 0203/04 0287/04 0395/04 

FSC10 0323/04 0345/04 0367/04 

FSCll 0330/04 0236/04 

F3C12 0349/04 0392/04 

FSCi3 03^1/04 0210/04 0212/04 0254/04 0309/04 364/04 

FgCl4 0401/04 0331/04 0338/04 0352/04 0359/04 0363/04 0372/04 

F3C2 0208/04 0325/04 

F3C3 0240/04 0262/04 

F3C4 0255/04 0231/04 

F3C5 0282/04 0290/04 0292/04 

FSC6 0285/04 0222/04 0380/04 0388/04 

FSC7 0288/04 0209/04 

FSC8 0307/04 0278/04 



CROSS-REFERENCE SYMBOL TABLE 



FSC9 
FsCH 

F3CHA 

FSP 



0313/04 0299/04 



F8T 



FTtL 
FU3CH 

FySS 
FVT 



0106/02 
03J0/14 

033b 
0337/15 

0280/02 
0208/23 
0328/23 
0365/23 
0080/24 
0181/24 

0476/02 
011^/23 
0166/23 
0068/25 

0023 
0051/35 

0560/34 
0386/34 

0019/39 
0195/51 



0335 
0367/23 



0098/23 
0217/23 
0329/23 
0385/23 
0094/24 
0182/24 

0049/23 
0125/23 
0167/23 
00/2/25 

0469/U 
0384/35 

0374/34 
0472/34 

0471/27 

0036/39 
0235/52 



0418/02 0082/U 0139/14 0300/14 0309/14 



0335/10 0391/10 0360/U 0525/11 0292/13 0303/13 



0120/23 
0242/23 
0336/23 
0436/23 
0098/24 
0300/24 

0064/23 
0130/23 
0207/23 

0100/25 



0376/34 
0476/34 

0489/27 
0427/39 
0264/54 



0121/23 
0303/23 
0339/23 
0440/23 

0100/24 
0301/24 

0065/23 
0133/23 
0209/23 
0132/25 



0185/23 
0304/23 
0351/23 
0007/24 
0103/24 
0049/25 

0099/23 
0138/23 

0020/25 
0353/25 



0186/23 
0319/23 
0355/23 
0006/24 
0106/24 
0322/25 

0109/23 
0151/23 
0056/25 
0393/25 



0378/34 
0485/34 

0334/34 
0447/39 
0553/57 



0431/34 
0675/39 
0087/58 



0182/35 
0720/39 
0306/58 



0206/23 
0324/23 
0356/23 
0019/24 
0108/24 



0112/23 
0152/23 
0060/25 
0394/25 



0614/11 0103/15 0306/32 0324/34 0498/34 



0379/34 0381/34 0385/34 



0260/35 
0141/51 



0397/02 0090/10 0138/10 



*vHt*t*>--*!4k .-■<**# 



• •MM CROSS-REFERENCE SYMBOL TABLE 

GET1 0042/98 0023/38 0052/38 0065/38 

GET10 0109/38 0098/38 

GETX3 0161/38 0144/38 0149/38 

GET14 0054/38 0027/38 

GET15 0122/38 0112/38 0262/38 

GET16 0222/38 0192/38 

GET17 0227/38 0204/38 

GET18 0086/38 0072/38 

GET19 0074/38 0094/38 

GET2 0049/38 0025/38 

GET20 0205/38 0226/38 

GET21 0216/38 0179/38 

GET22 0080/38 0093/38 

GET25 0146/38 0141/38 

GET26 0150/38 0145/38 

GET3 0026/38 0038/38 0053/38 0066/38 

GET4 0068/38 0040/36 

GET9 0095/38 0090/38 

GETC 0243/38 0021/38 0037/36 0185/38 0209/38 

GETCH 0249/33 0258/33 0259/33 0273/33 0293/33 0334/33 

GETCR 0158/02 0259/03 0442/03 0474/03 0528/03 0563/03 0574/03 

0602/03 0640/03 0651/03 0676/03 0708/03 0044/04 0055/04 

0081/04 0123/04 0132/04 0255/04 0264/04 0275/04 0362/04 

0083/05 0147/05 0193/05 0266/05 0306/105 0415/05 0466/05 

0065/06 0099/06 0160/06 0216/06 0269/06 0275/06 0315/06 

0036/07 0239/10 0272/10 0290/10 0314/10 0340/10 0349/10 

0354/10 0263/11 0314/11 0325/11 0369/11 0372/11 0233/12 

0345/14 0359/14 0331/16 0516/16 0418/19 0424/19 0425/19 

0250/21 0266/21 0276/21 0284/21 0101/22 0119/22 0127/22 

0132/22 0141/22 

GETD 0246/38 0167/38 0190/30 0300/38 0347/38 



##»#M CKUSS-KEFERENCE SYMBOL TABLE 

GETDU 0138/02 0399/02 0129/19 0135/19 0291/19 0407/23 0147/24 

0167/24 0307/24 0164/25 0278/25 

GETDI 0247/38 0170/38 0238/38 0303/38 0448/38 

GETQP 0238/38 0196/38 

GETI 0242/36 0014/38 0091/38 0227/38 0228/38 0232/38 0233/38 
0235/38 

GETI1 0250/33 0268/33 0288/33 

GEU2 0251/33 0270/33 0286/33 

GETI3 0252/33 0272/33 0281/33 0283/33 

GETI4 0272/33 0287/33 

GETIO 0253/33 0752/32 0294/33 0295/33 0103/39 0321/41 0029/42 

0592/45 0026/46 0682/48 0016/49 0014/50 0019/51 0377/56 

0520/56 0012/57 0023/57 0451/57 0476/57 0013/58 

GETLN 0244/38 0134/38 0189/38 0307/38 0321/38 0346/38 

GETP 0240/38 0019/38 0029/38 0032/38 0033/38 0034/38 0172/38 

0174/38 0218/38 0220/38 0309/38 0311/38 0341/38 0343/38 

GETPD 0241/38 0086/38 0162/38 0292/38 0304/38 

GETPf" 0030/02 0383/02 0142/04 0253/04 0430/04 0461/04 0072/06 
0402/06 

GETS 0245/38 0070/38 0186/38 

GET3T 0062/02 0387/02 0599/03 0663/03 0166/05 0195/05 0233/05 

GFLAG 0299/02 0423/03 0459/03 0228/05 0110/06 0310/12 

GMQB 0152/03 00l7 0155/03 01&3/03 0164/03 

GMQBP 0i07 0153/26 0499/27 

GOSOP 0465/40 0402/40 

GOTOl 0427/03 0461/03 

G0T02 0451/03 B455/03 

G0T03 0457/03 0425/^3 

G0T04 0462/03 0458/03 

GOTQP 04&4/40 0400/40 



•#•### CROSS-REFERENCE SYMBOL TABLE 

GOTQS 0417/03 0522/05 0526/05 

GTC 0126 0232 0403/19 0411/29 0426/30 0155/33 

GTFER 0334/33 02*0/33 0263/33 0266/33 0274/33 02?7/33 0280/33 

0105/39 0108/39 0173/39 0176/39 0180/39 0133/39 0195/39 
0198/39 

GTIL 0301/33 0417/32 0753/32 0102/33 0292/33 0330/33 0061/42 

0608/45 0772/48 0315/49 0070/56 0327/57 

GULP 0417/32 0020/32 

GTMP 039^/82 0044/10 0062/10 

GTSA 0303/33 0324/33 

GT3B 0319/33 0308/33 0312/33 

GTSC 0325/33 0318/33 0322/33 

GTTY1 0377/15 0408/15 

GTT Y 2 0393/15 0411/15 

GTTY3 0395/15 03g3/15 0387/15 

GTTY4 0410/15 0319/15 

GTTY5 0412/15 0404/15 

GTTy6 0405/15 0399/15 

GTTYP 0194/02 0327/02 0097/11 0160/12 0394/15 0413/15 0163/20 

HALF 0499 0146/10 0126/13 0384/13 0400/13 0216/20 0497/20 
0039/21 

HATQM 0483/04 0311/05 0164/06 

HB 4 79/02 0447 

HBP 0480/02 0291/23 0399/23 0400/23 0400/23 0410/23 0432/23 

0052/24 0064/24 0056/24 0149/24 0150/24 0158/24 0169/24 

0173/24 0205/24 0227/24 0228/24 0309/24 0310/24 0317/24 

0161/25 0166/25 0157/25 0177/25 0176/25 0160/25 0165/25 

0187/25 0263/25 0299/25 

HDATE 0096 0499/49 

HDBFA 0021/33 0597/45 0032/46 0299/46 

HOBUF 0061/32 0136/32 0733/32 0021/33 



»####<• CROSS*KEFERENCE SYMBOL TABLE 

HElI 0103/39 0050/39 

HELna 0204/39 0097/39 

HEU12 0305/39 0300/39 

HEL13 0311/39 0303/39 

HEL2 0120/39 0125/39 

HEL3 0130/39 0164/39 

HEL3A 0210/39 0170/39 

HEL3B 0212/39 0200/39 

HEL3C 0141/39 0133/39 0135/39 

HEL3U 015(,/39 0148/39 0150/39 

Htlif- 0174/39 0168/39 

HEL3G 01 4 3/39 0139/39 

HEL3H 0158/39 0154/39 

HEU3I 0177/39 0191/39 

HEL4 0256/39 0271/39 0275/39 0304/39 0308/39 0322/39 0328/39 

HEL6 0267/39 02&3/39 

HEU7 0047/39 0015/39 

HEL7A 0062/39 00g7/,j9 

HEL8 0324/39 0316/39 

HEL9 0329/39 0323/39 

HEIC 0390/39 0128/39 0163/39 0293/39 0313/39 

HELD! 0393/39 0289/39 0380/39 

HELDP 0380/39 0320/39 

HELF 0201/39 0121/39 0t62/3 9 

HELG 0259/39 0224/39 

HELGT 0392/39 0145/39 0t5 9 /39 0366/39 0370/39 

HELH 0425/33 0260/39 



###### CROSS-REFERENCE SYMBOL TABU 

HELID 0387/39 0014/39 0048/39 0080/39 0099/39 0242/39 

HELK 0422/33 02*2/39 

HELLO 0051/31 0446/29 0470/29 

HELM 0302/39 0249/39 

HELQG 0350/39 0082/39 0237/39 0377/39 

HELP 0391/39 0129/39 0130/39 0160/39 0219/39 0220/39 0286/39 
0314/39 

HELPT 0386/39 0013/39 0024/39 0373/39 

HELRT 0379/39 0342/39 

HELST 0378/39 0010/39 

HELTM 0389/39 0065/39 0007/39 0069/39 0070/39 0072/39 0073/39 

0077/39 0078/39 0089/39 

HELTP 0388/39 0*09/39 0062/39 0239/39 

■i. ■ ■ , v. 

HFLAC 0512 0475/11 0530/30 0334/39 

HFL6 0383/39 &131/39 0140/39 0146/39 0155/39 0166/39 

HI 0446/29 0438/29 

HI6 0344/35 0029/35 

HIS 0345/35 

HI8A 0497/49 0480/49 

HI0R1 0493/49 0462/49 0496/49 0496/49 

HIB31 0496/49 0486/49 0409/49 

HJMSK 0501 0187/27 0402/43 0106/48 0439/48 0220/54 0199/55 

0064/56 0152/57 0428/58 

HLT4C 0464/49 0427/49 

HM2a 0431/32 

HMA8K 0003/19 0276/19 

HQDIS 0167 0(64/28 0355/30 0359/30 

HTEMP 0385/39 ii04/39 0187/39 

HTEST 0536/30 §347/29 0385/30 0540/30 0540/30 0724/32 



CROSSwWtFERENCE SYMBOL TABLE 



HTYPfc 

HUU 

HVL 

IBF 

ID 



ID0 
ID1 
IDEC 



IDECL 
IOECM 
IOLCF 



IDLNf 



ION 

IDNA 

IEN T 1 

IF0 
IF1 



0384/39 

0136 

0456/28 

0146 

0042 

0236/39 

0092/42 

0670/48 

0042/51 

0069/56 

0347/57 

0426/02 
0066/18 

0429/02 
0253/18 

0075 
0807/48 
0510/50 
0.118/5.2 

0332/33 

0331/33 

0062 

0327/33 

0767/39 

0745/48 

0434/49 

0255/56 

0063 

06^9/45 

0030/49 

0113/50 

0094/5} 

0253/18 

00l7/i7 

0237/20 

04B4/y3 
0504/03 



0185/39 
0561/3* 
0433/28 



0188/39 
0235/49 



0192/39 



0306/28 0631/48 



0019/32 
0240/39 
0586/45 
0697/48 
0052/51 
0091/56 
0496/57 

0342/17 
0068/18 

0354/17 
0256/18 

0331/33 

0206/50 
0511/50 



0302/33 

0321/33 

0023/32 
0240/36 
0769/39 
0750/48 
0024/50 
0362/57 

0021/32 
0686/46 
0114/49 
0115/50 
0096/51 

0017/17 

0233/20 
0480/03 
0483/03 



0101/33 
0313/41 
0595/45 
0733/48 
0075/51 
0384/56 
0030/58 

0359/17 
0070/18 



0332/33 

0207/50 
0512/50 



0054/32 
0094/39 
0371/44 
0025/49 
0110/50 



0027/32 
0727/48 

0123/49 
0123/50 
0071/56 



0111/33 
0325/41 
0601/45 
0033/49 
0112/51 
0019/57 



0365/17 

0102/18 



0289/33 
0021/42 
0639/45 
0314/49 
0348/5J 
0165/57 



0372/17 
0110/16 



0316/33 
0032/42 
0020/46 
0028/50 
0369/51 
0189/57 



0406/17 
0178/18 



0232/42 
0206/50 
0513/50 



0417/43 
0490/50 
0514/50 



0794/45 
0492/50 
0114/52 



0061/32 
0112/39 

0691/48 
0116/49 
W117/50 



0103/33 
0737/48 
0316/49 
0343/50 
0242/56 



0105/33 
0204/39 
0729/48 
0122/49 
0122/50 



0329/33 
0739/48 
0022/50 
0063/51 
0328/57 



0304/33 
0511/39 
0740/48 
0318/49 
0065/51 



0110/39 
0751/48 
0076/50 
0072/51 



0119/39 
0060/42 
0030/46 
0021/51 
0398/51 
0241/57 



0048/18 
0255/18 



0362/17 0367/17 0106/18 0159/18 0208/18 



0261/47 
0494/50 
0116/52 



0320/33 
0569/39 
0742/48 

0368/49 
0098/51 



0064/42 
0023/49 
0091/50 
0089/51 



0491/03 0498/03 



CROSS-KEFERENCE SyMBUL TABUE 



IFCnT 0403/02 0220/10 0238/10 0266/10 0281/10 0313/10 0230/12 

IFIX 0132/02 0249/U 0381/13 0020/15 0053/15 0064/15 0065/15 

0055/19 0015/20 0029/20 0239/20 

IFIX1 0058/15 0063/15 

IFIX2 0062/15 0057/15 

IFIX3 0066/15 0047/15 0072/15 

IfOP 0466/40 0404/40 

1FS 0473/03 0523/05 

IFS3 0281/02 0249/09 0097/23 0241/23 0302/23 0050/25 

IPSTR 0282/02 0417/16 0027/23 0340/24 0»58/25 0070/25 0086/25 
0118/25 

1H8 0447 0290/23 0431/23 0050/24 0065/24 0156/24 0204/24 

0316/24 0160/25 0176/25 0^292/25 

ILFER 0337/33 0547/40 0322/41 0030/42 0440/43 0445/43 0512/43 

0523/43 0145/44 0185/44 0107/44 0190/44 0204/44 0207/44 

0216/44 0222/44 0226/44 0575/44 0062/45 0065/45 0067/45 

0072/45 0074/45 0077/45 0084/45 0171/45 0229/45 0289/45 

0305/45 0321/45 0324/45 0326/45 0329/45 0332/45 0486/45 
0489/45 

HI 0141 0465/29 

IMAGS 0398/03 0516/05 

IMGOP 0437 0054/00 0143/11 06l 8 /21 

INCAL 0156/02 0322/02 0219/10 0237/10 0312/10 0238/12 

INCHR 0662/35- 

INCH 0224/12 0219/12 0243/12 

1NCL2 0239/12 02*5/12 0234/12 

INF 0161 0098/12 0103/14 0431/19 0487/19 0107/20 0510/20 

0013/22, 0349/41 0044/46 0J57/67 

1NFST 0374/02 0218/07 0422/07 0066/00 

INI 0132 f«f#t/26 0209/20 ' 

INITf- 0402/02, 0216/10 0222/111 



****** CHOSS-KEFEKENCE SYMBUl 'TABLE 

I 

INPOF 024tt/05 10023/04 

INPTS 0624/03 0615/03 0633/03 0531/05 

1NSEQ 0434/33 0636/28 0/55/32 0416/33 0455/33 0479/44 

INSQA 0636/26 0015/29 

INTFL 0391 0082/06 0049/10 0423/40 0434/40 

INTMP 0406/02 0234/10 0286/10 0310/10 0330/10 0337/10 0358/10 

0345/U 0355/U 0374/11 

INV 0019/16 0408/17 

INV1 0042/18 0039/18 

INV10 0159/18 0147/18 

1NV11 0164/18 0173/18 

INV12 0170/18 0166/18 

1NV13 0180/18 0231/18 

INV14 0194/16 0207/18 

INVtb 02^8^18 0190/18 

INV16 021*2/18 0227/18 

■ : i 

INV17 0222/18 0214/18 

I! 1 

INV18 0228/18 0241/18 

INV19 0238/18 0182/18 0186/18 

INV2 0058/18 0055/18 

INV3 0068/18 0233/18 

INV4 0076/18 0067/18 

INV5 0083/18 0100/18 

f 

INV6 0097/18 0092/18 

INV7 0114/lb 0135/le 

INV8 0136/18 0109/18 

INV9 0151/18 0158/18 

INVL 0353/17 0057/18 



#»•##» CROSS-REFERENCE SYMBOL fAfeU 

INWRP 0661/35 0477/35 0570/35 

IOSTS 0424/22 0526/04 

IPWR 0374/13 0354/13 

IPwRl 0388/13 0420/J3 

IPWR2 0J92/13 0413/U 

IPWR3 0400/13 0396/13 

IPKR4 0405/13 0390/13 

IPWR5 0414/13 0393/13 

ITEMP 0006/12 0208/12 &2l3/i2 

IWT 0135 0231/12 0329/16 0614/48 

JOEQU 0522/27 0458/27 

JET1 0512/27 0U17/27 

JET2 0518/2? 0500/27 

JETMS 0525/27 05*§/27 

JETNO 0529/27 0&00/27 

JETPA 0633/2* 0214/30 

JETPP 0016/33 0077/33 

JETP7 0455/27 0520/27 0633/26 0700/32 0010/33 

JETTi 0523/27 0456/27 0459/27 0475/27 0479/27 0493/27 0502/27 

0510/27 0512/27 0514/27 

JETT2 0524/27 0482/27 0486/27 0486/27 0501/27 0513/27 0515/27 

JTO 0236/02 9Cff5/02 0017/02 0019/02 0021/02 0023/02 0025/02 

0027/02 0929/02 0031/02 #033/02 0031/02 0037/02 0039/02 

0041/02 0043/02 0045/02 0047/02 0849/142 0051/02 0053/02 

0055/02 5*57/02 0069/02 0061/02 0*63/02 8065/02 0067/02 

0069/02 0#7l/02 0073/02 0075/»fc *f77/02 0079/02 0081/02 

0083/02 0465/02 0007/02 0089/02 0091/02 0093/02 0095/02 

0097/02 0099/02 0101/02 0103/02 0105/02 0107/02 0109/02 

0111/02 5113/02 0116/02 0117/02 0119/02 0121/02 0123/02 

0125/02 0U7/02 0129/02 0i3l/*2 0f&/»2 0135/02 0137/02 

0139/02 tl4}/02 0143/02 Hi 45/02 0147/02 0149/02 0151/02 

0153/02 0|§6/02 0157/02 0159/02 0161/02 0163/02 0165/02 

0167/02' 0469/02 0171/02 0173/02 0175/02 0177/02 0179/02 



#*#•#» CrUsS-kEFErENCE SYMBOL TABLE 

0i8l/tj2 0183/W2 0185/02 0187/02 0189/02 0191/02 0l93/u2 

0195/02 0197/02 0199/02 0201/02 0203/02 0205/02 0207/02 

0209/02 0211/02 0213/02 0215/02 0217/02 0219/02 0221/02 

0223/02 0225/02 0227/02 0229/02 0231/02 0233/02 0235/02 

Kl 0382/20 0290/20 0302/20 0315/20 0337/20 0350/20 0363/20 

0372/20 0403/20 0412/20 

K2 0383/20 0186/20 0305/20 0354/20 0361/20 0410/20 

K81 9 2 0582/58 0476/58 

KAO 0143 0310/29 0194/49 

KD1KW 0455/51 0221/51 

KOIHL 0456/51 0209/51 

KID1 0220/51 0399/51 

KlUlkl 0376/51 0338/51 

KIOU 0360/51 0349/51 

KIU12 0368/51 0353/51 

K1D13 0363/51 0358/51 

KID18 040U/51 0333/51 

KIQ2 0237/51 0219/51 

K1U31 0163/51 0023/51 

MD32 0166/51 0077/51 

KIU33 0076/51 0081/51 

K1D34 0111/51 0116/51 

KI035 0123/51 0113/51 

KIU36 0195/51 0118/51 

KID37 0114/51 0159/51 

KIU38 0146/51 0138/51 

KID4 0210/51 0224/51 

KID6 0330/51 0259/51 0296/51 

MU7 0255/51 0299/51 



M##M CROSS-REFERENCE SYMBOL TABLE 

KIDS 0294/51 0261/51 

KIDAA 0059/51 0031/51 

KIOAO 0099/51 0058/51 

KIDAF 0054/51 0043/51 

KIDAN 0169/51 0053/51 

K1DAZ 0171/51 0165/51 0160/51 

KIDS 0465/51 0123/51 0158/51 

KIDC 0464/51 0036/51 0057/51 0106/51 0115/51 0146/51 0172/51 
0178/51 

KIOE 0303/51 0271/51 

KIDEO 0161/51 0135/51 

KIDI 0458/51 0210/51 0212/51 0220/51 0248/51 0273/51 0275/51 

0315/51 0336/51 0360/51 0372/51 

KIOH1 0184/51 0163/51 

KIDM2 0187/51 0166/51 

KIDM3 0190/51 0169/51 

KIDP 0457/51 0040/51 0049/51 0055/51 0150/51 0153/51 0154/51 

0421/51 0450/51 

KIDPl 0460/51 0243/51 0255/51 0265/51 0278/51 0294/51 0298/61 

0304/51 0350/51 0424/51 0426/51 0430/51 0440/51 0446/51 
0448/51 

KI0P2 0461/51 0269/51 0307/51 0345/51 0356/51 0371/51 

KIDP3 0462/51 0242/51 0310/51 0354/51 

K1DP4 0463/51 0245/51 0267/51 0281/51 0282/51 0285/51 0286/51 

0269/51 0290/51 0291/51 

KIDRE 0211/51 0326/51 

KIdRR 0404/61 0324/51 0385/51 0452/51 

K1DRS 0423/51 0451/51 

KIDRT 0436/51 0432/51 

KIDRV 0439/51 0428/51 



•M### CHUSS-KEFfcRfcNCt SYMBOL TABLE 

KIORW 0447/51 0442/51 

KIUT 0459/51 0108/51 0117/51 4)137/51 0213/51 0347/51 0370/51 
0397/51 

KIL1 0602/39 0612/39 

KIL10 0639/39 0628/39 

KIL11 0661/39 0654/39 

KIL12 0180/31 0176/31 

KIL13 0172/31 0178/31 

KILU 0234/31 0188/31 

KIL15 0225/31 0194/31 

KIL17 0246/31 0240/31 

KIL18 0733/39 0665/39 0670/39 

KIU19 0/26/39 07I6/39 

KIL2 0619/39 0615/39 

KIL3 0626/39 0617/39 0/24/39 

KILAD 0698/39 0711/39 

KILAfc 0705/39 0717/39 

KILAh 0713/39 0700/39 0703/39 

KIUAJ 0718/39 0709/39 

KIL8 0798/39 07/6/39 0786/39 

KILBH 0208/51 0119/51 

KILC 0839/39 0286/31 0290/31 0377/31 0381/31 0391/31 0392/31 

0601/39 0611/39 0674/39 0096/39 0699/39 0702/39 0704/39 

0706/39 0708/39 0714/39 0715/39 

KILCU 0288/31 0298/31 

Kiur 0300/31 0295/31 

KlUCli 0372/31 0291/31 0312/31 0316/31 

KILCN 0399/31 0375/31 0386/31 0389/31 

KILCP 0422/31 0334/31 0345/31 0349/31 0368/31 0393/31 



CROSS-REFERENCE SYMBOL TABLE 



KlLCs 
KILD 



0815/39 0808/39 0810/39 0834/39 



KILOF 



KILDI 

KILDM 
KILN 

KILP 



KILPC 

kilpu 

KILRC 

KXLRO 

KILTS 

L1024 

L2E 

L8l92 

LBOP 
LBRAC 

LBTMP 



0841/39 
0191/31 
0523/31 
0096/53 
0052/58 

0842/39 
0226/31 
0477/31 
0801/39 
0328/55 
0070/58 

0843/39 
0434/31 



0133/31 
0213/31 
0643/39 
0211/53 
0126/58 

0137/31 
0235/31 
0524/31 
0833/39 
0375/55 
0117/58 

0305/31 
0472/31 



0831/39 0814/39 



0840/39 
0501/31 

0836/39 
0239/31 
0313/31 
0373/31 
0609/39 

0160/31 

0837/39 

0826/39 

0835/39 

0838/39 

0301 

0520/20 

0465 
0268/51 
0318/53 
0524/58 

0353 

04g5/04 

0473/02 



0280/31 
0662/39 

0180/31 
0246/31 
0321/31 
0410/31 
0610/39 

0155/31 
0336/31 
0753/39 
0748/39 
0592/39 
0380/34 
0455/20 

0053/28 
0422/51 
0172/54 
0563/58 

0035/05 

0029/05 

0445/19 



0146/31 
0227/31 
0774/39 
0217/53 
0533/58 

0136/31 
0238/31 
0662/39 
0437/51 
0377/55 
0537/58 

0320/31 
0509/31 



0307/31 
0762/39 

0193/31 
0248/31 
0322/31 
0413/31 
0736/39 



0340/31 
0772/39 
0768/39 
0664/39 
0211/35 



0057/28 
0149/52 
0275/54 



0375/12 

0540/06 
0448/19 



0151/31 
0237/31 
0803/39 
0218/53 



0144/31 
0364/31 
0658/39 
0094/53 
0407/55 



0384/31 
0646/39 



0211/31 
0289/31 
0332/31 
0414/31 
0740/39 



0460/31 
0247/52 
0165/55 



0067/17 



0156/31 
0479/31 
08U/39 
0280/55 



0158/31 
0366/31 
0686/39 
0209/53 
0523/55 



0387/31 
0697/39 



0172/31 
0481/31 
0832/39 
0302/55 



0192/31 
0418/31 
0688/39 
0282/55 
0525/55 



0412/31 
0710/39 



0215/31 
0292/31 
0343/31 
0599/39 
0742/39 



0225/31 
0296/31 
0346/31 
0605/39 
0744/39 



0570/57 0312/58 



0014/32 
0376/52 
0272/55 



0050/32 
0100/53 
0092/58 



0187/31 
0511/31 
0429/51 
0409/55 



0214/31 
0420/31 
0689/39 
0300/55 
0061/58 



0431/31 



0324/31 0390/31 0416/31 0464/31 



0228/31 
0310/31 
0357/31 
0608/39 
0755/39 



0639/39 0647/39 0666/39 0733/39 



0829/39 
0817/39 
0707/39 



0244/51 
0206/53 
0383/58 



0014/20 0017/20 0020/20 0024/20 



>##### CROSS-REFERENCE SYMBOL TABLE 

0145/20 0154/20 0229/20 0238/20 0351/20 0369/20 0399/20 

0416/20 0459/20 0462/20 0498/20 0501/20 0506/20 0110/21 

0132/21 0134/21 

LCALL 0004/19 0197/19 

LCD 0289/32 0261/32 0313/32 0348/32 0399/32 0734/32 0663/35 
0461/49 

LCDl 0302/32 0308/32 

LCD2 0352/32 030g/32 

LC03 0306/32 0359/32 

LCDS 0363/32 0326/32 

LCD6 0320/32 0331/32 

LCD/ 0327/32 03/1/32 0375/32 

LCD9 0341/32 0293/32 0311/32 0335/32 

LCOBS 0446/32 0300/32 0317/32 0327/32 0329/32 0353/32 0358/32 

LCOFC 61443/32 0290/32 0307/32 

LCOIO 0444/32 02yl/32 0318/32 0341/32 

LCDLR 0230/02 0566/1 1 0450/16 0282/32 

LCPP 0663/35 0402/35 

LCH 0481/02 0006/25 0038/25 

LCHAR 0148/33 0748/32 0151/33 0164/33 0169/33 0170/33 0341/33 

0022/38 0030/38 0035/36 0051/98 0064/38 0134/39 0149/39 

0169/39 0175/39 0189/39 0602/39 0606/39 0616/39 0344/40 

0362/40 0513/40 0314/41 0022/42 05(00/43 0033/44 0038/44 

0042/44 0144/44 0181/44 0200/44 0061/45 0066/45 0073/45 

0082/45 0142/45 0149/45 0288/45 0296/45 0314/45 0320/45 

0325/45 0330/45 0521/56 0454/57 

LCHCR 0174 0307/30 0149/33 0160/33 0309/45 

LCHR1 0152/33 0162/33 0196/45 

LCHR2 0162/33 0141/45 0159/45 0170/45 

LD6SA 0103 0267/43 0361/43 0514/47 0070/48 0406/49 0102/54 

0107/54 0110/54 

lORUM 0042/26 0455 0046/26 0683/32 



MMM 




CR03S- 


REFERENCE 


SYMBOL TABLE 






ldvsk 


0486 


0302/19 












LE2 


0052/21 


0043/21 












UENJ 


0020/49 


0012/45 


0017/45 










LEN2 


0096/49 


0046/45 












LEN2A 


0434/32 


0069/32 












LENCN 


0246/05 


0249/04 












LEND 


0221/33 


0434/32 


0232/33 


0239/33 


0653/45 


0088/46 


0261/46 




0526/47 


0229/48 


0465/46 


0620/48 


0714/48 


0735/48 


0744/48 




0120/49 


0492/49 


0121/50 


0497/50 


0222/51 


0401/51 


0607/51 




0682/51 


0374/52 


0471/52 


0573/52 


0118/53 


0215/53 


0219/53 




0310/53 


0411/54 


0423/55 


0326/56 


0339/56 


0462/56 


0122/57 




0139/57 


0689/57 


0729/57 


0165/58 


0182/58 


0375/58 


0397/58 




0035/59 


0084/59 


0132/59 


0275/59 


0330/59 


0376/59 


0445/59 




0450/59 














LENDR 


0224/33 


0050/49 


0142/50 


0182/51 








LENT 


0469/40 


0329/40 












LET0 


0306/03 


0539/05 












LET1 


0320/03 


0314/03 












LETCK 


0044/02 


0301/02 


0446/02 


0009/04 


0102/04 


0211/04 


0257/04 




0271/06 


0346/06 


0349/06 


0350/06 








LETOP 


0421 


0269/03 


0306/03 


0390/21 








LETS 


0309/03 


0518/05 












LFLAG 


0163 


0374/30 


03^0/30 


0217/45 


0232/45 






LFRDf 


0233/33 


0231/33 


0330/33 










LFRER 


0230/33 


0336/33 


0693/45 


0027/46 


0139/48 


0156/48 


0170/48 




0173/48 


0175/48 


0178/48 


0181/48 


0331/48 


0334/48 


0527/48 




0532/48 


0535/48 


0538/48 


0543/48 


0546/48 


0554/48 


0556/48 




0559/48 


0566/48 


0569/48 


0572/48 


0575/48 


0673/48 


0766/48 




0774/48 


0777/48 


0786/48 


0792/48 


0795/48 


0803/48 


0018/49 




0021/49 


0061/49 


0095/49 


0102/49 


0109/49 


0111/49 


0137/49 




0140/49 


0148/49 


0016/50 


0019/50 


0048/50 


0051/50 


0058/50 




0068/50 


0169/50 


0174/50 


01/7/50 


0187/50 


0193/50 


0020/51 




0463/51 


0502/51 


0615/51 


0039/52 


0063/52 


10479/52 


0019/53 




0027/53 


0030/54 


0030/54 


0012/56 


0017/56 


0379/56 


0362/56 




0425/56 


0431/56 


0014/57 


0017/57 


0029/57 


0049/57 


0052/57 




0387/57 


0393/57 


0470/57 


0481/57 


0495/57 


0015/58 


0018/58 




0029/58 


0324/58 


0018/59 


0021/59 


0026/59 


0029/59 


0036/59 




0042/69 


00,47/59 


0064/59 


0069/59 


0072/59 


0081/59 


0103/59 





CRQ3S" 


REFERENCE 


SYMBgl TABLE 






0100/59 


0111/59 


0119/59 


0125/59 


0136/59 


0141/59 


0166/59 


0172/59 


0179/59 


0183/59 


0186/59 


0191/59 


0194/59 


0199/59 


0208/59 


0211/59 


0227/59 


0244/59 


0247/59 


0249/59 


0252/59 


0255/59 


0303/59 


0306/59 


0313/59 


0415/59 


0424/59 


0430/59 


0460/59 


0463/59 












LFSPA 0436/32 


0084/32 












LIA1 031 3 


0060/26 


0271/30 










LIB 0165 


0317/30 


0319/30 


0383/33 


0385/33 


0506/37 


0496/50 


0520/54 


0054/55 


0422/55 










LIBD 0321 


0035/03 


0046/03 


0063/03 


0096/03 


0481/27 


0490/27 


0075/26 


0171/31 


0181/31 


0205/31 


0285/31 


0287/31 


0333/31 


0374/31 


0404/31 


0493/31 


0029/32 


0033/32 


0055/32 


0062/32 


0338/32 


0110/33 


0316/34 


0344/34 


0373/34 


0432/34 


0119/35 


0175/35 


0192/35 


0205/35 


0261/35 


0563/35 


0114/36 


0181/36 


0225/36 


0241/36 


0291/36 


0324/36 


0325/37 


0346/37 


0448/37 


0460/37 


0480/37 


0177/38 


0314/36 


0026/39 


0037/39 


0095/39 


0118/39 


0120/39 


0439/39 


0448/39 


0512/39 


0685/39 


0695/39 


0721/39 


0750/39 


0/70/39 


0791/39 


0812/39 


0056/41 


0212/41 


0225/41 


0384/41 


00/8/42 


0086/42 


0103/42 


0111/42 


0472/42 


W218/43 


0238/43 


0253/43 


0324/43 


0060/44 


0270/44 


0313/44 


0357/44 


0372/44 


0415/44 


0421/44 


0439/44 


0559/44 


0630/45 


0632/45 


0685/45 


0077/46 


0012/47 


0460/47 


0486/47 


0500/47 


0042/48 


0696/48 


0/30/48 


0032/49 


0034/49 


011//49 


0323/49 


0369/49 


0078/50 


0082/50 


0097/50 


0102/50 


0116/50 


0346/50 


0354/50 


0444/50 


0456/50 


0477/50 


0074/51 


0076/51 


0099/51 


0149/51 


0196/51 


0240/51 


0295/51 


0318/51 


0366/51 


0392/51 


0417/51 


0555/51 


0604/51 


0174/52 


0239/52 


0304/52 


0329/52 


0333/52 


0384/52 


0391/52 


0457/52 


0212/53 


0138/54 


0197/54 


0268/54 


0034/55 


0147/55 


0173/55 


0160/55 


0252/55 


0292/55 


0330/55 


0332/55 


0410/55 


0434/55 


0467/55 


0077/56 


0085/56 


0140/56 


0189/56 


0233/56 


0256/56 


0306/56 


0323/56 


0368/56 


0081/57 


0100/57 


0234/57 


0249/57 


0294/57 


0334/57 


0341/57 


0363/57 


0558/57 


0595/57 


0635/57 


0655/57 


0685/57 


0132/58 


0161/58 


0204/58 


0268/58 


0311/58 


0401/58 


0406/58 


0465/58 


0501/58 


0558/58 












LI8DX 0325 


0056/03 


0472/27 


0484/31 


0024/32 


0106/33 


0335/34 


0183/35 


0107/36 


0249/36 


0298/37 


0020/39 


0113/39 


0428/39 


0676/39 


0784/39 


0806/39 


0222/41 


0380/41 


0083/42 


0108/42 


0491/42 


0379/43 


0263/44 


0378/44 


0625/45 


0681/45 


0073/46 


0031/47 


0083/48 


0692/48 


0026/49 


0319/49 


0025/50 


0325/50 


0066/51 


0142/51 


0251/51 


0382/51 


0408/51 


054//51 


0170/52 


0236/52 


0285/52 


0301/52 


0366/52 


009Z/53 


0134/54 


0193/54 


0265/54 


0314/54 


0028/55 


01/7/55 


0269/55 


0303/55 


0081/56 


0133/56 


0247/56 


0263/56 


0319/56 


0364/56 


0106/57 


0202/57 


0338/57 


0554/57 


0588/57 


0644/57 


0673/57 


0127/58 


0152/58 


0307/58 


0405/58 


0481/58 


0521/58 








LIdfcH 0339/33 


0084/36 


0132/36 


0142/36 


0329/36 


0339/36 


0414/36 


0044/38 


00/6/38 


0082/38 


0102/38 


0156/38 


0214/38 


0273/38 







CROSS* 


REFERENCE 


SYMBOL TABLE 








0267/38 


0337/38 


0416/38 


0428/38 


0203/39 


0258/39 


0261/39 




0621/39 


0632/39 


0728/39 


0331/40 


0372/40 


0506/40 


0531/40 




0229/41 


0307/41 


0584/41 


0015/42 


0247/42 


0605/42 


0487/43 




0024/44 


0051/44 


0061/44 


0135/44 


0172/44 


0240/44 


0286/44 




0579/44 


0567/44 


0049/46 


0176/45 


0236/45 


0239/45 


0276/45 


U6PB 


0547/33 
0296/39 


0500/33 


0508/33 


0528/35 


0137/38 


0324/38 


0433/38 


LIBRA 


0173 


0007 


0018 


0275 


0277 


0763/32 


0764/32 




0384/33 


0392/33 


0008/34 


0009/34 


0012/34 


0013/34 


0014/34 




0015/34 


0016/34 


0017/34 


0018/34 


0019/34 


0020/34 


0021/34 




0022/34 


0023/34 


0024/34 


0025/34 


0026/34 


0027/34 


0028/34 




0029/34 


0030/34 


0031/34 


0032/34 


0033/34 


0034/34 


0035/34 




0036/34 


0037/34 


0038/34 


0039/34 


0040/34 


03541/34 


0042/34 




0043/34 


0044/34 


0045/34 


0046/^34 


0047/34 


0048/34 


0049/34 




0050/34 


0051/34 


0052/34 


0053/34 


0054/34 


0055/34 


0056/34 




0057/34 


0058/34 


0059/34 


0060/34 


0061/34 


0062/34 


0063/34 




0064/34 


0065/34 


0066/34 


0067/34 


10068/34 


0069/34 


0070/34 




0071/34 


0083/34 


0088/34 


0113/34 


0023/35 


0368/35 


0017/36 




0368/36 


0372/36 


0381/36 


0011/37 


0514/37 


0534/37 


0538/37 




0010/38 


0260/38 


0007/39 


0404/39 


0589/39 


0014/40 


0475/40 




0007/41 


0255/41 


0271/41 


0299/41 


0629/41 


0007/42 


0239/42 




0602/42 


0002/43 


0431/43 


0538/43 


0010/44 


0094/44 


0109/44 




0619/44 


0622/44 


0005/45 


0060/45 


0110/45 


0207/45 


0268/45 




0584/45 


0017/46 


0287/46 


0298/46 


0162/47 


0266/47 


0130/48 




0430/48 


0525/48 


0667/48 


0014/49 


0173/49 


0476/49 


0010/50 




0018/51 


0478/51 


0034/52 


0012/53 


0023/54 


01329/54 


0532/54 




0536/54 


0017/55 


0007/56 


0524/56 


0528/56 


0011/57 


0458/57 




0462/57 


0474/57 


0012/58 


0252/58 


0008/59 


0059/59 


0092/59 




0155/59 


0411/89 


0482/59 


0548/59 


0614/59 


0680/59 




HB8C 


0548/33 
0296/39 


0495/33 


0518/35 


0530/35 


0127/38 


0139/38 


0279/39 


LIBSP 


0549/33 


0536/33 


0522/35 


0527/35 


0578/35 


0595/35 


0131/38 




0136/38 


0194/38 


0223/36 


0283/39 


0295/39 


0318/39 


0325/39 


LIBUS 


0010/02 


0295 


0301 


0321 


0325 


0395 


0465 




0422/32 


0644/32 


0545/32 


0516/37 


0500/42 


0260/47 


0108/50 




0421/53 


0422/53 


0423/53 


10543/55 


0544/55 


0546/55 


0231/58 


LINE* 


0523/16 


§390/16 












LIS 


0032/31 


0498/29 












LIS10 


0471/21 


0004/19 


0459/21 










HSU 


0482/21 


0473/21 


0503/21 










HS12 


0507/21 


0395/21 












LIS13 


0528/21 


0515/21 


0517/21 











>*PM# CKOSS«RfcFERfcNCt SYMBOL TABU 

LIS14 0553/21 0402/21 

L1S15 0535/21 0336/21 0340/21 

LIS16 0547/21 0232/21 0292/21 

USl/ 0562/21 0557/21 

LIS18 0522/21 0519/21 

USCM 0264/21 0254/21 

LISCP 0281/2J 0256/21 0269/21 

LISCQ 0287/21 0251/21 0275/21 

USCK 0289/21 0260/21 

LISCU 0312/21 0305/21 

HSPf- 0346/21 0350/21 

LISPM 0353/21 0343/21 

LIST 0226/21 0224/21 0110/31 

UST0 0427/21 0418/21 

HST2 0334/21 0322/21 0382/21 

LIST3 0369/21 0366/21 0416/21 0438/21 0443/21 0446/21 0470/21 

0481/21 0486/21 0488/21 0497/21 0&26/21 0531/21 0564/21 

LIST4 0386/21 0371/21 0500/21 

UST5 0409/21 0389/21 0391/21 0521/21 

LIST6 0430/21 0453/21 0476/21 

LIST7 0447/21 0440/21 

LISTS 0449/21 0429/21 

LISTg 0457/21 0413/21 

LLtNtf 0182/33 0357/33 0311/36 0237/38 0447/38 0568/39 0805/39 

0819/39 0825/39 0019/40 0327/40 0502/40 0070/41 0399/41 

0194/42 0282/43 0480/43 05/5/43 0083/44 0502/44 0507/44 

0519/44 0554/44 0562/44 0091/45 0166/45 0218/45 0233/45 
0378/45 

LNAMt 0243/02 0012 0318/09 0300/21 0025/22 

LNGTH 0341/02 0186/06 02*03/06 



»#»»»# CRQSS-RfcFERENCE SYMbOI T^BlE 

LOClfcj 0152/52 0161/52 

LOCH 0157/52 0215/52 

L0C12 0162/52 0156/52 

L0C14 0176/52 0213/52 

L0C15 0209/52 0180/52 0182/52 0187/52 0192/52 

L0C16 0217/52 0206/52 

LUC20 0226/52 0160/52 

U0C21 0241/52 0275/52 

U0C22 0251/52 0270/52 

10C23 0272/52 0246/52 

L0C24 0277/52 0263/52 

L0C25 0267/52 0259/52 

L0C3 0305/52 0311/52 

LOC30 0297/52 0229/52 0276/52 

L0C4 0313/52 0320/52 

LOC40 0378/62 0465/52 

L0C41 0394/52 0444/52 

LOC42 0413/52 0400/52 

L0C43 0445/52 0441/52 

L0C44 0436/52 0412/52 

L0C5 0340/52 0358/52 

LOCAP 0108/52 0106/52 01^09/52 0111/52 

IOCCM 0579/52 0123/52 

LOCO 0594/52 0042/52 0051/52 0059/52 

LOCDA 0578/52 0105/52 

LOCOG 0497/52 0478/52 0484/52 0499/52 0503/52 0506/52 0507/52 

LOCOi 0590/52 0153/52 0167/52 0194/52 0214/52 0250/52 0269/52 



****** CROSS-HtFERtNCfc SYMBOL TA81.E 

0380/52 0435/52 0437/52 0443/52 0450/52 

UQCDL 0575/52 0093/52 

LOCqP 0591/52 0177/52 0178/52 0197/52 0210/52 0418/52 0428/52 
0432/52 

LOCOT 0096/52 0094/52 0097/52 0099/52 0101/52 

LOCDU 0582/52 0159/52 

LOCEK 0562/52 0219/52 0550/52 0555/52 0559/52 0566/52 

LOCF 0597/52 0052/52 0066/52 0183/52 *305/52 0339/52 0524/52 

LOCF1 0030/32 0052/32 

LOCFB 0017/32 0065/32 

LOCFG 0032/32 0038/32 

LOCFR 0060/32 0034/32 

LOCL 0598/52 0060/52 0189/52 0313/52 0355/52 053tf/52 

LOCLL 0576/52 0346/52 

L0CM6 0580/52 0J25/52 

LDCN 0595/52 0480/52 0486/52 0488/52 0492/52 

LOCN1 0480/52 0491/52 

L0CN2 0492/52 0485/52 

LOCND 0593/52 0385/52 0446/52 

LOCNO 0477/52 0035/52 0048/52 0056/52 0481/52 0493/52 0494/52 

LOCNT 0589/52 0075/52 0068/52 0092/52 0100/52 0104/52 0110/52 

0124/52 0130/52 0166/52 0212/52 0234/52 02/4/52 0345/52 

0352/52 0353/52 0375/52 0439/52 0463/52 

LUCK1 0554/52 0046/52 0548/52 

L0CH2 0558/52 0068/52 0483/52 

LOCSL 0128/52 0126/52 0129/52 0131/52 

IQCST 0577/52 0076/52 

LOCSW 0079/52 0077/52 0080/52 0085/52 0087/52 0089/52 

LOCj 0596/52 0340/52 0354/52 0563/52 0570/52 
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cross-reference symbol table 



LOCTC 


0588/52 


0456/31 


0009/32 


0247/51 


0292/51 


0321/51 


0323/51 




0331/51 


0334/51 


0420/51 


0082/52 


0084/52 


0148/52 


0208/52 




0227/52 


0230/52 


0249/52 


0372/52 








LOCTR 


0592/52 


0150/52 


0195/52 


0196/52 


0198/52 


0199/52 


0202/52 




0203/52 


0207/52 


0240/52 


0242/52 


0254/52 


0257/52 


0260/52 




0262/52 


0265/52 


0266/52 


0271/52 


0273/52 


0279/52 


0288/62 




0377/52 


0379/52 


0395/52 


0396/52 


0404/52 


0408/52 


0411/52 




0416/52 


0421/52 


0424/52 


0442/52 


0285/54 






LOCTS 


0518/52 


0078/52 


0063/52 


0095/52 


0107/52 


0113/52 


0115/52 




0117/52 


0120/52 


0127/52 


0292/52 


0519/52 


0520/52 


0523/52 




0528/52 


0533/52 


0538/52 










LOCUP 


0563/52 


0469/52 












LOCUI 


0584/52 


0470/52 












LODIR 


0581/52 


0151/52 












LOGdF 


0100/29 
0094/29 


0066/29 


0070/29 


0077/29 


0079/29 


0084/29 


0091/29 


LOGBG 


0357 


0060/29 


0357/39 


0479/39 


0345/49 






LOGCT 


0339 


0051/29 


0056/29 


0190/30 


0351/39 


0375/39 


04 7 3/39 




0499/39 


0339/49 


0366/49 


0378/49 








LOGGR 


0124/31 


0341 


0351 


0357 


0359 






LOGND 


0359 


0059/29 


035 6 /39 


04 78 /39 


0344/49 






LOGPl 


0341 
0085/29 


0057/29 
0089/29 


0061/29 
0092/29 


0062/29 


0071/29 


0080/29 


04)81/29 


L0GP2 


0351 


0354/39 


0359/39 


0360/39 


0371/39 


0374/39 


0476/39 




0480/39 


0483/39 


0484/39 


0498/39 


0342/49 


0346/49 


0349/49 




0350/49 


0365/49 












L0GR2 


0099/29 


0096/29 












LOUT 


0118/33 


0435/32 


0745/32 


0122/33 


W129/33 


0134/33 


0183/33 




0520/39 


0527/39 


0533/39 


0536/39 


0014/41 


0026/41 


0029/41 




0036/41 


0050/41 


0069/41 


0082/41 


0084/41 


0088/41 


0102/41 




0111/41 


0120/41 


0140/41 


0142/41 


0144/41 


0146/41 


0167/41 




0199/41 


0340/41 


0343/41 


0407/41 


0414/41 


0459/41 


0461/41 




0488/41 


0495/41 


0497/41 


0510/41 


0547/41 


0549/41 


0555/41 




0562/41 


0567/41 


0569/41 


0571/41 


0596/41 


0599/41 


0608/41 




0611/41 


0047/42 


0050/42 


0123/42 


0130/42 


0137/42 


0143/42 




0147/42 


0149/42 


0151/42 


0153/42 


0172/42 


0174/42 


0176/42 




0186/42 


0190/42 


0193/42 


0203/42 


0206/42 


0216/42 


0264/42 




0278/42 


0313/42 


0320/42 


0337/42 


0404/42 


0423/42 


0442/42 




0516/42 


0618/42 


0621/42 


0648/42 


0675/42 


0682/42 


0684/42 
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CRuSS-HtFtRfc N Ct SYMBqL TAbLE 



LOUTA 

LPCK 

LPO 

LPMJ 

UPM2 

LPOP 

LPR 

LPR1 

L.PR2 

LPR3 

IPS 

LPSTK 

LSO 

LSTDA 

LT0 

LT1 



U2 



LT3 



LT4 



0686/42 
0395/43 
0401/45 

0518/56 

0435/32 
0177/32 

0209/32 

0032/02 

0U9 

0242/45 

0246/45 

0355 

014B 

0220/45 

0234/45 

0237/45 

0150 

0636/32 

0461/49 

0104 

0313/02 

0314/02 
0378/16 
0330/21 
0367/21 
0482/21 
0619/21 

0315/02 
0370/21 
0615/21 

0316/02 
0234/21 
0423/21 

0317/02 
0623/21 



0014/43 
0574/43 
0432/45 

0452/57 

0154/32 
0179/32 
0211/32 

0391/02 

0053/30 
0235/45 
0238/45 
0282/04 
0221/45 
0213/45 
0216/45 
0227/45 
0003/43 
0459/32 
0267/49 
0372/43 
0227/21 

0319/09 
0391/16 
0334/21 
0369/21 
0490/21 



0019/43 0261/43 0297/43 
0599/43 0609/43 0029/45 
0435/45 0437/45 0509/45 



0156/32 0158/32 0160/32 

0190/32 0192/32 0196/32 

0221/32 0224/32 

0374/03 0134/04 0266/04 

0058/^9 0410/39 0208/49 



0308/43 
0040/45 
0512/45 



0169/32 
0198/32 



0314/43 
0043/45 
0530/45 



0172/32 
0207/32 



0067/06 0553/06 



0551/06 



0096/47 



0433/47 

0321/21 

0573/11 
0419/16 
0337/21 
0386/21 
0494/21 



0412/49 

0373/21 

0585/11 
0426/16 
0355/21 
0409/21 
0509/21 



0130/54 

0537/21 

0326/16 
0434/16 
0359/21 
0462/21 
0554/21 



0368/16 
0437/16 
0360/21 
0464/21 
0614/21 



0371/16 

0301/21 
0362/21 
0465/21 
0616/21 



0325/09 0590/11 0324/16 0386/16 0307/21 0365/21 
0463/21 0466/21 0483/21 0495/21 0523/21 0529/21 



0314/16 0336/16 0340/16 0343/16 0373/16 0499/16 

0265/21 0288/21 0294/21 0329/21 04U/21 04i5/2l 

0430/21 0435/21 0477/21 0589/21 0599/21 

0484/21 0498/21 0613/21 0574/21 0577/21 4*11/21 



»»»##» 



CROSS-REFERENCE SYMBOL TABLE 



LT5 

LT6 

LT7 
LT8 
LTEMP 



0318/02 
0242/16 
0478/16 

0319/02 
0335/21 

0320/02 

0321/02 

0039 

0038/03 

0074/03 

0083/32 

0110/32 

0125/32 

0170/32 

0219/32 

0249/33 

0244/34 

0302/34 

0548/34 

0555/34 

0063/35 

0087/35 

0104/35 

0349/35 

0487/35 

0666/35 

0333/36 

0362/36 

0054/38 

0234/38 

0246/38 

0032/39 

0388/39 

0442/39 

0613/39 

0842/39 

0453/40 

0460/40 

0487/40 

0498/40 

0011/41 

0235/41 

0278/41 

0345/41 

0365/41 

0412/41 

0436/41 

0448/41 

0487/41 



0401/11 
0316/16 
0240/21 



0408/11 
0362/16 
0417/21 



0516/11 
0397/16 
0489/21 



0521/11 0229/16 0241/16 
0399/16 0407/16 0453/16 



0231/16 0338/16 0383/16 0388/16 0247/21 0290/21 



0249/21 
0229/21 

0287 

0050/03 
0076/03 
0085/32 
0113/32 
0126/32 
0173/32 
0222/32 
0250/33 
0247/34 
0346/34 
0549/34 
0556/34 
0066/35 
0088/35 
0124/35 
0350/35 
0515/35 
0667/35 
0356/36 
0363/36 
0061/38 
0240/38 
0247/38 
0248/39 
0389/39 
0443/39 
0836/39 
0843/39 
0454/40 
0461/40 
0490/40 
0499/40 
0012/41 
0236/41 
0284/41 
0350/41 
0370/41 
0415/41 
0437/41 
0450/41 
0489/41 



0273/21 

0283/21 

0021/03 
0052/03 
0081/03 
0087/32 
0116/32 
0132/32 
0174/32 
0319/32 
0251/33 
0259/34 
0349/34 
0550/34 
0030/35 
0069/35 
0089/35 
0162/35 
0351/35 
0601/35 
0668/35 
0357/36 
0364/36 
0063/38 
0241/38 
0439/38 
0250/39 
0390/39 
0572/39 
0837/39 
0448/40 
0455/40 
0462/40 
0492/40 
0521/40 
0043/41 
0237/41 
0333/41 
0351/41 
0375/41 
0428/41 
0438/41 
0451/41 
0499/41 



0338/21 
0342/21 

0022/03 
0064/03 
0082/03 
0088/32 
0119/32 
0133/32 
0183/32 
0321/32 
0252/33 
0263/34 
0350/34 
0551/34 
0032/35 
0072/35 
0090/35 
0167/35 
0406/35 
0602/35 
0669/35 
0358/36 
0423/36 
0092/38 
0242/38 
0450/38 
0267/39 
0391/39 
0573/39 
0838/39 
0449/40 
0456/40 
0479/40 
0493/40 
0522/40 
0065/41 
0238/41 
0335/41 
0352/41 
0385/41 
0431/41 
0440/41 
0455/41 
0503/41 



0345/21 0349/21 0352/21 



0025/03 
0066/03 
0084/03 
0097/32 
0121/32 
0162/32 
0186/32 
0324/32 
0547/33 
0272/34 
0545/34 
0552/34 
0036/35 
0075/35 
0094/35 
0172/35 
0436/35 
0606/35 
0670/35 
0359/36 
0425/36 
0124/38 
0243/38 
0451/38 
0290/39 
0392/39 
0574/39 
0839/39 
0450/40 
0457/40 
0480/40 
0494/40 
0539/40 
0216/41 
0239/41 
0337/41 
0356/41 
0394/41 
0432/41 
0441/41 
0457/41 
0506/41 



0033/03 
0072/03 
0092/03 
0101/32 
0122/32 
0164/32 
0188/32 
0363/32 
0548/33 
0286/34 
0546/34 
0553/34 
0037/36 
0079/35 
0097/35 
0245/35 
0443/35 
0664/35 
0316/36 
0360/36 
0016/38 
0229/38 
0244/38 
0027/39 
0386/39 
0393/39 
0575/39 
0840/39 
0451/40 
0458/40 
0483/40 
0495/40 
0545/40 
0233/41 
0240/41 
0341/41 
0362/41 
0400/41 
0433/41 
0442/41 
0462/41 
0511/41 



0037/03 
0073/03 
0093/03 
0105/32 
0123/32 
0166/32 
0199/32 
0367/32 
0549/33 
0291/34 
0547/34 
0554/34 
0046/35 
0084/35 
0099/35 
0348/35 
0448/35 
0665/35 
0321/36 
0361/36 
0050/38 
0230/38 
0245/38 
0031/39 
0387/39 
0440/39 
0596/39 
0841/39 
0452/40 
0459/40 
0485/40 
0497/40 
0010/41 
0234/41 
0241/41 
0344/41 
0364/41 
0408/41 
0435/41 
0443/41 
0470/41 
0514/41 
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0516/41 
0532/41 
05613/41 
0040/42 
0066/42 
0114/42 
0136/42 
0164/42 
0220/42 
0308/42 
0376/42 
0409/42 
0458/42 
0497/42 
0517/42 
0552/42 
0596/42 
0712/42 
0040/43 
0071/43 
0104/43 
0135/43 
0163/43 
0230/43 
0290/43 
0339/43 
040fc)/43 
0619/43 
0089/44 
0348/44 
0498/44 
0610/44 
0035/45 
0251/45 
0372/45 
0419/45 
0573/45 
0800/45 
0056/46 
0110/46 
0129/46 
0164/46 
0225/4b 
0359/46 
0459/46 
0054/47 
0101/47 
0233/47 
0284/47 
0342/47 
0382/47 
0474/47 
0021/48 
0058/48 



0521/41 
0535/41 
0563/41 
0042/42 
0079/42 
0115/42 
0140/42 
0168/42 
0222/42 
0314/42 
0377/42 
0411/42 
0468/42 
0500/42 
0519/42 
0571/42 
0646/42 
0008/43 
0043/43 
0074/43 
0105/43 
0138/43 
0167/43 
0233/43 
0303/43 
0340/43 
0408/43 
0620/43 
0113/44 
0350/44 
0503/44 
0611/44 
0036/45 
0282/45 
0376/45 
0450/45 
0574/45 
0045/46 
0061/46 
0111/46 
0136/46 
0165/46 
0236/46 
0372/46 
0475/46 
0057/47 
0105/47 
0242/47 
0285/47 
0353/47 
0385/47 
0478/47 
0027/48 
0069/48 



0522/41 
0537/41 
0594/41 
0044/42 
0081/42 
0124/42 
0141/42 
0183/42 
0269/42 
0321/42 
0379/42 
0425/42 
0471/42 
0503/42 
0526/42 
0574/42 
0649/42 
0012/43 
0046/43 
0078/43 
0108/43 
0141/43 
0174/43 
0242/43 
0309/43 
0360/43 
0525/43 
0015/44 
0302/44 
0352/44 
0604/44 
0010/45 
0041/45 
0283/45 
0300/45 
0452/45 
0575/45 
0046/46 
0068/46 
0113/46 
0137/46 
0166/46 
0238/46 
0380/46 
0479/46 
0059/47 
0109/47 
0273/47 
0286/47 
0357/47 
0397/47 
0490/47 
0033/48 
0092/48 



0523/41 
0538/41 
0597/41 
0048/42 
0088/42 
0128/42 
0144/42 
0201/42 
0271/42 
0329/42 
0382/42 
0427/42 
0473/42 
0507/42 
0527/42 
0579/42 
0656/42 
0016/43 
0047/43 
0082/43 
0112/43 
0143/43 
0176/43 
0255/43 
0315/43 
0375/43 
0526/43 
0066/44 
0304/44 
0459/44 
0605/44 
0020/45 
0044/45 
0284/45 
0364/45 
M476/45 
0576/45 
0047/46 
0078/46 
0114/46 
0138/46 
0161/46 
0290/46 
0389/46 
0491/46 
0066/47 
0219/47 
0275/47 
0305/47 
0364/47 
0405/47 
0502/47 
W041/48 
0112/48 



0525/41 
0543/41 
0605/41 
0051/42 
0098/42 
0131/42 
0154/42 
0204/42 
0279/42 
0338/42 
0388/42 
0431/42 
0474/42 
0509/42 
0528/42 
0588/42 
0658/42 
0035/43 
0048/43 
0084/43 
0U9/43 
0146/43 
0182/43 
0262/43 
0323/43 
0388/43 
0527/43 
0075/44 
0308/44 
0463/44 
0606/44 
0026/45 
0045/45 
0356/45 
0*92/45 
0479/45 
0797/45 
0049/46 
0085/46 
0117/46 
0147/46 
0182/46 
0320/46 
0403/46 
0008/47 
0067/47 
0221/47 
0277/47 
0316/47 
0374/47 
0409/47 
0509/47 
0044/48 
0418/48 



0527/41 
0550/41 
0609/41 
0052/42 
0104/42 
0133/42 
0156/42 
0214/42 
0296/42 
0352/42 
0398/42 
0446/42 
0481/42 
05U/42 
0542/42 
0590/42 
0661/42 
0037/43 
0067/43 
0069/43 
0121/43 
0159/43 
0217/43 
0269/43 
0329/43 
0391/43 
0617/43 
0084/44 
0319/44 
0489/44 
0606/44 
0031/45 
0081/45 
0360/45 
0402/45 
0528/45 
0798/45 
0053/46 
0089/46 
0119/46 
0153/46 
0183/46 
0321/46 
0436/46 
0027/47 
0079/47 
0224/47 
0278/47 
0320/47 
0377/47 
0417/47 
0006/48 
0045/48 
0421/48 



0530/41 
0566/41 
0632/41 
0063/42 
0106/42 
0135/42 
0160/42 
0217/42 
0298/42 
0367/42 
0401/42 
0454/42 
0487/42 
0514/42 
0545/42 
0591/42 
0663/42 
0039/43 
0070/43 
0101/43 
0126/43 
0162/43 
0223/43 
0288/43 
0331/43 
0396/43 
0618/43 
0088/44 
0324/44 
0495/44 
0609/44 
0032/45 
0089/45 
0364/45 
0400/45 
0531/45 
0799/45 
0055/46 
0096/46 
0120/46 
0163/46 
0202/46 
0329/46 
0446/46 
0047/47 
0089/47 
0226/47 
0281/47 
0327/47 
0380/47 
0459/47 
0008/48 
0056/48 
0422/48 



##•### 



CR03S»RtFERENCE SYMBOL TAbLE 



LTR 

LTYP1 
UTYP2 
LTYP3 

LTYPE 
LTYPR 

UULEN 



0423/48 
0547/48 
0604/48 
0626/48 
0813/48 
0234/49 
0288/49 
0322/49 
0363/49 
0465/49 
0061/50 
0507/50 
0461/51 
0589/52 
0596/52 
0411/53 
0566/54 
0573/54 
0511/56 
0020/57 
0079/57 
0135/57 
0244/57 
0311/57 
0449/57 
0533/57 
0671/57 
0021/58 
0178/58 
0256/58 
0571/58 
0030/59 
0099/59 
0387/99 
0477/59 

0036/02 
0116/05 

0145/33 

0146/33 

0127/33 

0139/33 

0124/33 
0564/43 

0295 
0205/52 



0424/48 
0548/48 
0512/48 
0627/48 
0814/48 
0239/49 
0301/49 
0334/49 
0372/49 
0457/49 
0063/50 
0508/50 
0462/51 
0590/52 
0597/52 
0412/53 
0567/54 
0574/54 
0512/56 
0061/57 
0082/57 
0141/57 
0255/57 
0443/57 
0487/57 
0539/57 
0730/57 
0023/66 
0199/58 
0261/58 
0572/58 
0033/59 
0100/59 
0308/99 
0478/59 



0507/46 
0550/48 
0617/48 
0629/48 
0815/48 
0248/49 
0303/49 
0347/49 
0374/49 
0029/50 
0064/50 
0509/50 
0463/51 
0591/52 
0598/52 
0413/53 
0568/54 
0078/56 
0513/56 
0069/57 
0085/57 
0158/57 
0260/57 
0444/57 
0489/57 
0639/57 
0725/57 
0025/58 
0208/58 
0264/56 
0573/58 
0061/59 
0112/59 
0389/59 



0508/48 
0551/46 
0618/48 
0638/48 
0156/49 
0249/49 
0304/49 
0352/49 
0443/49 
0036/50 
0135/50 
0457/bl 
0464/51 
0592/52 
0407/53 
0414/53 
0569/54 
0087/56 
0514/56 
0070/57 
0095/57 
0161/57 
0284/57 
0445/57 
0491/57 
0641/57 
0754/57 
0031/58 
0233/58 
0567/58 
0574/58 
0073/39 
0114/59 
0390/69 



0510/48 
0562/48 
0623/48 
0646/40 
0157/49 
0265/49 
0308/49 
0357/49 
0445/49 
0030/50 
0137/50 
0458/51 
0465/51 
0593/52 
0408/53 
0415/53 
0570/54 
0456/56 
0515/56 
0071/57 
0112/57 
0164/57 
0286/57 
0446/57 
0497/57 
0648/57 
0755/57 
0043/58 
0234/50 
0568/58 
0011/59 
0075/59 
0120/59 
0391/59 



0393/02 0361/03 0368/03 0007/04 

0213/05 0399/05 0272/06 0273/06 

0125/33 0130/33 0136/33 

0126/33 0127/33 0133/33 0135/33 

0137/33 

0747/32 0144/33 0339/33 0540/39 

0746/32 0132/33 0138/33 0140/33 

0612/43 0519/56 0453/57 

0109/37 0144/37 0167/37 0177/37 
0235/54 



05U/48 
0577/48 
0624/48 
0648/48 
0158/49 
0269/49 
0309/49 
0358/49 
0451/49 
0040/50 
0505/50 
0459/51 
0687/51 
0594/52 
0409/53 
(0416/53 
0571/54 
0458/56 
0516/56 
0076/57 
0113/57 
0166/57 
0288/57 
0447/57 
0509/57 
k»652/57 
0756/57 
0109/58 
0235/58 
0569/58 
0015/59 
0079/59 
0122/59 
0392/99 



0100/04 
0278/06 



0536/48 
0579/48 
0625/48 
0649/48 
0159/49 
0284/49 
0313/49 
KJ361/49 
0452/49 
0054/50 
0506/50 
0460/51 
0588/52 
0595/52 
0410/53 
0565/54 
0572/54 
051U/56 
0517/56 
0076/57 
0133/57 
0240/57 
0310/57 
0448/57 
0526/57 
0659/57 
0757/57 
0173/58 
0254/58 
0570/58 
0016/59 
0095/59 
0126/59 
0393/59 



0267/04 



0143/33 
0216/37 



0539/43 



0270/51 



LW200 0165/03 0278/03 
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CRUSS-REFERENCE SYMBOL TABLE 



1*97 0379 



0538/35 0147/38 0326/38 0306/39 



LWAUS 0250 0418/04 
l 98/ 1 6 »20i/i6 
0142/38 0301/39 



0602/05 0520/06 0185/09 0299/12 0477/14 
0028/ib 0032'lB 0327/34 0533/35 0409/36 



M1000 0010/19 0063/19 

M103 0260/05 0563/06 

M10K 0598/44 0430/44 

M124 0514/20 0463/20 

M128 0451 0140/43 0379/4/ 

M133, 0003/33 0261/33 

M133B 0619/28 0125/30 



M2000 0425 0424/09 
0230/35 0442/35 
0050/51 0139/51 



M256 



M32 



0449 0501 

0449/15 0527/15 

0488/42 0028/4/ 

0212 0330/14 

0437/30 0253/32 

0055/36 0212/38 

0283/49 0444/49 



0469/27 
0060/38 
0231/52 

0209/09 
0102/16 
0080/53 

0422/19 
0390/32 
0426/38 
0035/51 



0240/34 
0017/39 
0260/54 

0273/U 
0498/19 
0196/53 

0489/25 
0167/33 
0030/39 
0105/51 



0332/34 
0425/39 
0551/57 

0255/14 
0507/19 
0018/55 

W484/27 
0376/33 
0441/39 
0151/51 



0359/34 
0672/39 
0083/56 

0252/15 
0108/20 
0062/59 

0030/28 
0347/34 
0687/39 



0180/35 
0277/41 

0304/58 

0390/15 
0287/22 



0263/30 
0637/34 
0233/49 



M36K 

M40 

M41B 

M46 

M512 

M608 

M64 

M682 

M683 

M71B 



0621/2& 0652/2» 

0601/44 0419/44 0434/44 

0618/28 0112/30 

0007/23 0302/24 

0439 0320/30 0387/33 0356/43 0065/48 0403/49 0100/54 

0617/28 0096/30 

0500 0110/26 0287/3/ 0423/37 0220/44 0313/50 0417/50 

0512/37 0043/37 

0513/37 0045/37 

0094/2I 02e2/2l 







CROSS. 


REFERENCE 


SYMBOL TABLE 






M72 


0007/12 


0217/12 












M72B 


0211 
0503/43 
0790/48 
0346/68 


0323/21 
0186/44 
0135/49 
0067/59 


0391/21 
0202/44 
0159/50 
0301/59 


0539/21 
0484/45 
0637/51 
0458/59 


0275/33 
0329/48 
0501/52 


0178/39 
0530/48 
0239/53 


0346/40 
0541/48 
0340/54 


M73 


0441 


0405/03 


0103/05 


0180/23 








M74 


0629/11 


0078/11 






1 






M80 


0510/37 


0491/37 












M8184 


0411 


0177/36 


0117/37 


0153/37 


0309/44 


0185/56 


0245/57 


M8190 


0430/32 


0401/31 












M81g2 


0432/32 


0202/31 












M96 


0453 
0535/34 


0328/14 


0420/19 


0387/26 


0071/26 


0435/30 


0165/33 


MADD 


0245/18 


0014/17 












MAPDA 


0014/17 


ea»7/i7 












MACt 


0036/59 


0013/59 












MA(}& 


0033/59 


0023/59 


0037/59 










MAGOt 


0040/59 


0009/59 


0014/59 


0049/59 








MAGSC 


0089 


0259/42 


0261/42 


0310/46 


0312/46 


0478/49 


0034/59 


main 


0164 

0619/05 

0045/07 

0369/09 

0579/U 

0444/16 

0404/19 

0225/30 

0402/32 

0413/38 


0192/03 
0629/05 
0047/07 
0237/H 
0592/11 
0446/16 
0167/21 
0227/30 
0410/32 
0425/38 


0193/03 
0049/06 
8060/07 
0266/11 
0598/H 
0458/16 
0178/21 
0230/30 
0535/33 
0446/38 


0240/03 
0050/06 
03U6/09 
0297/11 
0209/12 
0506/16 
0239/21 
0254/30 
0615/35 
0624/39 


0418/03 
0187/06 
0312/09 
0552/11 
0253/16 
0508/16 
0032/22 
0313/30 
0645/35 
0326/40 


0433/03 
0242/06 
0313/09 
0554/11 
0254/16 
0510/16 
0465/27 
0381/32 
0207/38 
0479/43 


0463/03 
0254/06 
0368/09 
0574/H 
0320/16 
0389/19 
0552/29 
0397/32 
0334/36 
0484/43 


MANTl 


0302/02 
0205/22 
0256/23 


0095/19 

0212/22 
0262/23 


0287/19 

0232/22 
0268/23 


0059/22 
0244/22 
0279/23 


0092/22 
0249/22 
0145/25 


0168/22 
0317/22 


0191/22 
0332/22 


MANT2 


0303/02 
0202/22 
0147/25 


0097/19 
0213/22 


0288/19 
0233/22 


0060/22 
0323/22 


0088/22 
0331/22 


0169/22 
0335/22 


0197/22 
0284/23 


MAT10 


0074/04 


0084/04 













>»»#M CkOSS-RfcFfcRENCfc SYMBOL TABUt" 

MATH 1008.3/04 0069/04 

MAT12 0054/04 0067/04 

MAT13 0066/04 0047/04 

MATFN 0525/04 0108/04 

MATFS 0521/22 0525/04 

MATIU 0526/04 0017/04 

MATQP 0009/07 0072/08 

MATS 0007/04 0535/05 

MATS1 0033/04 0024/04 0026/04 0io28/04 0U42/04 

MATS2 0043/04 0022/04 

MATS3 0069/04 0010/04 

MATS4 0130/04 0122/04 

MATS5 0141/04 0101/04 

MATS6 0149/04 0103/04 

MATS/ 0162/04 0176/04 

MATS8 0170/04 0J66/04 

MAT59 0172/04 0161/04 

MAXc« 0339/02 0285/03 0293/03 0506/03 0540/03 0016/04 0202/04 

0207/05 0239/05 0219/06 

MAXt 0433/02 0035/18 0036/18 0043/18 0079/18 0080/18 0089/18 

0094/18 0136/18 0144/18 0155/18 0168/16 0201/18 0204/18 

0217/18 0220/18 0268/18 02/3/18 

MAXFX 0031/19 0086/19 

MAXSN 0413 0117/06 0171/40 

MB 0054/21 0031/21 

MBUST 0521 0190/29 0175/30 01/8/30 

MBUSY 0110 0174/03 0221/15 0497/15 0191/29 0160/30 0173/30 

0542/35 0564/35 0137/36 0307/36 0151/38 0200/38 0268/38 

0282/38 0329/38 0361/38 0401/38 0678/57 0722/57 0136/58 
0175/58 



»###M CWOSSwREFERENCE SYMbUl TABLE 

MES32 0144/45 0151/45 

MESS4 «lb«J/45 »U7/4b «l50/45 

MESWK 0190/45 0156/45 0169/45 

MEXIT 0418/02 0163/1/ 0256/17 0040/18 0056/18 

MHAO 0106 0134/31 0302/42 0469/42 0547/42 0353/46 0009/47 

0084/47 0387/49 0045/53 0056/54 

M10 0043 0291/33 0085/50 0215/51 0257/51 

MINFX 0030/19 0091/19 

MINP1 0005/17 0083/17 

MINP2 0004/17 0085/1/ 

MIOl 0045/17 0154/17 

MI02 0098/17 0066/17 

MI03 0128/17 0111/17 

MI04 0117/1/ 0122/17 

MI05 0132/17 0140/17 

MI06 0135/17 0131/1/ 

MI07 0149/17 0628/H 0096/17 0123/17 

MI08 0130/17 0145/17 

MI09 0089/17 0077/17 0095/17 

MIOEN 6 28/ll 0255/10 

ML819 «546/55 0513/55 

MLDIK 0527/54 0174/54 

MLELA 0024/33 0055/55 

MLI6D 0395 0254/31 0361/31 0261/36 0338/37 0737/39 0366/41 

0390/44 0645/45 0057/46 0088/51 0323/52 0275/56 0222/57 
0625/57 

MLINK 0178 0181 0084/07 0349/07 0386/07 0421/09 0379/19 

0561/28 0688/28 0008/29 0014/29 0165/29 0187/30 0188/30 

0333/30 0360/30 0369/30 038J/30 0386/30 0451/30 0455/30 

0508/30 0509/30 0520/30 0530/30 0231/32 0259/32 0265/32 

0056/33 0075/33 0098/33 0119/33 0152/33 0254/33 0352/33 



crqss»reference symbol table 



MLKJ 

HLKiia 

MLKH 

MtKl2 

MLKJ3 
MLKM 
MLK15 

MLK16 
MLK17 

MLK2 
MLK20 

MLK21 
MLK22 
MLK23 
HLK24 
MLK25 
MLK26 

MLK3 
MLK3B 

MLK4 



0397/33 
0209/34 
0019/36 
0411/38 
0226/39 
8542/39 
0477/40 
0316/41 
0008/42 
0560/42 
0095/44 
0007/45 
0183/49 

0031/54 

0151/54 

0175/54 

0180/54 

0185/54 

0199/54 

0239/54 

0246/54 

0224/54 

0044/54 

0255/54 

0270/54 

0279/54 

0300/54 

0306/54 

0295/54 

0324/54 

0049/54 

0517/54 

0053/54 



0413/33 
0339/34 
0382/36 
0423/38 
0244/39 
0593/39 
0540/40 
0326/41 
0024/42 
0692/42 
0110/44 
0066/45 



0415/33 
0024/35 
0012/38 
0435/38 
0331/39 
0680/39 
0038/41 
0353/41 
0033/42 
0704/42 
0464/44 
0121/45 



0440/33 
0187/35 
0182/38 
0008/39 
0405/39 
0822/39 
0153/41 
0395/41 
0057/42 
0477/43 
0466/44 
0208/45 



0462/33 
0392/35 
0205/38 
0041/39 
0414/39 
0015/40 
0177/41 
0426/41 
0116/42 
0482/43 
0476/44 
0269/45 



0502/33 
0566/35 
0261/38 
0053/39 
0432/39 
0021/40 
0274/41 
0575/41 
0177/42 
0541/43 
0478/44 
0548/45 



0027/54 

0140/54 0152/54 0154/54 

0184/54 

0245/54 

0179/54 

0243/54 

0205/54 

0236/54 

0206/54 

0025/54 0035/54 0066/54 0080/54 0084/54 

0183/54 

0303/54 

0298/54 

0274/54 

0291/54 

0287/54 

0320/54 

0029/54 

0258/54 0304/54 

0043/54 



0530/33 
0589/35 
0332/38 
0214/39 
0453/39 
0324/40 
0300/41 
0630/41 
0240/42 
0012/44 
0466/44 
0560/45 



*##M* CROSS-REFERENCE SYMBOL TABLE 

MLK40 0167/55 (0260/55 

MLK41 0183/55 0239/55 

MLK42 0217/55 0208/55 0212/55 

MLK43 0240/55 0236/55 

MLK5 0067/54 0073/54 

MLK5k) 0274/55 0268/55 

MLK51 0284/55 0279/55 

MLK57 0308/55 0324/55 

MLK58 0325/55 0311/55 

MLK59 0298/55 0163/55 

MLK6 0099/54 0090/54 

MLK60 0334/55 0348/55 

MLK61 0352/55 0340/55 

MLK62 0366/55 0359/55 

MLK63 0381/55 0426/55 0427/55 

MLK64 0406/55 0350/55 0384/55 0390/55 

MLK65 0424/55 0342/55 

MLK66 0362/55 0396/55 0398/55 

MLK67 0403/55 0361/55 

MLK7 0113/54 0122/54 

MLK71 0035/55 0048/55 

MLK72 0051/55 0117/55 

MLK73 0056/55 0042/55 

MLK74 0066/55 0109/55 0112/55 0136/55 

MLK75 0088/55 0083/55 

MLK76 0093/55 0102/55 

MLK77 0103/55 0095/55 0098/55 



• ##M# CROSS-REFERENCE. SYMBOL TABLE 

MLK78 0110/55 0044/55 

MLK79 0120/55 0129/55 

MLK8 0117/54 0112/54 0U8/54 0120/54 

MLK80 0130/55 0124/55 

MLK81 0137/55 0038/55 

MLK82 0145/55 0050/55 0088/55 007j/55 0080/55 0J39/55 

MLK9 0147/54 0156/54 

MLK98 0414/55 0351/55 

MLK99 0419/55 0062/55 

MLKBR 0573/54 0421/54 0423/54 0479/54 0488/54 0489/54 0491/54 

0090/55 0108/55 0113/55 0123/55 0192/55 0224/55 0228/55 
0314/55 

MLKC1 0441/54 0431/54 

MLKC2 0449/54 0440/54 

MLKC3 0466/54 0530/54 

MUKC4 0472/54 0446/54 

MLKC5 0468/54 0437/54 

MLKCK 0417/54 0U6/54 0150/54 0203/54 0323/54 0420/54 0422/54 

0427/54 0435/54 0444/64 0473/54 M74/54 0475/54 

MUKCT 0555/54 0109/54 0121/54 0127/54 0J55/54 0189/54 0242/54 

0263/54 0302/54 0164/55 0234/55 0258/55 0265/55 0287/55 

MUD, 0526/54 0104/54 

MUKD3 0530/54 0452/54 

MUKOI 0569/54 0176/54 0190/54 0225/54 0244/54 0278/54 0297/54 

0169/55 0231/55 0233/55 0238/55 0245/55 

MLKOP 0204/54 0200/54 0207/54 0228/54 0240/54 

MUDS 0390/54 0064/54 0071/54 0078/54 0396/54 

MLKDU 0528/54 0182/54 

MLKtl 0485/55 0468/55 

MUE2 0488/55 0483/55 



##»### 



CROSS-REFERENCE SYMBOL TABLE 



MLKE3 0538/55 0508/55 0510/55 

MIKEC 0478/54 0442/54 0469/54 

MLKER 0400/54 0046/54 0092/54 

MLKfcX 0571/54 0418/54 0436/54 

MLKM 0567/54 00*1/54 045J/54 

0131/55 0140/55 0441/55 

MUKFB 0574/54 0033/54 0039/54 

0443/54 0447/54 0448/54 
0464/55 

MLKFL 0066/32 0024/33 

MUKIN 0557/54 0032/54 0050/54 

0335/54 0347/54 0348/54 

0360/54 0383/54 0424/54 

0549/54 0562/54 0026/55 
0502/55 

MLKJP 0562/54 0135/54 0027/55 

MLKL* 0566/54 00/5/54 0453/54 

MLKLB 0556/54 0063/54 0432/54 
0529/55 



0514/55 

0495/54 0497/54 0500/54 0501/54 

0248/54 0404/54 0463/64 

0445/54 

0455/54 0458/54 046^/54 0040/55 



0040/54 0051/54 0076/54 0428/54 
0306/55 0317/55 0320/55 0327/55 



0059/54 0077/54 0133/54 0334/54 

0351/54 0354/54 0360/54 0361/54 

0438/54 0439/54 0494/54 0546/54 

0307/55 0326/55 0386/55 0465/55 



0146/55 

0511/54 0512/64 0446/55 

0470/54 0387/55 0404/55 0503/65 



MLKLN 558/54 0055/54 0058/55 

MLKIP 0568/54 0058/54 0068/54 

MLKLY 0544/55 0114/55 

MLKLZ 0543/55 0046/55 0067/55 0094/55 

MLKNl 0336/54 0365/54 

MLKN2 0367/54 0338/54 0342/54 0345/54 



0063/55 0134755 0143755 355/55 
0070/54 0085/54 0391/54 0020/55 



MLKN0 0553/54 01/4/55 0241/55 

0380/55 0383/55 0512/55 

MLKNM 0505/54 0454/54 0459/54 

MLKNO 0330/54 0024/54 0034/54 

MLKP1 0458/55 0435/55 0443/55 

MLKPB 0433/55 0049/55 01U/55 



0331/55 0346/55 0371/55 0378/55 

0518/55 

0461/54 0513/54 

0366/54 0369/54 0370/54 



0138/55 0456/55 0459/55 0460/55 



>»••«>• CR033«REFERF.NCE SYMBOL TABLE 

MLKpfc 0463/65 0349/55 0425/55 0486/55 0487/55 0537/55 0542/55 

MIKPP 0552/54 0554/54 0091/55 0099/55 0100/55 0105/55 0106/55 

0107/55 0118/55 0122/55 0127/55 0128/55 

HLKRP 0559/54 0169/54 0209/54 0211/54 0213/54 0214/54 0222/54 

0223/54 0309/55 0321/55 

HLKRP 0560/54 0J68/54 0310/55 

HLKTC 0565/54 0129/54 0145/54 0171/54 0238/54 0256/54 0259/54 

0277/54 0161/55 8264/55 0415/55 

HI.KTI 0572/54 0419/54 0480/54 

MLKTP 0570/54 0173/54 0226/54 0227/54 0229/54 0230/54 0232/54 

0233/54 0237/54 0269/54 0271/54 0282/54 0288/54 0290/54 

0293/54 0294/54 0299/54 0301/54 0308/54 0317/54 0332/54 

0346/54 0357/54 0368/54 0401/54 0400/54 0166/55 0138/55 

0184/55 0189/55 0191/55 0193/55 0201/55 0202/55 0205/55 

0206/55 0219/55 0220/55 0237/55 0275/55 0276/55 0277/55 

0281/55 0285/55 0333/55 0335/55 0343/55 0345/55 0353/55 

0363/55 0365/55 0367/55 0382/55 0385/55 0391/55 0392/55 

0394/55 0399/55 0400/55 0402/55 0405/55 0466/55 0473/55 

0474/55 0475/55 0477/55 0481/55 0484/55 0489/55 0493/55 

0494/55 0496/55 0497/55 0521/55 0526/55 0528/55 0530/55 

0531/55 0536/55 0539/55 0541/55 

MLKT8 0375/54 0041/54 0364/54 0395/54 

MLKTW 0541/54 0429/54 0433/54 0498/54 0550/54 0336/55 0368/55 

0480/55 0492/55 0504/55 

MLKUI 0545/55 0417/55 

M LKxB 0554/54 0448/55 0453/55 0471/55 0499/55 0511/55 0533/55 

MLOOP 02 4 b/l7 2255/17 0376/17 B0 4 l/18 

HLOPi 0247/17 0247/18 0261/10 

ML0P2 0249/17 0012/17 0202/10 

ML0P3 0251/17 0013/17 0254/18 0258/18 

MLP2A 0012/17 0174/17 02?5/l8 

MIP3A 0013/17 0370/17 

MM4 0323/20 0297/20 

HM72 0008/19 0437/19 

MM74 0009/19 0341/19 



****** 



CROSS-iREFfcHENCt SYMBOL TABLE 



MM80 
MMT0 

MMTl 

MMT2 

MMT3 

MMT4 

MMTb 

MMT6 



MMT7 
MMTb 

MNEG 

MOLEN 

MOP 

M0R6 
MOVEB 

MOVEU 



0585/52 

041y/02 
0210/18 

0420/02 
0188/18 

0421/02 
0072/18 

0422/02 
0098/18 

0423/02 
0096/18 

0424/02 
0117/18 
0191/18 

0425/02 
0113/18 
0152/18 
0171/18 
0224/18 

0426/02 
0131/18 

0427/02 
0133/18 

0497 

0529/54 

0417/02 

0533/54 

0197/33 
i<,320/44 

0041 

02W1/33 
0194/36 

0207/36 
0352/37 
0373/37 
0640/39 
0469/43 
0334/44 



0091/52 
0264/17 



0271/1/ 
0232/18 

0272/17 
0134/18 

0283/17 
0229/18 

0284/17 
0107/18 

0267/17 
0126/18 
0206/18 

0274/17 
0116/18 
0153/18 
0193/18 
0225/18 

0277/17 
0183/18 

0292/17 
0180/18 

0504 

0518/54 

0175/17 

0524/54 

0418/32 
0360/50 

0208/31 

0203/33 
0198/36 
0208/36 
0360/37 
0375/37 
0746/39 
04/5/43 
0336/44 



0316/17 0403/17 



0310/17 0397/17 



0306/17 
0162/18 

0314/17 
0239/18 

0312/17 
0211/18 

0304/17 
0127/18 



0320/17 
0119/18 
0156/18 
0194/18 



0323/1/ 
0164/18 

0325/17 

0228/18 

0298/02 



0210/17 

0529/54 

0750/32 
0522/55 

0251/31 

0204/33 
0200/36 
0210/36 
0366/37 

0757/39 
0316/44 
0337/44 



0311/17 
0230/18 

0390/17 



0315/17 
0226/18 

0082/18 
0148/18 



0083/18 
0128/18 
0160/18 
0195/18 



0103/18 
0196/18 

0111/18 
0046/21 



0199/33 
0196/56 

0358/31 

*>2l4/33 
0201/36 
0211/36 
10367/37 
0378/3/ 
0574/41 
U326/44 
0339/44 



0013/le 
0413/17 
0398/17 
0404/17 
0410/17 



0099/18 
0157/18 



0084/18 
0129/18 
0164/18 

0200/18 



0120/18 
0197/18 

0122/18 
0016/22 



0208/33 
0256/57 

0407/31 

0216/33 
0202/36 

0222/36 
0369/37 
0379/37 
0694/42 
0330/44 
0340/44 



0071/18 
0081/18 
0414/17 
0009/18 
0416/17 



0105/18 
0163/18 



0095/18 
0150/18 
0169/18 
0209/18 



0123/18 
0202/18 

0125/18 
0295/22 



0246/17 0375/17 0038/18 



0091/32 
0166/36 
0204/36 
0256/36 
0370/37 
0447/37 
0708/42 
0331/44 
0342/44 



0161/18 
0145/18 
0011/18 
0074/18 
007//18 



0114/18 
0172/18 



0097/18 
0151/18 
0170/18 
0212/18 



0130/18 
0205/18 

0132/18 
0298/22 



0188/36 0357/37 



0297/32 
0184/36 
0205/36 
0169/37 
0372/37 
0481/37 
0455/43 
0333/44 
0344/44 



##»#»» 




CROSS- 


REFERENCE 


SYMBOL T 


AttUE 








0384/44 


0387/44 


0550/45 


U564/45 


0603/45 


0037/46 


0254/46 




0707/48 


0044/49 


0485/49 


0098/50 


0134/50 


0357/50 


0364/50 




0478/50 


0085/51 


0175/51 


0306/51 


0363/51 


0556/51 


0566/51 




0586/51 


0587/51 


0988/51 


0677/51 


0312/52 


0327/52 


0393/52 




0454/52 


0565/52 


0302/53 


0403/54 


0182/55 


0249/55 


0366/55 




0517/55 


0176/56 


0192/56 


0202/56 


0206/56 


0208/56 


0209/56 




0210/56 


0212/56 


0213/56 


0215/56 


0216/56 


0218/56 


0219/56 




0230/56 


0272/56 


0495/56 


0132/57 


0206/57 


0230/57 


0252/57 




0262/57 


0256/57 


0268/57 


0269/57 


0270/57 


0272/57 


0273/57 




0275/57 


0276/57 


0278/57 


0279/57 


0290/57 


0622/67 


0719/57 




0172/58 


0367/58 


0410/58 


0463/56 


0475/58 


0498/58 


0526/58 




0540/58 


0546/58 












MOVER 


0182/02 
0220/16 


0328/02 
0272/16 


0396/02 
0293/16 


0405/02 


0468/07 


0085/10 


0194/16 


MOVES 


0040 


0206/31 


0293/31 


0360/31 


0405/31 


0093/32 


0355/32 




0200/33 


0206/33 


0207/33 


0213/33 


0219/33 


0021/36 


0026/36 




0182/36 


0191/36 


0226/36 


0260/36 


0145/37 


0165/37 


0354/37 




0362/37 


0450/37 


0483/37 


0735/39 


0751/39 


0577/41 


0696/42 




0706/42 


0499/43 


0466/43 


0468/43 


0314/44 


0323/44 


0356/44 




0389/44 


0552/45 


0662/45 


0605/45 


0035/46 


0252/46 


0706/48 




0042/49 


0483/49 


0100/50 


0105/50 


0132/50 


0359/50 


0362/50 




0366/50 


0480/50 


0087/51 


0173/51 


0308/61 


0346/51 


0352/51 




0559/51 


0667/51 


0972/51 


0675/51 


0321/52 


0392/52 


0430/52 




0434/52 


0448/52 


0458/52 


0567/52 


0304/53 


0405/54 


0181/55 




0226/55 


0230/65 


0243/55 


0253/55 


0370/55 


0515/55 


0178/66 




0190/56 


0199/56 


0234/56 


0274/56 


0453/56 


0130/57 


0220/57 




0235/57 


0250/57 


0859/57 


0295/57 


0624/57 


0717/57 


0170/58 




0369/58 


0409/58 


0447/58 


0451/56 


0461/58 


0473/58 


0492/58 




0502/58 


0525/58 


0538/58 


0544/58 


0550/58 






MOVEW 


0210/33 


0419/32 


0751/32 


0212/33 


0217/33 


0168/36 


0196/36 




0231/36 
0759/39 


0263/36 
0827/39 


0l70/ 3 7 


0364/3 7 


0452/37 


0484/37 


07 3 8/ 3 9 




0979/41 


0698/42 


0710/42 


0474/43 


0326/44 




0363/44 


0392/44 


0554/49 


0566/45 


0607/45 


0039/46 


0257/46 




0710/48 


0046/49 


0468/49 


0103/50 


0107/50 


0136/50 


0368/50 




0481/50 


0090/51 


0177/51 


0313/51 


0364/51 


0576/51 


0678/51 




0325/52 


0431/52 


0449/52 


0462/52 


0569/52 


0306/53 


0407/54 




0227/55 


0244/55 


0257/55 


0374/55 


0180/56 


0204/56 


0239/56 




0277/56 


0467/56 


0134/57 


0223/57 


0239/57 


0264/57 


0299/57 




0303/57 


0627/57 


0721/57 


0174/58 


0371/58 


0448/58 


0493/58 




0506/58 


0549/58 












MOVFB 


0418/32 


0212/31 


0411/31 










MOVFW 


0419/32 


0256/31 


0363/31 


0095/32 


0357/32 






MP2 


0437/20 


0431/20 












MPRl 


0293/17 


0327/17 












MPR2 


0295/17 


0307/17 













****** CRUS3*RfcFERENCE SYMBOL TABLE 

MPK3 0319/17 0313/1/ 

MPR4 0325/17 0317/17 

MPT 0461/02 0196/14 0213/14 0216/14 0228/14 

MRELS 0365/22 0245/05 

MSFLG 0530/04 0291/03 0311/03 0252/04 0286/04 0308/04 0324/04 

0382/04 0421/04 0452/04 0050/05 

MSQBG 019B 0161/03 0215/28 0043/29 0164/45 

MSQCT 0194 0153/03 0156/03 0208/28 0211/28 0033/29 0039/29 

0111/45 0160/45 

MSOHU 0490/25 0195 0196 0197 0198 

MSQND 0197 0160/03 0214/28 0042/29 0163/45 

MSQPt 0195 0212/28 0216/28 0040/29 0044/29 

MSQP2 0198/45 0120/45 0130/45 0131/45 0133/45 0134/45 0137/45 

0185/45 0192/45 

MSQP3 0196 0157/03 0158/03 0162/03 011&/45 0157/45 0161/45 
0165/45 

MSSCT 0197/45 0139/45 0146/45 0156/45 0193/45 

MSUB 0249/18 0015/17 

MSUBA 0015/17 0209/17 

MT0 0413/02 0042/17 0081/17 0084/1/ 0106/17 0115/17 0144/17 
0153/17 

MTl 0414/02 0040/17 0064/17 0076/17 0156/17 

MT2 0415/02 0130/17 01*9/17 

MT3 0416/02 0129/17 0143/17 

MTG1 0204/02 (4207/24 0240/24 0155/25 0248/26 0250/25 

MTOPR 0467/40 0406/40 

MULEN 0463 0280/30 

MULOP 0361 0160/04 0201/17 

MUNI 0020/53 0016/53 

MUN10 0101/53 0114/53 



###»•# CROSS«REFERENCE SYMBOL TABLE 

MUNU 0115/53 0104/53 

MUN12 0119/53 0108/53 

MUN13 0137/53 0125/53 0178/53 0180/53 

MUN14 0146/53 0155/53 

MUN15 0156/53 0148/53 0151/53 

MUN16 0166/53 0222/53 0223/53 

MUN17 0195/53 0117/53 0136/53 0169/53 0174/53 

MUN18 0220/53 0110/53 

MUN2 0033/53 0014/53 0024/53 0050/53 0064/53 0068/53 

MUN3 0038/53 0018/53 

MUN4 0042/53 0032/53 

MUN5 0051/53 0057/53 

MUN6 0079/53 0074/53 

MUNBX 0421/53 0090/53 

MUNBR 0415/53 0143/53 0l6l/53 0356/53 0371/53 0394/53 04 4/63 

MUNqA 0420/53 0089/53 0205/59 

MUN08 0289/53 0048/53 0055/53 006g/53 0295/53 

MUNER 0299/53 0035/53 0076/53 0303/53 0362/53 

MUNFA 0411/53 0065/53 0106/53 0131/53 0326/53 0338/53 0342/53 

MUNIN 0407/53 0021/53 003 9 /53 0061/53 0233/53 0234/53 0246/53 

0247/53 0250/53 0283/53 0259/53 0260/53 0279/53 0282/53 

MUNLA 0412/53 0059/53 0129/53 0170/53 0190/53 0346/53 0379/53 

MUNLN 0409/53 0044/53 0121/53 0133/53 0353/53 

MUNLY 0423/53 0357/53 

MUNLZ 0422/53 0112/53 0147/53 

MUNN1 0235/53 0264/63 

MUNN2 0266/53 0237/53 0241/53 0244/53 



****** CRUSSwREFERENCE SYMBOL TABLE 

MUNNU 0229/53 0013/53 0023/53 0265/53 0268/53 0269/53 

MUNP1 0330/53 0319/53 0335/53 

MUNP2 0333/53 0328/53 

MUNP3 0365/53 0360/53 

MUNP4 0368/53 0377/53 

MUNP5 0378/53 0372/53 

MUNP6 0385/53 0351/53 

MUNPB 0317/53 01l6/t>3 0221/53 0331/53 0332/53 0388/53 

MUNPP 0416/53 0144/53 0152/53 iol53/53 0158/53 0159/53 0160/53 

0181/53 0185/53 0366/53 0370/53 0375/53 0376/53 

MUNRA 0413/53 0132/53 0142/53 0189/53 0339/53 0398/53 

MUNRL 0414/53 0134/53 0139/53 0184/53 0337/53 0354/53 

MUNRS 0393/53 0135/53 0162/53 0192/53 0387/53 0405/53 

MUN3B 0408/53 0022/53 0028/53 0029/53 0040/53 0060/53 0088/53 

0204/53 0322/53 0349/53 0352/53 0382/53 0401/53 0420/53 

MUNTP 0410/53 0047/53 0052/53 0054/53 0069/53 0082/53 0198/53 

0231/53 0245/53 0256/53 0267/53 0290/53 0300/53 0307/53 
0395/53 

MUNTS 0274/53 0030/53 0283/53 0294/53 

MVENU 0330/02 0287/16 0292/16 

MWORO 0111 0215/15 0490/15 0504/35 0577/35 0157/36 0297/36 

0113/38 0193/38 0350/38 0317/39 0489/42 0357/43 0378/43 

0431/44 0557/44 0029/47 0066/48 0082/48 0404/49 0415/49 

0081/53 0197/53 0101/54 0124/54 0019/55 0318/56 0362/56 

0532/57 0668/57 0072/58 0122/58 

N 0097/21 0451/21 

N1024 0499/50 0219/50 0230/50 

N1025 0500/50 0221/50 0232/50 

N81 9 2 0501/50 0092/50 

NAO 0482/02 0093/23 0138/24 0160/24 0165/24 0199/24 0209/24 

NAM27 0510/40 0504/40 



#•••## 




CROSS* 


REFERENCE 


SYMBOL T 


ABLE 






NAMBU 


0549/40 


0542/40 












NAME1 


0488/40 


0496/40 












NAME2 


0535/40 


0527/40 












NAMER 


0512/40 


0488/40 


0491/40 


0500/40 


0519/40 


0537/40 




NAMFL 


0543/40 


0546/40 












NBD 


0483/02 


0094/23 


0146/24 


0183/24 








NBUK 


0484/02 
0197/24 


0427/23 
0279/24 


0021/24 
0285/24 


0027/24 

0293/24 


0020/24 
0171/25 


0030/24 
0307/25 


0034/24 
0310/25 


NCH 


0283/02 
0430/16 
0128/23 
0128/25 


0149/U 
0438/16 
0325/24 
0138/25 


0170/U 
0029/23 
0015/25 
0366/25 


0177/11 
0035/23 

0026/25 


0200/11 
0061/23 
0042/25 


0420/16 
0080/23 
0095/25 


0422/16 
0114/23 
0106/25 


NOIRT 


0082 














NEWl* 


0164/50 


0053/50 


0060/50 


0178/50 


0180/50 






N6WI2 


0126/60 


0211/50 


0922/50 


0233/50 








NEHI4 


0053/50 


0046/50 












NEWI5 


0090/50 


0083/50 












NEWI6 


0129/50 


0087/50 












NEWI7 


0080/50 


0069/50 












NEHI8 


0132/50 


0128/50 












NEWIA 


0146/50 


0126/60 


0149/50 










NEWXb 


0149/50 


0127/50 












NEWIE 


0150/50 


0129/50 


0153/50 










NEW If 


0153/50 


0130/50 












NEWIP 


0181/50 


0035/50 


0037/50 


0039/50 


0185/50 


0189/50 


0197/60 


NEWIT 


0519/50 


0156/50 


0165/50 


0170/50 


0179/50 


0191/50 


0196/50 


NEWIZ 


0179/50 


0158/50 


0161/50 


0164/50 








NEXTS 


0552/03 


0525/05 












NNBW 


0485/02 


0402/23 


0406/23 


0414/23 









###*#» CHUSS. REFERENCE SYMBUL TA8LE 

NIDC2 0513/50 0379/50 

NIDC3 0514/50 0294/50 

NIDT 0079 0209/50 

N'MBFA 0005/19 0124/19 0149/19 0230/19 

NMO10 0164/19 0168/19 

NM011 01/4/19 0160/19 0171/19 

NM012 0204/19 0212/19 

NM013 022&/19 0228/19 

NM014 0230/19 0200/19 0215/19 0218/19 

NM015 023J/19 0241/19 

NM016 0209/19 0195/19 0199/19 

NMPTR 0308/02 0125/lg 0131/19 0132/lg 0142/lg 0163/lg 0188/lg 

0231/19 0237/19 0238/19 

NMTMP 0307/02 0161/19 0164/19 0169/19 0194/19 0196/19 0206/19 

0219/19 0227/19 0233/19 

NORM1 0233/22 0250/22 

NORM2 0235/22 0230/22 0239/22 0241/22 

NORML 0058/02 0269/19 0099/22 0234/22 0260/22 0339/22 

NOT 0374/22 ^266 

NPORT 0090 0254/28 0206/29 0286/45 0136/46 0552/48 0576/48 

0074/52 0156/59 026Z/59 0427/59 

NOT 0462/02 0214/14 0236/14 0256/14 0262/14 

NSPTR 0358/02 0428/06 0500/06 0183/07 0417/07 0033/08 0069/08 

0095/^8 0260/06 0289/08 0302/08 

NT0 0311/02 0224/22 0227/22 

NT232 0502/50 0289/50 

NUC 0142 0044/39 

NUM1 0284/02 0068/23 0201/23 0203/23 0230/23 0251/23 0413/23 

0184/24 0210/24 0230/24 0231/24 0244/24 0255/24 0258/24 
0287/24 



••###• CROSS-REFERENCE SYMBOL TABLE 

NUM11 0146/22 0133/22 0135/22 0142/22 

NUM12 0151/22 0102/22 0118/22 

NUM13 0164/22 0157/22 

NUM14 0168/22 0155/22 0163/22 

NUM15 0175/22 0171/22 

NUM16 0182/22 0120/22 0128/22 0130/22 0145/22 

NUM2 0285/02 0069/23 0197/23 0199/23 0231/23 0252/23 0153/24 

0171/24 0172/24 0175/24 0213/24 0246/24 0266/24 

NUMBF 0309/02 0005/19 0042/19 0048/19 0053/19 0054/19 0062/19 

0076/19 0084/19 0089/19 0094/19 

NUMCi 0065/22 0103/22 

NUMC2 0071/22 0067/22 

NUMC3 0085/22 0106/22 

NUMC4 0099/22 0070/22 0094/22 0111/28 

NUMC5 0104/22 0086/22 

NUHC5 0107/22 0079/22 

NUMC7 0112/22 0072/22 

NUMC8 0127/22 0122/22 

NUMC9 0129/22 0125/22 

NUMCK 0052/02 0582/03 0298/04 0248/10 0327/11 0115/22 0181/22 

0182/22 0183/22 

NUMQ0 0103/19 0108/19 

NUMOt 0054/19 0044/19 

NUM02 0082/19 0056/19 0098/19 

NUM03 0094/19 0088/19 

NUM04 0111/19 0U9/19 

NUH05 0120/19 0102/19 0114/19 

NUM06 0129/19 0134/19 

NUM07 0143/19 0153/19 



CR0S3*REFERENCfc SYMBOL TAfcU 



NUMOB 01&4/19 0150/19 

NUM09 0157/19 0138/19 0148/19 

NUMOT 0136/02 0299/02 0398/02 0403/02 0404/02 0020/19 0078/19 

0198/19 0243/19 0265/19 0469/21 

NUMPf 0255/02 0138/07 0150/0/ 0151/07 0159/07 

NUMWl 0486/02 0259/23 0280/23 0144/25 

NUMw2 0487/02 0285/23 0146/25 

NWS 0517/50 0288/5*1 0326/50 0332/50 0333/50 0355/50 0370/50 

M372/50 0411/50 0474/50 0475/50 

NWS10 0377/50 0285/50 

NWSU 0399/50 0291/50 0295/50 0316/50 

NWS12 0420/50 0407/50 

NWS13 0408/50 0427/50 

NWS14 0432/50 0415/50 0419/50 

NWS15 0401/50 0465/50 

NWS16 0488/50 0360/50 

NWS17 0469/50 0435/50 

NWS18 0450/50 0440/50 

NWS5 0253/50 0246/50 

NWS7 0281/50 0386/50 0471/50 0482/50 

NWS8 0287/50 0303/50 0341/50 0345/50 0350/50 0373/50 

NWS9 0305/50 0299/50 

NWS9A 0314/50 0310/50 

NWSB 0507/50 0238/50 0247/50 0412/50 0416/50 0437/50 0460/50 
0463/50 

NWSIU 0510/50 0242/50 

NWSKl 0511/50 0293/50 0296/50 0301/50 0323/50 0342/50 0406/50 

NWSK2 0516/50 0297/50 0402/50 0319/50 0336/50 0337/50 0423/50 



MMM CROSS-REFERENCE SYMBOL TABLE 

NW3L1 0512/50 0378/50 0382/50 0405/50 0442/50 0454/50 

NW8L2 0515/50 0202/50 0304/50 0403/50 0421/50 0438/50 0461/50 
0462/50 

NW3NN 0503/50 0240/50 0263/50 0489/50 0491/50 0493/60 

NWSP 0500/50 0241/50 0264/50 0256/50 0264/50 0284/50 0385/50 
0404/50 

NWS8 0506/50 0236/50 0249/50 0250/50 0402/50 0409/50 0445/50 

0457/50 0464/50 0470/50 0472/50 0479/50 

NW8T 0509/50 0215/50 0226/50 0257/50 

NW8T6 0518/50 0339/60 0353/50 

NWSU 0202/50 0093/50 

NN8V 0505/50 0203/50 0348/50 

NW8M 0224/50 0213/50 

NWTA 0234/50 0223/50 

NWTB 0243/50 0258/50 

NXTOT 0389/02 0091/12 0117/12 0124/12 0129/12 0132/12 0133/12 

0134/12 0137/12 0138/12 0139/12 0148/12 0149/12 0169/20 
0176/20 

N X T0P 0373 0241/07 0134/10 

OCR 0124 0315/28 0405/30 0645/40 

OCTMP 0312/02 0368/19 0376/19 

OF 0490/04 0445/03 

OFOP 0405 0448/03 0441/40 

OM193 0600/44 0224/44 

0M31 0602/44 0977/44 

OM507 0699/44 0593/44 

ONE! 0385 0142/29 0221/33 0202/49 

QP17P 0613/44 0471/44 

OPCH1 0418/14 0410/14 

0PCH2 0420/14 0428/14 



MMM 



CHUSS.KEFERENCfe SYM B QL Fa^LE 



OPCH3 0425/14 0405/14 0419/14 



OPCHK 0116/02 
0189/13 
0485/25 

OPDMK 0399 

0062/13 
0449/25 

OPOST 0385/02 
0048/11 
0291/11 
0295/12 
0015/13 
0050/13 
0224/13 
0058/14 
0403/14 



0427/02 0462/02 
0261/13 0186/14 



02/2/08 0048/10 
0026/17 0046/1/ 



OPE 
OPE1 



0066/31 
0120/44 



OPE10 0413/44 

OPE11 0365/44 

0PE12 0283/44 

0PE13 0551/44 

0PE14 6)564/44 

0PE15 0419/44 

OPE16 0170/44 

0PE17 0486/44 

0PE18 0520/44 

UPE19 0535/44 

0PE2 0179/44 

0PE3 0215/44 

0PE4 0247/44 

0PE4A 0250/44 

OPES 0291/44 



0225/10 
0232/H 
0294/11 
0346/12 
0024/13 
0074/13 
0225/13 
0059/14 
0420/14 

0297/30 

0128/44 

0400/44 

0623/44 

0624/44 

0436/44 

0380/44 

0522/44 

0157/44 

0613/44 

0515/44 

0528/44 

0132/44 

0201/44 

0236/44 

0282/44 

0276/44 



0228/10 
0234/U 
0296/11 
0347/12 
0026/13 
0104/13 
0250/13 
0060/14 
0422/14 



04/4/02 
03/1/14 



0023/11 
0177/1/ 



0230/10 
0236/11 
03to5/ll 
0364/12 
0027/13 
0105/13 
0254/13 
0118/14 
0459/14 



0051/11 
0389/14 



0193/11 
0191/17 



0373/10 
0268/11 
0308/11 
0477/12 
0028/13 
0108/13 
0256/13 
0272/14 
0461/14 



0461/11 
0423/14 



0220/11 
0380/17 



0377/10 
0270/11 
0310/11 
0011/13 
0030/13 
0169/13 
0258/13 
0273/14 
0418/25 



0280/12 
0421/25 



0343/12 
0410/21 



0379/10 
0272/11 
0456/11 
0013/13 
0047/13 
0201/13 
0349/13 
0276/14 



0417/44 
0567/44 

0159/44 



0194/44 



CROSS-REFERENCE SYMBOL TABLE 



QPE60 0198/44 0184/44 0211/44 

0PE51 0213/44 0182/44 

0PES2 04^3/44 0450/44 

0PE6 0272/44 0279/44 

OPE6A 0280/44 0260/44 0269/44 

OPE7 0239/44 

OPES 0584/44 0306/44 

0PE9 0402/44 0384/44 

0PE98 0592/44 0310/44 

OPEC 0608/44 0117/44 0127/44 0191/44 

0296/44 0386/44 0402/44 0407/44 

0429/44 0449/44 0462/44 0464/44 
0572/44 

OPEDA 0611/44 0298/44 0341/44 0442/44 

0510/44 0516/44 1*544/44 0547/44 



0208/44 0269/44 0278/44 
0408/44 0420/44 0425/44 
0511/44 0525/44 0529/44 



0447/44 0456/44 0492/44 
0615/44 



OPEDE 0576/44 0441/44 0561/44 

OPED*- 0605/44 0249/44 0281/44 0294/44 0382/44 0410/44 

OPEDI 0615/44 0436/44 0558/44 

0PEQ8 0539/44 0526/44 0533/44 0548/44 

OPEDU 0610/44 0300/44 



OPEp 0604/44 0119/44 0141/44 0151/44 

0192/44 0215/44 0234/44 0274/44 

0404/44 0433/44 0437/44 0521/44 

OPELN 0609/44 0257/44 0258/44 0267/44 
0565/44 

OPEOR 0620/44 0597/44 

OPEOV 0614/44 0595/44 

OPEP 0606/44 0115/44 0122/44 0123/44 

0209/44 0214/44 0219/44 0329/44 

OPER 0140/44 0120/44 0124/44 0130/44 

OPER1 0144/44 0150/44 



0161/44 
0291/44 
0552/44 



0167/44 
0345/44 



0180/44 
0366/44 



0375/44 0395/44 0397/44 



0125/44 0126/44 0199/44 
0513/44 0530/44 

0143/44 0162/44 0168/44 



FMMi 



CRQSS-REFERENCfc SYMBOL TABLE. 



QPER2 
0PER3 

OPERC 
OPESB 
OPMSK 



OPTWQ 

ORDNU 

OT1 

0T3 

0T4 

OTCHA 

UTSTl 
0TST2 
OUTBL 

OUTC1 
OUTCH 
OUTCL 

OUTCR 



0163/44 

0160/44 

0524/44 

0569/44 

0387 

0431/06 

0171/08 

0142/11 

0374/12 

0576/21 

0386/02 
0441/14 

0492/02 

0322/02 

0323/02 

0324/02 

0374/19 

0614/21 

0619/21 

0210/02 
0327/25 

0491/30 

0333 

0212/02 
0340/25 

0162/02 
0438/gS 
0092/11 
0240/12 
0436/16 
0185/19 
0313/19 
0447/19 
0314/21 
0381/21 
0508/21 



0153/44 

0165/44 

0514/44 

0193/44 

0430/03 
0477/06 
0263/08 
0226/11 
0392/12 
0395/40 

0297/12 
0462/14 

0454/11 

0303/19 

0308/19 

0305/19 

0370/19 

0624/21 

0613/21 

0333/23 

0481/30 
0381/19 
0441/16 



0627/05 
K)443/fc,9 
0261/11 
0242/12 
0464/16 
0226/19 
0320/19 
0476/19 
0316/21 
0405/21 
0520/21 



0517/44 

0210/44 

0245/04 
0432/07 

0306/06 
0500/11 
0184/16 

0411/40 

0302/12 
fc.464/14 

0462/H 

0307/19 
0314/19 
0309/lg 



0532/30 
0420/29 
0522/19 



0317/09 
0445/^9 
0392/11 
0366/16 
0466/16 
R239/19 
0337/19 
0501/19 
0326/21 
0434/21 
0527/21 



0535/44 

0574/44 

0343/04 
0036/08 
0411/09 
0039/12 
0063/17 
0418/40 



0536/44 



0038/06 
0076/08 
0133/10 
0067/12 
0200/17 



0248/06 
0081/08 
0031/11 
0074/12 
0387/21 



0468/11 
031 5 /19 

0312/19 



0049/35 



0072/30 
0012/25 



0375/09 

02?0/i0 
0221/12 
0370/16 
0470/16 
0248/19 
0353/19 
0514/19 
0348/21 
0445/21 
0542/21 



0121/33 
0159/25 



0377/09 
0284/10 
0223/12 
0404/16 
0472/16 
0255/19 
0355/19 
0516/19 
0358/21 
0450/21 
0548/21 



0454/49 
0208/25 



0379/09 
0298/10 
0225/12 
0406/16 
0023/19 
0262/19 
0357/19 
0296/21 
0377/21 
0452/21 
0553/21 



0377/06 

0098/08 
0130/11 
0084/12 
0573/21 



0456/12 0014/13 0016/13 0029/13 



0360/23 0012/24 0112/24 0178/24 0299/24 



0213/25 



0432/09 

00 9 0/ll 
0227/12 
0429/16 
0075/19 
0264/19 
0382/19 
0311/21 
0379/21 
0502/21 
0563/21 







CRQSS* 


REFERENCE 


SYMBOL TABLE 








0594/21 


0598/21 


0618/21 


0622/21 


0313/23 


0315/23 


0318/23 




0375/23 


0377/23 


0380/23 


0448/23 


0025/24 


0047/24 


0055/24 




0088/24 


0092/24 


0099/24 


0122/24 


0129/24 


0131/24 


0175/25 




0179/25 


0182/25 


0186/25 


0191/25 


0198/25 


0205/25 


0207/25 




0219/25 


0221/25 


0223/25 


0231/25 


0324/25 


0333/25 


0335/25 




0337/25 














UUTIt 


0306/19 


0317/19 












0UTI2 


0314/19 


0310/19 












OUTIN 


0164/02 
0368/21 


0268/10 
0493/21 


0282/10 


0396/16 


0077/19 


0321/19 


0356/21 


OUTLN 


0140/02 


0400/02 


0080/11 


0103/11 


0141/1/ 


0142/1/ 


0072/19 




0182/19 


0343/19 


0358/19 


0451/19 


0482/19 






OUTM1 


0628/28 


0477/30 


0484/30 


0504/30 


0711/32 






OUTST 


0168/02 


0327/09 


0591/H 


0328/16 


0387/16 


0394/16 


0309/21 




0525/21 


0530/21 


0561/21 


0590/21 


0591/21 


0592/21 


0595/21 




0625/21 














OUT*T 


0515 


0519/28 


0530/28 


0303/29 


0479/30 


0523/30 


0416/39 


OVFLW 


0062/02 


0312/02 


0443/02 


0086/16 


0016/22 


0309/22 




OWT 


0145 


0527/30 












P409 


0581/58 


0458/58 












P8192 


0305 


0536/51 












PACK1 


0275/22 


8272/22 












PACK3 


0301/22 


0286/22 












PACK4 


0306/22 


0289/22 


0299/22 










PBFUG 


0522 


0074/21 


0078/21 


0168/21 


0475/28 






PBPTR 


0046 


0207/03 


0236/03 


0249/03 


0250/03 


0277/03 


0500/05 




0508/05 


0B70/05 


0606/05 


0617/05 


0440/06 


0445/06 


0503/06 




0517/06 


0031/07 


0054/07 


0115/07 


0125/07 


0347/07 


0395/07 




0455/07 


0462/07 


0467/07 


0470/07 


0131/08 


0143/08 


0144/08 




0153/08 


0154/08 


0220/08 


0357/08 


0403/08 


0444/08 


0016/09 




0020/09 


0045/09 


0061/09 


0182/09 


0187/09 


0198/09 


0248/09 




0252/09 


0256/09 


0352/09 


0380/09 


0303/12 


0337/12 


0416/12 




0427/12 


0429/12 


0431/12 


0432/12 


0475/12 


0480/12 


0007/13 




0009/13 


0020/13 


0022/13 


0031/13 


0033/13 


0035/13 


0036/13 




0051/13 


0053/13 


0193/13 


0195/13 


0270/13 


0291/13 


0306/13 




0308/13 


0309/13 


0311/13 


0445/14 


0448/14 


0474/14 


0480/14 




0481/14 


0170/16 


0195/16 


0203/16 


0245/16 


0249/16 


0271/16 




0274/16 


0497/16 


0033/18 


0236/18 


0231/21 


0236/21 


0553/29 



M#M» 






0237/30 
0510/33 
0352/38 

0025/40 


PBUFF 


0401 

0049/07 

0032/36 


PCI 


0286/02 


PC2 


0287/02 


PCHK 


0098/02 


PCHKl 


010&/14 


PDFBS 


0431 


PDFFL 


0393 


PDFNS 


0443 


PDFTb 


0474 


PEND 


0386/59 


PFLAG 


0350/02 
0165/04 


PFSH1 


0404/06 


PFSRM 


0222/02 


PHO 


0127 


PM05 


0079/59 


PH06 


0061/59 


PI8Y2 


0436/20 


PINTG 


0300/02 
0147/20 


PIVEL 


0435/^2 
0181/18 


PKCNT 


0660/35 


PLUS 


0507/04 


PMASK 


0290/02 
0341/15 



CROSS-REFERENCE SYMBOL TABLE 

0256/30 fc246/32 0383/32 0059/33 0369/33 0&01/33 

0325/34 0505/34 0622/35 0626/35 0049/36 0323/38 

0362/38 0370/36 037d/38 0407/38 0434/38 0341/39 

0259/40 0387/40 0450/43 0457/43 0472/43 0476/43 

0195/03 0237/03 0422/06 0437/06 0448/06 0030/07 

0396/07 fe>459/07 0404/08 0*72/16 0230/21 0551/29 

0047/36 0388/36 0280/38 0243/39 0018/40 0011/45 

0044/23 0063/25 0109/25 0113/25 

0045/23 0075/25 00/7/25 0081/25 

0406/1)2 0357/13 0380/13 0108/14 

0097/14 

0473/12 

0114/04 0239/04 040W/06 0427/21 

0233/04 

0431 

0312/59 

0295/03 0389/03 W6/9/03 0687/03 0697/03 0162/04 

0432/05 0438/05 

0393/06 

0654/03 0711/03 0058/04 0403/06 0406/06 0409/06 

0082/59 

0066/59 

0078/59 

0282/20 0425/20 

0098/06 0103/06 0104/06 0107/06 0114/06 0120/06 
0164/20 

0073/18 0076/18 0101/18 0108/18 0143/18 0149/18 
0192/18 

0475/35 0627/35 

0157/04 0384/04 

0156/12 0180/12 0182/12 0241/15 0267/15 0301/15 

0343/15 0438/15 »464/l5 



• ##•## CROSS-KE-FERENCE symbol table 

POFFP 0576/26 0513/26 

POR.A 0419/48 0140/48 

POR.L 0420/48 0171/48 0176/48 

POR0 0144/48 

PQRll 0279/48 0276/48 

PQR13 0142/48 0150/48 0165/48 

P0R2 0152/48 0147/48 

P0R22 0226/48 0211/48 0242/48 

PUR3 0168/48 0141/48 

P0R4 0193/48 0160/48 0164/48 0187/48 

P0R5 0208/48 0224/48 

P0R6 0246/48 0220/48 0238/46 0278/48 0282/48 

POR7 0222/48 0219/48 

P0R8 0240/48 0237/48 

P0R9 0183/48 0191/48 

PORCi 0421/48 0J35/48 0l53/48 0J62/48 0184/48 0189/48 0287/48 

0317/48 0409/48 0412/48 

P0RC2 0422/48 0408/48 0411/48 

PORQN 0418/48 0137/48 0154/48 0185/48 

POROG 0328/48 0143/48 0335/48 

PORI1 0300/48 0305/48 

P0RI2 0306/48 0302/48 

P0RI3 0310/48 0315/48 

P0RI4 0316/48 0312/48 

P0RI5 0324/48 0321/48 

PORJN 0286/48 0157/48 0188/48 0326/48 

PUR81 0540/33 0132/48 0213/48 0217/48 0296/48 0322/48 



»##**# 




PQRS2 


0541/33 


PORSP 


0406/48 


PORTU 


0542/33 
0257/48 


POW 


0325/26 


POW1 


0380/26 


POWH 


0457/26 


P0W2 


0375/26 


P0W27 


0500/26 


P0W28 


0574/26 


P0W29 


0491/26 


P0W31 


0573/26 


P0W4 


0399/26 


POW40 


0517/26 


P0W5 


0419/26 


POW50 


0512/26 


P0W52 


0497/26 


P0W6 


0409/26 


POWAB 


0522/26 


POWtL 


0446/26 


POWU1 


0568/26 


P0Wp2 


0569/26 


PQWEO 


0523/26 


POWF 


0526/26 


POWFP 


0519/26 
0691/32 


POWFL 


0525/26 


POWl 


0520/26 
0424/26 



CROSS-REFERENCE SYMBOL, TAbU 

0133/48 0231/48 0235/48 0298/48 0325/48 

0145/48 0413/48 

0134/48 0209/48 0223/48 0227/48 0241/48 0252/48 
0268/48 

0254 0341/26 0352/26 0689/32 

0327/26 0568/26 0569/26 

0411/26 

0339/26 0347/26 

0480/26 

0462/26 0485/26 

0483/26 

0413/26 

0569/26 

0403/26 

0486/26 0498/26 0516/26 

0476/26 

0428/26 0432/26 0451/26 

0351/26 0508/26 

0444/26 

0342/26 

0345/26 

0349/26 0504/26 

0390/26 0399/26 0401/26 

0336/26 0338/26 0471/26 0489/26 0502/26 0576/26 

0369/26 0389/26 0462/26 

0331/26 k.350/26 0386/26 0405/26 0409/26 0412/26 
0437/26 0438/26 0448/26 0449/26 



####•» CRQSSwREFERENCE SYMBOL TABU 

POWIN 0254 0016 

POWJ 0521/26 0384/26 0420/26 0450/26 

PONND 0510/26 0373/26 

POWP 0524/26 0353/26 0479/26 0511/26 0514/26 0534/26 

P0H8T 0442/26 0440/26 

POW3W 0527/26 0355/26 0361/26 0692/32 

POWTB 0529/26 0419/26 0423/26 

POX1 0539/26 0667/26 

P0X2 0553/26 0571/26 

P0X3 0566/26 0575/26 

PRCCN 0423/48 0294/48 0299/48 0309/48 

PROFS 0473/22 0443 

PREG 0009/02 06sl/28 0l74/2g 0I99/29 

PRGCT 0367/02 0034/07 0040/07 0055/07 0059/0/ 0397/09 0407/09 

0058/10 0064/10 0113/10 0118/10 0126/10 0127/10 0142/10 

0257/10 0384/10 0028/H 0110/11 0127/11 0246/11 0497/11 

0064/12 0172/12 0371/12 0389/12 0060/17 0151/17 0188/17 

0350/17 0413/25 0425/25 0436/25 0446/25 0473/25 0468/35 

0636/35 0391/36 0343/39 

PRGIN 0026/02 0389/02 0424/03 0511/03 0070/05 0100/05 0229/05 

0269/^5 0088/06 0112/06 0113/06 

PRIl 0123/59 0097/59 

PRI2 0126/59 0108/59 0116/59 

PRIDG 0134/59 0093/59 0098/59 0143/59 

PRIN0 0675/03 0666/03 0672/03 06g4/03 

PRIN1 0683/03 0689/03 

PRIN2 0688/03 0^10/03 0/22/03 

PRIN3 0697/03 0682/03 

PRIN4 0711/03 0702/03 

PRIN5 0714/03 0706/03 



###•## CROSS-REFERENCE symrul table 

PRIN6 0720/03 0712/03 

PRXN7 0723/03 0677/y3 

PRlNb 0718/03 0713/03 

PRINS 0639/03 0533/05 

PRIST 0162 0258/11 0581/11 0588/11 0211/12 0460/16 0468/16 

0338/29 0427/29 0046/30 0371/30 0055/39 0061/39 0407/39 

0413/39 0023/43 0211/45 0231/45 0116/47 0640/48 0131/59 

PRITY 0251/45 0210/45 0214/45 0220/45 0230/45 

PRN01 0665/03 0643/03 

PRN10 0650/03 0664/03 

PRN11 0658/03 0655/03 

PRNSl 0028/08 0332/07 0404/07 0418/07 

PRNS2 0091/08 0180/07 0220/07 0243/0/ 0258/07 0273/07 0280/07 

0284/07 0294/07 \diti7/\d7 0323/07 0412/07 0424/07 0440/w7 

0449/07 0044/kjcJ 0051/08 0W33/08 0055/08 0070/08 0103/w8 
0113/08 

PRN83 0108/08 0100/08 

PRNS4 00j,0/08 0041/08 

PRN85 0071/08 0058/08 

PRNSfe 0086/^8 0079/08 

PRNSl 0074/02 0305/02 0l7l/07 0403/07 0017/08 0019/08 0107/08 

PR01 0029/44 0020/44 

PR02 0049/44 0034/44 

PR02U 0390/48 0253/48 0395/48 0403/48 

PR03 0035/44 0045/44 

PR03D 0399/48 0264/48 0404/46 

PR04 0056/44 0047/44 

PR06 0066/44 0057/44 

PR07 0069/44 0096/44 



•##### CROSS-REFERENCE SYMBOL TABLE 

PRQC 0089/44 0030/44 0036/44 0037/44 0040/44 0041/44 

PRQCH 03^8/48 0248/48 0201/48 0360/48 0362/48 0379/48 0385/48 

PROD 0088/44 0032/44 0044/44 

PRQDG 0383/48 0277/48 0386/48 0393/48 0394/48 0402/48 

PROGB 0297/02 0013 0401 0249/1*2 

PROPR 0342/48 0221/48 0239/48 0343/48 

PROST 0355/46 0196/48 0249/48 0254/48 0265/48 0356/48 0358/48 

0361/48 0363/48 0364/48 

PRTOP 0381 0021/04 0077/08 0124/11 0075/12 0413/40 

P80 0465/02 0185/14 0205/14 0226/14 0232/14 0238/14 0245/14 

P81 0466/02 0328/10 0347/10 0353/11 0367/11 0187/14 0210/14 
0262/14 

P8C 0147 0128/59 

P3H0T 0108/02 0401/02 0335/12 0426/12 0474/12 0005/13 0008/13 
0482/14 

P8TR 0090/02 0435/02 0468/02 0308/10 0390/10 0066/11 0155/U 

0343/U 04J4/H 0508/U 0265/13 0269/13 0125/14 0*31/14 

0249/14 0258/14 0265/14 0432/25 0420/35 

PSTR1 021W/14 0206/14 

P8TR2 0214/14 0803/14 0209/14 

P3TR3 0245/14 0230/14 

P8TR4 0248/14 0244/14 

P8TR5 0250/14 0239/14 

PSTR6 0254/14 0264/14 

P8TR7 0259/14 0253/14 

PTABL 0384/59 0158/59 0323/59 

PUOIR 0579/56 0385/58 

PUKED 0578/58 0464/58 0474/58 

PUKfcS 0577/58 0462/58 0473/50 

PUN 0033/31 0500/29 



****$* CROSS-REFERENCE SYMBOL TABLE 

PUNCH (0225/21 0111/31 

PUKI 0356/58 0282/58 0288/58 0298/58 0328/58 

PURU 0386/58 0395/58 

PUR12 0391/58 0508/58 

PUR13 0398/58 0390/58 

PUR15 0411/58 0490/58 

PUW16 0485/58 0418/58 0460/58 

PUR2 0278/58 0259/58 0271/58 

PUR3 0380/58 0313/58 

PUR4 0312/58 03l8/b8 

PUR7 0360/58 0316/b8 

PURCT 0568/58 0382/58 0455/58 0457/58 0513/56 0517/58 0553/58 

PURDG 0342/58 0323/58 0329/58 0344/58 0348/58 0351/58 0352/58 

PURD1 0569/58 0387/58 0452/58 0454/58 0466/58 04/6/58 0494/58 
0507/58 

PURDI 0573/56 02a3/5a 0291/58 0292/58 0294/58 0414/58 

PURDU 0580/58 0393/58 

PURfcD 0576/58 0541/58 0545/58 

PURER 0364/58 0357/58 036J/58 0368/58 

PURES 0575/58 0539/58 0543/58 

PURM 0528/58 0554/58 

PURF2 0547/56 0532/58 

PURFX 0512/58 0396/58 0471/58 0515/58 0565/58 

PURht 0586/58 0255/58 

PURN 0574/58 0325/58 0331/58 0333/58 0337/58 M 365/58 0372/58 

PURN1 0325/58 0336/58 

PURN2 0337/58 0330/58 



####•# CROSS*REFERENCE SYMBOL TABLE 

PURnD 0571/58 0402/58 0488/58 

PURNO 0322/58 0278/58 0284/58 0326/58 0338/58 0339/58 

PURP 0572/58 0266/58 0273/58 0412/58 0445/58 044$/58 0486/58 

PURTC 0567/58 0516/58 

PURTP 0570/58 0384/58 042J/58 0423/58 0430/58 0431/58 0434/58 

0435/58 0438/56 0439/58 ^442/58 w 443/58 «529/58 0551/58 
0564/58 

PURUU 0583/58 0561/58 

PURUI 0584/58 0562/58 

PWR2A 0276/20 0265/20 

PZ99§ 0585/58 02^/58 ^^rt^gpp^ •*»*+■■*&&■■*■■ - ^WIWP» 



• #♦»#•» CKOSS-REFERENCE SyMBOL TABLE 

QUOTE 0477/04 0323 0187/05 

R14CM 0419/28 02&8 05*6/26 05*7/26 055»/26 04g2/28 0710/32 

R14DK 0258 0031 0658/26 

RUED 0593/28 0550/26 

R14HT 0445/28 0439/28 0440/28 04&B/28 0468/28 0476/28 0484/28 

0489/28 0497/28 0502/28 0511/28 0517/28 0521/28 0535/28 

0543/28 0551/28 0565/28 0573/28 0591/28 

R22 0051/21 0018/21 0022/21 

RADT 0279/31 0282/31 0402/31 0423/31 0424/31 0487/31 0517/31 

0730/32 0013/33 

RAOTP 0013/33 0809/39 0402/53 0322/55 

RBOP 0487/04 0080/05 

RBP 0130 0432/03 0257/06 0532/11 

RCRO# 0457/02 0088/12 0158/12 0361/15 

RO0 0430/02 0327/18 0337/18 0342/18 0350/18 

RDIOT 0097/33 0744/32 0114/33 0146/33 0072/36 0234/36 0084/39 

0501/39 0761/39 0566/43 0228/44 0366/44 

ROIM1 0335/18 0331/18 

RDRJP 0420/32 0257/32 0275/32 0394/32 

ROPRG 0055/33 *>743/32 0M7 2'33 k>252/34 fc>436/34 ^122/35 0265/35 

0404/35 0572/35 0655/35 0035/36 0295/36 0068/38 0188/38 

0211/38 0318/38 0312/39 0820/39 0020/40 0447/43 0006/45 

ROPRJ 0074/33 0420/32 0069/33 038^/33 0059/36 

READ1 0617/03 0611/03 

READS 0610/03 0532/05 

READY 0175 0215/29 0257/39 

RECR0 0143/06 0139/06 

RECR1 0147/06 0135/06 

RECRf 0184/02 0379/02 0610/03 0665/03 0025/04 0068/04 0136/06 

0146/06 0150/06 



»»»»## CROSS-REFERENCE SYMBOL TABLE 

KEDJM 0174/02 0324/02 0465/02 0494/02 0068/17 0352/17 0354/18 

RELOS 0517/04 0502/03 

REMOP 0369 0050/08 05U/21 

REMS 0284/05 0521/05 

REN0 0332/40 0330/40 

REN1 0130/40 0040/40 0043/40 0049/40 

REN10 0292/40 0300/40 

RENU 0309/40 

REN12 0316/40 0323/40 

REN13 0324/40 0109/40 0311/40 0317/40 

REN14 0239/40 0225/40 

REN15 0209/40 0229/40 

REN16 0271/40 0278/40 

REN17 0282/40 0265/40 0275/40 

REN18 0280/40 0263/40 

REN2 0145/40 0136/40 

REN20 0069/40 0081/40 

REN21 0082/40 0071/40 0076/40 

REN22 0089/40 0055/40 

REN23 0095/40 0106/40 

REN24 0107/40 0097/40 0101/40 

REN25 0149/40 0156/40 

REN26 0160/40 0151/40 

REN27 0134/40 0141/40 

REN28 0301/40 0294/40 

REN29 0121/40 0112/40 

R£N3 0187/40 0176/40 0181/40 



####•* CRUS3, REFERENCE SYMBOL TABU 

REN4 0244/40 0265/40 

REN5 0261/40 02b2/40 

REN6 0268/40 0260/40 

REN7 0248/40 0256/40 

REN8 0284/40 02/7/40 

REN9 0289/40 0189/40 0245/40 

RENBA 0455/40 0034/40 0053/40 0090/40 0092/40 0099/40 0110/40 

0122/40 0148/40 0290/40 

RENC 0451/4(0 0026/40 0187/40 0309/40 

RENC1 0458/40 0197/40 0218/40 0219/40 0269/40 0274/40 

RENC2 0459/40 01^8/40 0215/40 

RENC3 0460/40 0221/40 0227/40 

rE N En 0456/40 0029/40 0070/40 0096/40 0108/40 0135/40 0163/40 

0175/40 0180/40 0302/40 

RENFi 0370/40 0046/40 0052/40 0058/40 0062/40 0126/40 0355/40 

RENF2 0328/40 0120/40 0168/40 01/3/40 0186/40 

RENL 0448/40 0068/40 0077/40 0083/40 0094/40 0104/40 0118/40 

0147/40 0155/40 0161/40 0170/40 0184/40 0343/40 0352/40 

0356/40 0358/40 0361/40 0366/40 

RENLA 0461/40 0035/4*8 0059/40 0074/40 0084/40 0J24/40 0150/40 

0162/40 01/4/40 0293/40 

RENM 0449/40 0037/40 0041/40 0116/40 0169/40 02»l/40 

RENN 0450/40 0038/40 0047/40 0165/40 0296/40 

RENNS 0457/40 0132/40 0140/40 0191/40 

RENP 0452/40 2 42/40 0250/40 0270/4® 02 8 2 / 40 0284/40 0315/40 

0318/40 0322/40 0377/40 0382/40 0430/40 0437/40 

RENQ 0453/40 0240/40 0313/40 0378/40 0386/40 039t/40 039 2 /40 

0393/40 0394/40 0409/40 0410/40 0416/40 0417/40 0422/40 

0428/40 0431/40 0435/40 0445/40 

RENR 0454/40 0379/40 0390/40 0427/40 

RENSl 0384/40 0432/40 0440/40 0443/40 



REN32 
REN83 
RENS4 
RENS5 
RENS6 
REN3K 
REN3N 
RENU1 
RENU2 
RENUM 

REPi 

REP2 

REP29 

REP3 

REP4 

REP56 

REP57 

REPAB 

REPAf- 

RfcPB0 

REPBP 

REPCT 



0387/40 

0434/40 

0437/40 

0445/40 

0412/40 

0376/40 

0462/40 

0346/40 

0365/40 

0341/40 
0369/40 

0658/45 

0652/45 

0306/45 

0757/45 

0692/45 

0808/45 

0807/45 

0610/45 

0620/45 

0805/45 

0797/45 
0708/45 
0775/45 

0295/02 
0521/19 
0164/23 
0327/23 
0069/24 
0306/24 



CROSS-REFERENCE SYMBOL TABLE 
0381/40 0383/40 0415/40 U421/40 0425/40 0446/40 
0401/40 0403/40 0405/40 0447/40 
0444/40 
0399/40 
0408/40 

0244/40 0316/40 0384/40 0385/40 0388/40 
0200/40 0212/40 10213/40 0223/40 
0364/40 

0348/40 0351/40 
0039/40 0045/40 0051/40 0057/40 0345/40 0367/40 



0649/45 

0755/45 

0606/45 

0727/45 

0761/45 

0741/45 

0648/45 

0619/45 

0614/45 

0774/45 

0631/45 
0719/45 
0776/45 

0465/19 
0523/19 
0165/23 
0335/23 
0072/24 
0062/25 



0744/45 0760/45 



0757/45 
0651/45 



0635/45 
0720/45 
0752/45 

0477/19 
0526/19 
0177/23 
0354/23 
0107/24 
0074/25 



0659/45 
0721/45 
0783/45 

0480/19 
0096/23 
0198/23 
0381/23 
0114/24 
0325/25 



0703/45 
0742/45 
0786/45 

0499/19 
0150/23 
0202/23 
0384/23 
0177/24 



0704/45 
0749/46 
0787/45 

0502/19 
0161/23 
0205/23 
0006/24 
0180/24 



0707/45 
0758/45 



0505/19 
0162/23 
0244/23 
0014/24 
0298/24 



REPET 0731/45 0740/45 



MMM CROSS-REFERENCE SYMBOL TABLE 

REPEV 0747/45 0734/45 

REpFX 0804/45 0702/45 

REPHO 0790/45 0604/45 

REPID 0798/45 0668/45 0676/45 0677/45 0684/45 0686/45 0692/45 

0698/45 0709/45 0711/45 0712/45 0714/45 0715/45 0716/45 
0722/45 

REPK 0800/45 0664/45 0672/45 0780/45 0784/45 

REpLn 0796/45 05«6/45 0600/45 0647/45 0667/45 0723/45 0725/45 
0738/45 

REPMS 0803/45 0700/45 

REPND 0802/45 0743/45 0759/45 

REPNI 0594/45 0588/45 

REPNM 0763/45 07^6/45 0769/45 0781/45 0785/45 

REPNT 0660/45 0745/45 

REPPT 079S/45 &»6n/45 0622/45 0634/45 066i/45 0665/45 0732/45 
0736/45 

REPS 0650/45 0617/45 

REPSC 0633/45 0643/45 

REP3E 0644/45 0641/4$ 

REPSG 0615/45 0636/45 

REPSL 0809/45 0750/45 

REPT 0799/45 0696/45 0705/45 

KEPT* 0771/45 0713/45 0/17/45 0788/45 

REPTT 0801/45 7 53/45 

RERRA 0006/15 0315/16 

RERR3 0530 0625/05 0524/06 0562/06 0566/06 0043/07 0222/07 

0250/07 0264/07 0297/07 0326/07 0338/07 0343/07 0366/07 

0367/07 0368/07 0049/08 0065/08 0229/08 0460/08 0064/09 

0169/09 0186/09 0070/10 0204/10 0145/11 0176/11 0182/11 

0187/11 0016/12 0017/12 0018/12 0019/12 0020/12 0081/12 

0122/12 0129/12 0167/12 0171/12 0301/12 0192/13 0199/13 

0214/13 0219/13 0359/13 0099/14 0218/14 0222/14 0246/14 

0251/14 0413/14 0416/14 k.4/9/14 0006/15 0007/15 0101/15 



»•##•• CROSS-REFERENCE SYMBqL TABLE 

0108/15 0116/15 0229/15 0505/15 0256/16 0215/17 0220/17 

0225/17 0232/17 0263/17 0270/17 0282/17 0364/17 0396/17 

0402/17 0031/16 0140/18 0301/18 0304/18 0324/16 0334/18 

0341/18 0362/16 0030/20 0032/20 0037/20 0158/20 0294/20 

0341/20 0010/21 0104/21 0263/21 0267/21 0277/21 0280/21 
0286/21 

RESl 0685/48 0748/48 0700/48 0789/46 

RES2 0784/48 0683/48 

RES3 0788/48 0802/48 

RES4 0754/48 0699/48 

RES42 0756/48 0762/48 

KES5 0701/48 0720/46 

HES51 0716/48 0702/48 

RES6 0726/48 0759/48 

RES61 0736/4© 0747/48 

RES62 0749/48 0732/48 

RE$C 0813/48 0690/48 0701/48 0757/48 

RE8CA 0805/48 0675/48 

RE8CL 0806/48 0767/48 0775/48 

KE80 0015/46 0796/48 0799/46 

RESEK 0808/48 8704/48 0713/48 0811/48 0811/48 

RESES 0811/48 0708/48 0711/48 

RESI.E 0807/48 0743/48 

RESOP 0463/40 0398/40 

REST 0814/48 0671/48 0723/48 0755/48 0797/48 0800/48 

RESX1 0764/48 0676/48 

RE3X2 0771/48 076 8 /4a 

RE8X3 0778/48 0776/48 

RESXE 0678/48 0770/48 

RETAD 0238/16 0224/16 



***** 




rEtcu 


0291/02 


RIDCL 


0794/45 


RKCYP 


0011/34 

0251/44 
0125/56 


RNDA1 


0112/20 


RNUA2 


0113/20 


RNDC1 


0114/20 


RN0C2 


0115/20 


RNOX1 


0240/02 
0100/20 


RNDX2 


0241/02 


RONOl 


0284/25 


R0ND2 


0306/25 


ROS 


0080/31 


ROSl 


0469/48 


ROS2 


0472/48 


R0S3 


0494/48 


R0S4 


0497/48 


ROSC 


0508/48 


ROSDU 


0514/48 


ROSFX 


0513/48 


KOSIO 


0510/48 


ROSLU 


0509/48 


ROSMS 


0512/48 


R03P 


0507/48 
0496/48 


ROST 


0511/48 


R0ST8 


0460/48 



CRU3S-REFERENCE SYMdOL. TABLE 

0489/U 0494/11 0495/11 0536/11 
0616/45 0733/45 

0095/36 0099/36 0106/36 0248/36 0274/36 0290/36 

0255/44 0262/44 0377/44 0414/44 (0566/44 0121/56 
0132/56 0262/56 0290/56 0305/56 

0084/20 

0081/20 0091/20 

0086/20 

0092/20 

0077/20 0080/20 0082/20 0085/20 0087/20 0098/20 

0078/20 0083/20 0090/20 U096/20 

0295/25 

0302/25 

0073/27 0197/30 

0503/48 

0468/48 

0474/48 

0493/48 

0465/48 0502/48 

0494/48 

0484/48 

0467/48 0472/48 0480/48 0499/48 0501/48 

0431/48 

0482/48 

0463/48 0470/48 04/1/48 0485/48 0486/48 0495/48 
0497/48 0498/48 

0478/48 0487/48 

0433/48 0441/48 0446/48 0451/48 0466/48 0504/48 



****** CROSS-REFERENCE SYMBOL TA8CE 

0505/48 

ROUNO 0208/02 8428/23 0201/24 0313/24 0172/25 0281/25 0289/25 

0305/25 0309/25 0311/25 

RPARN 0491/04 0351/04 0078/05 0310/06 

RPCK 0034/02 0392/02 0380/03 0136/04 0277/04 0070/06 0317/06 

RPOP 0349 0522 0353/04 0312/06 

KOI 0449/02 0098/15 0114/16 0195/15 0230/15 

RQ2 0450/02 0093/15 0117/15 0120/15 0168/15 0204/15 0274/16 

RQ3 0451/02 0480/U 0611/11 0183/15 0206/15 0216/15 0234/15 

0244/15 0441/15 0484/15 049l/l5 0381/35 

RQ4 0452/02 0172/15 0276/15 

RQ5 0453/02 0178/15 0197/15 

RQ310 0224/15 0212/15 

RUSH 0245/15 0256/15 0265/15 

RQS12 0263/15 0289/15 

R0S13 0270/15 0246/15 0249/15 0251/15 

RQS14 0273/15 0232/15 0235/15 0240/15 

RQ315 0194/15 0190/15 

RQST2 0147/15 0121/15 

R03T3 0230/15 0192/15 

R0ST4 0233/15 0196/15 

RQST5 0236/15 0226/15 

RQST6 0146/15 0124/15 

RQST7 0150/15 0145/15 

R0ST8 0213/15 0203/15 

R0ST9 0281/15 0119/15 

ROSTR 0190/02 0094/12 0284/15 0366/15 0370/15 0162/20 

RSCMi 0450/14 0458/14 



•##### CROSS-REFERENCE. SYMBOL TABLE 

RSCH2 0459/14 0453/14 

RSCHK 0118/02 0313/02 0431/02 0461/02 0376/12 0018/13 0060/13 

0285/14 0372/14 0443/14 0466/14 

RSFAE 0190/31 0182/31 

RSFS 0170/31 0203/31 0220/31 0229/31 0242/31 0260/31 0729/32 
0014/33 

RSFSP 0014/33 0767/39 0438/51 0283/55 0156/58 0542/58 

RSPTH 0404/02 0293/11 0378/11 03/9/U 0380/11 0382/11 0384/11 

RSTOl 0165/05 0161/05 

RSTOP 0080/02 0385/02 0318/03 0504/03 0164/05 0167/05 0292/05 

0358/05 0377/05 

RSTP1 0269/08 0265/08 

RSTP2 0271/08 0291/08 

RSTP3 0287/08 0309/08 

RSTP4 0292/08 0281/08 

RSTPb 0314/08 0257/08 0335/08 

RSTP6 0333/08 0324/08 0330/08 0354/08 

R3TP7 0339/08 0321/08 0349/08 

RSTP8 0350/08 0344/08 0347/08 

RSTP9 0355/08 0316/08 

RSTPT 0200/02 W74/V7 0356/08 0400/36 

RSTKi 0271/05 0267/05 

RSTRS 0266/06 0534/05 

RT0 0471/02 0444/14 0465/14 

RTl 0472/02 0449/14 0451/14 0455/14 0456/14 

RTNST 0381/02 0330/09 0383/09 0427/09 0430/09 0065/10 0066/10 

0067/10 0202/10 0207/10 

RTRNQ 0380/02 0382/09 0420/09 0446/09 0069/10 0203/10 

RVRSL 0003/26 0199/27 







CROSS* 


REFERENCE 


SYMBOL TABLE 






3 


0004/23 


0142/23 


0437/23 










S14LP 


0271 


0064/07 


0596/U 


0492/16 


0393/19 


0486/30 


0528/30 


S14SC 


0270 

0246/06 

0311/29 

0109/30 

0217/39 

0028/42 

0260/48 

0237/49 


0271 

0258/06 

0412/29 

0336/30 

0235/39 

0004/43 

0271/48 

0083/59 


0421/03 
0409/19 
0415/29 
0427/30 
0411/39 
0090/45 
0615/48 
0129/59 


0436/03 
0307/28 
0456/29 
0444/30 
0546/39 
0222/45 
0632/46 
0289/59 


0466/03 
0317/28 

0009/30 
0156/33 
0559/39 
0411/45 
0647/48 
0296/59 


0633/05 
0610/28 
0030/30 
0045/39 
0562/39 
0422/45 
0195/49 


0191/06 
0210/29 
0054/30 
0059/39 
0320/41 
0097/47 
0209/49 


S143H 


0395/28 


0270 


0415/28 


0709/32 








98184 


0515/37 


0102/37 












SA1 


0144/21 


0139/21 












SA2 


0145/21 


0114/21 












SAO 


0288/02 


0091/23 


0236/23 


0416/23 


0186/24 


0219/24 


0248/24 


3AL1 


0036/28 


0067/28 












SAj.2 


0090/28 


0038/28 


0056/28 


0077/28 








SAL3 


0045/28 


0042/28 












3AL4 


0059/28 


0066/28 












3AL5 


0070/28 


0063/28 












SALCP 


0097/28 


0022/28 


0083/28 


0703/32 








SALDA 


0100/28 


0031/28 


0050/28 


0052/28 


0072/28 


0082/28 




SALEC 


0102/28 


0049/28 


0065/28 


0704/32 








salfa 


0110/28 


0091/28 












SAISU 


0106/28 


0084/28 












SALTl 


0098/28 


0025/28 


0032/23 


0073/28 








SALTS 


0101/28 


0035/28 


0061/28 










SALVA 


0426/32 














3ALVG 


0021/28 


0137/03 


0086/28 


0093/26 


0426/32 


0701/32 


0018/33 


SALvP 


0018/33 
083o/39 
0662/57 


0654/35 
0087/44 
0211/58 


0336/36 

0752/48 
0274/58 


0221/38 
0124/49 


0344/38 
0436/49 


0206/39 
0124/50 


0571/39 
0306/57 



cross™reference symbol tab^e 



SAlvw (3137/03 0104/03 

SALwL 0099/28 0028/28 0036/28 0043/28 0046/28 

SAM2K 0104/28 0045/28 

SAN8K 0758/57 0521/57 

SAnC 0508/57 0502/57 

SANCA 0520/57 0514/57 

SANC8 0525/57 0519/57 

SANCC 0559/57 0572/57 

SANCD 0568/57 0564/57 

SANCH 0576/57 05*3/57 0571/57 

SANCO 0580/57 

3ANCP 0583/57 0579/57 

SANCK 0597/57 0605/57 

3ANCJ 0611/57 0602/57 

SAnCV 0633/57 0621/57 

SANpO 0664/57 0658/57 

SaNEa 0731/57 0504/57 0734/57 

SANEB 0736/67 0705/57 0739/57 

3ANEC 0741/57 0709/57 0744/57 

8ANEU 0745/57 0713/57 0748/57 

8ANEE 0750/57 0607/57 0753/57 

SANfA 0734/57 0605/57 

SANFb 0739/57 0706/57 

SANFC 0744/57 0710/67 

SA^FU 0748/57 0714/57 

SANFt 0753/57 0608/57 

SANIL 0716/57 0506/57 0609/57 0707/57 0711/57 



****** cross-reference symbul table 

SANIP 0693/57 0486/57 0488/57 0490/57 0701/57 

SANKB 0705/57 0518/57 0523/57 

SAnkC 0709/57 0530/57 

SaNKU 0713/57 0567/57 

SANLA 0754/57 0512/57 0877/57 0697/57 0700/57 

SANLB 0755/57 0550/57 0562/57 0584/57 0598/57 0617/57 0665/57 

SANLC 0756/57 0566/57 0594/57 0604/57 0616/57 0650/57 0684/57 

SANLD 0757/57 0612/57 0619/57 

SAV0 0040/36 0384/36 

SAV10 0169/36 0422/36 

3AVH 0172/36 0169/36 

8AV12 0137/36 0174/36 

SAV21 0233/36 0373/36 

SAV23 0129/36 0374/36 

SAV24 0298/36 0427/36 

3AV25 0301/36 0298/36 

SAV3 0337/36 0029/36 

SAV30 0272/36 0251/36 0293/36 

3AV31 0295/36 0275/36 

SAV32 0333/36 0326/36 

3AV4 0338/36 0033/36 

SAV5 0046/36 0041/36 0042/36 

3AV50 0060/36 0405/36 

SAV51 0062/36 0060/36 

SAV6 0091/36 0081/36 

3AV7 0147/36 0121/36 

SAV9 0083/36 



»#»##» 



CROSS*REFERENCE SYMBOL TABLE 



SAV98 0343/36 0178/36 

SAV99 0369/36 0348/36 

SAVBA 0094/36 0127/36 

SAVBU 0116/36 0124/36 

SAVBh 0126/36 0104/36 0109/36 

SAVC 0360/36 0113/36 0123/36 0153/36 
0264/36 

SAVCf- 0277/36 0266/36 

SAVCG 0289/36 0271/36 

SAVq 0362/36 0025/36 0054/36 0056/36 

0246/36 0266/36 0268/36 0273/36 



0257/36 0278/36 0283/36 



0101/36 0102/36 0111/36 



SAVOP 0363/36 0093/36 0126/36 0151/36 02s3/36 0286/36 

SAVDP 0352/36 0158/36 0302/36 

sAvDg 0358/36 0155/36 0209/36 0352/36 W7/S7 

SAVDU 0364/36 0164/36 0374/37 

SAVE 0046/31 0494/29 

SAVI 0356/36 0176/36 0216/36 0218/36 

SAVLN 0365/36 0068/36 0075/36 0119/36 

SAVQ 0048/31 0351/36 0614/44 0506/56 

SAVOV 0351/36 0346/36 

S*VP 



0220/36 

0148/36 0236/36 0280/36 

0439/57 



0361/36 0023/36 0030/36 0036/36 
0197/36 0303/36 0365/37 



0050/36 0062/36 007(0/36 



SAVS 0357/36 0187/36 0192/36 

SAVWU 0359/36 0065/36 0213/36 0296/36 0381/37 

SB1 0146/21 0141/21 

SB2 0147/21 0116/21 



SBP 0289/02 0090/23 0233/23 0234/23 
0220/24 0247/24 



0415/23 0444/23 0186/24 



SBFIX 0088/02 0052/10 0452/11 0080/12 0097/12 0191/13 0198/13 





0021/16 


CROSS- 
0023/15 


REFERENCE 
0027/15 


SYMBOL T 
0028/15 


ABLE 
0323/18 


0333/18 


0157/20 




0471/35 














SBHED 


0049 


0116/29 


0128/29 


0378/29 


0406/30 


0418/30 




SBJTB 


0249 


0236/02 












SBP 


0129 


0131 


0417/03 


0190/06 


0345/28 






SBPJR 


0246/02 


0410/02 


0291/03 


0271/03 


0272/03 


0275/03 


0276/03 




0307/03 


0309/03 


0341/03 


0376/03 


0386/03 


0396/03 


0427/03 




0428/03 


0429/03 


0431/03 


0449/03 


0462/03 


0473/03 


0476/03 




0486/03 


0487/03 


0494/03 


0505/03 


0535/03 


0539/03 


0562/03 




0S86/03 


0624/03 


0653/03 


0695/03 


0699/03 


0716/03 


0717/03 




0011/04 


0014/04 


0057/04 


0089/04 


0104/04 


0107/04 


0116/04 




0218/04 


0232/04 


0242/04 


0243/04 


0247/04 


0263/04 


0283/04 




0301/04 


0322/04 


0332/04 


0334/04 


0339/04 


0341/04 


0354/04 




0376/04 


0402/04 


0036/05 


0081/05 


0130/05 


0138/05 


0158/05 




0180/05 


0205/05 


0218/05 


0236/05 


0237/05 


0271/05 


0308/05 




0326/05 


0327/05 


0341/05 


0435/05 


0476/05 


0477/05 


0565/05 




0591/05 


0598/05 


0599/05 


0616/05 


0081/06 


0083/06 


0066/06 




0141/06 


0145/06 


0148/06 


0149/06 


0159/06 


0192/06 


0196/06 




0198/06 


0223/06 


0224/06 


0233/06 


0252/06 


0297/06 


0298/06 




0313/06 


0378/06 


0398/06 


0396/06 


0406/06 


0407/06 


0534/06 




0535/06 


0552/06 


0231/10 


0360/10 


0376/10 


0382/10 


0060/11 




0233/11 


0242/H 


0243/U 


0244/11 


0269/11 


0275/11 


0276/U 




0277/11 


0292/U 


0301/11 


0302/11 


0303/11 


0311/11 


0376/11 




0199/14 


0340/15 


0502/16 


0057/17 


0069/17 


0070/17 


0071/17 




0072/17 


0091/17 


0092/17 


0093/17 


0101/17 


0103/17 


0104/17 




0107/17 


0108/17 


0119/17 


0120/17 


0135/17 


0137/17 


0138/17 




0326/18 


0328/18 


0336/18 


0338/18 


0343/18 


0347/18 


0348/18 




0349/18 


0176/22 


0178/22 


0459/25 


0461/25 


0462/28 


0463/25 




0464/25 


0477/25 


0478/25 


0479/25 








SBPUU 


0046/02 


039J/03 


0450/03 


0453/03 


0571/03 


0639/03 


0650/03 




0675/03 


0696/03 


0707/03 


0043/04 


0054/04 


0088/04 


0288/04 




0361/04 


0075/05 


0082/05 


0165/05 


0232/05 


0474/05 


0481/05 




0064/06 


0069/06 


0084/06 


0087/06 


0226/06 


0299/06 


0314/06 




0539/06 


0177/22 


0179/22 










SB8CJ 


0060/05 


0099/05 


0102/05 










SBSC3 


0070/05 


0063/05 


0067/05 


0098/05 


0106/05 






SBSC4 


0095/05 


0059/05 












SB3C5 


0100/05 


0040/05 












SBSCK 


0016/02 


0378/02 


0034/04 


0127/04 


0030/05 


0031/05 


0043/05 




0087/05 


0092/05 


0094/05 


0221/05 


0420/05 






SBT0 


0347/02 


0533/06 


0538/06 










3BUFA 


0336/02 


0252/03 


0561/05 


0563/05 


0571/05 


0586/05 


0595/05 



CROSS-REFERENCE SyMBOL TABLE 
0596/05 0683/05 



SCALR 0432/02 0332/17 0087/19 0093/18 0115/18 0116/18 0121/18 

0124/18 0187/18 0198/18 0216/18 0261/18 0266/18 0272/18 

3CH1 0252/29 06^5/28 0017/29 0261/29 027^/29 0348/29 0416/29 

0421/29 0432/29 0445/29 0021/30 0162/30 0189/30 0215/30 

0245/30 0289/30 0327/30 0512/30 0079/33 0416/33 0486/33 
0481/44 

SCHU 0436/29 0384/29 

SCH12 0521/29 0508/29 

SCH13 0538/29 0528/29 

3CH14 0532/29 0542/29 

SCH15 0152/29 0027/29 0048/29 0098/29 0106/29 0U2/29 

SCH16 0104/29 0029/29 0053/29 

3CHi7 0142/29 0122/29 

SCH18 0144/29 0123/29 0124/29 

SCH19 0141/29 0135/29 

SCH2 0441/33 0448/33 

SCH20 0418/29 0408/29 0517/29 0548/29 0031/30 0107/31 

SCH21 0097/29 0148/29 

8CH22 0448/29 0439/29 

3CH23 0136/29 0110/29 

SCH24 0469/29 0452/29 

SCM25 0440/29 0393/29 

SCH26 0489/29 0479/29 0483/29 

SCH27 0486/29 0471/2g 0473/29 «475/2 9 

8CH28 0505/29 0492/29 

SCH29 0512/29 0495/29 0497/29 0499/29 0501/29 0503/29 

SCH3 0016/29 0140/29 0295/29 0332/29 0402/29 0536/29 

3CH30 0404/29 0381/29 



*•»••• CROSS-REFERENCE SYMBOL TABLE 

SCH4 0368/29 0277/29 

SCH5 0025/29 0281/29 

SCHgl 0287/29 0371/29 

SCH52 0050/29 0035/29 

SCH6 0376/29 0280/29 

SCHgi 0^29/29 03$4/29 

8CH7 0299/29 0279/29 0421/32 

SCH75 0333/29 0316/29 

SCH78 0346/29 

SCH8 0352/29 0278/29 

SCH9 0389/29 0382/29 

SCMAR 0405/30 0093/30 0123/30 0139/30 0416/30 0420/30 0421/30 

0422/30 0439/30 0440/30 0445/30 0720/32 

8CH81 0419/33 0403/33 

SCH8L 0396/33 0256/34 0510/34 0343/35 0641/35 0657/35 

SCHED 0677/28 0671/28 

8CHEN 0283 0628/05 0634/05 0600/U 0451/16 0538/21 0545/21 

0549/21 0184/33 0226/33 0340/33 

SCHEQ 0354/30 0283 

SCHIO 0052 0268/29 0392/29 0436/29 

SCHIN 0286 0264/11 0232/12 0330/16 

SCHIQ 0331/30 0285 0339/30 

SCHL 0050 0118/29 0435/33 0449/33 0450/33 

SCHLb 0297 0364/07 0490/11 0014/12 

SCHLU 0350/33 0297 0754/32 0381/33 0382/33 0408/33 0421/33 

0205/34 0320/34 0331/34 0113/35 0145/35 0179/35 0251/35 

0253/35 0488/35 0490/35 0491/35 0496/35 0547/35 0606/35 

0637/35 0522/56 0455/57 

SCHQU 0514/30 0516/30 0723/32 0023/33 

SCH U 0023/33 0168/41 0330/41 0347/41 0572/41 0037/42 0054/42 



****** CROSS. REFERENCE SYMBOL TABLE 

0180/42 0253/42 0282/42 0294/42 0368/42 0437/42 0451/42 

0466/42 0539/42 0065/43 0093/43 0116/43 0157/43 0171/43 

0199/43 0214/43 0227/43 0251/43 0273/43 0278/43 0363/45 

0369/45 0389/45 

SCHP 0053 0120/29 0379/29 0469/29 0482/29 0493/29 0505/29 

0102/30 0116/30 0122/30 0138/30 0144/30 0441/33 0451/33 

SCHPR 0055 0439/33 0446/33 

SChOI 0369/30 0357/30 

SCMQ2 0379/30 0376/30 

SCHQ3 0381/30 0373/30 

SCHRl 0423/30 0408/30 0432/30 

8CHR2 0441/30 0434/30 

3CHS1 0022/29 0255/29 

SCH80 0518/30 0599/42 

SCLPR 0044/30 0339/29 0428/29 0055/30 0378/30 

8CMMA 0503/04 0062/05 

SCNT 0054 0092/30 0119/30 

SCOM 0090/30 0121/29 0380/29 0094/30 0095/30 0098/30 0104/30 

0110/30 0111/30 0114/30 0117/30 0124/30 0134/30 0137/30 

0145/30 0718/32 

SCOM1 0407 0128/30 

SC0M5 0409 0133/30 

3CQMA 0128/30 0121/30 

3C0M8 0113/30 0126/30 

SCOMC 0137/30 0132/30 

SCOMD 0131/30 0136/30 

ScOME 01U/30 0101/30 

SCOMM 0435 0478/06 0307/08 

3 C R 0025/31 0472/29 

SCRAT 0550/29 0547/29 0560/29 0545/30 



»•••## CRQS8»REFErEnCE SYMBQi, TAB^E 

3DIR0 05J7/37 0013/37 0052/37 0200/37 0222/37 0254/37 0403/37 

SDIri, 0518/37 0033/37 0067/37 0081/37 0391/37 

SOIRU 0519/37 0269/37 

SEMI 0481/04 0648/03 0052/04 

SEMJ1 0508/33 0497/33 

3EMI2 0521/33 0526/33 

8eMI3 0534/33 0507/33 

3EMIC 0493/33 0761/32 0039/33 0609/35 §236/38 0329/39 

SERl 0355/25 0366/25 

3ER10 0425/16 0439/16 

SERll 0433/16 0424/16 

SER12 0440/16 0432/16 

SER13 0442/16 0409/16 

SER5A 0469/16 0457/16 0462/16 

SER7A 0184/03 0258/03 

SERR 0178/02 0827 0529 0530 0532 0533 0535 

0536 0538 0329/02 0330/02 0242/10 0259/10 0317/10 

0225/16 0310/16 0418/16 

3ERR1 0336/16 0237/16 0318/16 

SERR2 0373/16 0482/16 0496/16 

SERR3 0397/16 0389/16 

SERR4 0405/16 0332/16 

SERR5 0453/16 0364/16 

SERR6 0497/16 0322/16 

3ERR7 0516/16 0184/03 

SERR8 0414/16 0402/16 

3ERR9 0416/16 0412/16 

SERRA 0085/15 0312/16 



SERRd 
SERRS 



CROSS-REFERENCE SYMQOl TABtE 



SETU1 
SET02 
SETDH 
SETPT 

SFC7 
SFlAg 

SFLG 

SFLGA 
SICk 

SICKA 

SICKL 
SICKM 

SKKp 



0362/16 0358/16 



0527 

0354/03 

0439/03 

0520/03 

65575/03 

0652/03 

0029/04 

0080/04 

0146/04 

0268/04 

0420/04 

0186/05 

0333/05 

0371/05 

0550/06 

0045/12 

0049/12 

0102/02 

0144/02 
0304/12 

0570/26 

0534/04 

0490/03 
0438/04 
0219/05 

0477/02 
0124/25 



0119/28 
0427/32 

0427/32 

0010/15 

0127/28 

0017/33 
0022/39 
0/93/39 

0028/49 
0303/52 
0340/57 



0280/03 
0362/tf3 
0443/03 
0524/03 
0584/03 
0663/03 
0041/04 
0088/04 
0158/04 
0271/04 
0079/05 
0192/05 
0335/05 
0425/05 
0005/15 

0041/12 

0035/12 

0307/02 
0316/02 



0297/03 
0625/03 
0463/04 
0258/05 



0138/03 
0/06/32 



0361/16 

0121/28 

0391/33 
0039/39 
0085/42 
0321/49 
0335/52 
0461/57 



0317/03 

0367/03 
0447/03 
0529/03 
0598/03 
0673/03 
0045/04 
0099/04 
0169/04 
0276/04 
0105/05 
0217/05 
0340/05 
0604/05 
0006/15 



0321/03 
0369/03 
0475/03 
0533/03 
0603/03 
0698/03 
0053/04 
0111/04 
0175/04 
0300/04 
0117/05 
0231/05 
0344/05 
0066/06 



0327/03 
0379/03 
0482/03 
0544/03 
0616/03 
0725/03 
0056/04 
0126/04 
0256/04 
0314/04 
0140/05 
0307/05 
0352/05 
0111/06 



0344/03 
0364/03 
0503/03 
0554/03 
0627/03 
0008/04 
0066/04 
0133/04 
0256/04 
0320/04 
0163/05 
0314/05 
0362/05 
0311/06 



0368/09 0212/H 0052/12 
0386/09 0104/10 0170/10 



0310/03 0313/03 0320/03 
0656/03 0718/03 0369/04 
0101/05 0137/05 0141/05 



0258/05 0298/05 0342/05 



0010/15 
0017/33 



0364/05 

0474/27 0492/27 



0337/34 
0115/39 
0110/42 
0409/49 
0535/54 
0556/57 



0434/34 
0430/39 
0621/44 
W421/49 
00«3/56 
0590/57 



0185/35 
0450/39 
0627/45 
0074/50 
0527/56 
0637/57 



0263/35 
0678/39 
0683/45 
0068/51 
0106/57 
0646/57 



0348/03 
0407/03 
0510/03 
0565/03 
0649/03 
0020/04 
0072/04 
0139/04 
0265/04 
0405/04 
0184/05 
0321/05 
0369/05 
0537/06 



0118/12 0172/20 
0195/10 0174/12 



0342/03 0488/03 
0394/04 0437/04 
0159/05 0162/05 



0046/23 0223/23 0225/23 0245/23 0323/24 0092/25 



0123/28 0634/28 



0371/36 
0/23/39 

0694/48 
0606/51 
0204/57 
0682/57 



»•#••• CRq83«REFErEnCE SYMBOL TABLE 

0687/57 0090/58 0154/58 0163/58 0309/58 

SICKW 0138/03 0058/03 

3ICK4 0634/28 0813/30 

SIGN 0301/02 0573/03 0$96/03 0601/03 0297/04 0233/10 0236/10 

0278/10 0289/10 0313/11 0324/11 0052/19 0073/19 0183/19 

0461/21 0170/22 0266/23 0283/23 0419/23 0447/23 0046/24 

0087/24 0189/24 0223/24 0251/24 0174/25 

SINIT 0170/02 0466/02 0246/03 0035/07 0311/12 0235/21 

SL E 0235/49 0240/49 

SLE1 0186/49 0199/49 

SLE2 0285/49 0375/49 

3LE3 0373/49 0287/49 

SLE4 0414/49 0425/49 

SLE5 0389/49 0394/49 

3LE6 0434/49 037*/49 

SLE7 0247/49 0275/49 

3UE8 0268/49 0252/49 0262/49 

SLEBA 0468/49 0402/49 0463/49 

SLEBD 0463/49 0405/49 

StECl 0448/49 0458/49 

SLEC2 0456/49 0450/49 

SLECA 0432/49 0431/49 

3LECH 0442/49 0214/49 0216/49 0218/49 0222/49 0225/49 0227/49 

0229/49 0469/49 

SUECT 0466/49 0411/49 0424/49 

3LEHI 0430/49 0500/49 

SLENG 0343/02 0195/06 0202/06 0209/06 0218/06 0240/06 

SLEPT 0097 

SLERE 0177/49 0175/49 



•#»#P# CRUSS»RE.F£KENCE SYMBOL TABLE 

SLEST 0462/49 0178/49 

SLETP 0467/49 0413/49 0414/49 0416/49 0417/49 0419/49 0422/49 
0423/49 

3M31 0354/36 0327/36 

3M504 05U/37 0504/3/ 

SM507 0353/36 0344/36 

SMAIn 0631/28 0163/30 0208/3fc 0234/30 0253/30 0323/30 0713/32 

SMBGN 0342/02 0I93/06 0231/06 024g/06 0251/06 

SMSK 0004/15 0114/16 0138/16 

SMULA 0016/17 0336/17 

SMULT 0260/18 0016/17 

3NFL(i 0488/02 0092/23 0424/23 0441/23 0450/23 0002/24 0036/24 

0038/24 0043/24 0049/24 0081/24 10090/24 0194/24 0265/24 

SOURC 0326/02 0174/16 0187/16 0188/16 0210/16 0218/16 0267/16 

0269/16 0275/16 

SP,A y396/59 0212/59 

SP t L 0397/59 0245/59 0250/59 

SPD01 0167/59 0175/59 

SPD03 0209/59 0193/59 0205/59 

SPD10 0jl9/59 0235/59 0239/59 

SPDll 0367/59 0230/59 0259/59 0373/59 

SPD12 0377/59 0375/59 

SPU13 0325/59 0332/59 

SPDji4 0j95/59 t 89/59 02^2/59 

SPD16 0214/59 0222/59 0240/59 

SPD1/ 0216/59 

SPD18 0258/59 0265/59 

SPDi9 0266/59 0262/59 

SPD4 0223/59 0219/59 



#•*#### CROSS-REFERENCE SYMBOL TaBU 

SPD6 0271/59 0278/59 

SPD7 0280/59 0272/59 0297/59 0327/59 

SPD9 0242/59 0213/59 

SPOCK 0335/59 0169/59 0342/59 

SPUCU 0345/59 0J97/59 0352/59 

SPPCN 0389/59 0157/59 0225/59 0260/59 0268/59 0273/59 

SPDDfc 0299/59 0168/59 0196/59 0215/59 0307/59 

SPDNR 0387/59 0163/59 0176/59 0180/59 0294/59 0338/59 0341/59 

SPOOC 0392/59 0162/59 0257/59 0263/59 0264/59 0270/59 0276/59 

0277/59 0315/59 0320/59 0322/59 0328/59 

SPOPU 039^/59 0282/59 0290/59 033//S9 0340/59 0347/59 0350/59 

0357/59 0360/59 

SPDSP 0355/59 0217/59 (0362/59 

SPUSZ 0393/59 0164/59 0203/59 0286/59 0348/59 W 35l/59 

3P0TM 0388/59 0161/59 0224/59 0229/59 0231/59 0237/59 0358/59 
0361/59 

SPE 0543/33 0291/59 

SPROG 0249/02 0196/03 0019/06 0438/06 0050/07 0121/07 0146/07 

0460/07 0465/07 0466/07 0027/08 0254/08 0387/09 0209/U 

0537/33 0476/35 0621/35 0635/35 0046/36 0064/36 0069/36 

0387/36 0390/36 0069/38 0368/38 0379/38 0382/38 0340/39 

0033/40 0067/40 0093/40 0111/40 0133/40 0200/40 0239/40 

0312/40 0022/45 

3P32 0424/48 0369/48 0378/48 

SPSET 0309/59 0232/59 0317/59 

SPSP 043//32 0085/32 009*/32 0120/32 

SPTR 0357/02 0068/07 0076/07 0079/07 0181/07 0182/07 0188/07 

0207/07 0217/07 0236/07 0290/g7 0292/07 0295/07 03H/07 

0316/07 0322/07 0324/07 0333/07 0398/07 0401/07 0413/07 

0414/07 0419/07 0421/07 0431/07 0434/07 0441/07 0028/08 

0029/08 0031/08 0032/06 0034/06 0035/06 0045/08 0047/08 

0059/08 0063/06 0071/06 0091/08 0092/08 0097/08 0101/08 

0108/08 0111/08 0112/08 0170/08 0173/08 0255/08 0258/06 

0259/08 0261/08 0262/08 0271/06 0286/08 0288/08 0292/08 

0300/08 0171/16 0216/16 0219/16 0232/16 0234/16 0235/16 



M###* CRUS3"REFEKLNC£ symbol table 

0243/16 k)244/j6 0265/16 0266/16 0520/33 0525/33 0398/46 

0402/36 0437/36 0442/36 

SSTAK 0338/02 0254/03 0092/04 0131/04 0138/04 0168/04 0174/04 

0200/04 0284/04 0357/04 0360/04 0403/04 0415/04 0416/04 

0422/04 0423/04 0425/04 0426/04 0428/04 0429/04 0431/04 

0432/04 0434/04 0435/04 0447/04 0449/04 0044/05 0045/05 

0047/05 0048/05 e>053/05 0054/05 0089/05 0090/05 0091/05 
0145/05 

SSYMT 0068/02 0302/02 0235/07 0281/07 0298/07 0175/08 0199/08 

ST. 63 0160/47 0488/46 

S1A 0063/31 0500/28 

ST A 2l> 0192/47 0458/46 0474/46 0489/46 0121/47 0197/47 0220/47 

0225/47 0227/47 0251/47 0030/48 

STA 3 U 0247/47 0254/47 0510/47 00I3/48 0835/48 0108/48 

STA6D 0217/47 ^399/46 ^413/46 B 048/47 0062/47 0228/47 0470/47 

0506/47 0051/48 0097/48 

STAA1 0043/48 0059/48 

STAA2 0055/48 0049/48 

STABF 0428/33 0302/46 0171/47 0173/47 0235/47 0241/47 01 9 5/48 

0206/48 0347/48 0349/48 0371/48 0377/48 

STABK 0064/48 0432/47 0075/48 0093/48 

STACH 0232/47 0315/46 0328/46 0364/46 0371/46 0388/46 0452/46 

47l/46 0487/46 0056/47 0107/47 0112/47 0184/47 0186/47 

0212/47 0243/47 tf253/47 0508/47 0015/48 0026/48 0032/48 
0099/48 

STAD1 0321/46 0330/46 

STAD6 0255/47 0343/47 

STADA 0040/48 0440/47 0450/47 006fe)/48 

STADC 0257/47 0306/47 

ST A D y 0210/47 0366/46 0383/46 0450/46 0195/47 0196/47 0204/47 

0205/47 0213/47 0250/47 0012/48 0024/48 

STADI 0348/46 0416/46 

STADj 03U7/47 0326/4/ 

STA0K 0321/47 0311/47 0317/47 



CRUSS-KEpERENCE SYMBOL TABLE 



STADL 0262/47 0324/47 

STAOK 0079/48 0437/47 0447/47 0457/47 0479/47 0499/47 0086/48 

STADS 00^0/48 0383/47 0404/47 0007/48 0036/48 

STAOU 0256/47 0361/47 

STAUX 0344/47 0363/47 

STAOY 0358/47 0348/47 0354/47 

STAID 0261/47 0274/47 

STAiU 0283/47 0280/47 

STAIR 027(j/47 02*7/47 

STALL 0005/48 0282/47 0295/47 0315/47 0352/47 0016/48 

STAlT 0417/46 0361/46 0358/46 

STALV 0010/47 0088/47 

STALX 0081/47 0019/47 0039/47 

STA^Y 0020/47 0080/47 

STALZ 0036/47 0075/47 

STANE 0376/47 0389/47 

STANtf 0384/47 0381/47 

STAOC 0201/47 0311/46 0326/46 0376/46 0103/47 0206/47 

STAPL 0076/47 0071/47 

STApR 0166/47 0331/46 0340/46 0345/46 0414/46 0422/46 0483/46 

0493/46 0006/47 0077/47 0091/47 0122/47 0126/47 0167/47 

0288/47 0303/47 0316/47 0330/47 0340/47 0355/47 0367/47 

0394/47 0407/47 0420/47 0431/47 0441/47 0446/47 0451/47 

0456/47 0476/47 0493/47 0498/47 0519/47 0522/47 0525/47 

STAPZ 0064/47 0053/47 

STAQV 0260/47 0035/47 

3TA81 0094/48 0113/48 

3TA88 0091/46 0518/47 0921/47 0624/47 0114/48 

STAgy 0179/47 0306/46 0316/46 0333/46 0341/46 0360/46 0367/46 



>••### CROSS-REFERENCE SyMBOL TAbLE 

0377/46 0384/46 W4wJ«a/4c 0418/46 0454/4& 0002/47 0072/47 

0092/47 0113/47 0180/4/ 0182/47 0185/47 0187/47 0188/47 

0269/47 0289/4/ 0299/4/ 0336/47 0369/47 0390/47 0424/47 

0442/47 0452/4/ 0471/47 0494/47 0511/47 0052/48 0109/48 

STASW 0263/47 0398/47 

STASX 0399/47 0415/47 

STASY 0410/47 0406/47 

STASZ 0416/47 W403/47 

STAJB 0258/47 03/5/4/ 

STATE 0259/47 0387/47 

STATX 0462/47 0489/47 

STATY 0480/47 0468/47 04/5/47 

STATZ 0131/47 0438/46 0462/46 0467/46 0142/47 0143/47 

STAUS 0264/47 0413/47 

STAvl 0004/33 0739/32 0347/46 0349/46 0365/46 0415/46 0424/46 

0457/46 10473/46 0011/4/ 0014/47 0021/47 0040/47 0082/47 

0135/47 0152/47 0157/47 0308/47 0309/47 0312/47 0322/47 

0345/47 0346/47 0349/47 0359/47 0400/47 0401/47 0411/47 

0463/47 0464/47 0481/4/ 0516/47 0095/48 0100/48 0104/48 

STAV2 0005/33 0740/32 0427/46 0013/4/ 0037/47 0043/47 0049/47 

0051/47 0068/4/ 0140/47 0149/47 0l5l/47 0265/47 0436/47 

STAV3 0006/33 0741/32 0425/46 *>430/46 0449/46 0495/46 0499/46 
0132/47 

STBAS 0445 0299/03 

STC0 05/2/26 0439/26 

STCT1 0370/02 0135/07 0155/07 0156/07 0206/07 02U/07 

STCT2 0371/02 0136/07 0152/07 

STCT3 0372/02 0158/0/ 0162/07 

STE 0125 10262/11 

STEND 0356/02 0018/08 0096/06 

STEP 0458/22 0540/04 

STF0 0443/26 0372/26 



*•*»*♦ CROSS-REFERENCE SYMBOL TABLE 

STL10 0001/47 0498/46 

STLBp 0148/47 0441/46 0460/46 0465/46 0477/46 0166/47 0156/47 

STUCK 0228/02 0493/02 0033/06 0565/06 0403/09 0361/21 

STLE 0521/37 0264/37 

STLP 0122/47 0118/47 

STLT0 0428/46 0500/46 

STLT1 0434/46 0484/46 

STLT2 0444/46 0440/46 

STLT3 0453/46 0448/46 

STLT4 0464/46 0469/46 

STLT5 0437/46 0443/46 048g/46 

STUT6 0490/46 0442/46 0461/46 0478/46 

STLT7 0494/46 0433/46 

3TLT© 0476/46 0463/46 

3TLT9 0485/46 0466/46 

STMP1 0360/02 0226/07 0299/07 0318/07 0129/08 0140/08 0159/08 

0207/08 0223/08 0226/08 0235/08 0276/08 0283/08 0297/08 

0317/08 0333/08 0351/08 

STMP2 0361/02 0247/07 0252/07 0257/07 0259/07 0265/07 0266/07 

0270/07 0274/07 0285/07 0288/07 0308/07 0315/07 0145/08 

0165/06 0201/08 0230/08 0233/08 0339/08 0342/08 

STP 0545/33 0213/39 

STPTR 0366/02 0423/06 0424/06 0426/06 0427/06 0429/06 0430/06 

0455/06 0459/06 0460/06 0461/06 0465/06 0472/06 0473/06 

0474/06 0475/06 0476/06 0463/io6 0484/06 0487/06 0498/06 
0499/06 

STRIl 0137/05 0129/05 

STRIP 0076/02 0384/02 0119/05 0136/05 0149/05 0220/05 0419/05 

STRLN 0407/02 0161/H 0180/11 0185/il 

STROP 0038/02 0395/02 0372/03 0094/04 0151/04 0274/04 0134/05 

0144/05 0414/05 0429/05 0300/06 



■###M CRUSS-KEFfcRfcNCfc SYMBOL TABLE 

STSTK 00ttb/02 0417/02 10064/11 0095/13 0288/14 

STTOP 0114/02 0325/(02 0479/12 0038/13 0132/13 0187/13 0084/14 

0374/14 0391/14 

STTYP 0244/05 0286/03 

QTYPfc 0359/02 0272/07 0289/07 0334/07 0435/07 0037/08 0174/08 

STYPS 0380/22 0244/05 

SUP 0524/37 0263/37 0299/37 0305/37 0306/37 0321/37 0349/37 

0383/37 0365/J7 0417/37 0477/37 0478/37 0492/37 0499/37 

SUP1 0018/37 0036/37 

SUP10 0390/37 0261/37 

SUPH 0408/37 0266/37 0270/37 0289/37 

SUP12 0426/37 0414/37 

SUP13 0415/37 0432/37 

5UP14 0436/37 0421/37 0425/37 

SUPlb 0409/37 0469/37 

SUPlb 0490/37 0392/37 

SUP17 0473/37 0438/37 

SUP18 0455/37 0443/37 

SUP2 0032/37 0021/37 0024/37 

SUP20 0084/37 0089/37 

SUP21 0090/37 m^/V 

SUP22 0097/37 0204/37 

SUP23 0132/37 0104/37 

SUP24 0185/37 0130/37 

SUP25 0188/37 0193/37 

SUP26 0194/37 0191/37 

SUP2/ 0198/37 0100/37 K119/37 

SUP28 0205/37 0201/37 



CROSS»K£f-ERENCE SYMBOL TABLE 



SUP29 0221/37 0832/37 0235/37 

SUP3 0503/37 0046/37 

3UP30 0226/37 0209/37 

SUP31 0250/37 0223/37 

SUP32 0333/37 0344/37 

SUP33 0346/37 0340/37 

3UP4 0054/37 0071/37 

0065/37 0056/37 

0075/37 0068/37 

0258/37 0398/37 0474/37 

0263/37 0278/37 0314/37 

0280/37 0274/37 



SUP5 
SUP6 
3UP7 
SUP8 
SUP9 
3UP8 



0525/37 0031/37 0042/37 
0440/37 0464/37 0467/37 



0485/37 

0332/37 0386/37 

0050/37 0057/37 0418/37 0422/37 



SUPES 0533/37 0137/37 0149/37 

SUPEX 0532/37 0140/37 0172/37 

0337/37 0341/37 

SUPK1 0528/37 0082/37 0096/37 

0268/37 0271/37 0276/37 

SUPK2 0529/37 0094/37 0101/37 

0143/37 01&6/37 0175/37 

0277/37 0292/37 0309/37 

SUPLi 0530/37 B092/37 0121/37 

0220/37 0227/37 0266/37 
0457/37 

3UPL2 0531/37 0253/37 0258/37 

0441/37 0465/37 0466/37 

SUPU 0494/37 0500/37 

3UPP 0526/37 0065/37 0070/37 

SUPR 0538/37 0502/37 

SUPR1 0514/37 0501/37 



0335/37 

0320/37 



0179/37 
0295/37 

0107/37 
0176/37 
0310/37 

0155/37 
039 /3? 



0356/37 
0326/37 



0199/37 
0413/37 

0108/37 
0207/37 
0428/37 

0187/37 
0394/37 



0359/37 

0329/37 0334/37 

0203/37 0255/37 



0116/37 0129/37 
0252/37 0272/37 



0196/37 0211/37 
0412/37 0445/37 



0315/37 0396/37 0410/37 0426/37 



0076/37 0260/37 0397/37 0411/37 



CR0S8»RfcFERENCfc SYMBOL TABLE 



SUPRR 0535/37 0508/37 

SUPS 0523/37 0025/37 0026/37 0027/37 0030/37 0038/37 0039/37 

48/37 0059/37 00&0/37 0062/37 0064/37 0409/37 0415/37 

0449/37 0461/37 0468/37 0473/37 0475/37 0482/37 

SUPTG 0527/37 0312/37 Q347/S7 

SUSP 0508/30 0202/21 0344/30 0350/30 0368/30 0390/30 0393/30 

0494/30 0181/33 

SUSHN 0202/21 0189/21 

SUSPP 0181/33 0180/33 

SVBC2 0594/28 0398/28 0413/28 

SVCH2 0060 0459/26 0397/28 

SWAP1 0251/30 0229/30 

SWAP2 0252/30 0315/30 

SWAP3 0295/30 0223/30 

SwAp4 0216/30 0194/30 0199/30 

SWAP5 0207/30 0165/30 

SWAP6 0303/30 0299/30 

SWAP7 0187/30 0168/30 0210/30 

SWApR 0150/30 0016/29 0152/29 0205/90 0826/30 0318/30 0/19/32 

SYBI! 0383/28 0202/28 0346/28 

SYcl 0348/28 0367/28 0378/28 

SYC2 0370/28 0351/28 

SYC3 0347/28 0203/28 

SYCBA 0382/28 0197/28 0344/28 0355/28 0356/28 0377/28 

SYCCL 0381/28 0199/28 0342/28 0348/28 0353/28 0354/28 0374/28 

SYCCL 0384/28 0375/28 

SYCon 0341/28 0201/28 0219/28 0229/28 0231/28 0232/28 0233/26 
0371/28 

SYMCl 0367/06 0371/06 



#»»#»» 



CROSS-REFERENCE SYMBOL TABLE 



SYMC2 
SYMCK 



0375/06 0369/06 



SYMT1 
SYMT2 
SYMT3 
3YMJ4 
SYMT6 
SYMT6 
SYMT7 

8YMT6 

SYMT9 

SYMT* 



SYNT1 
SYNTA 
SYNTB 

3YNTU 
SyNTX 
8YSID 
T35B1 



0048/02 
0592/03 
0064/04 
0390/04 
0319/H5 
0309/06 

0131/08 

0140/06 

0153/08 

0156/08 

0164/08 

0210/06 

0217/06 

0223/08 

0235/08 

0247/02 
0075/07 
0457/07 
0326/08 
0065/13 
0382/17 
0513/33 

0246/03 

0250 

0514/05 

0337/02 

0236/03 

0088 

0191 

0652/45 

0174/47 

0461/48 

0140/50 

0301/53 



0394/02 
0030/03 
0078/04 
0028/05 
0331/05 
0365/06 

0136/08 

0221/08 

0132/08 

0147/08 

0134/08 

0006/07 

0005/07 

0212/08 

0218/08 

0198/03 
0116/07 
0130/08 
0340/08 
0169/16 
0170/20 
0624/35 

0199/03 

0396/29 

0445 

0255/03 

0250 

0429/32 

0169/27 
0655/45 
0203/48 
0706/48 
0174/51 
0309/53 



0315/03 
0647/03 
0097/04 
0061/05 
0338/05 
0366/06 



0142/08 
0242/06 
0224/06 

0209/06 
0318/08 



0257/03 
0196/07 
0167/08 
0406/08 
0504/16 
0246/21 
0395/36 

0242/03 



0186/27 
0658/45 
0350/48 
0043/49 
0180/51 
0402/54 



0352/03 
0661/03 
0144/04 
0077/05 
0360/05 
0374/06 



0236/08 



0234/00 



0622/05 
0330/07 
0206/06 
0092/10 
0053/17 
0421/21 
0429/36 



0536/06 0218/10 



0082/32 
0036/46 
0436/48 
0048/49 
0676/51 
0410/54 



0382/03 
0691/03 
0156/04 
0096/05 
0367/05 
0379/06 



0623/05 
0400/07 
0256/ii98 
0157/10 
0165/17 
0034/22 
0028/40 



0089/32 
0041/46 
0444/48 
0484/49 
0681/51 
0454/56 



0501/03 

0039/04 
0350/04 
0294/05 
0374/05 
0360/06 



0052/07 
0430/07 
0275/08 
0034/12 
0181/17 
0455/25 
0018/45 



0135/32 
0231/46 
0449/48 
0491/49 
0564/52 
0461/56 



0522/03 

0051/104 
0383/04 

0310/05 

0163/06 

0548/136 



0065/07 
0454/07 
0314/08 
0360/12 
0193/17 
0499/33 



0602/45 
0253/46 
0454/48 
0133/50 
0572/52 
0131/57 



####»# 




cross* 


REFERENCE 


SYMBqI table 








0138/57 


0718/57 


0728/5/ 


0l7i/58 


0181/58 


0366/58 


0374/58 


T35B2 


0189 
0345/48 


0115/29 
0348/48 


0301/46 


0169/47 


0172/47 


0194/48 


0205/48 


T35Bf- 


0456/33 
0795/45 
0095/46 
0115/46 
0161/46 
0179/46 
0200/46 
0^40/48 


0189 

0796/45 

0099/46 

0126/46 

0168/46 

0189/46 

0224/46 


0189 

0801/45 

0101/46 

0128/46 

0170/46 

0193/46 

0234/46 


0190 

0802/45 

0106/46 

0134/46 

0171/46 

0195/46 

0235/46 


0190 

0031/46 

0107/46 

0145/46 

0174/46 

0196/46 

0237/46 


0191 

0048/46 

0108/46 

0151/46 

0176/46 

0198/46 

0432/48 


0757/32 
0086/46 
0112/46 
0156/46 
0177/46 
0199/46 
0438/48 


T35C0 


0036/33 


0049/33 


0654/48 










T35C1 


0048/33 


0589/48 


0601/48 


0181/49 








T35CH 


0329 

0163/48 

0565/48 

0779/48 

0101/49 

0413/56 

0191/58 

0218/59 

0422/59 


0257/33 
0169/48 
0568/48 
0785/48 
0108/49 
0375/57 
0165/59 
0238/59 


0335/33 
0174/48 
0571/48 
0788/48 
0150/49 
0493/57 
0171/59 
0243/59 


0587/45 
0179/48 
0590/48 
0060/49 
0047/50 
0694/57 
0185/59 
0248/59 


0021/46 
0526/48 
0672/48 
0075/49 
0157/50 
0698/57 
0190/59 
0253/59 


0138/48 
0537/48 
0765/48 
0085/49 
0186/50 
0027/58 
0196/59 
0414/59 


0146/48 
0555/48 
0773/48 
0091/49 
0192/50 
0187/58 
0210/59 
0418/59 


T35CL 


0183 














T35 c p 


0044 
0025/46 


0129/29 
0679/48 


0037/33 
0680/48 


0044/33 


0590/45 


0591/45 


0024/46 


T35CU 


0032/33 
0365/36 
0343/58 
0115/59 


0329 
0220/49 
0022/59 
0123/59 


0742/32 
0634/51 
0027/59 
0135/59 


0035/33 
0498/52 
0036/59 


0046/33 
0236/53 
0041/59 


0050/33 
0337/54 
0065/59 


0051/33 
0450/57 
0107/59 


T35DR 


0260 


0033 


0560/26 










T35 F 1 


0202 
0191/30 


0042/27 
0381/49 


0065/27 


0100/27 


0192/27 


0187/28 


0026/29 


T35F2 


0203 


0078/27 


0136/27 


0159/27 


0104/29 


0146/29 


0225/33 


T35F3 


0204 


0047/27 


0161/27 


0026/29 








T35F& 


0168 














T35 Lc 


0045 
0055/50 


0131/29 
0065/50 


0033/33 
0183/50 


0043/33 
0485/57 


0458/48 
0019/58 


0034/50 
0233/59 


0044/50 


T35LK 


0166 


0186 


0184/49 











#♦»•••• CROSS-REFERENCE SYMBOL TABLE 

135UN 018b 0139/29 0192/30 0382/30 0256/33 

T35ND 0190 0117/29 

T35PR 0187 0071/27 0108/29 0138/29 0202/30 0177/33 

T35RS 0184 0134/29 0175/33 

T358P 0i7i/33 0J74/33 0598/45 0656/45 0033/46 0042/46 0232/46 

0300/46 0168/47 0175/47 0204/48 0344/48 0351/48 0437/48 

0445/48 0450/46 

T35ST 0185 0069/27 0079/27 0107/29 0136/29 0195/30 0201/30 

0204/30 0176/33 0179/33 0124/47 

TAB 0464/22 0279 

TABLE 0340/02 0185/06 0205/06 

TA8PN 0391/59 0159/59 0311/59 031 6 /59 0324/59 032$/5g 0331/&9 

TADR 0013/26 0040/27 0091/27 0094/27 0U7/27 0126/27 0195/27 
0238/28 

TAP 0328/4*2 0196/16 0206/16 0206/16 0209/16 0264/16 0260/16 

JAP! 0329/02 0261/16 0270/16 

TAPEl 0178/16 0186/16 0215/16 

TAP£2 0195/16 0191/16 0260/16 0278/16 

TAPE3 0224/16 0217/16 

TAPE4 0230/16 0247/16 

TAPES 0248/16 0168/16 

TAPE& 0258/16 0193/16 

TAPE7 0261/16 0199/16 0202/16 

TAPEA 0183/03 0245/03 

TAPEP 0513 0618/05 0319/16 0031/22 0405/29 0450/29 0464/29 
0024/30 

TAPER 0166/16 0183/03 0114/31 

Tfil2c 0633/32 0609/32 

TB130 0634/32 0469/32 0514/32 

T0160 0635/32 0606/32 



####M 



CROSS-REFt«ENCE SYMBOL TABLE 



TBDAU 0454/31 

TBDAP 0015/33 

TBOBA 0462/31 

TBOBB 0455/31 

TBDBC 0489/31 

TBDBt 0497/31 

TBDBU 0528/31 

TBdBY 0521/31 

TBDU 0440/32 
0039/32 

TBDT2 0441/32 
051b/3l 

TBDT3 0442/32 

TBjDj 0008/32 

TBITS 0004/26 

TBLPT 0345/02 

TBSRH 0028/02 
0705/03 
0210/05 



0459/31 
0325/51 
0532/31 
0496/31 
0508/31 
0491/31 
0471/31 
0486/31 

0457/31 

0041/32 

0466/31 
0530/31 

0480/31 

0011/32 

0391/26 

0206/06 

0382/02 
0019/04 
0250/06 



0529/31 
0396/51 



0731/32 0015/33 0583/52 0583/58 



0514/31 0519/31 

0483/31 

0495/31 

0490/31 052 7 /31 0016/32 0018/32 0031/32 

0046/32 0048/32 0736/32 

0467/31 0475/31 0498/31 0503/31 0504/31 



TBT15 0632/32 0604/32 



TCNT 0061 

0165/27 

TCR02 0333/28 

iQRV* 0334/28 

TCR04 0335/28 

TCR1 0260/28 

TCR2 0265/28 

TCR3 0277/28 

TCR4 0290/28 



0039/27 
0173/27 

0299/28 

0301/28 

0303/28 

0252/28 

0258/28 

0288/28 

0279/28 



0492/31 
0058/32 
0469/26 
0207/06 

0288/03 
0110/04 
0253/06 

0081/27 
0179/27 

0316/28 
0319/28 

0304/28 



0512/31 

0732/32 0564/52 0545/55 0584/56 

0102/27 0121/27 0197/27 03e3/2fl 

0213/06 0229/06 0247/06 

0479/03 0496/03 0509/03 0543/03 

0220/04 0235/04 0337/04 0376/04 
0392/06 



0090/27 0099/27 0115/27 0H6/27 
0183/27 0194/27 0198/28 



0313/28 0318/28 



»»###» 




CROSS* 


REFERENCE 


SYMBOU T 


ABLE 






TCR5 


0304/28 


0312/28 


0320/28 










TCRBA 


0332/28 


0268/28 


0280/28 


0281/28 








TCRCC 


0331/28 


0266/28 


0277/28 










TQRIR 


0249/28 


0494/27 


0105/28 


0296/28 








TCROT 


0298/28 
0295/28 


0271/28 
0321/28 


0273/28 


0275/26 


0287/28 


0291/28 


0293/28 


TCRPC 


0330/28 


0255/28 


0261/28 


0300/28 








TCRPT 


0329/28 


0250/28 


0253/28 


0302/28 








TCRPU 


0324/28 


0263/28 












TCR8D 


0326/28 


0257/28 












TONUM 


0140/32 


0111/32 


0U8/32 


0124/32 


0131/32 


0146/32 




TEMP 


0256/02 


0309/02 


0336/02 


0338/02 


0350/02 


0360/02 


0361/02 




0362/02 


0363/02 


0364/02 


0365/02 


0366/02 


0367/02 


0368/W2 




0369/02 


0370/02 


0371/02 


0372/02 


0373/02 


0390/02 


0439/02 




i440/§8 


8441/02 


0442/02 


0447/02 


0446/02 


0364/03 


0370/03 




0373/03 


0404/03 


0409/03 


0441/03 


0444/03 


0492/03 


0499/03 




0527/03 


0530/03 


0590/03 


0013/04 


0091/04 


KI095/04 


0106/04 




0l37/k>4 


0149/04 


0162/04 


0164/04 


0167/04 


0170/04 


0173/(04 




0227/04 


0229/04 


0240/04 


0246/04 


0246/04 


0272/04 


0306/04 




0374/04 


0381/04 


0400/04 


0446/04 


0464/04 


0132/05 


0136/05 




0142/05 


0188/05 


0411/05 


0413/05 


0417/05 


0427/05 


0430/05 




0440/05 


0461/05 


0462/05 


0469/05 


0471/05 


0478/05 


0497/05 




0498/05 


0499/05 


0503/05 


0504/05 


0507/05 


0569/05 


0578/05 




0583/05 


0588/05 


0989/05 


0594/05 


0597/05 


0600/05 


0607/05 




0610/05 


0611/105 


0614/05 


0017/06 


0016/06 


0020/06 


0024/K)6 




0054/06 


0274/06 


0277/06 


0062/22 


0076/22 


0082/22 


0083/22 




0085/22 


0100/22 


0109/22 


0113/22 


0114/22 


0126/22 


0131/22 




0136/22 


0137/22 


0139/22 


0140/22 


0146/22 


0147/22 


0151/22 




0180/22 


0226/22 


0235/22 


0245/22 


0276/22 


0294/22 


0308/22 


TEMPI 


0390/02 


0409/09 


0410/09 


0016/10 


0019/10 


0020/10 


0023/10 




0045/10 


0047/10 


0054/10 


W088/10 


0117/10 


0154/10 


0256/10 




0383/10 


0022/11 


0026/11 


0027/U 


0030/11 


0043/11 


0044/11 




0109/U 


0122/11 


0135/11 


0146/11 


0147/11 


0196/11 


019B/U 




0207/U 


0208/11 


0211/11 


0219/11 


0223/11 


0230/11 


0246/11 




0496/11 


0062/12 


0073/12 


0078/12 


0083/12 


0341/12 


0342/12 




0370/12 


0373/12 


0388/12 


0391/12 


0448/12 


0449/12 


0450/12 




0019/13 


0021/13 


0032/13 


0054/13 


0055/13 


0061/13 


0274/14 




0277/14 


0283/14 


0264/14 


0025/17 


0032/17 


0036/17 


0045/17 




0058/17 


0149/17 


0150/17 


0170/17 


0171/17 


0176/17 


0187/17 




0190/17 


0199/17 


0333/17 


0334/17 


0335/17 


0348/17 


0378/17 




0379/17 


0321/18 


0329/16 


W353/18 


0412/25 


0424/25 


0435/25 




0445/25 


0448/25 


0467/25 


0472/25 


0467/35 







###•#«• CKUSS^REf-EKtNCfc. SYMBOL TABLE 

TEMP2 0391/02 0308/09 0337/09 0371/09 0409/12 0419/12 13422/12 

0452/12 0468/12 0245/13 

TEMP3 0392/02 0412/12 042S/12 0248/13 0252/13 0262/13 

TEMP4 0393/02 0067/11 0415/11 0421/U 0435/U 0509/11 0141/12 

0190/12 0377/12 0382/12 0196/13 0206/13 0217/13 0222/13 

0266/13 02/2/13 0300/13 0126/14 0302/14 0308/14 0322/14 

0332/14 0433/25 0421/35 0425/35 0449/35 

TEMPS 0394/02 0361/10 0377/11 0448/11 0514/11 0116/12 0119/12 

0157/12 0161/12 0215/13 0221/13 0274/i3 0281/13 0285/13 

0302/13 0157/14 0163/14 0189/14 0197/14 0198/14 0248/14 

0349/15 0522/15 0532/15 k*462/35 

TEMP6 0395/02 0343/10 0345/10 0156/11 0189/H 0363/11 0365/11 

0251/13 0253/13 0192/14 0207/14 0223/14 0231/14 0254/14 

0257/14 0259/14 0043/lS 0056/15 0066/15 0023/20 

TENTH 0090/21 0325/22 0333/22 

TERR 0510 0239/U3 0047/06 0251/16 0507/16 0477/29 0485/29 

THEN 0454/22 0459 

THNOH 0468/40 0433/40 

TIMl 0577/43 0538/43 

TIM2 0580/43 0563/43 

TIM3 0582/43 0611/43 

TImDV 0620/43 0592/43 0594/43 0600/43 0603/43 

TIMEP 0170 069 2 / 2 b 0177/29 0183/29 0241/32 03 6 3/33 0400/33 
0339/39 

TIMER 0048 0694/28 0181/29 

TIMES 0511/04 0145/04 

TIMN 0617/43 0595/43 0606/43 

TJMNM 0619/43 0590/43 0596/43 

TIMP1 0608/43 0589/43 

TIMP2 0600/43 0597/43 

TIMP3 0610/43 0605/43 

TIMP4 0593/43 0607/43 



#*#### CROSS-RfcFERENCt SYM80U TABLE 

TIMPR 058^/43 0560/43 0571/43 0614/43 

TIMT 06i8/43 0546/43 0548/43 0550/43 0551/43 0553/43 fcj554/43 

0558/43 05S9/43 0570/43 

T1MXK 0616/43 0591/43 

TK 0523/32 0475/32 0487/32 0519/32 0547/32 

TKi 0617/32 0509/32 0517/32 0525/32 0531/32 0536/32 0538/32 
0542/32 

TK1WD 0489/32 0483/32 

TK2 0618/32 0510/32 0518/32 0527/32 0543/32 

TK3 0619/32 0530/32 0539/32 

TK4 0620/32 0590/32 0595/32 

TK5 0621/32 0558/32 0581/32 

TK6 0622/32 0557/32 0566/32 0573/32 

TKA 0528/32 0545/32 

TKB 0533/32 0540/32 

TKCO 0556/32 0494/32 0535/32 0551/32 0553/32 0582/32 0588/32 
0594/32 

TKCOL 0572/32 0565/32 

TKCRL 0549/32 0471/32 0498/32 0516/32 0541/32 0546/32 0554/32 

TKCRN 0580/32 0571/32 

TKQLN 0499/32 0488/32 

TKOLP 0481/32 0500/32 

TKDON 0501/32 0490/32 0520/32 

TKLP 0640/32 0466/32 05U/32 0563/32 

TKQTK 0637/32 0575/32 

TKTBL 0642/32 0479/32 

TKT8P 0641/32 0480/32 0481/32 0484/32 0485/32 0495/32 0499/32 

TKWb 059J/32 0596/32 

TKWO 0584/32 0492/32 0497/32 0532/32 0537/32 0597/32 



CR0S3-KEFER£NCt SYMBOL TABU 



TMb 
TMB 
TMPST 



TNULL 



TO 

TOG 

TOL 

TO.U 
TOOP 

TOPI 
TOTDli 

TP12 

TP15 

TP21H 

TP377 

TP4fe) 

TP6 

TP60 

TPO 

TPHMfc 



0624/32 

0623/32 

0384/02 
0017/13 
0107/13 
0133/14 
0437/14 

0463/02 
007b/n 
0375/11 
0219/14 

0489/04 

0012/26 

0434/02 

0019/17 

0247/05 

fe>322/2k> 

0489/02 
0168/25 

0626/32 

0627/32 

0631/32 

0630/32 

0628/32 

0625/32 

0629/32 

0140 

0464/02 
0436/Ji 
0277/13 
0321/14 



0589/32 

0524/32 

0305/10 
0037/13 
0200/13 
0134/14 
0439/14 

0309/10 
0093/11 
0444/11 

0240/14 

0531/03 

0046/27 

0046/18 

0045/18 

0534/03 

0287/20 

0246/24 
0184/25 

0552/32 

0550/32 

0473/32 

0562/32 

0493/32 

0592/32 

0585/32 

0029/30 

0306/lk) 
0438/H 
0296/13 
0434/25 



0529/32 

0162/H 
0046/13 
0204/13 
0193/14 
0452/14 

0326/10 
0344/U 
0524/11 
to333/l5 



0087/27 
0138/18 



0260/24 
0188/25 



0534/32 



0332/10 
0443/11 
0127/14 
0439/25 



0340/11 
0049/13 
0212/13 
0287/14 
0024/16 

0333/10 
0351/11 
0286/13 
0351/15 



0293/12 
0072/13 
0220/13 
0418/14 
WI052/18 

0334/10 
0358/H 
0295/13 
0516/15 



0381/12 
10073/13 
0226/13 
0425/14 
W059/18 

0344/10 
Ki35y/H 
0128/14 
0456/35 



0124/27 0129/27 0239/28 



0006/13 
0106/13 
0226/13 
0427/14 
0234/18 

0359/10 
0364/U 
W142/14 



0261/24 0272/24 0281/24 0163/25 



0068/11 0341/11 0357/U 0420/U 

tf5i0/ii KJ144/12 10194/12 0267/13 

0211/14 0298/14 0301/14 0318/14 

0424/35 0450/35 . w452/35 0457/35 



TRAX 



0087 



0281 



• MM# CROSS-REFERENCE SYMBOL TABLE 

TRFCH 0469/02 0515/15 0519/15 

TRN 0004/18 0412/17 P*12/l8 

TRN1 0413/17 0014/18 

TRNPP 0537/28 0336/29 

TRNQF 0600/28 0611/28 0637/28 

TR30 0470/02 0521/15 0528/15 

1RSTR 0094/02 0411/02 0324/10 0336/10 0392/10 0349/11 0361/U 

0450/H 0526/H W 293/13 0304/13 0346/14 0349/14 0360/14 

0338/15 0518/15 0464/35 

TRUE 0126/13 0020/14 0027/14 0033/14 0040/14 0078/14 0107/14 

TS8 0201/29 0015 

TSPTK 0346/02 0230/06 0236/06 0237/06 

TSR10 0254/06 0217/06 0220/06 

TSRC1 0202/06 0225/06 

TSRC2 0206/06 0215/06 

TSRC3 0211/06 0241/06 

TSRC4 0216/06 0201/06 

TSRC5 0226/06 0222/06 

TSRC6 0229/06 0210/06 

TSRC/ 0233/06 0239/06 

7SRC8 0242/06 0234/06 

TSRC9 0251/06 0259/06 

TT1 0445/02 0374/13 0394/13 

TT10 0104/27 0139/27 0144/27 0146/27 0149/27 0167/27 0175/27 
0181/27 

TTU 0192/27 0154/27 

TT12 0179/27 0157/27 

TT15 0130/27 0200/27 

TT16 0174/27 0188/27 



CROSS-REFERENCE SYMBOL TAbLE 



TT1/ 0136/27 0067/27 

TT18 0081/27 bJfe»54/27 0076/27 

TT2 0446/02 0377/13 0388/13 

TT3 0447/02 0385/13 0397/13 

TT4 0448/02 0387/13 0398/13 

TT5 0114/27 0084/27 

TT6 0099/27 0086/27 

TT8 0103/27 0132/27 

TTA 0009/26 0061/27 0106/27 

TTB 0010/26 0062/27 0107/27 

TTE 0011/26 0064/27 0104/27 

TTQ 0M 5l 0266/29 0302/29 

0404/29 0419/29 0425/29 

14022/30 0071/30 0105/30 

TTXCP 0201/27 0093/27 

TTY00 0284/27 0009 0010 

0257/29 0262/29 0697/32 

0435/39 0578/39 0177/43 

0500/48 0603/48 0196/49 

0056/51 0114/51 0079/52 
0439/59 

TTY01 0289/27 0009 0584/28 

4 3{j/39 0l77/4«* fc 4 12/47 

0272/49 0373/49 0456/49 

0432/59 0439/69 

TTY02 0294/2/ 

1TY03 0299/27 

TTY04 0304/27 

TTY05 0309/27 

TTY06 0314/27 

TTY07 0319/27 

TTY06 0324/27 0442/48 



0095/27 

0391/13 0405/13 0412/13 

0403/13 0409/13 0410/13 

0411/13 



0340/29 0346/29 0354/29 0369/29 
0448/29 0522/29 0546/29 0005/30 
0423/30 0403/32 



0011 0309 0584/28 0627/28 

0190/35 0347/35 0012/39 0378/39 

0419/43 0263/47 0412/47 0434/48 

0238/49 0272/49 0373/49 0456/49 

0066/52 0577/52 0368/59 0432/69 



0257/29 0262/29 0190/35 0012/39 
0500/48 06»3/ 4 8 019tj/49 0238/49 
0056/51 0114/51 0086/52 0368/59 



#*#»## CRUSS*KEFER£NCE SYHflOt TABLE 

TTY09 0329/27 

TTY10 0334/27 

TTYU 0339/27 

TTY12 0344/27 

TTY13 0349/27 

TTY14 0354/27 

TTY15 0359/27 

TTY16 0364/27 0447/48 

TTY17 0369/27 

TTYia 0374/27 

TTY19 0379/27 

TTY20 0384/27 

TTY21 0389/27 

TTY22 0394/27 

TTY23 0399/27 

TTY24 0404/27 0452/48 

TTY25 04^9/27 

TTY26 0414/27 

TTY2/ 0419/27 

TTY28 0424/27 

TTY29 0429/27 

TTY30 0434/27 

TTY31 0439/27 

TTY32 0443/27 0311 0698/32 0420/43 0264/47 

TTY35 0289 0047/29 0097/29 0216/29 0172/33 0223/33 0049/49 
0204/49 0141/50 0181/51 

TTYCK 0627/28 0024/29 0253/29 0258/29 



i»»M# CROSS-REFERENCE SYMBOL TAbUE 

TTYEU 0200/27 0552/26 

TWOSP 0659/35 0409/35 

TYPE 0063/30 0342/29 0430/29 0441/29 0513/29 0017/30 0048/30 

0065/30 \6\d7\i/iid 0075/30 to/17/32 

TYPE! 0065/30 0074/30 

TYPET 0076/30 0064/30 0066/30 0073/30 0268/30 0283/30 0285/30 

0286/30 

UCOAb 0035/31 10325/29 

UUHDA 0618/41 0334/41 

UDIlfc) 0476/41 0475/41 

UDIll 0485/41 0477/41 0481/41 

UDH2 0565/41 0540/41 

UDI13 0581/41 0382/41 

UDIHU 0613/41 0618/41 

UUi N M 0591/41 0416/41 0456/41 0466/41 0515/41 0517/41 0526/41 

0531/41 0533/41 0553/41 0564/41 0600/41 

UDIOW 0604/41 0421/41 kj423/4l 0430/41 tf434/4i 0439/41 444/4l 

0446/41 0469/41 0&20/41 0542/41 0612/41 

ODIR1 0311/41 0304/41 \ 

UUIR2 (4323/41 0315/41 

0DJR3 0336/41 «346/4l 

UDIR4 0358/41 0580/41 

UDIR5 0361/41 0636/41 

UDIR 6 0387/41 03 6 8/41 0631/41 

UD1R7 0393/41 0388/41 

UUlRO 0419/41 0401/41 

UDIR9 042t>/4l 0417/41 

UD1RC 0621/41 0482/41 

UDlKt- 0620/41 0476/41 



#*•##• CR0S3«KEFERENCE SYMBOL TABLE 

UDIRP &J622/41 0492/41 

UDISS 0619/41 0420/41 0422/41 0429/41 0445/41 0460/41 0519/41 
0541/41 

U0L14 0712/42 0490/42 0363/43 03/6/43 

UFLAG 0536/04 0204/04 0313/04 0330/04 0373/04 0424/04 0455/04 

UHUBi 0165/32 0175/32 

UH^BA 0022/33 0329/41 0036/42 0252/42 

UHOBF 0152/32 0212/32 0*22/33 

UHU 0555/20 0438/20 

UHU1 0567/28 0559/28 0563/28 

UIR 0133 0063/07 

ULEN 0172 0256 0295 0379 0463 05J6/37 0521/37 

0502/50 

ULO 0137 0934/39 

UNABT 0514 0046/07 0553/U 0445/16 0478/28 0317/29 0355/29 

0404/32 0359/33 w464/33 0617/35 

UNLl 0663/51 0489/51 

UNL10 0590/51 0563/51 0568/51 

UNLU 0569/51 0577/51 

UNL4 0667/51 0507/51 «619/51 

UNL5 0524/51 0532/51 

UH1.6 0534/51 0530/51 

UNL9 0560/51 0594/51 

UNLBT 0660/51 0654/51 

UNLCN 0692/51 0523/51 0527/5} 0538/51 0542/51 0546/51 0549/51 

0557/51 0558/51 0596/51 

UNLO 0688/51 0485/51 «,509/5l fej5i4/5i 

UNLDG 0633/51 0614/51 0620/51 0635/51 0639/51 0642/51 0643/51 

UNLtK 0671/51 0664/51 0668/51 0674/51 



****** CKOSS-KEf-EKENCE SYMBUL TAblE 

UNUF 0b89/51 0493/51 0505/51 0511/51 0512/51 0660/51 0569/51 

0579/51 0590/51 0593/51 

UNLFT 0649/51 0525/51 0561/51 0658/51 

UNLL 0690/51 0503/51 0516/51 0517/51 0529/51 0591/51 

UNlN 0693/51 06J6/51 0622/51 0624/51 0628/51 

UNLN2 0628/51 0621/51 

UNLN 3 0616/51 0627/51 

UNLNU 0613/51 0479/51 0491/51 0498/51 0617/51 0629/51 0630/51 

UNLT 0691/51 0513/51 0524/51 0528/51 0531/51 0672/51 0679/51 

gNMNC 0485/04 0315/04 

UNNRM 0003/15 0109/16 0112/16 

UNPAK 0128/02 0544/15 0545/15 0556/15 0560/15 0568/15 0005/16 
0040/16 

UNPLC 0486/04 0321/04 

UNR 0134 0595/11 0491/16 

UPCCN 0576/45 0449/45 0453/45 0463/45 

UPD20 0518/45 0403/45 0523/45 0541/45 

UPD3D 0S3//45 0415/45 0542/45 

UPDDG 0527/45 0428/45 fc52l/45 0522/45 0532/45 0540/45 

UPO.A 0571/45 0290/45 

UPO.L 0572/45 0322/45 0327/45 

UPO0 0280/45 0273/45 

UPOl 0294/45 

UP012 0430/45 0427/45 

UP013 0433/45 0429/45 

UPU14 0375/45 0358/45 0393/45 

UP015 0292/45 0300/45 0316/45 

UP016 0371/45 0366/45 



###•#• cross-reference symbol table 

UP017 0391/45 0386/45 

UP018 0334/45 0342/45 

UP03 0301/45 0297/45 

UP04 0319/45 0291/45 

UP05 0344/45 0311/45 0315/45 0338/45 

UPQ6 0355/45 0373/45 

UP07 0390/45 0357/45 , 0387/46 0438/45 

UP09 0404/45 

UPOCi 0574/45 0285/45 ft»3»2/45 03*3/45 0335/45 0340/45 0442/45 

0471/45 0495/45 k»498/45 

UP0C2 io575/45 0494/45 0497/45 

UPOCN 0573/45 0287/45 0303/45 0336/45 

UPOOG 04^3/45 0293/45 0490/45 

UPOIN 0441/45 0306/45 0339/45 0480/49 

UPONl 0454/45 0459/45 

UP0N2 0460/45 0456/45 

UP0N3 0464/45 0469/45 

UP0H4 0470/46 0466/45 

UP0N5 0478/45 0475/45 

UPOPR 0503/45 0345/45 W397/45 04^5/49 04j6/45 0504/45 0506/45 

0510/45 0513/45 0514/45 

UPOSP 0493/45 0295/45 0499/45 

UPTRV 0559/45 0354/45 0370/45 0390/45 0567/45 

UPT8V 0547/45 0352/45 0368/45 0388/45 0555/45 

UROCL 0232/42 0071/42 0161/42 

URElifl 0159/42 0167/42 

UREtl 0100/42 0169/42 

URE12 0182/42 0158/42 



>####» CROSS-REFERENCE SYMaOi, TABLE 

URE13 01?0/42 0185/42 

URE14 0186/42 0162/42 

URE15 0191/42 0072/42 

URE21 0070/42 0099/42 

URfc22 0056/42 0181/42 

URE25 0097/42 0089/42 

URE3W 0231/42 0039/42 

URENM U198/42 tol32/42 0207/42 0221/42 0223/42 

URtPl 0019/42 0012/42 

UREP2 0031/42 0023/42 

UREP3 0043/42 0053/42 

UREP4 0065/42 0074/42 

UREP5 0075/42 0069/42 

UREP6 0087/42 0096/42 

UREP9 0113/42 0094/42 0184/42 

URETH 0211/42 0139/42 0145/42 0224/42 

URHDA 0225/42 0041/42 

URPHD 0226/42 0225/42 

US, 63 0598/42 0443/4id 

USCKl 0224/05 0214/05 

U8CK2 0232/05 0225/05 

USCK3 0235/05 0211/05 

USE 0002/02 0239/30 0259/30 0287/30 0249/32 0255/32 0269/32 

W386/32 0392/32 00^/33 B 372/33 10378/33 iok)52/36 ^57/36 
0256/49 

USEI 0003/02 0243/30 0273/32 W067/33 0260/49 

USEOR 0461 0082/08 0131/U 0499/21 0419/40 

USEK 0005/02 0013 0014 0256 tf379 0002/02 0003/02 

0296/02 0185/W3 



##••## CROSS-REFERENCE SYMBOL TABLE 

U3E3N 0254/02 0024/08 0085/08 0245/09 0529/33 0445/36 

USIN5 0352/05 0515/05 

UST10 0405/42 0400/42 

03TU 0416/42 0421/42 

UST12 0428/42 0415/42 

UST13 0440/42 0418/42 

U3T14 0445/42 0394/42 0413/42 0430/42 

UST15 0453/42 0385/42 0448/42 

UST16 0460/42 0457/42 

USTl/ 0470/42 0551/42 

UST18 0480/42 0543/42 

UST19 0496/42 0535/42 

U3T20 0524/42 0513/42 

UST21 0536/42 0531/42 

UST22 0544/42 0479/42 0499/42 

UST2D 0627/42 0410/42 0426/42 0444/42 0632/42 0657/42 0662/42 

0664/42 0673/42 0028/43 0312/43 

UST30 0038/43 0049/43 

UST31 0045/43 0042/43 

UST32 0069/43 0088/43 

UST33 0083/43 0073/43 0079/43 

U3T34 0103/43 0125/43 

U3T35 0120/43 0107/43 0113/43 

UST3& 0145/43 0142/43 

U3T37 0161/43 0180/43 

UST38 0175/43 0168/43 

U3T39 0181/43 0165/43 



•*"/ 



*####*> CRQ5S«KEFERENC£ SYMBOL TABLE 

UST3U 066y/42 0676/42 0263/43 0295/43 0317/43 0404/43 

UST40 0220/43 0241/43 

UST41 0232/43 0222/43 0224/43 

UST50 0137/43 0150/43 

UST6D 0654/42 0348/42 0362/42 05W8/42 0522/42 0665/42 0259/43 

0346/43 0393/43 

USTA0 0251/42 0244/42 

U8TA1 0270/42 0260/42 

U3TA2 002^/43 0025/43 

U3TA4 0297/42 0368/42 

U3TA5 0369/42 0300/42 0307/42 

USTA6 0380/42 0459/42 

USTA7 0386/42 0439/42 

U8TA8 0^89/42 0395/42 0434/42 

USTA9 0396/42 0392/42 

U5TBP 0587/42 0393/42 0412/42 0417/42 0429/42 0595/42 0597/42 

USTBR 0355/43 0366/43 0371/43 0389/43 

U8TCK 0220/02 0642/03 0046/04 0212/05 0223/05 0230/05 0234/05 
0241/05 

U8T01 0325/43 0332/43 

USTD2 0326/43 

USTD6 0412/43 0102/43 

USTUA 0322/43 0198/43 0208/43 0334/43 

USTDC 0414/43 0068/43 

USTDU 0645/42 0315/42 0332/42 0402/42 0630/42 0631/42 0639/42 

0640/42 0650/42 0672/42 0294/43 0306/43 

USTDL 0418/43 0086/43 

USTDR 0370/43 k)l95/43 0205/43 0215/43 0231/43 0252/43 0382/43 

USTOS 0302/43 0144/43 0166/43 02«9/43 0318/43 



*#»•## CROSS'sREFfcRENCfc SYMBOL TABUE 

U3TDU 0413/43 0123/43 

USTER 0603/42 0493/42 0305/43 0381/43 

UST1D 0417/43 0036/43 

USTUU 0287/43 0044/43 0057/43 0077/43 0111/43 0298/43 

USTMA 0243/05 0209/05 

USTMT 0382/22 0243/05 

U3T0C 0636/42 0260/42 0276/42 0325/42 0641/42 0010/43 

USTQV 0600/42 0495/42 

USTRV 07kj3/42 0366/42 0438/42 0452/42 0540/42 0711/42 0117/43 

KJ172/43 0228/43 0274/43 0279/43 

U3TS1 0390/43 0409/43 

U3T80 0599/42 0565/42 

UST8K 0338/43 0221/43 0326/43 0344/43 0350/43 0351/43 

USTS3 0387/43 0271/43 0276/43 0281/43 0411/43 

USTST 0612/42 0255/42 0265/42 0283/42 0309/42 0316/42 0326/42 

0333/42 0349/42 0370/42 0406/42 046l/42 0532/42 0555/42 

0613/42 0615/42 0619/42 0622/42 0623/42 0020/43 0030/43 

0051/43 0060/43 0095/43 0130/43 0152/43 0187/43 0200/43 

0209/43 0246/43 0264/43 0347/43 0405/43 

UST3V 0691/42 0364/42 0436/42 045 /42 0538/42 0699/42 0115/43 

0170/43 0226/43 0272/43 0277/43 

USTSW 0419/43 0160/43 

U3TTB 0415/43 0136/43 

USTTfc 0416/43 0148/43 

USTTZ 0570/42 0390/42 0414/42 0419/42 0581/42 0582/42 

USTUS 0420/43 0178/43 

UTPNM 0216/32 0187/32 0194/32 0200/32 0205/32 0225/32 

UTEMP 0261/02 0434/02 0406/20 0408/20 0*l6/20 0475/20 0485/20 

0019/21 0024/21 0025/21 0027/21 0037/21 

VAU10 0063/09 0039/09 0057/09 0144/09 0150/09 



MMM CROSS-REFERENCE SYMBOL TABLE 

VAtll 0065/09 0023/tf9 

VAL12 0068/09 0011/09 

VAL13 0161/09 0005/09 

VAL14 0166/09 0414/08 

VAL15 0174/09 0419/08 

VAL16 0199/09 0211/09 

VAL17 0201/09 0177/W9 

VAL18 0212/09 0180/09 

VAL19 0235/09 0230/09 

VAL20 0231/09 0222/09 0228/09 

VAL31 0448/08 0441/08 

VAL51 0080/09 0014/09 

VAL52 0128/09 0091/09 0100/09 0105/09 0109/09 0116/09 0116/09 
0121/09 

VAL53 0154/09 0157/09 

VAL98 0253/09 0244/09 0247/09 

VAL99 0241/09 0410/08 

VALTB 0248/02 0335/02 0371/07 0334/09 0438/34 0443/34 0444/34 

0445/34 0451/34 0457/34 0461/34 k>463/34 0464/34 0466/34 

0467/34 0468/34 0481/34 04b3/34 0484/34 0486/34 0467/34 

0488/34 0490/34 0492/34 0494/34 0496/34 0497/34 0499/34 

VALOl 0406/06 0433/06 0438/06 0452/08 0458/08 0053/09 0072/09 

0127/09 0i60/ tf 9 0163/09 *jl67/09 id200/09 »205/09 0240/^9 

yALu2 0435/08 0447/08 

VALU3 0439/08 0428/08 

VAL04 0456/08 0417/08 

VALU5 0004/09 0422/08 

VALU6 0026/09 0067/09 

VALU7 0032/09 0079/09 

VALUH 0047/09 0051/09 0062/09 



»»#M» 



CROSS-REFERENCE SYMBOL TABLE 



VA L u? 
VALUE 
VARQ1 
VAR02 
VAR03 
VAR04 
VAROP 

VCHK 

VCHK1 

VCHK2 

VLB 

VLFI0 

VLFI1 

VLFJ2 

VLFI3 

VLFXL 

VLFLC 

VT0 

VTMP1 

VTMP2 
VTMP3 



0094/09 

0402/08 

0427/05 

0431/05 

0440/05 

0419/05 

0022/02 
0626/03 
0343/05 
0426/05 

0176/02 
0198/17 

0291/18 

0306/18 

0458/02 

0070/12 

0072/12 

0088/12 

0096/12 

0188/02 
0043/17 

0250/02 
0242/09 

0431/02 
024^/18 

0362/02 
0073/09 
0174/09 

0363/02 
0146/09 

0364/02 
0034/09 
0078/09 



0046/09 

0073/07 

0410/05 

0418/05 

0445/05 

0403/05 

0359/02 
0208/04 
0370/05 
0433/05 

0337/02 
0387/17 

0305/18 

0298/18 

0077/12 

0065/12 

0069/12 

0099/12 

0066/12 

0017/10 



0346/07 

0255/09 

0175/18 
0286/48 

0435/08 
0080/09 
0181/09 

0006/09 
0156/09 

0017/09 
0035/09 
0085/09 



0369/07 0372/07 



0405/05 0407/05 

0380/02 0343/03 0377/03 0516/03 0552/03 

0427/04 K)458/04 0160/05 0313/05 0334/05 

0400/tf5 0401/05 0408/05 0422/05 0423/05 
0441/05 

0406/02 0430/02 0491/02 0102/17 0186/17 

0293/18 0460/25 

0307/18 



0092/12 



0370/10 0010/11 0070/12 0071/12 0095/12 



0356/08 0426/08 0009/09 0161/09 0175/09 



0218/16 0221/18 0222/18 0223/18 0238/18 

0287/18 0288/^S 029g/i8 029i/i8 

0437/08 0006/09 0015/09 0021/09 0052/09 

0003/09 0087/09 0122/09 0126/09 0^9/09 

0186/09 0199/09 0207/09 

0026/09 0042/09 0050/09 0093/09 0131/09 



0029/09 0030/09 0031/09 0032/09 0033/09 
0036/09 0043/09 007«/a9 0076/ 9 0077/^9 
0089/09 0097/09 0098/09 0102/09 0110/09 







CROSS- 


REFEREfNlCfc 


SYMBOL T 


ABIE 








0111/i)9 


0112/09 


0113/09 


0183/09 


0193/09 


0213/09 


0220/09 




0226/09 


0229/09 


0231/09 










VTMP4 


0365/4)2 


0040/09 


0056/09 


0106/09 


0119/09 


0123/09 


0124/09 


VTMP5 


0366/02 


0082/09 


0128/09 










WCS 


0155 


0421/45 


0270/48 










WEHRA 


0008/15 


0226/16 


0400/16 


0410/16 


0455/16 


0460/16 




WERRS 


0536 


0428/09 


0265/10 


0280/10 


0295/10 


0259/11 


0212/12 




0102/14 


0008/15 


0084/16 


0122/16 


0509/20 


0045/21 


0302/22 




0307/22 














WORD 


0059 


0051/i03 


0103/03 


0205/15 


0482/15 


0350/16 


0049/26 




0108/26 


0197/26 


0470/27 


0047/28 


0074/28 


0240/30 


0260/30 




0282/30 


0321/30 


0201/31 


0255/31 


0283/31 


0362/31 


036//31 




0400/31 


0421/31 


0476/31 


0022/32 


0250/32 


0270/32 


0387/32 




0W62/33 


0104/33 


0373/33 


0388/33 


0333/34 


0181/35 


055$/35 




0594/35 


0053/36 


0105/36 


0219/36 


0247/36 


0262/36 


0269/36 




027lo/36 


10335/36 


10345/36 


0106/37 


0120/37 


0142/37 


0154/37 




01/4/37 


0210/37 


0215/37 


0267/37 


0282/37 


0265/37 


0291/37 




0303/37 


0307/37 


10436/37 


0505/37 


0173/38 


0222/38 


0310/38 




0359/38 


0018/39 


0111/39 


0116/39 


0205/39 


0324/39 


0426/39 




0570/39 


0673/39 


0743/39 


0782/39 


0789/39 


0802/39 


0828/39 




0210/41 


0377/41 


0076/42 


0101/42 


0077/44 


0261/44 


0351/44 




0376/44 


0391/44 


0398/44 


0399/44 


0594/44 


0621/45 


0628/45 




0646/45 


0680/45 


0070/46 


0687/48 


0728/48 


0024/49 


0115/49 




0257/49 


0317/49 


0435/49 


0023/50 


0116/50 


0292/50 


0308/50 




0311/50 


0318/50 


0330/50 


0334/50 


0433/50 


0064/51 


0097/51 




0140/51 


0238/51 


0276/51 


0339/51 


0380/51 


0390/51 


0406/51 




0415/51 


0545/51 


0602/51 


0163/52 


0232/52 


0282/52 


0299/52 




0331/52 


0382/52 


0452/52 


0095/53 


0210/53 


0166/54 


0261/54 




0311/54 


0519/54 


0171/56 


0247/65 


0267/55 


0290/55 


0301/55 




0408/55 


0075/56 


0131/56 


0227/56 


0244/56 


0261/56 


0276/56 




0283/56 


0284/56 


0317/56 


0497/56 


0103/57 


0199/57 


0228/57 




0287/57 


0304/57 


W319/57 


0332/57 


0552/57 


0586/57 


0626/57 




0632/57 


0640/57 


0669/57 


0064/56 


0121/58 


0150/58 


0159/56 




0201/58 


0272/58 


0305/58 


0399/58 


0477/58 


0496/58 


0519/58 




0556/58 














WRBU1 


0490/15 


0481/15 












WRBU2 


0500/15 


0469/15 












WR6U4 


0442/15 


0453/15 


0462/15 










WRBU5 


0460/15 


0466/15 












WRBU6 


0467/15 


0443/15 


0446/15 


0448/15 








WR0U7 


0471/15 


0437/15 













»#»»M 




GROSS. 


REFERENCE 


SYMBOL T 


ABLE 






WRBUF 


0196/02 
0493/15 


0428/02 
0502/15 


0468/02 
0902/95 


0481/U 


0612/11 


0199/15 


0427/15 


W8P 


0546/33 


0410/45 


0259/48 










WTP 


0156 


0008/30 


0545/99 










X 


0629/28 


0656/28 


0659/28 










X2056 


0516/97 


0125/97 


0159/37 


0169/97 








X2TMP 


0262/02 
0274/20 


0425/02 
0275/20 


0426/02 


0187/20 


0205/20 


0266/20 


0266/20 


XCOMS 


0695/28 


0928/29 












XCRLF 


0680/42 
0465/42 

0064/49 
0166/49 

0245/43 


0261/42 
0597/42 
0080/49 
0169/49 
0250/43 


0299/42 
0554/42 
0092/49 
0185/49 
0999/49 


0969/42 
0687/42 
0099/49 
0194/49 
0410/49 


0974/42 
0029/49 
0114/49 
0204/49 


0495/42 
0050/49 
0129/49 
0219/43 


0449/42 
0059/43 
0151/43 
0225/43 


xec 


0301/09 














XEC0 


0928/09 


0915/09 


0323/09 










XEC01 


0316/09 


0310/09 












XECl 


0997/09 
0069/10 
0985/10 
0393/H 
0253/12 


0917 
0071/10 

0104/11 
0466/U 
0254/12 


0010/10 
0162/10 
0111/11 
0599/11 
0269/12 


0022/10 
0192/10 
0159/11 
0248/12 
0269/12 


0091/10 
0196/10 
0174/11 
0249/12 


0053/10 
0200/10 
0213/11 
0250/12 


0060/10 
0299/10 
0247/11 
0252/12 


XEC1A 


0317 
0237/18 


0175/12 
0214/26 


0048/17 
0226/25 


0158/17 
0229/25 


0162/17 
0292/25 


0918/17 


0015/18 


XEC2 


0334/09 


0962/09 












XEC9 


0349/09 


0241 


0999/09 










XEC9I 


0241 


0447/09 












XEC4 


0363/09 


0995/09 












XEC5 


0420/09 


0242 












XEC51 


0242 


0942/09 












XEC6 


0442/09 


0436/09 












XEC7 


0446/09 


0426/09 












XEC8 


0380/09 


0373/09 
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CROSS-REFERENCE SYMBOL TABLE 



XEC9 

XECBR 

XECTtt 

XPNCH 

XPUN 

XTEMP 



YEAR 
YTEMP 



Z999 

ZD1SC 
ZERSl 



0371/(39 

0625/11 

0247/12 

0223/21 

0034/31 

0259/02 
0307/20 
0348/20 
0456/20 
0013/21 
0112/21 

0091 

0260/02 
0378/20 
0481/20 
0117/21 
0198/21 

0381/39 

0169/03 

0438/32 



0365/W9 

0414/09 

0625/11 

0112/31 

0502/29 

0415/02 
0308/20 
0356/20 

0469/20 
0016/21 
0118/21 



0433/02 
0417/20 

0482/20 
0120/21 



0416/02 
0309/20 
0376/20 
04/2/20 
0020/21 
0126/21 



0432/02 
03U/20 
0396/20 
0474/20 
0030/21 
0136/21 



0357/20 

0429/20 
0491/20 
0122/21 



0359/20 
0433/20 
0492/20 
0125/21 



0288/20 
0319/20 
0405/20 
0489/20 
0033/21 
0137/21 



0054/20 0117/32 0193/32 0089/33 



0367/20 
0461/20 
0495/20 
0128/21 



0247/39 

0118 0178/03 0179/03 0682/32 
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0299/20 
0335/20 
0422/20 
0493/20 
0105/21 
0166/21 



0368/20 
0471/20 
0015/21 
0130/21 



0300/20 
0347/20 

0427/20 
0011/21 
0111/21 
0179/21 



0374/20 
0478/20 
0041/21 
0176/21 
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